您所在的位置:小祥子 » 编程 » ASP » 正文

ASP解密Chr与ChrW加密内容

时间:2015-02-17 编辑:本站 来源:本站原创

我本来喜欢下载别人的代码研究,但是有些代码就喜欢“加密”,为什么加双引号,因为是伪加密,比如说ChrW加密,无非就是替换字符串而已。但是文件这么多,一个个字符串替换实在麻烦,于是我写了一个简单的方法和页面,来解密一个页面的内容。

将以下代码保存为一个ASP文件,然后丢到IIS目录下运行,然后一个框输入加密后的,提交后另外个框就出解密后的内容

<%

function decodechrw(s)'解码chrw编码的内容
 set rx=new RegExp
 rx.Global=true
 rx.IgnoreCase=true
 rx.Pattern="ChrW\s*\(\s*\d+\s*\)(\s*&\s*ChrW\s*\(\s*\d+\s*\))*"'解码chrw串
 set mc=rx.Execute(s)
 for each m in mc
  s=replace(s, m.value,""""&eval(m.value)&"""")
 next
 rx.Pattern="Chr\s*\(\s*\d+\s*\)(\s*&\s*Chr\s*\(\s*\d+\s*\))*"'解密chr串
 set mc=rx.Execute(s)
 for each m in mc
  s=replace(s, m.value,""""&eval(m.value)&"""")
 next
 decodechrw=s
  
end function

%>
<form action="" method="post">
<textarea name="text" cols="100" rows="30">
</textarea>
<input type="submit" />
</form>
<textarea name="text" cols="100" rows="30">
<%
response.Write decodechrw(request.Form("text"))
%>
</textarea>