您正在使用 IPV4 [35.172.193.238] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp解密、还原chrw、chr编码文件的方法
内容摘要: functionreadfile(fn)'读取编码文件的内容setfso=createobject('scripting.filesystemobject')setts=fso.OpenTextFile(fn,1,false,-2)'注意这里的最后一个参数,如果你的是unicode编码,将-2(系统默认编码)修改为-1(unicode编码)。0为asciir......
functionreadfile(fn)'读取编码文件的内容

setfso=createobject("scripting.filesystemobject")

setts=fso.OpenTextFile(fn,1,false,-2)'注意这里的最后一个参数,如果你的是unicode编码,将-2(系统默认编码)修改为-1(unicode编码)。0为ascii

readfile=ts.ReadAll

ts.close

setts=nothing

setfso=nothing

endfunction

functiondecodechrw(s)'解码chrw编码的内容

setrx=newRegExp

rx.Global=true

rx.IgnoreCase=true

rx.Pattern="ChrW\s*\(\s*\d+\s*\)(\s*&\s*ChrW\s*\(\s*\d+\s*\))*"'解码chrw串

setmc=rx.Execute(s)

foreachminmc

s=replace(s,m.value,""""&eval(m.value)&"""")

next

rx.Pattern="Chr\s*\(\s*\d+\s*\)(\s*&\s*Chr\s*\(\s*\d+\s*\))*"‘急吗chr串

setmc=rx.Execute(s)

foreachminmc

s=replace(s,m.value,""""&eval(m.value)&"""")

next

decodechrw=s

endfunction

functiondecodechrwfile(fn)'解码内容包含chrw编码的文件

s=readfile(fn)

s=decodechrw(s)

'将解码内容写回文件

setfso=createobject("scripting.filesystemobject")

setts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为_decode的文件里面,如fn为encode.txt,则解码后的文件为encode_decode.txt

ts.writes

ts.close

setts=nothing

setfso=nothing

endfunction

decodechrwfile("encode.txt")'注意修改这里被chrw加密的文件名称及路径,如果是客户端提交的内容

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP实现头像图像随机变换

 

下一篇:asp 实现检测字符串是否为纯字母和数字组合的函数

发布日期:2023/6/6
手机扫二维码直达本页
发布时间:14:48:07
点  击:11
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....