Portscan

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

 

hoohead

Betreff: Portscan

BeitragMi, Nov 21, 2007 2:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Beim durchsuchen des Forums, habe ich leider keine Lösung gefunden.

Also ich brauchen einen Portscanner, der eine bestimmte IP auf 3 Ports untersucht, sprich ich brauche ein Ergebnis - Port offen, oder Port zu.

Aus einem Ähnlichen Beitrag, habe ich mir was zusammen gebastelt, was leider nicht funktioniert.


Code: [AUSKLAPPEN]

scan$="84.162.1.1"
stream=OpenTCPStream(scan$,21)
   If Not stream Then
    erg$="port 21 ist zu"
   Else
    erg$="port 21 ist offen"
    CloseTCPStream stream
     
EndIf
Print erg$


Des weiteren möchte ich dann die Ports 23 + 80 testen.
Leider funktionioniert das script nicht, weiß jemand was ich falsch gemacht habe?

Silver_Knee

BeitragMi, Nov 21, 2007 17:00
Antworten mit Zitat
Benutzer-Profile anzeigen
wie wärs damit: die ip ist falsch^^ ein stream=0 kann nämlich auch heißen:ziel nicht erreichbar.

Dafür wäre denn CountHostIps(scan$) glaub ich sinnvoll ich teste des mal

[EDIT]
so: ich würd sagen du probierst vor dem portscan mal aus ob CountHostIps(scan)>0 ist denn falls nicht ist die IP nicht vergeben und dann ist natürlich der Port zu sonst stimmt dein Prog soweit
 

hoohead

BeitragDo, Nov 22, 2007 3:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Komisch, jetzt wo ich das Programm nochmal starte, funktionierts - Die CountHostIps(scan$) Funktion habe ich gleich mal mit eingebaut - THX.
Kann ich die Scanprozedur bei geschlossenen Ports beschleunigen?
Die Geschwindigkeit bei offenen Ports ist ok, sobald aber ein Port nicht erreichbar, versucht er zu lange die Verbindung aufzubauen.

Gibt es eine Möglichkeit das einzugrenzen?

So in etwa....
zeit=200
stream=OpenTCPStream(scan$,21) if zeit=abgelaufen beende Abfrage : goto weiter

Silver_Knee

BeitragDo, Nov 22, 2007 15:25
Antworten mit Zitat
Benutzer-Profile anzeigen
hmm diese "zeit"-Variable gibt's schon nur steckt die im befehl OpenTCPStream schon drinne und ist leider Fix...

Smily

BeitragDo, Nov 22, 2007 15:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Mal eine Frage so ganz nebenbei:
Was hast du eigentlich vor?
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group