Décallage de bit, ET logique et OU logique en VB ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Décallage de bit, ET logique et OU logique en VB ?

_maximus_

Goret ptit con ^_^

Bonjour , voila je suis en train de mettre en application un algorythme de chryptage trouvé sur le net, mais je ne trouve pas les operateurs necessaire en VB....

QQun pourrait me dire comment traduire ca en VB ? :

Code :

key[i] = ((key[i]<<4) & 240) | ((key[i]>>4) & 15)

Paske je galere depuis des heures, sans succes, merci d'avance...

---------------
Ptit con de goret je t'emmerde ^_^

Publicité

cvb

_Maximus_ a écrit :

Code :

key[i] = ((key[i]<<4) & 240) | ((key[i]>>4) & 15)

Paske je galere depuis des heures, sans succes, merci d'avance...

il semble qu'il y es des tableaux "key[i]", le & le signe "*".
Le signe "|", c'est la comparaison de nombre binaire

Description
Utilisé pour effectuer une opération OR binaire sur deux expressions.
Syntaxe
result = expression1 | expression2
La syntaxe de l'opérateur | comprend les éléments suivants :

Élément Description
result Variable
expression1 Expression
expression2 Expression

Notes
L'opérateur | examine la représentation binaire des valeurs de deux expressions et effectue sur ces valeurs une opération OR binaire. Le résultat de cette opération est le suivant :
0101 (expression1)
1100 (expression2)
----
1101 (result)

Lorsque l'une des expressions comporte un 1 dans un chiffre, le résultat comporte un 1 dans ce chiffre. Sinon, le résultat comporte un 0 dans ce chiffre.

Pour savoir à quel moment une erreur d'exécution est générée par l'opérateur |, consultez le tableau Comportement des opérateurs.

c'est tout !

drasche

les opérations de shift et rotation n'existent pas en VB. Si tu en as vraiment besoin, il te faudra les implémenter.

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

_maximus_

Goret ptit con ^_^

drasche a écrit :

les opérations de shift et rotation n'existent pas en VB. Si tu en as vraiment besoin, il te faudra les implémenter.

ARf c lourd ca, merci pour ton explication a+ :jap:

---------------
Ptit con de goret je t'emmerde ^_^

karlkox

Code :

Public Function ShiftLeft(byval m_Value as long, byval m_Step as long) as long
Dim m_Counter As Long
ShiftLeft= m_Value
For m_Counter = 1 To m_Step
ShiftLeft= ShiftLeft * 2
Next
End Function
Public Function ShiftRight(byval m_Value as long, byval m_Step as long) as long
Dim m_Counter As Long
ShiftRight= m_Value
For m_Counter = 1 To m_Step
ShiftRight= ShiftRight \ 2
Next
End Function
key(i) = (ShiftLeft(key(i),4) and 240) or (ShiftRight(key(i),4) and 15)

Message édité par karlkox le 10-03-2003 à 14:57:40

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Décallage de bit, ET logique et OU logique en VB ?

Sujets relatifs
problème de logique	Petit problème de logique entre tables en Access
La logique de hoare, ça sert ?	Logique avec cerveau ramoli.... fonctionne pas bien
[PHP & logique] Simplifier un morceau de code	[Java - servlet] Logique de fonctionnement
problème d'opérateur logique	Probleme de Logique Mathemathiques Y a des Matheux ici ?
Cannibales et missionnaire en logique	[PHP/MySQL] Problèm de logique
Plus de sujets relatifs à : Décallage de bit, ET logique et OU logique en VB ?

Page générée en 0.033 secondes