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

 '函数名：exmw
  '作 用：解密字符加解密
  '参 数：nmw ---- 加密的字符
  '返回值：解密加密后的字符
  '示 例：
  '**************************************************
  Public Function exmw(ByVal nmw)
   exmw=""
   On Error GoTo 0
   On Error Resume Next
   Dim keya,keyb,newStr,temp
   nmw=DecodeCookie(nmw)
   keya=Mid(nmw,2,1)
   keyb=Mid(nmw,1,1)
   bLowChr=ChrB(AscB(MidB(keya, 1, 1)) Xor 128)
   bHigChr=ChrB(AscB(MidB(keya, 2, 1)) Xor 18)
   keya=bLowChr & bHigChr
   bLowChr=ChrB(AscB(MidB(keyb, 1, 1)) Xor 100)
   bHigChr=ChrB(AscB(MidB(keyb, 2, 1)) Xor 20)
   keyb=bLowChr & bHigChr
   Str=StrReverse(Mid(nmw,3,len(nmw)))
   newStr=""
   temp=""
   For i=1 to len(Str)
   temp=Mid(Str,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
   If Err.Number = 0 Then
   exmw=newStr
   End If
   On Error GoTo 0
  End Function