<%
'ASP использует метод EncryptText()
'strEncryptionKey:加密key字符串,用以区别不同模块加密算法
'strTextToEncrypt: несанкционированное использование
Функция EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Затемнение внешнее, внутреннее, ключ, strTemp
Для внешнего = 1 To Len(strEncryptionKey)
ключ = Asc(Mid(strEncryptionKey, external, 1))
Для внутреннего = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, внутренний, 1)) Ключ Xor)
ключ = (ключ + Len(strEncryptionKey)) Мод 256
Следующий
стртексттоенкрипт = стртемп
стрТемп = ""
Следующий
ЗашифроватьТекст = стртекстToEncrypt
Конечная функция
%>
在对密码安全性要求较高的程序中，建议不要采用该函数算法。