求一个VB移位字符串能加密或解密源码
如题,如字符串是 "LONG123 ",要求加密为乱码,且能解密后还原字符.谢谢
[解决办法]
'加密
Private Function EncryptCode(ByVal sSourceCode As String, ByVal iPosition As Integer)
Dim I As Integer
Dim Char As String
Dim sTargetCode As String
For I = 1 To Len(sSourceCode)
Char = Mid(sSourceCode, I, 1)
sTargetCode = sTargetCode & Chr(Asc(Char) + iPosition)
Next I
EncryptCode = sTargetCode
End Function
'解密
Private Function RevertCode(ByVal sTargetCode As String, ByVal iPosition As Integer)
Dim I As Integer
Dim Char As String
Dim sSourceCode As String
For I = 1 To Len(sTargetCode)
Char = Mid(sTargetCode, I, 1)
sSourceCode = sSourceCode & Chr(Asc(Char) - iPosition)
Next I
RevertCode = sSourceCode
End Function
