[Ex] BiteRotate

[TommyDDR]

Suite au challenge de zeshrek :
Voici un bel exemple d'utilisation du BitRotate

► Afficher le texte

Code : Tout sélectionner

Local $var[10]
Local $Affichage

For $i = 0 To UBound($var)-1
    $var[$i] = Random(0, 65535, 1)
Next

While(True)
    $Affichage = ""
    For $i = 0 To UBound($var)-1
        $var[$i] = BitRotate($var[$i], 1)
        $Affichage &= GetBinaire($var[$i]) & @CRLF
    Next
    $Affichage = StringTrimRight($Affichage, 2)
    Sleep(100)
    ToolTip($Affichage)
WEnd

Func GetBinaire($Bin)
    Local $Var = $Bin
    Local $Texte = ""
    For $j = 0 To 15
        $Texte = String(Mod($var, 2)) & $Texte
        $Var = BitShift($Var, 1)
    Next
    Return $Texte
EndFunc

Attention vous ne pourrez plus vous en passer, l'essayer c'est l'adopter.

[jchd]

Si jamais quelqu'un a besoin d'opérations binaires sur des entiers 64 bits, voici un lien qui peut aider. Désolé je n'ai pas traduit, mais l'emploi est trivial, sauf grosse bourde de ma part.