[VB.NET] Packetfilter erstellen [Need Help]

Yuri

Registrierter Benutzer

Beiträge: 4

Dabei seit: 4. Januar 2010

Montag, 4. Januar 2010, 02:37

Packetfilter erstellen [Need Help]

Hallo liebe Community,
wollt mal fragen weiß einer wie man einen
Packetfilter scriptet?

Ich bekomm das irgendwie nich hin! neija bin relativ neu
in Sachen VB.net

Der Packetfillter soll lediglich ein Packet überprüfen!
Beispiel:

ee00ff00 5ae20300 00000000 40420f00 00000000

Das ist das Paket. 40420f Das ist der Teil mit dem Preis drehen wir ihn jetzt um also 0f4240 und wandeln ihn in hexadezimalzahlen bekommen wir 1,000,000 heraus.

Jetzt brauchen wir nur noch ein filter der beim paket header ee00ff00 diesen bereich "40420f" kontrolliert. ist dort eine andere zahl als 1,000,000 verwerfen wir das paket.

Ist das irgendwie möglich das zu verwirklichen?

~Yuri

Edit by der_Kurt:
Falsches Unterforum
* verschoben *

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »der_Kurt« (12. August 2010, 19:19)

Zum Seitenanfang

Yuri

Registrierter Benutzer

Beiträge: 4

Dabei seit: 4. Januar 2010

Montag, 4. Januar 2010, 12:58

problem besteht immer noh!
Bitte helft mir... d

Zum Seitenanfang

J-M

Lena liebt mich

Beiträge: 52

Dabei seit: 17. August 2009

Hilfreich-Bewertungen: 2

Montag, 4. Januar 2010, 13:00

ich versteh dein problem nicht ganz,

ee00ff00 5ae20300 00000000 40420f00 00000000

du wandelst den hex in dezimal um (ee00ff00)?
und willst schauen ob 40420f00 (die stelle im code) das auch ist?

Wenn ja dann splittest du einfach den Wert
also
Dim t as Array
t = split(Header)
t(0) = ee00ff00
und t(3) = 40420f00

so vielleicht?

Zum Seitenanfang

Yuri

Registrierter Benutzer

Beiträge: 4

Dabei seit: 4. Januar 2010

Montag, 4. Januar 2010, 19:42

Ich meine das so das wenn dießes packet ankommt auf dem server solle es nur
40420f
überprüfen wenn dort was anderes Steht soll es das ganze packet verwerfen!
Erkenne kann man das ja am header ... wenn ein packet mit dießem header
am server ankommt soll es nnur 40420f überprüfen und wenn dort was anderes steht
soll es das paket verwerfen

Zum Seitenanfang

J-M

Lena liebt mich

Beiträge: 52

Dabei seit: 17. August 2009

Hilfreich-Bewertungen: 2

Montag, 4. Januar 2010, 22:06

ja dann müsste es doch so sein:

	Quellcode
1 2 3 4 5 6 7 8 9	Dim code as string code = HEADER ("ee00ff00 5ae20300 00000000 40420f00 00000000") Dim t as Array t = Split(code) If t(3) = "40420f00" Then MsgBox "Ok" Else -->Verwerfen End IF

Zum Seitenanfang

Yuri

Registrierter Benutzer

Beiträge: 4

Dabei seit: 4. Januar 2010

Montag, 4. Januar 2010, 23:27

Danke your the best

edit:
bekomme 2 errors:

Fehler 1 Der Name "HEADER" wurde nicht deklariert.
Fehler 2 Syntaxfehler

wie behebe ich die 2 fehler währe nett wenn ihr mir das sagen würdet!

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Yuri« (4. Januar 2010, 23:44)

Zum Seitenanfang

FAtheone

VB-Geek

Beiträge: 1 335

Dabei seit: 14. Juni 2009

Wohnort: OSI Layer 8

Hilfreich-Bewertungen: 42

Dienstag, 5. Januar 2010, 13:30

In dem du nicht kopierst, sondern nachdenkst.

Hier, lies

MFG FAtheone

Write in C, write in C, LOGO's dead and buried, write in C...
Von Hilfeanfragen via PN ist ABZUSEHEN; betreffende User werden ignoriert. Hierzu ist das Forum da.

Zum Seitenanfang

J-M

Lena liebt mich

Beiträge: 52

Dabei seit: 17. August 2009

