<%
'ASP verwendet die EncryptText()-Funktion
'strEncryptionKey:加密key字符串, 用以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
Funktion EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim äußere, innere, Schlüssel, strTemp
Für äußere = 1 bis Len(strEncryptionKey)
key = Asc(Mid(strEncryptionKey, äußere, 1))
Für inner = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor-Schlüssel)
key = (key + Len(strEncryptionKey)) Mod 256
Nächste
strTextToEncrypt = strTemp
strTemp = ""
Nächste
EncryptText = strTextToEncrypt
Funktion beenden
%>
在对密码安全性要求较高的程序中,建议不要采用该函数算法.