CRYPTAGE AVEC FONCTION XOR

Public Function Crypt(chaine As String, clé As String, surcarract As Integer) As String
'Fonction de Cryptage de données avec Xor
'chaine = La donnée a cryptée
'clé = la clé du cryptage ici une lettre on utilise son code ASCII
'surcarract Le nombre de Carractères du format il doit etre >=  3
'                       exemple surcarract=3 la donnée cryptée =8 --> 008

' Pour compliquer le cryptage j'utilise 2 fois la fonction de cryptage
' en fait je crypte mes données cryptées
' ce qui est plus dure a retrouver.... ;p)


Dim Crypt1 As String

Dim Crypt2 As String

For cpt = 1 To surcarract
    nbzero = "0" + nbzero
Next

For cpt = 1 To Len(chaine)
    Crypt1 = Crypt1 & Format(Asc(Mid(chaine, cpt, 1)) Xor Asc(clé), nbzero)
Next

For cpt = 1 To Len(Crypt1)
    Crypt2 = Crypt2 & Format(Asc(Mid(Crypt1, cpt, 1)) Xor Asc(clé), nbzero)
Next

Crypt = Crypt2
End Function

Public Function DeCrypt(chaine As String, clé As String, surcarract As Integer) As String
'Ici la fonction Inverse du cryptage
' elle décrypt les données
' comme mes données crypté on été cryptées 2x
' je suis oblig de les décypter 2x..... ;p)

Dim Crypt1 As String

Dim Crypt2 As String

For cpt = 1 To Len(chaine) Step surcarract
    Varr = Mid(chaine, cpt, surcarract)
    Crypt1 = Crypt1 & Chr(Varr Xor Asc(clé))
Next

For cpt = 1 To Len(Crypt1) Step surcarract
    Varr = Mid(Crypt1, cpt, surcarract)
    Crypt2 = Crypt2 & Chr(Varr Xor Asc(clé))
Next

DeCrypt = Crypt2
End Function