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

'[字符加解密]

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