Asp加密解密函数

'这里是例子

Dim Str

Str = "123456" '这里是要加密的字符串

Response.Write "加密前：" & Str

Response.Write "<BR>"

Str = SF_JiaM(Str)

Response.Write "加密后：" & Str

Response.Write "<BR>"

Response.Write "解密后：" & SF_JieM(Str)

'这里是加解密函数

Function SF_JiaM(Str)

Dim JM_Str,M

JM_Str = ""

Str = StrReverse(Str)

For M = 1 To Len(Str)

JM_Str = JM_Str & "b" & Asc(Mid(Str,M,1))

SF_JiaM = Right(JM_Str,Len(JM_Str)-1)

End Function

Function SF_JieM(Str)

Dim JM_Str,I

JM_Str = ""

Str = Split(Str,"b")

For I = 0 To UBound(Str)

JM_Str = JM_Str & Chr(Str(I))

SF_JieM = StrReverse(JM_Str)

End Function

相关阅读: RSA加密解密插件; 微软Encoder加密解密函数; 深山留言板V2.1 Build 090620; 深山行者留言系统V2.0 (简称留言板V2.0); 深山行者留言系统V1.0 (简称深山留言V1.0); 微信公众号生成带参数的二维码asp源码下载; Asp加密解密函数; ASP链接地址栏参数的加密

更多>>ASP相关信息: ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明; asp显示随机密码; 通过阿里云服务接口获得ip地址详细信息; iis点开后任务栏上有显示，但是窗口看不到的解决办法; RSA加密解密插件

更多>>最新添加: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法