Crypter et décrypter une chaîne

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 624 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

cs_gandoura
Messages postés
7
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
27 avril 2002
-
J'attends vos suggestions!
cs_Stephane84
Messages postés
16
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
12 avril 2017
-
bah il fonctionne mais peut être que quelqu'un qui n'est pas un amateur comme moi va trouver en 3 secondes.

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.