易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP的DES加密解密

ASP的DES加密解密
2007-05-18 09:49
原文：http://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
前两天学到对称密码DES算法，然后就自己亲手写了个实现程序出来，好多地方用得着呐。这里是用ASP实现，当然也就是可以移到VB啦。懂得怎样写后写成什么语言都行啦，只要懂得那门语言。如果有朋友想知道具体DES算法过程是怎样的，可以到网上查找。
（这两天又把它改进了一下，加密字符串并且使用十六进制，这样加密后的字符串会短些~~~      —— 2007年5月2日）
<%
Class Cls_DES
     Private IPRule, CPRule, EPRule, PRule, SBox(7), PCRule(1), MvRule
     Private K(16), L(16), R(16)
     Private FillCode, DesStatus
    
     Private Sub Class_Initialize()
         DesStatus = -1
         FillCode = "0001101"
         IPRule = "58,50,42,34,26,18,10,2," &_
             "60,52,44,36,28,20,12,4," &_
             "62,54,46,38,30,22,14,6," &_
             "64,56,48,40,32,24,16,8," &_
             "57,49,41,33,25,17, 9,1," &_
             "59,51,43,35,27,19,11,3," &_
             "61,53,45,37,29,21,13,5," &_
             "63,55,47,39,31,23,15,7,"
         CPRule = "40, 8,48,16,56,24,64,32," &_
             "39, 7,47,15,55,23,63,31," &_
       &


相关文档：

通用asp防注入程序

‘防注入把它加到conn里这样就ok了
dim sql_injdata
SQL_injdata = "’|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubo ......

asp的心得

    ASP部分讲述：   对于ASP来说相信大家都并不陌生，在这里我就不浪费太多的时间来进行阐述了。
       我这里主要是记录了我在读ASP时的一些心得和我自己认为应该注意的地方，希望这些点点滴滴能够为那些初学的朋友有一定的帮助，同时也希望和已经有很深经验和 ......

asp实现批量录入数据

请看如下源代码：
<%
'向数据库写入数据
SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3
dim conn
dim sqlStr,connStr
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="
set conn=Server.CreateObject("ADODB.Connection")
c ......

搭建简易的asp服务器 用于手机安装测试程序

蓝牙坏掉了，这样一来 手机安装程序变得很不方便了。一开始是先把要安装的程序以附件的形式发到邮箱 再在手机上配置邮箱 让后下载附件安装，这样虽然解决了问题  但是还是有很多不方便的地方。 于是  自己想搭建一个服务器 直接实现在线安装。前提是手机支持wifi，就是说需要手机访问内网地址，否则得话 就比较� ......

asp会员注册后自动登陆

<%
set rs=server.createobject("adodb.recordset")
sql="select * from YONGHU where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("USERNAME")=request("username")
rs.update
rs.close
set rs=nothing
conn.close 
set conn=nothing
session("username")=rs("name")
    respo ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号