[R] Traduction Héxadécimal -> Binaire

[Sparkdaemon]

Bonjour a tous,
J'ai un petit projet actuellement, et j'ai un petit souci.
je doit traduire de l'héxadécimal vers le Binaire Pur et dur.

Voici mon code :

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
 

Le code me retourne 0x42611116E6A611117572
Le souci, C'est que Je ne sait pas comment formuler mon Stringreplace,
Help?

[Tlem]

Cela devrait être plus simple avec ceci :

► Afficher le texte

Code : Tout sélectionner

; 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

[Sparkdaemon]

Merci de cette réponse, Mais
Cette fonction me retourne -1

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

je penses que j'ai mal formulé la fonction

[Tlem]

Par ce que vous utilisez mal la fonction.
Vous ne devez entrer que la valeur hexadécimal (537061726B6461656D6F6E) ...

[Sparkdaemon]

Bawi.. ça marche !

Merci Tlem, J'édite

[Sparkdaemon]

Après un résultat concluant, J'aimerai Re-transformer ce binaire en un index,
Je vous explique :

J'aimerai que 0000 deviennes 1, que 0001 deviennes 2, 0010 deviennes 3, Ect...

Comment faire ?

[Tlem]

1 question => 1 sujet

[Sparkdaemon]

Oui monsieur