Beiträge von AntiSpeed

Nein. Bei mir kommt imma 135 als Port raus. Ich habe kein Gegenskript.

Hier vom Englisch-Forum (link):

Zitat

[autoit]

#include <guiconstants.au3>

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

$PortScanner = GUICreate("Infinitex0's Port Scanner", 300, 175)
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)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_ClOSE
ExitLoop
Case $msg = $StartScan
_StartScan()
EndSelect
WEnd

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

Func _StartScan()
$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

[/autoit]

Alles anzeigen

Und das ist ja der gleich skript (praktisch...)

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

Greenhorn: Extrem!! Man das is ja mal 'ne Website xD. Ich denk mal das gibs net oft oder?

kann mir keina helfen?

nahh ok...
aba egal.. dann muss man das "o" weglassen
und nur

telnet 00000000 00

wenn erfolgreich dann:
Passwort:
Username:

_das möchte ich auch im skript haben.. aba man kanns net auslesen

neeee:

Willkommen
Das Escapezeichen ist 'CTRL++'
Microsoft Telnet> help
Befehle können abgekürzt werden. Folgende Befehle werden unterstützt:


c	- close              	Trennt die aktuelle Verbindung.
d	- display            	Zeigt Befehlsparameter an.
o	- open               	Stellt Verbindung her.
q	- quit               	Beendet Telnet.
set  - set                	Legt Optionen fest (geben Sie 'set ?' für eine Liste ein).
sen  - send               	Sendet Zeichenfolgen an den Server.
st   - status             	Zeigt Statusinformationen an.
u	- unset              	Hebt Optionsfestlegungen auf (geben Sie 'unset ?' für eine Liste ein).
?/h  - help               	Zeigt die Hilfe an.
Microsoft Telnet>

okok....
gibt es denn schon einen Skript der es möglich macht die TelNet.exe zu benutzen?
nicht mit mousemove etc. so eine bastellösung reicht mir nicht

BugFix : eigentlich möchte ich das (fast also die cmd's oda dll's erlaubt) aleine machen

@ Marthog , cool dei Vater programmiert..
Leider hab ich niemanden außa einen Kumpel mit dem ich sons proggen könnte...

Jo, ok dann hol ich net Franz
Thx, an Antworten!

Hi @ all

Also ich möchte eine Verbindung mit einem nich sich im netzwerk befindenden PC über die IP, Daten schicken.
An alle=> Nein ich möchte nicht Hacken. Ich möchte so zb. meinem Freund Dateien schicken, da ich sein Passwort habe und sein Benutzername, denke ich ist das doch eigentlich kein Problem oder? (den Skript mein ich).

Ich habe es schon mit der FTP.au3 probiert und mit TCP. Aber die FTP.au3 funkt. nicht mit einem PC und beim TCP braucht ich ein Programm auf dem Rechner meines Freundes (das möchte ich eig. nicht... ) Geht ja bestimmt auch noch anders.

Thx für Antworten. TelNet kann man ja leider nicht "richtig" benutzen (so weit wie ich weiß)

mir liegen keine Sprachen aussa die programmier-Sprachen...
Aber ich kann nur Franz holen oder nicht. Ich kann nicht Naturwissenschaften oder so was dazu wählen...

WoW!! das ist ja mal was cooles!!
- Ab jetzt versuch ich mal deine UDF imma zu benutzen wenn ich ein Prog. mach.! -
Coole Idee, Umsetztung

Das ist mir klar mit dem Enganement. Aber da ich Latein noch nicht ganz check (bin in der 8.Klasse), will ich nicht zu viel machen ^^. Weil Deutsch, Englisch, Latein, Autoit, HTML, CSS, JS, VBS, (VC++), PHP, Basic etc. zu können ist schon nj. genug finde ich. Und wenns man ehh net braucht..

ihr seit ja Mut-Macher neee thx für die Antworten
- endlich ma ein paar wahre .. -

noch extra dazu; = 3std.
wird mir zuviel mit proggen...^^

wieso? ich habe als 2.sprache lat. gewählt, dann kann ich jetzt noch franz/nicht franz..
tja wir haben eben nur lat/franz zur auswahl
englisch ist Pflischt...

mega lol... (der mann da , der hat echt nix besseres zu tun )

hmm läd das lange! (400-Internetverbindung )

weiß denn keiner was ich mein?

Hmm. Aber ich kann damit ja keinen PC Connecten (ok, dass kann ich schon) ich kann aber nicht dann Datein kopieren usw. wie bei der TeleNet.exe
kann mir iwer weiter helfen?