<%
'ASP 字串加密函數EncryptText()
'strEncryptionKey:加密金鑰字串，不同模組加密演算法
'strTextToEncrypt:欲加密字串
函數 EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
調暗外部、內部、Key、strTemp
對於外部 = 1 到 Len(strEncryptionKey)
金鑰 = Asc(Mid(strEncryptionKey, 外部, 1))
對於內部 = 1 到 Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, 內部, 1)) 異或金鑰)
金鑰 = (金鑰 + Len(strEncryptionKey)) Mod 256
下一個
strTextToEncrypt = strTemp
字串溫度=“”
下一個
加密文字 = strTextToEncrypt
結束功能
%>
對於密碼安全性要求較高的程序中，建議不要採用該函數演算法。