IP-Bereiche analysieren

    • VB.NET

      IP-Bereiche analysieren

      Eine IP kennt manja in dieser Schreibweise, zB: "127.0.0.64"
      Dahinter verbirgt sich schlicht ein Integer, also eine Zahl mit 32 Bits. Obige Schreibweise stellt eben die 4 Bytes eines Unsigned Int32 dar.

      Also bekommt man alle IPs in einem durch 2 IPs definierten Range, indem man obige Darstellung in einen UInt32 konvertiert, und dann kann man hochzählen.
      Bzw. die Anzahl der in einem Range enthaltenen IPs ergibt sich aus der Subtraktion der höheren von der niedrigeren.

      Mein Sample:

      VB.NET-Quellcode

      1. Imports System.ComponentModel
      3. Public Class Form1
      4. Private _IPs As New BindingList(Of String)
      6. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
      7. ListBox1.DataSource = _IPs
      8. End Sub
      10. Private Function IP2Int(ByVal ip As String) As UInt32
      11. 'split zerteilt ip in 4 strings, die je eine Zahl darstellen
      12. 'Byte.Parse wandelt je ein Segment in ein Byte um
      13. 'Select sammelt diese Bytes in ein IEnumerable(Of Bytes)
      14. 'ToArray macht daraus ein Byte-Array
      15. Dim bytes = (From s In ip.Split("."c) Select Byte.Parse(s)).ToArray
      16. Array.Reverse(bytes) 'dreht die Reihenfolge um
      17. Dim integers(0) As UInt32 'ein Array von UInt32 mit nur einem Element
      18. ' (ein Integer ist genauso groß wie 4 Bytes)
      19. 'BlockCopy kann ein Array des einen Typs byte-weise umkopieren in ein Array eines anderen Typs
      20. 'kopiert also die 4 Bytes auf den UInt32
      21. Buffer.BlockCopy(bytes, 0, integers, 0, 4)
      22. Return integers(0) 'den UInt32 returnen
      23. End Function
      25. Private Function Int2IP(ByVal n As UInt32) As String
      26. Dim integers = New UInt32() {n} 'ein Array von UInt32 mit nur dem einem Element
      27. Dim bytes(3) As Byte 'Array mit 4 Bytes
      28. Buffer.BlockCopy(integers, 0, bytes, 0, 4) 'den UInt32 auf die 4 Bytes kopieren
      29. Array.Reverse(bytes) 'reihenfolge umdrehen
      30. 'Byte-Array in ein String-Array konvertieren
      31. Dim strings = bytes.Select(Function(b) b.ToString)
      32. 'Strings verketten und returnen
      33. Return String.Join(".", strings.ToArray)
      34. End Function
      36. Private Sub btStart_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btStart.Click
      37. Dim ip0 = txtStartIP.Text
      38. Dim ip1 = txtEndIP.Text
      39. 'Zur Geschwindigkeitsoptimierung wird das Databinding temporär ausgesetzt
      40. _IPs.RaiseListChangedEvents = False
      41. _IPs.Clear()
      42. 'Die Schleife zählt von der einen ip-Repräsentation zur anderen
      43. For i = IP2Int(ip0) To IP2Int(ip1)
      44. _IPs.Add(Int2IP(i)) 'zurückgewandelte ip-Repräsentationen ausgeben
      45. Next
      46. _IPs.RaiseListChangedEvents = True
      47. _IPs.ResetBindings()
      48. End Sub
      50. End Class
      Dateien

      • IPConverter.zip

        (14,72 kB, 291 mal heruntergeladen, zuletzt: )

    Facebook
    Telefonspende