Jump to content

Small Netcat program


Carrotlolz
 Share

Recommended Posts

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

#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

Link to comment
Share on other sites

  • Moderators

Carrotlolz,

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

All readers,

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

M23

Edited by Melba23
Changed site address

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

  • Moderators

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? :wacko:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

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? :wacko:

M23

 

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

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

Edited by wakillon

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...