国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 呈贡县| 富民县| 梁平县| 贡嘎县| 南溪县| 黄石市| 鄱阳县| 锦屏县| 永宁县| 阿拉善左旗| 东乌| 绥化市| 宜城市| 巨鹿县| 潞西市| 利辛县| 宁波市| 曲周县| 礼泉县| 德保县| 星座| 舒兰市| 扎兰屯市| 疏勒县| 元氏县| 胶州市| 行唐县| 凌海市| 寿光市| 南阳市| 江永县| 彰武县| 浑源县| 丰台区| 五家渠市| 长丰县| 巍山| 龙泉市| 海安县| 蓬溪县| 扎鲁特旗|