Ip-Ranges berechnen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Ip-Ranges berechnen

    Guten Nacht, liebe Community.
    Ich habe folgendes Problem, zu dem mir jeglicher Ansatz fehlt. Ich möchte einen Portscanner schreiben, bzw bin schon fertig. Mir fehlt "nur" noch folgendes.

    Ich gebe eine Startip und eine Endip ein, z.b die 127.0.0.1 und die 127.0.1.4. Jetzt möchte ich daraus die ips berechnen die dazwischen liegen also die 127.0.0.2 127.0.0.3 ... 127.0.1.3.
    Wäre sehr nett, wenn mir da einer einen Lösungsansatz liefern könnte =)
    Lg

    hübsche knobelaufgabe :)

    VB.NET-Quellcode

    1. Private Function IP2Int(ByVal ip As String) As Integer
    2. Dim segments = (From s In ip.Split(".") Select Byte.Parse(s)).ToArray
    3. Array.Reverse(segments)
    4. Dim retval(0) As Integer
    5. Buffer.BlockCopy(segments, 0, retval, 0, 4)
    6. Return retval(0)
    7. End Function
    9. Private Function Int2IP(ByVal n As Integer) As String
    10. Dim src = New Integer() {n}
    11. Dim bytes(3) As Byte
    12. Buffer.BlockCopy(src, 0, bytes, 0, 4)
    13. Array.Reverse(bytes)
    14. Dim segments = bytes.Select(Function(b) b.ToString)
    15. Return String.Join(".", segments.ToArray)
    16. End Function
    18. Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    19. Dim ip0 = "127.0.0.3"
    20. Dim ip1 = "127.0.1.2"
    21. For i = IP2Int(ip0) To IP2Int(ip1)
    22. Debug.WriteLine(Int2IP(i))
    23. Next
    24. End Sub

    Herzlichen Dank für die Lösung. Sie funktioniert auf jeden Fall. Werd dich iw. in den Credits erwähnen ! =)
    Aber jetzt mal um meine Neugierde zu stillen, könntest du den Code evt. noch ein wenig kommentieren bzw. erklären ich komm da nich ganz mit =)

    VB.NET-Quellcode

    1. Private Function IP2Int(ByVal ip As String) As Int32
    2. 'split zerteilt ip in 4 strings, die je eine Zahl darstellen
    3. 'Byte.Parse wandelt je ein Segment in ein Byte um
    4. 'Select sammelt diese Bytes in ein IEnumerable(Of Bytes)
    5. 'ToArray macht daraus ein Byte-Array
    6. Dim bytes = (From s In ip.Split(".") Select Byte.Parse(s)).ToArray
    7. Array.Reverse(bytes) 'dreht die Reihenfolge um
    8. Dim integers(0) As Int32 'ein Array von Int32 mit nur einem Element
    9. ' (ein Int32 ist genauso groß wie 4 Bytes)
    10. 'BlockCopy kann ein Array des einen Typs byte-weise umkopieren in ein Array eines anderen Typs
    11. 'kopiert also die 4 Bytes auf den Int32
    12. Buffer.BlockCopy(bytes, 0, integers, 0, 4)
    13. Return integers(0) 'den Int32 returnen
    14. End Function
    16. Private Function Int2IP(ByVal n As Integer) As String
    17. Dim integers = New Integer() {n} 'ein Array von Int32 mit nur dem einem Element
    18. Dim bytes(3) As Byte 'Array mit 4 Bytes
    19. Buffer.BlockCopy(integers, 0, bytes, 0, 4) 'den Int32 auf die 4 Bytes kopieren
    20. Array.Reverse(bytes) 'reihenfolge umdrehen
    21. 'Byte-Array in ein String-Array konvertieren
    22. Dim strings = bytes.Select(Function(b) b.ToString)
    23. 'Strings verketten und returnen
    24. Return String.Join(".", strings.ToArray)
    25. End Function
    27. Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    28. Dim ip0 = "127.0.0.3"
    29. Dim ip1 = "127.0.1.2"
    30. 'Die Schleife zählt von der einen ip-Repräsentation zur anderen
    31. For i = IP2Int(ip0) To IP2Int(ip1)
    32. Debug.WriteLine(Int2IP(i)) 'zurückgewandelte ip-Repräsentationen ausgeben
    33. Next
    34. End Sub

    Evtl. wäre für den Portscanner sogar sinnvoll, eine IP-Klasse zu creiern, die beide Darstellungen einer IP eingebaut hat. So eine IP-Klasse könntedann eine "IsInRange"-funktion anbieten.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende