Crypter et décrypter une chaîne

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 539 fois - Téléchargée 46 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_gandoura

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.