Crypter et décrypter une chaîne

Commenter

Contenu du snippet

Cette fonction crypte et décrypte une chaîne selon la clé spécifiée par l'utilisateur.

Source / Exemple : 


'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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_gandoura)