在你的应用程序里实现简单的加密
添加时间: 2006-2-16 9:27:17 作者: VB教程 阅读次数:75 来源: http://www.d9soft.com
Public Function EncryptDecrypt(ByVal Value As String) As String
Dim strChar As String
Dim intCount As Integer
Dim intASCII As Integer
Dim strEncrypted As String
Dim intOffset As Integer
intOffset = 200
strEncrypted = vbNullString
For intCount = 1 To Len(Value)
strChar = Mid$(Value, intCount, 1)
intASCII = Asc(strChar) XorintOffset
strEncrypted = strEncrypted & Chr(intASCII)
Next intCount
EncryptDecrypt = strEncrypted
End Function
要使用这个函数，就要对你想要加密的值调用它。它会返回已经过加密的值。要解密一个值，将它传递给这个函数，它就会返回已解密的值。
尽管这个函数对于简单的加密要求来说是很有用的，但是它不应该被用来保护商业上的关键信息。这种加密法的简单性就意味着它能够被很快的破解。
上下文章:
上一篇文章: 用SendMessage实现剪贴板操作 下一篇文章: 利用Internet传输控件来使用FTP