国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP字符串加密函數(shù)EncryptText()

2024-05-04 11:06:48
字體：大 中 小
供稿：網(wǎng)友
<%
'ASP 字符串加密函數(shù)EncryptText()
'strEncryptionKey:加密key字符串，用以區(qū)別不同模塊加密算法
'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
%>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 深水埗区| 朝阳市| 柯坪县| 辽宁省| 万盛区| 安溪县| 长子县| 子洲县| 雷山县| 岳西县| 织金县| 大同市| 文化| 阳原县| 梅河口市| 思茅市| 洪湖市| 湖南省| 凌源市| 浦北县| 弋阳县| 沁水县| 罗江县| 札达县| 萍乡市| 恩平市| 苍南县| 叶城县| 太仓市| 梁河县| 尼木县| 健康| 庆阳市| 洪洞县| 盐山县| 台北市| 桐城市| 池州市| 电白县| 中山市| 定结县|