Manipuler (xor) byte array

Bonsoir,

dans mon code, j'ai convertir une string en byte array.

Je n'arrive pas lors de la boucle à manipuler byte par byte avec un xor ou une simple addition.

Je fais un test pour crypter une string et la décrypter, je l'affiche dans une msgbox.

C'est très important de finir ce projet à temps, merci par avance!!!!!

Sub KEY2()
Dim b() As Byte
Dim s As String
Dim nom As String
Dim l As Integer
Dim i As Integer

nom = "FFF"

b = StrConv(nom, vbFromUnicode)

For l = 1 To Len(nom)
i = b & l
Next l

s = StrConv(b, vbUnicode)
MsgBox s
End Sub

par exemple ici ma string est "FFF"

en ascii ça donne 70,70,70

j'aimerai 'pointer' sur chaque byte et faire une opération de type xor

Bonjour

Essayes

Sub KEY2()
Dim b() As Byte
Dim s As String
Dim nom As String
Dim i As Integer

  nom = "FFF"

  b = StrConv(nom, vbFromUnicode)

  For i = 0 To UBound(b)
    b(i) = b(i) Xor 1
  Next i

  s = StrConv(b, vbUnicode)
  MsgBox s
End Sub

Merci Banzai, je tenterai, et je sais que ton codes marche, mais j'ai placé la barre trop haute cette fois-ci.

Tout compte fait j'ai fait la somme des valeurs ascii...