<%
'ASP 字符串加密函数EncryptText()
'strEncryptionKey:加密密钥字符串,不同模块加密算法
'strTextToEncrypt:欲加密字符串
函数 EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
调暗外部、内部、Key、strTemp
对于外部 = 1 到 Len(strEncryptionKey)
密钥 = Asc(Mid(strEncryptionKey, 外部, 1))
对于内部 = 1 到 Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, 内部, 1)) 异或密钥)
密钥 = (密钥 + Len(strEncryptionKey)) Mod 256
下一个
strTextToEncrypt = strTemp
字符串温度=“”
下一个
加密文本 = strTextToEncrypt
结束功能
%>
对于密码安全性要求较高的程序中,建议不要采用该函数算法。