ASP文字列暗号化関数 EncryptText()

<%
'ASP 文字串加密関数数EncryptText()
'strEncryptionKey:加密キー文字列，用以区别異模块加密算法
'strTextToEncrypt:欲加密字符串
関数 EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim のアウター、インナー、Key、strTemp
外側の場合 = 1 To Len(strEncryptionKey)
key = Asc(Mid(strEncryptionKey, 外側, 1))
内部の場合 = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor key)
キー = (キー + Len(strEncryptionKey)) Mod 256
次
strTextToEncrypt = strTemp
strTemp = ""
次
EncryptText = strTextToEncrypt
終了機能
%>

より高い安全性が要求されるプログラムでは、この関数演算を採用する必要がないことが考えられる。