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