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," &_
&
