‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[转载]asp后门之终极伪装

冰血封情

老林

团队决策人

Rank: 9Rank: 9Rank: 9

E.S.T运营责任人

帖子
6819 
精华
834 
积分
36070 
阅读权限
255 
性别
男 
来自
中国 
在线时间
586 小时 
注册时间
2004-6-25 
最后登录
2008-9-6 

优秀管理奖 资料收集奖 原创技术奖 核心建议奖

楼主 大 中 小 发表于 2004-10-31 02:06  只看该作者

[转载]asp后门之终极伪装

信息来源：黑客X档案

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "_blank ?>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"))        &#39;这个是移位法所移的位数！
if request.QueryString("a")="1" then
    cc=replace(request.Form("nr"),"    "," ")
    cc=replace(cc,vbcrlf,"胡")      &#39;这里处理回车换行符
    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
    next
end 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="_blank ?>http://mrhupo.126.com"; target="_blank">by lake2</a></div>
</body>
</html>

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题