IP in Binär umrechnen und umgekehrt

$IP = @IPAddress1
$s_IPBinary = ""

For $i In StringSplit($IP, ".", 2)
$s_IPBinary &= _DecToBin($i)
Next

ConsoleWrite($IP & @TAB & $s_IPBinary & @CRLF)

Func _DecToBin($iD)
; ich glaube das stammt von Marsi
Local $sR
Do
$sR = Mod($iD, 2) & $sR
$iD = Floor($iD / 2)
Until $iD = 0
Return StringRight('0000000' & $sR,
EndFunc

$s_BinIP = "11000000101010000000000010000110"
$s_IP = ""
For $i = 1 To StringLen($s_BinIP) Step 8
$s_IP &= _BinToDec(StringMid($s_BinIP, $i, 8)) & "."
Next
$s_IP = StringTrimRight($s_IP, 1)

ConsoleWrite($s_BinIP & @TAB & $s_IP & @CRLF)

Func _BinToDec($s_BinZahl)
Local $d_Ret = 0
For $x = 0 To StringLen($s_BinZahl)
If Int(StringRight(StringTrimRight($s_BinZahl, $x), 1)) Then $d_Ret += 2^$x
Next
Return $d_Ret
EndFunc

MsgBox(0, 3423413, int2bin(3423413))
MsgBox(0, 2^3, int8_2bin(2 ^ 3))
MsgBox(0, @IPAddress1, IP2bin(@IPAddress1))

;allgemein
Func int2bin($integer) ;32Bit int in binärstring darstellen
Local $bin_string = ""
For $i = 31 To 0 Step -1 ;integer in bits
If Mod($i + 1, = 0 Then $bin_string &= " ";trenner
$bin_string &= String(Int(BitAND($integer, 2 ^ $i) / (2 ^ $i)))
Next
Return $bin_string
EndFunc ;==>int2bin

;8bit
Func int8_2bin($integer) ;8Bit int in binärstring darstellen
Local $bin_string = ""
For $i = 7 To 0 Step -1 ;integer in bits
If Mod($i + 1, = 0 Then $bin_string &= " ";trenner
$bin_string &= String(Int(BitAND($integer, 2 ^ $i) / (2 ^ $i)))
Next
Return $bin_string
EndFunc

func IP2bin($IP)
;hier gehört das regex rein, um eine reguläre IPv4 zu erkennen^^
local $ip_array=stringsplit($IP,".",2)
local $binstring=""
for $i in $ip_array
$binstring&=int8_2bin($i)
next
return $binstring
endfunc

#include-once
#include <String.au3>

Global $ip = "32.64.0.3"
MsgBox(0, "IP Address to Binary String", "IP = " & @TAB & $ip & @LF & "Binary = " & @TAB & IPv4toBIN($ip))

Global $sBin = "10000001 111000 1010 00001111"
MsgBox(0, "Binary String to IP Address", "Binary = " & @TAB & $sBin & @LF & "IP = " & @TAB & BINtoIPv4($sBin))

;===============================================================================
; Function Name: IPv4toBIN
; Description: Converts an IP v4 string to a binary string format
; Parameter(s): $sIP: the ip v4 address with a format "a.b.c.d"
; $bLen8
; True: output binary string length is always 8 digits
; False: output is truncated to minimum length
; Requirement(s): String.au3
; Return Value(s): binary string format of all octets from the ip address with a format "a b c d"
;Error Codes: 1: ip adress not in appropiate format
; 2: invalid ip token size -> must be between 0 and 255
; Author(s): UEZ
;Version: v0.99 Build 2012-02-28
;===============================================================================
Func IPv4toBIN($sIP, $bLen8 = True)
Local $aIPTokens = StringRegExp($sIP, "(\d+)\.(\d+)\.(\d+)\.(\d+)", 3)
If @error Then Return SetError(1, 0, -1)
Local $bin, $sBin, $i
For $i = 0 To 3
If Int($aIPTokens[$i]) Then
If $aIPTokens[$i] > 255 Then Return SetError(2, 0, -1)
While $aIPTokens[$i] > 0
$bin &= Mod($aIPTokens[$i], 2)
$aIPTokens[$i] = Floor($aIPTokens[$i] / 2)
WEnd
Else
If $bLen8 Then
$bin = "00000000"
Else
$bin = "0"
EndIf
EndIf
If $bLen8 Then
$sBin &= StringFormat("%0.8i", _StringReverse($bin)) & " "
Else
$sBin &= _StringReverse($bin) & " "
EndIf
$bin = ""
Next
Return StringMid($sBin, 1, StringLen($sBin) - 1)
EndFunc

;===============================================================================
; Function Name: BINtoIPv4
; Description: Converts a binary string format to an IP v4 string
; Parameter(s): $sBin: the binary string with format "a b c d"
; Requirement(s): String.au3
; Return Value(s): the ip address in format "a.b.c.d"
;Error Codes: 1: string is not a binary string
; 2: too much tokens
; Author(s): UEZ
;Version: v0.99 Build 2012-02-28
;===============================================================================
Func BINtoIPv4($sBin) ;coded by UEZ 2012
Local $aIPTokens = StringRegExp($sBin, "[01]{1,8}", 3)
If @error Then Return SetError(1, 0, -1)
If UBound($aIPTokens) <> 4 Then Return SetError(2, 0, -1)
Local $sIP, $int, $x, $y, $i = 1, $aTmp
For $y = 0 To 3
$aTmp = StringSplit(_StringReverse($aIPTokens[$y]), "")
For $x = 1 To UBound($aTmp) - 1
$int += $aTmp[$x] * $i
$i *= 2
Next
$sIP &= $int & "."
$int = 0
$i = 1
$aTmp = 0
Next
Return StringMid($sIP, 1, StringLen($sIP) - 1)
EndFunc