Asp常用通用函数之字符加解密

'函数名：addmw
  '作 用：字符加解密
  '参 数：nyw ---- 被加密的字符
  '返回值：加密后的字符
  '示 例：
  '**************************************************
  Public Function addmw(ByVal nyw)
   addmw=""
   On Error GoTo 0
   On Error Resume Next
   rndChararray = "abcdefghijklmnopqrstuvwxyz1234567890"
   randomize
   keya=Mid(rndChararray,int(rnd()*35)+1,1)
   keyb=Mid(rndChararray,int(rnd()*35)+1,1)
   temp=""
   newStr=""
   For i=1 to len(nyw)
   temp=Mid(nyw,i,1)
   bLowChr=AscB(MidB(temp, 1, 1)) Xor asc(keya)
   bHigChr=AscB(MidB(temp, 2, 1)) Xor asc(keyb)
   newStr=newStr & ChrB(bLowChr) & ChrB(bHigChr)
   Next
   bLowChr=AscB(MidB(keyb, 1, 1)) Xor 100
   bHigChr=AscB(MidB(keyb, 2, 1)) Xor 20
   keyb=ChrB(bLowChr) & ChrB(bHigChr)
   bLowChr=AscB(MidB(keya, 1, 1)) Xor 128
   bHigChr=AscB(MidB(keya, 2, 1)) Xor 18
   keya=ChrB(bLowChr) & ChrB(bHigChr)
   newStr=keyb & keya & StrReverse(newStr)
   If Err.Number = 0 Then
   addmw=CodeCookie(newStr)
   End If
   On Error GoTo 0
  End Function