ASP字符串加密函数EncryptText()

2024-05-04 11:06:48

字体：大中小

来源：转载

供稿：网友

<%
'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
%>

上一篇：初步介绍关于ASP的缓存技术

下一篇：ASP获取Access所有数据表的sql语句