Crypter et décrypter simplement du texte avec la meme procédure

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 170 fois - Téléchargée 71 fois

Contenu du snippet

La constante Perso est un valeur de 0 à 255 de facon à personnaliser le cryptage du texte

Source / Exemple :


Const Perso = 154
Public Function Crypte(Txt)
b = ""
For a = 1 To Len(Txt)
Crypte = Crypte & Chr(Asc(Mid(Txt, a, 1)) Xor (255 - (a Mod 255)) Xor Perso)
Next a
End Function

Private Sub Form_Load()
Debut:
re = InputBox("Tapez un texte, il va être crypté, puis décrypter avec la même fonction.", "Test")
If re = "" Then End
MsgBox "Votre texte crypter est : " & Crypte(re) & ". Puis le texte crypter et décrypter avec la même fonction donne : " & Crypte(Crypte(re))
GoTo Debut
End Sub

Conclusion :


pour crypter par exemple "Avion" tapez :

MonMessageCrypter = Crypte("Avion")

La casse est respectée

Je répond:
Ce cryptage peut être fiable si le fichier contenant le texte ci dessus(*.frm) n'est vu par personne. Pour le dcrypter, il faut connaitre la formule et un nombre choisi par le créateur.
Comme le même caractère n'est parfois pas représenter par le même symbole, ça complique l'affaire
Ex:AA devient(Je ne sais pas) YD
(c'est des valeurs au hasard)

A mon avis pour décrypter un code sans connaitre la formule, c'est assez complexe!

A voir également

Ajouter un commentaire Commentaires
soulkeum Messages postés 26 Date d'inscription lundi 13 septembre 2004 Statut Membre Dernière intervention 7 mars 2008
26 oct. 2007 à 11:44
Bonjour,
est ce que une personne pourrait m'expliquer l'expression :
Crypte = Crypte & Chr(Asc(Mid(Txt, a, 1)) Xor (255 - (a Mod 255)) Xor Perso)

et l'utilité du perso = 154

merci
philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 2
17 juil. 2006 à 14:49
Ce n'est pas un vrai décryptage si? Un vrai décryptage se fait à partir du texte crypté pour retrouver l'original !!
Ta source fonctionne bien pour le cryptage mais pas le décryptage si??
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
25 janv. 2006 à 15:37
Voilà un code bien sympathique, juste besoin pour moi de crypter/décrypter un petit fichier ini pour qu'il ne soit pas modifiable par une tierce personne (10/10)

Bonne prog ^_^
DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008
24 déc. 2002 à 14:38
mais ya un pb kan la clé est au dessus de 154 par ex 999 eh bah il dit invalid call
Ouai sa c le chiffre de cesar stephane essaie de faire un prog sur le chiffre de vichnere(je me rappelle pu comment sa s'ecrit)
Afficher les 9 commentaires

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.