PublicFunctionEncryptDecrypt(ByValValueAsString)AsString
DimstrCharAsString
DimintCountAsInteger
DimintASCIIAsInteger
DimstrEncryptedAsString
DimintOffsetAsInteger
intOffset=200
strEncrypted=vbNullString
ForintCount=1ToLen(Value)
strChar=Mid$(Value,intCount,1)
intASCII=Asc(strChar)XorintOffset
strEncrypted=strEncrypted&Chr(intASCII)
NextintCount
EncryptDecrypt=strEncrypted
EndFunction
要使用这个函数，就要对你想要加密的值调用它。它会返回已经过加密的值。要解密一个值，将它传递给这个函数，它就会返回已解密的值。
尽管这个函数对于简单的加密要求来说是很有用的，但是它不应该被用来保护商业上的关键信息。这种加密法的简单性就意味着它能够被很快的破解。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
