Small Netcat program

[Carrotlolz]

I made a small netcat program which downloads 7zip and netcat. It has a simple gui and uses downloading files and the windows temp folder.

Code and download included

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>


#Region ### Start Variables Region ###
$tempDir = @WindowsDir & "\temp"

#EndRegion


; Initialization
if FileExists($tempDir & "\ncat.zip") Then

Else
    InetGet("http://nmap.org/dist/ncat-portable-5.59BETA1.zip",$tempDir & "\ncat.zip", 1, 0)
EndIf
if FileExists($tempDir & "\7z.exe") Then
Else
    InetGet("https://dl.dropboxusercontent.com/s/drog5kn8w74ukrp/7za.exe?token_hash=AAHMxn_smUBBQD5USYZo_b9o6pIP8dLAsg5yPFUUesAYVQ&dl=1",$tempDir & "\7z.exe", 1, 0)
EndIf
if FileExists($tempDir & "\ncat.exe") Then

Else
    ShellExecute ($tempDir & "\7z.exe", "e -y ncat.zip", $tempDir)
EndIf
; End Initialization
#Region ### START Koda GUI section ###
$MainForm = GUICreate("Ncat All Purpose Program", 303, 144, 344, 260)
$Tab1 = GUICtrlCreateTab(8, 0, 289, 137)
$Ncat_shell = GUICtrlCreateTabItem("Ncat Windows Cmd Shell")
$NShellStart = GUICtrlCreateButton("Start", 12, 29, 131, 73)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$NShellStop = GUICtrlCreateButton("Stop", 148, 29, 139, 73)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$clrFiles = GUICtrlCreateButton("Clear Files", 16, 104, 267, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Ncat Listening Shell")
$NRShellStart = GUICtrlCreateButton("Start", 12, 29, 129, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$NRShellStop = GUICtrlCreateButton("Stop", 148, 29, 131, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###






While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch

    Select
        Case $nMsg = $NShellStart
            ShellExecute($tempDir & "\ncat.exe" , " -lvp 7777 -e cmd.exe", "c:\")
        Case $nMsg = $NShellStop
            ProcessClose( "ncat.exe")
        Case $nMsg = $NRShellStart
            ShellExecute( $tempDir & "\ncat.exe", "-lvp 7777", "c:\")
        Case $nMsg = $NRShellStop
            ProcessClose( "ncat.exe")
        Case $nMsg = $clrFiles
            FileDelete($tempDir & "\ncat.exe")
            FileDelete($tempDir & "\ncat.zip")
            FileDelete($tempDir & "\7z.exe")

    EndSelect
WEnd
 

.

ncat.au3

[Melba23]

Carrotlolz,

Why are you downloading 7za.exe from an anonymous DropBox account? Why not from directly from the 7-zip.org website?

All readers,

I suggest you do NOT download this file until the OP clarifies what is going on.

M23

Edited August 26, 2013 by Melba23
Changed site address

[wakillon]

Hi Melba !

recommend 7-zip.org instead of 7z.org 

[Melba23]

wakillon,

Thanks - I wrote it from memory.

But the point still stands - why not download the original file from the correct site? Why download from the OP's DropBox?

M23

[wakillon]

wakillon,

Thanks - I wrote it from memory.

But the point still stands - why not download the original file from the correct site? Why download from the OP's DropBox?

M23

 

I think it's because the command line version he want to use is zipped on 7-zip.org ! 

So he need 7za.exe for unzip it too !

Edited August 26, 2013 by wakillon