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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 181 fois - Téléchargée 69 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
-
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
1 -
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
-
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
-
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)

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.