Hilfreich-Bewertungen: 2

Dienstag, 5. Januar 2010, 20:29

Zitat von »Yuri«

Danke your the best

edit:
bekomme 2 errors:

Fehler 1 Der Name "HEADER" wurde nicht deklariert.
Fehler 2 Syntaxfehler

wie behebe ich die 2 fehler währe nett wenn ihr mir das sagen würdet!

ja das ist mal klar, du musst doch HEADER, mit dem empfangen Header ersetzen
und "-->Verwerfen" musst auch einen Befehl rein...
um dir eine fertige Vorlage zu machen, bräuchte man den Source

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 14:55

Versuche es auch gerade einen paketfilter herzustellen!

Frage vorweg, woher weiß das Tool hier, von wo er die Pakete hernehmen soll?

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 15:03

Was willst du genau machen?

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 15:10

Also, auf einem Server (.exe Datei) kommen immer pakete rein und raus!
Der Server läuft zB. auf dem Port 8000

Jetzt soll mein Paketfilter das Programm das auf Port 8000 auf EINGEHENDE Pakete überprüfen!
Und nur bestimmte Pakete abfangen!!
Das soll es ersteinmal machen

2:
Habe bisher diesen Code hier:

Visual Basic Quellcode

   Dim code As String
    	Dim Header As String = "40420f00"
    	code = HEADER("ee00ff00 5ae20300 00000000 40420f00 00000000")
    	Dim t As Array
    	t = Split(code)
    	If t(3) = "40420f00" Then
        	Console.ForegroundColor = ConsoleColor.Green
        	Console.WriteLine("Das Paket" + " " + code, " wurde angenommen!")
    	Else
        	Console.ForegroundColor = ConsoleColor.Red
        	' CODE
        	Console.WriteLine("Das Paket" + " " + code, " wurde verworfen!")
    	End If

Beim Ausfühern des Paketfilters kommt dan dieser Feheler:

Zitat

Ungültige Konvertierung von der Zeichenfolge ee00ff00 5ae20300 00000000 40420 in Typ Integer.

mfG

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 15:16

Ich vermute das in folgenden Zeilen der Fehler kommt.

	Visual Basic Quellcode
1 2 3	Dim code As String Dim Header As String = "40420f00" code = HEADER("ee00ff00 5ae20300 00000000 40420f00 00000000")

Das geht nicht wie du es machst

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 15:24

Jap daran liegt es auch, bei der einblendung des Fehlers wird die ganze Zeile mit dem kompletten Paket markiert..

Wie könnte man es sonst noch machen? *grübel*

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 15:29

Was soll in den 3 Zeilen genau passieren?

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 17:37

In den 3 zeilen soll das Paket hinzugefügt werden, was nacher überprüft werden soll, bzw. geblockt werden soll!

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 17:46

ee00ff00 ist so ein Paket?

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 17:49

In diesem Beispiel ist das Packet so:
ee00ff00 5ae20300 00000000 40420f00 00000000

Dieses soll wenn es in den Port bzw. in ein bestimmten Programm eingeht, überprüft werden und ggf. abgefangen werden.

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 17:54

Ist HEADER eine Function oder eine Variable?

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Dustin

Registrierter Benutzer

Beiträge: 181

Dabei seit: 13. November 2009

Donnerstag, 12. August 2010, 18:01

Einer Variable, die kann aber von mir aus auch ganz raus, da der paketfilter nicht den Header des pakets kontrolieren soll, sondern das komplette Paket.

Zum Seitenanfang

singu

Lib Dev

Beiträge: 5 853

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 43

Donnerstag, 12. August 2010, 18:03

Probier mal folgendes.

Visual Basic Quellcode

Module Module1

    Sub Main()

        Dim code As String
        Dim Header As String = "40420f00"
        code = "ee00ff00 5ae20300 00000000 begin_of_the_skype_highlighting              0300 00000000      end_of_the_skype_highlighting 40420f00 00000000")
        Dim t As Array
        t = Split(code)
        If t(3) = "40420f00" Then
            Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("Das Paket" + " " + code, " wurde angenommen!")
        Else
            Console.ForegroundColor = ConsoleColor.Red
            ' CODE
            Console.WriteLine("Das Paket" + " " + code, " wurde verworfen!")
        End If

    End Sub

End Module

FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

Zum Seitenanfang

Visual-Basic-Forum VB-Paradise.de