CRYPTER ET DÉCRYPTER UNE CHAÎNE

'Si operation=0 la fonction crypte la chaine Entree selon la cle défini (préférablement entre 0 et 10)
'Si operation=1 la fonction décrypte la chaine entree selon la cle définie (préférablement entre 0 et 10)
Public Function Cryptage(ByVal Entree As String, ByVal Cle As Long, ByVal Operation As Long) As String
Dim Entree1(20000) 'Création des tableaux
Dim Sortie1(20000)
If Operation = 0 Then 'Boucle de cryptage
For i = 1 To Len(Entree)
Entree1(i) = Mid(Entree, i, 1)
Sortie1(i) = Chr(Asc(Entree1(i)) + Cle)
Cryptage = Cryptage + Sortie1(i)
Next i
End If
If Operation = 1 Then 'Boucle de décryptage
For i = 1 To Len(Entree)
Entree1(i) = Mid(Entree, i, 1)
Sortie1(i) = Chr(Asc(Entree1(i)) - Cle)
Cryptage = Cryptage + Sortie1(i)
Next i
End If
End Function