Page 1 sur 1
[Ex] BiteRotate
Posté : lun. 28 févr. 2011 15:21
par 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.
Re: [Ex] BiteRotate
Posté : mar. 01 mars 2011 17:46
par 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.