加解密文本的函数
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
0条评论