Função de criptografia de string ASP EncryptText()

<%
'ASP 字符串加密函数EncryptText()
'strEncryptionKey:加密key字符串，用以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
Função EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim externo, interno, Key, strTemp
Para exterior = 1 para Len(strEncryptionKey)
chave = Asc(Mid(strEncryptionKey, exterior, 1))
Para interno = 1 para Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Chave Xor)
chave = (chave + Len(strEncryptionKey)) Mod 256
Próximo
strTextToEncrypt = strTemp
strTemp = ""
Próximo
EncryptText = strTextToEncrypt
Função final
%>

在对密码安全性要求较高的程序中，建议不要采用该函数算法。