Fonction de chiffrement de chaîne ASP EncryptText()

<%
'ASP utilise EncryptText()
'strEncryptionKey:加密key字符串，用以区别不同模块加密算法
'strTextToEncrypt : 欲加密字符串
Fonction EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim extérieur, intérieur, clé, strTemp
Pour externe = 1 To Len(strEncryptionKey)
clé = Asc (Mid (strEncryptionKey, externe, 1))
Pour intérieur = 1 à Len (strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Clé Xor)
clé = (clé + Len(strEncryptionKey)) Mod 256
Suivant
strTextToEncrypt = strTemp
strTemp = ""
Suivant
ChiffrerTexte = strTextToEncrypt
Fonction de fin
%>

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