AutoIt Français

Code : Tout sélectionner

$string = "sparkdaemon"
$hex = StringToBinary($string)
$bin = hexatobinary($hex)
if @error then exit $bin
MsgBox(0, "", $bin&@crlf&$hex)
Func hexatobinary($data)
    local $dat = ''
    if IsBinary($data) Then
        $dat = StringReplace($data, 0, 0000)
        $dat =StringReplace($data, 1, 0001)
        $dat =StringReplace($data, 2, 0010)
        $dat =StringReplace($data, 3, 0011)
        $dat =StringReplace($data, 4, 0100)
        $dat =StringReplace($data, 5, 0101)
        $dat =StringReplace($data, 6, 0110)
        $dat =StringReplace($data, 7, 0111)
        $dat =StringReplace($data, 8, 1000)
        $dat =StringReplace($data, 9, 1001)
        $dat =StringReplace($data, "A", 1010)
        $dat =StringReplace($data, "B", 1011)
        $dat =StringReplace($data, "C", 1100)
        $dat =StringReplace($data, "D", 1101)
        $dat =StringReplace($data, "E", 1110)
        $dat =StringReplace($data, "F", 1111)
    Else
        SetError(1, 1, "$data n'est pas de l'hexadécimal !")
    EndIf
EndFunc
 

Code : Tout sélectionner

$string = "Sparkdaemon"
$hex = StringToBinary($string)
$bin = _HexToBinaryString($hex)
if @error then exit @error
MsgBox(0, "", $bin)
; Hex To Binary
Func _HexToBinaryString($HexValue)
    Local $Allowed = '0123456789ABCDEF'
    Local $Test,$n
    Local $Result = ''
    if $HexValue = '' then
        SetError(-2)
        Return
    EndIf

    $HexValue = StringSplit($HexValue,'')
    for $n = 1 to $HexValue[0]
        if not StringInStr($Allowed,$HexValue[$n]) Then
            SetError(-1)
            return 0
        EndIf
    Next

    Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111"
    $bits = stringsplit($bits,'|')
    for $n = 1 to $HexValue[0]
        $Result &=  $bits[Dec($HexValue[$n])+1]
    Next

    Return $Result

EndFunc