注册
登录
| 关键词： nbsp 参数 程序 pk 正负 lake2 明文 then 加密 原作者 |
看了第十期的x档案的应该知道这个程序，我也是在网上拉来的，谢谢原作者！<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd";><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>移位加密ASP by lake2</title></head><%but=cint(request.Form("but")) '这个是移位法所移的位数！if request.QueryString("a")="1" then cc=replace(request.Form("nr")," "," ") cc=replace(cc,vbcrlf,"胡") '这里处理回车换行符 for i= 1 to len(cc) if mid(cc,i,1)<>"胡" then pk=asc(mid(cc,i,1))+but if pk>126 then pk=pk-95 elseif pk<32 then pk=pk+95 end if temp=temp&chr(pk) else temp=temp&"胡" end if nextend if%><body><form name="form1" method="post" action="?a=1"> <table width="100%" border="1"> <tr> <td>移位参数： <input name="but" type="text" id="but" value="1" size="5"> *本程序移位参数应介于正负95之间</td> </tr> <tr> <td>明文内容： <textarea name="nr" cols="80" rows="15" id="textarea"><%=request.form("nr")%></textarea></td> </tr> <tr> <td><input type="submit" name="Submit" value="转换"></td> </tr> <tr> <td><p>结果:</p> <p><%=replace(temp,"""","""""")%></p></td> </tr> </table></form><hr><div align="center"><br> <a href="http://mrhupo.126.com"; target="_blank">by lake2</a></div></body></html> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
