AutoIt Français

Code : Tout sélectionner

$stringbit="0110111011011100000100000010"

$convertion=convert_bitstring_to_binary($stringbit)
if Not @error Then
    ConsoleWrite($convertion&@CRLF)
Else
    ConsoleWrite("La donnée n'a pas une longueure multiple de 8 bits"&@CRLF)
    Exit 1
EndIf
$hnd=FileOpen(@ScriptDir&"\outbin.bin",18)
FileWrite($hnd,$convertion)
FileClose($hnd)

Func convert_bitstring_to_binary($string)
    Local $size=StringLen($string)
    Local $substring
    Local $ind
    Local $str_ret=""
    If Not Mod($size,8) Then
        SetError(1)
        Return -1
    EndIf
    For $ind=1 To $size step 8
        $str_ret&=Hex(_BinToDec(StringMid($string,$ind,8)),2)
    Next
    SetError(0)
    Return Binary("0x"&$str_ret)

EndFunc

Func _BinToDec($i_Bin)
    Local $i_End = StringLen($i_Bin)
    Local $i_DecOut = 0
    Local $i_Count
    For $i_Count = 1 To $i_End
        Select
            Case StringMid($i_Bin, $i_End + 1 - $i_Count, 1) = "1"
                $i_DecOut = BitXOR($i_DecOut, BitShift(1, - ($i_Count - 1)))
        EndSelect
    Next
    Return $i_DecOut
EndFunc   ;==>_BinToDec
 

Code : Tout sélectionner

Func HexaToBinary($Hexa)
    Dim Const $HEXA_REF[16] = ["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"]
    Dim Const $BINA_REF[16] = ["0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","1111"]
    $Hexa = StringReplace($Hexa,"0x","")
    For $i = 0 To 15 Step 1
        $Hexa = StringReplace($Hexa,$HEXA_REF[$i],$BINA_REF[$i])
    Next
    Return $Hexa
EndFunc

Code : Tout sélectionner

$binary=binary("0x12FD45")
For $ind=1 to BinaryLen($binary) step 4
       ConsoleWrite(HEXBYTE_to_bin(BinaryMid($binary,$ind,4))&@CRLF)
Next



$hnd=FileOpen("ppslaunch.exe",16) ; mettez ici un binaire à vous
If $hnd=-1 Then Exit 1
$binary=FileRead($hnd)
FileClose($hnd)
$total=BinaryLen($binary) ; on travaille 4 octets par 4 octets (restriction des fonctions BitXXX)
For $ind=1 to $total  step 4
       ConsoleWrite(HEXBYTE_to_bin(BinaryMid($binary,$ind,4))&@CRLF)
Next



Func HEXBYTE_to_bin($bin)
       Local $str_ret=""
       Local $size=BinaryLen($bin)

       If Not IsBinary($bin) Then
               SetError(1)
               Return ""
       EndIf
       $bin=Int(String($bin))
       While ($bin > 0)
              If BitAND($bin,1)=1 Then
                       $str_ret="1"&$str_ret
               Else
                       $str_ret="0"&$str_ret
               EndIf
               $bin=BitShift($bin,1)
       WEnd
       Return StringRight("00000000000000000000000000000000"&$str_ret,8*$size);astuce de padding pour mettre des 0 manquant devant
EndFunc