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

Commenter

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

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_Stephane)