'**************************************************

'[解密字符加解密]

'函数名：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