Cryptage avec fonction xor
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 219 fois - Téléchargée 41 fois
Contenu du snippet
Un petit exemple de codage d'information avec XOR
j'espère que cette source vous servira , elle est super pratique pour stocké dans une base un login et un pass sous forme Crypté, bien sur ce n'est qu'un exemple qui peut etre encore améliorer (j'y travaille pas mal....)
Source / Exemple :
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
Conclusion :
j'espère que cette source vous servira , elle est super pratique pour stocké dans une base un login et un pass sous forme Crypté, bien sur ce n'est qu'un exemple qui peut etre encore améliorer (j'y travaille pas mal....)
A voir également
- Visual basic xor
- Vb.net xor - Meilleures réponses
- Xor visual basic - Meilleures réponses
- C / C++ / C++.NET : Cryptage de fichier avec la fonction xor sur n bits - CodeS SourceS - Guide
- Visual Basic / VB.NET : Petit cryptage décryptage avec xor - CodeS SourceS - Guide
- Visual Basic / VB.NET : Cryptage simple en xor avec clé aléatoire. - CodeS SourceS - Guide
- Cryptage de type xor avec système de mot de passe - Codes sources - C / C++ / C++.NET (Chiffrement & Cryptographie)
- Delphi / Pascal : Unité de cryptage/décryptage par xor. - CodeS SourceS - Guide
Commentaires
Aussi non c'est assez connu comme méthode mais clair et simple 8/10
- Messages postés
-
316
- Date d'inscription
- mercredi 15 juin 2005
- Statut
- Membre
- Dernière intervention
- 31 août 2006
1- Messages postés
-
169
- Date d'inscription
- vendredi 27 septembre 2002
- Statut
- Membre
- Dernière intervention
- 27 février 2009
1Vous 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.