'mvarpassword 密码,value 明文 先用随机数把明文补足你需要的位数,调用JiaMiString加密,再调JiaMiString一次解密
Public Function JiaMiString(value As String) As String
Dim message As String
Dim i As Integer
Dim textchar As String
Dim keychar As String
Dim encryptedchar As Integer
Dim encryptedmessage As String
encryptedmessage = ""
message = value
For i = 1 To Len(message)
textchar = Mid(message, i, i)
keychar = Mid(mvarpassword, (i Mod Len(mvarpassword)) + 1, 1)
encryptedchar = Asc(textchar) Xor Asc(keychar)
encryptedmessage = encryptedmessage & Chr(encryptedchar)
Next i
JiaMiString = encryptedmessage
End Function