<%
'ASP 字符串加密函数EncryptText()
'strEncryptionKey:加密key字符串, 以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
함수 EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
희미한 외부, 내부, Key, strTemp
외부 = 1 To Len(strEncryptionKey)
키 = Asc(Mid(strEncryptionKey, 외부, 1))
내부 = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, 내부, 1)) Xor 키)
키 = (키 + Len(strEncryptionKey)) Mod 256
다음
strTextToEncrypt = strTemp
strTemp = ""
다음
EncryptText = strTextToEncrypt
기능 종료
%>
对密码보안은 매우 높은 수준입니다.