Hi zusamm
So ich denke mal jeder weiß wie man sich einen PortScanner erstellen kann: 
For $i = $from To $to
$Socket = TCPConnect($IP,$i)
If $Socket <> -1 Then ExitLoop
Next
So. Das dauert meist eine Ewigkeit (wenn man net seine eigene IP holt oder die NetzIP)
Gibt es eine schnellere Altanative?
Also könnte man auch das mit Ping machen?
Thx im Vorraus 
so funzt das mal gar nicht..
außer auf dem anderen PC läuft TCPAccept in einer Endlosschleife..
http://www.autoitscript.com/forum/index.php?showtopic=50236
Dort gibts nen Tool 
ich versteh nicht, wie das mit TCPConnect funktionieren sollte..
solange auf dem anderen PC kein TCPAccept läuft, müsste es doch rein theoretisch immer -1 zurückgeben..
Nein. Bei mir kommt imma 135 als Port raus. Ich habe kein Gegenskript.
Hier vom Englisch-Forum (link):
#include <guiconstants.au3>
[/autoit] [autoit][/autoit] [autoit]$PortScanner = GUICreate("Infinitex0's Port Scanner", 300, 175)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateGroup("Port Scan", 5, 5, 275, 160)
$IPLabel = GUICtrlCreateLabel("IP", 20, 17)
$PortIPAddress = GUICtrlCreateInput("127.0.0.1", 20, 33, 125)
GUICtrlCreateLabel("Start on Port", 20, 55)
$PortStartNumber = GUICtrlCreateInput("1", 20, 68, 125)
GUICtrlCreateLabel("End on Port", 20, 91)
$PortEndNumber = GUICtrlCreateInput("30", 20, 108, 125)
$StartScan = GUICtrlCreateButton("Start", 20, 135, 125)
GUICtrlSetFont($StartScan,15)
$OnPort = GUICtrlCreateLabel("Scanning Port:None", 150, 142)
GUICtrlCreateGroup("Open Ports", 160, 17,105, 125)
$OpenPortList=GUICtrlCreateList("", 168, 30, 90, 109)
GUICtrlCreateGroup ("",-99,-99,1,1)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_ClOSE
ExitLoop
Case $msg = $StartScan
_StartScan()
EndSelect
WEndFunc _StartScan()
[/autoit]
$PortIP=GUICtrlRead($PortIPAddress)
$PortEndNumberB=guictrlread($PortEndNumber)
$PortStartNumberB=guictrlread($PortStartNumber)
TCPStartup()
$timerstart = TimerInit()
For $LetsGo = $PortStartNumberB To $PortEndNumberB
$socket = TCPConnect($PortIP,$PortStartNumberB)
ControlSetText("", "", $OnPort, "Scanning Port:" & $PortStartNumberB & "")
If $socket = -1 Then
$PortStartNumberB = $PortStartNumberB + 1
Else
GUICtrlSetData($OpenPortList,$PortStartNumberB)
$PortStartNumberB = $PortStartNumberB + 1
EndIf
Next
TCPShutdown()
$timerend = TimerDiff($timerstart)
TrayTip("Port Scanner", "Done Process took " & Round($timerend,-1)/1000 & " seconds", 7, 1)
EndFunc
Und das ist ja der gleich skript (praktisch...) 
das Problem ist, dass TCPConnect ziemlich lange braucht, bis es einen Error meldet, falls der Verbindungsversuch nicht erfolgreich war.
Das Problem hatte ich bei meinem Chat mit Auto-Connect auch schon, konnte es aber bis jetzt noch nicht lösen 
eine AltERnative wäre netstat -a damit lassen sich alle genutzten und abhörenden Ports am lokalen Computer feststellen.
Wenn du das ganze Remote machen willst werde ich dir leider nicht helfen... weil ich dann die Befürchtung habe, das du dich auf einem anderen PC unerlaubt einnisten willst 
es gibt keine reine autoit-lösung für dich.
laut hilfe müsste TCPTimeout helfen, was es aber nicht tut. Ka obs ein Bug oder eine fehlerhafte Beschreibung ist. Gemeldet habe ich es vor 2-3 Wochen, eine Antwort gibts aber noch nicht.
Deine einzige Möglichkeit, das ganze mit Autoit zu machen, ist eine zusätzliche dll zu verwenden -> OSWINSCK.dll
Alles weitere kannst du hier nachlesen -> http://www.autoitscript.com/forum/index.php?showtopic=39807&st=0
Sofern du die Rechte haste, die dll zu registrieren, funktioniert das ganze super, ... ansonsten natürlich net
hmm funkt. der timeout denn real net?
- Der Skript funkt. auch mit Admin-Rechten net... 
Forensuche hilft...
....und nochmal
Die Antwortzeiten können aufgrund der in den Links genannten Gründen nicht verkürzt werden. Aber wer hindert einen, hunderte (tausende) Ports gleichzeitig anzufragen?
TCPTimeout macht zumindest nicht das, was es laut help soll. Und zwar die TCP-Funktionen nach einer gewissen Zeit ohne Antwort abbrechen. KA obs generell defekt ist, oder es irgendwas anderes bewirken soll. Laut Wikipedia ist es so, dass verlorene Pakete nochmals geschickt werden, mehrere versuche am Stück. Ich denke daraus resultiert dann, dass es so lange dauert.
Zur DLL. Auf XP hat es bei mir einwandfrei funktioniert, unter Win7 x64 leider nicht ... vllt hilft dir das noch weiter =)
Wie immer: 32-Bit-DLL, also auch unter 64-Bit-System Programm als 32-Bit-Exe kompilieren.
Johannes
Forensuche hilft...
....und nochmalDie Antwortzeiten können aufgrund der in den Links genannten Gründen nicht verkürzt werden. Aber wer hindert einen, hunderte (tausende) Ports gleichzeitig anzufragen?
Dann sag mir, wie ich mehrere IPs gleichzeitig mit TCPConnect connecten soll? Also selbst AdlibRegister funzt nicht mehr, da TCPConnect das komplette Script "anhält"
weiß denn keiner wie man einen Stealth-Scan erstellt...
kommt schon postet bitte
Stealth-Scan = hacken!
also willste doch ein kleiner häcker werden!
neee das hör sich ja nur so an..
den Stealth-Scan den ich meine: http://de.wikipedia.org/wiki/Portscanner
das hört sich nicht nach hacken an...
oda hab ich mich verlesen? 
- wenn ich mich verlesen hab dann sry sry... (ich will auf keinen fall !cräcken!) [häcken ist was anderes ]
WikiLink:
TCP SYN Scan
Beim TCP SYN Scan wird ein TCP-Paket mit SYN-Flag an den Ziel-Host gesendet, um einen Verbindungsversuch vorzutäuschen. Die Antwort des Hosts gibt Aufschluss über den Port: Sendet er ein SYN/ACK-Paket, den zweiten Teil des Drei-Wege-Handshakes von TCP, akzeptiert der Port Verbindungen und ist daher offen. Der Quell-Host antwortet dann in der Regel mit einem RST-Paket, um die Verbindung wieder abzubauen (dies geschieht meist allerdings nicht durch den Portscanner, sondern durch das Betriebssystem, da offiziell kein Verbindungsversuch unternommen wurde). Sendet der Host ein RST-Paket, ist der Port geschlossen. Sendet der Ziel-Host überhaupt kein Paket, ist ein Paketfilter vorgeschaltet.
Diese Art von Scan wird auch Stealth-Scan genannt, da TCP-Implementierungen bei nicht vollständig zustandegekommenen Verbindungen den zugehörigen Dienst nicht informieren. Dieser erzeugt daher auch keine Log-Daten für versuchte Verbindungsaufbauten, bzw.bekommt vom Scan überhaupt nichts mit. Aus Anwendungssicht ist der SYN-Scan daher unsichtbar. Dies gilt aber nicht für die Netzwerkebene: Firewalls oder IDS Systeme erkennen diese Art von Scan natürlich dennoch.
Auf den meisten Quell-Systemen sind außerdem Systemverwalterrechte notwendig, weil TCP-Pakete vom Portscanner handgefertigt werden müssen.
TCP SYN Scans lassen sich für Denial of Service-Attacken in Form von SYN-Flood nutzen.
