- <%
- A_Key=split("96,44,63,80",",") '定义密钥
- '*********加密的过程*********
- Function EnCrypt(m)
- Dim strChar,iKeyChar,iStringChar,I
- k=0
- for I = 1 to Len(m)
- iKeyChar =Cint(A_Key(k))
- iStringChar = Asc(mid(m,I,1)) '获取字符的ASCII码值
- iCryptChar = iKeyChar Xor iStringChar '进行异或运算
- '对密钥进行移位运算
- If k<3 Then
- k=k+1
- Else
- k=0
- End If
- c = c & Chr(iCryptChar)
- next
- EnCrypt = c
- End Function
- '*********解密的过程*********
- Function DeCrypt(c)
- Dim strChar, iKeyChar, iStringChar, I
- k=0
- for I = 1 to Len(c)
- iKeyChar =Cint(A_Key(k))
- iStringChar = Asc(mid(c,I,1))
- iDeCryptChar = iKeyChar Xor iStringChar '进行异或运算
- '对密钥进行移位运算
- If k<3 Then
- k=k+1
- Else
- k=0
- End If
- strDecrypted = strDecrypted & Chr(iDeCryptChar)
- next
- DeCrypt = strDecrypted
- End Function
- %>
asp字符串加密解密函数
2019-10-14 11:19asp代码网 ASP教程
asp字符串加密解密函数
延伸 · 阅读
- 2019-10-14用asp实现把文件打包成Xml文件包,带解包的ASP工
- 2019-10-14asp adodb.stream对象的方法/属性
- 2019-10-14asp rs.open sql,conn,3,1中3,1代表什么?
- 2019-10-14推荐ASP中VBScript常用函数
- 2019-10-14ASP的Global.asa使用说明
- 2019-10-14ASP七大对象说明分析
精彩推荐
- ASP教程
ASP中Session技巧 默认过期时间为20分钟
写过稍微大型一点 ASP 的人都知道,Session 这个对象真是好用,它可以用来记录使用者私有的资料变量,既安全又方便。但是你真的知道 Session 的运作原理吗...
- ASP教程
网上用的比较多的asp级联菜单效果代码
ASP连动下拉列表从数据库读取 ...
- ASP教程
ASP下经常用的字符串等函数参考资料
参考资料之ASP函数 整理下asp下常用的字符串,数据等操作函数,大家在平时操作中也经常遇到的 ...
- ASP教程
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
ASP javascript: Application对象的Contents和StaticObjects做Cache的一些结论。 ASP封装Cache对象,一般都是基于Application的, ...
- ASP教程
asp中for循环的使用方法
这篇文章主要介绍了asp中for循环的使用方法,需要的朋友可以参考下...
- ASP教程
[推荐]ASP编程通用函数收藏大全
本帖将收集和征集最全面的ASP编程应用中通用功能函数,人人为我,我为人人:) 只要大家每人献出一两条自己收藏已久,精典的通用函数,我想本帖将会...
- ASP教程
asp实现过滤关键字的函数
asp实现过滤关键字的函数 ...
- ASP教程
ASP checkbox复选框是否被选中的代码(结合数据库)
有的时候,我们在网页中会用到复选框,也就是多选框,当用户提交输入信息的时候我们会获取复选框的内容,然后保存到数据库中,如经常用到的是用户...