Schnellerer Port Scann

[autoit]

;Aufruf über cmdline: diedate.exe IPAdresse PORT
;z.B. Portscan.exe 192.168.0.1 5555
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

If $cmdline[0] < 2 Then Exit 6
$portsc = PortScan($cmdline[2], $cmdline[1])
ConsoleWrite($portsc)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func PortScan($port, $ip)
TCPStartup()
Opt("TCPTimeout", 50)
$socket = TCPConnect($ip, $port)
If $socket = -1 Then
Return 0
Else
Return 1
EndIf
TCPShutdown()
EndFunc ;==>PortScan

[/autoit]

[autoit]

MsgBox(0,"",PortScan(80,@IPAddress1,500));Port,IP,maximale zeit in milli sekudnen

[/autoit] [autoit][/autoit] [autoit]

Func PortScan($port,$ip,$maxtime);Port,IP,maximale zeit in milli sekudnen
$get = _RunWait(@ScriptDir&"\portscan.exe "&$ip&" "&$port,@ScriptDir,@SW_HIDE,2,$maxtime)
If $get = "" Then
Return 0
Else
Return 1
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _RunWait
; Description:: Wartet bis eine Exe beendet, genauso wie RunWait (autoit) nur mit dem unterschied das die Exe ein Std I/O Stream ausgibt, und das es ein TimeOut gibt
; Parameter(s): $sExe: Der Name der Datei (EXE, BAT, COM, PIF), die Ausgeführt werden soll.
; $sWorkindir: [optional] Das Arbeitsverzeichnis.
; $sFlag: [optional] Das Flag wie das Programm gestartet werden soll (Siehe Run in der AutoIt Hilfe)
; $iIOFlag: [optional] Das Handle zu einen oder mehreren STD Input/Output streams des child prozesses. (siehe Run in der AutoIt Hilfe)
; $iTimeOut: [optional] Zeitbegrenzung in Millisekunden! Danach wird das Programm automatisch geschlossen.(mit ProcessClose)
; Requirement(s): -
; Return Value(s): Beim Erfolg: gibt den StdOutread des Programmes aus.
; Beim Error:
; @error = 1: Das Programm hat ein Error ausgegeben (StdErr)
; @error = 2: Das Programm hat ein timeout mit Error ausgabe (StdErr)
; @error = 3: Das Programm hat ein timeout mit ganz normaler ausgabe (StdOut)
; Author(s): GtaSpider
;
;===============================================================================
;

Func _RunWait($sFilename,$sWorkingdir="",$sFlag="",$iIOFlag="",$iTimeOut=0)
Local $pid = Run($sFilename,$sWorkingdir,$sFlag,$iIOFlag)
If $iTimeOut Then $timer = TimerInit()
While ProcessExists($pid)
Sleep(50)
If $iTimeOut Then
If TimerDiff($timer) >= $iTimeOut Then ExitLoop
EndIf
WEnd
If ProcessExists($pid) Then
ProcessClose($pid)
If StderrRead($pid) <> "" Then Return SetError(2,0,StderrRead($pid))
Return SetError(3,0,StdoutRead($pid))
EndIf
If StderrRead($pid) <> "" Then Return SetError(1,0,StderrRead($pid))
Return StdoutRead($pid)
EndFunc

[/autoit]