加解密文本的函数

private comman 1 _ click()
Dim str 1，STR2，STR3 as string
STR1 = "王玉红"
str2 = Encrypt(str1，188，24)
MsgBox str 2
str 3 = Encrypt(str 2，188，24)
MsgBox str 3
End Sub

Private函数Encrypt(ByVal strSource为字符串，ByVal Key1为字节，_
ByVal Key2为整数)为字符串
Dim bLowData为字节
Dim bHigData为字节
Dim i为整数
Dim strEncrypt为字符串
Dim strChar为字符串
For i = 1 To Len(strSource)

从要加密(解密)的字符串中取出一个字符

strChar = Mid(strSource，I，1)

取字符的低位字节，用Key1执行异或运算。

bLowData = AscB(MidB(strChar，1，1)) Xor Key1

取字符的高字节和K2进行异或运算。

bHigData = AscB(MidB(strChar，2，1)) Xor Key2

将计算出的数据组合成新的字符。

stren crypt = stren crypt & ChrB(blow data)& ChrB(bhig data)

next
Encrypt = stren crypt
End Function