décalage de bits

Question

:question) Osiris 6880

J'aurais besoin d'effectuer un décalage circulaire sur la gauche de 25 bits mais je ne sais pas comment faire.

Merci de prendre un peu de temp pour me répondre.

 :)

cs_TomTom27 · Answer

Code permettant d'acceder aux bit d'un Integer, Pour décaler tu change les indices du tableau renvoyé (Tab_Boolean).



Public Sub IntegerToBoolean(ByVal Mot As Integer, ByRef Tab_Boolean() As Boolean)

Dim Ind As Integer
Dim Modulo As Long 'utilisé lors du décodage integer -->Byte
 
For Ind = LBound(Tab_Boolean) To UBound(Tab_Boolean)
    Modulo = Mot Mod 2    Tab_Boolean(Ind) (Modulo 1)
    Mot = Int(Mot / 2)
Next
End Sub

Osris6880 · Answer

:question) Osiris 6880

En fait je veux développer un algorythme de cryptage, mais pour cela il faut que je découpe le texte en blocs de 16 bits puis que je les décales de 25 bits.

Et je ne comprend pas ce que je dois mettre à cette endroit :
-"ByRef Tab_Boolean() As Boolean"

Merci !

 :big)

Décalage de bits

2 réponses

Discussions similaires