ASP字符串加密函数EncryptText()

<%

'ASP 字符串加密函数EncryptText()

'strEncryptionKey:加密key字符串，用以区别不同模块加密算法

'strTextToEncrypt:欲加密字符串

Function EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)

Dim outer, inner, Key, strTemp

For outer = 1 To Len(strEncryptionKey)

key = Asc(Mid(strEncryptionKey, outer, 1))

For inner = 1 To Len(strTextToEncrypt)

strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor key)

key = (key + Len(strEncryptionKey)) Mod 256

Next

strTextToEncrypt = strTemp

strTemp = ""

Next

EncryptText = strTextToEncrypt

End Function

%>

在对密码安全性要求较高的程序中，建议不要采用该函数算法。