Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 308 fois - Téléchargée 41 fois
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
Aussi non c'est assez connu comme méthode mais clair et simple 8/10
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.