Bonjour,
J'ai fais ce code pour simplement crypter du texte d'une maniere aléatoire et la décrypter n'importe ou d'autre ...
Explication :
- Randomize des chiffres puis en choisi un entre 1 et 30 ...
- Prend tout les char() du texte et les soustrait par le chiffre aléatoire donné
- Ecrit le chiffre aléatoire donné + 21 au début du texte.
Pour décoder, c'est l'inverse, en prenant base du chiffre mis en avant ... :)
EDIT :
- Ajout du support multi-ligne
- Vérification de case vide
- Protection légerement changée pour le chiffrage
EDIT 2 : J'ai suivi le conseil de us_30...
- Clé de cryptage externe
- La clé est demandée avant le décryptage et n'est plus intégré au texte
- Quelques modifs suplémentaire ...
Source / Exemple :
Goto Zip
Conclusion :
Bon, c'est une de mes premieres source en vb6 ...
Crtitiquer, cela me fera progresser ...
J'ai essayé de bien commenter le code ... es-ce lisible ?
Merci !