CRYPTER ET DÉCRYPTER SIMPLEMENT DU TEXTE AVEC LA MEME PROCÉDURE

---

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

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

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 

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!

• UTILISER LA TELECOMMANDE PCTV AVEC KTV
• OUVRIR PLUSIEURS FICHIERS DANS UNE SEULE INSTANCE
• CLASSE DE DESSIN (API) PLUS RAPIDE QUE VB
• DOCKCONTROL : DOCKER/UNDOCKER VOS BARRE D'OUTILS ET AUTRES CONTROLES
• ROTATION DANS L'ESPACE 3D > 2D

• AFFICHAGE DES LIGNES D'UN RICHTEXTBOX
• TRI BOYERMOORE
• CONVERTION PS EN NOIR ET BLANC
• MINI TRAITEMENT DE TEXTE
• REPLACE IN FILE - REMPLACEMENTS MULTIPLES DES FICHIERS D'UN RÉPERTOIRE

• CRYPTAGE ET DÉCRYPTAGE DE TEXTE (SIMPLE)
• CRYPTEUR DÉCRYPTEUR DE FICHIERS
• CRYPTER/DÉCRYPTER UN TEXTE AVEC UNE CLÉ DE CRYPTAGE DE FAÇON (ASSEZ) SÛRE.
• ENCRYPTER / DÉCRYPTER UN TEXTE
• CRYPTAGE / DECRYPTAGE DE TEXTE EN UTILISANT L'ALGORYTHME DE VIGENERE