1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Cryptage avec fonction xor

Cryptage avec fonction xor

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 466 fois - Téléchargée 43 fois

Commenter

Contenu du snippet

Un petit exemple de codage d'information avec XOR

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

Ajouter un commentaire Commentaires
The Meteorologist
Messages postés
233
Date d'inscription
jeudi 18 janvier 2007
Statut
Membre
Dernière intervention
3 novembre 2011
 1
16 avril 2007 à 21:20
Je ne vois pas l'utilité de crypter la chaine deux fois de suite vu qu'une seule fois offre logiquement une sécurité absolue ... non ?

Aussi non c'est assez connu comme méthode mais clair et simple 8/10
Tuning Max
Messages postés
314
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
31 août 2006
 1
25 août 2006 à 16:00
Formidable, juste ce que je cherché! A la fois super simple et pourtant très efficace. Encore merci.
cyenea
Messages postés
1
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
10 mars 2006
10 mars 2006 à 17:03
Formidable, ultra simple d'utilisation, exactement ce que je cherchais. Merci (10/10)
cs_Becks
Messages postés
24
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
16 août 2005
5 juin 2004 à 11:14
Bravo simple et emplement efficace !! Merci et bonne prog (8/10)
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
 1
2 juin 2004 à 14:12
excellent, simple et suffisant dans 3/4 des cas. 10.
Afficher les 7 commentaires
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_flohand)