<%
'ASP dalam bahasa EncryptText()
'strEncryptionKey:加密key字符串,用以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
Fungsi EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Redupkan bagian luar, bagian dalam, Kunci, strTemp
Untuk luar = 1 Ke Len(strEncryptionKey)
kunci = Asc(Mid(strEncryptionKey, luar, 1))
Untuk bagian dalam = 1 Ke Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Kunci Xor)
kunci = (kunci + Len(strEncryptionKey)) Mod 256
Berikutnya
strTextToEncrypt = strTemp
strTemp = ""
Berikutnya
EncryptText = strTextToEncrypt
Fungsi Akhir
%>
在对密码安全性要求较高的程序中,建议不要采用该函数算法。