CRYPTEUR SIMPLE 1.2

Commentaire de blabla le 03/11/2002 20:53:17

bien bien !!

Commentaire de Koiu le 03/11/2002 21:00:26

C'est koi PSM???LA RUBRIQUE DE TON SITE LA???
Power Soft Maker???

Commentaire de Warny le 04/11/2002 17:39:36

Salut,
C'est pas que j'ai envie de casser ton coup mais bon.
Tu cryptes avec l'algorithme de césar. C'était surement efficace au 1 siècle avant JC mais aujourd'hui on apprend à le décrypter de tête dans Astrapi (sans déconner et sans vouloir être méchant).
Quelques erreurs basiques aussi :
"51" est supérieur à "256" parce 5 est supérieur à 6
donc pour comparer une textbox dans laquelle il est censée y avoir des nombres, fait clng(text1.text) >= 256, c'est plus rapide et beaucoup plus sûr.
Pour formatter un nombre sur 3 caractères et rajouter des zéro devant : format (nombre,"000")
Plus important :
indente ton code, par exemple :
Function Essai()
   msgbox("test")
End Function

tu vois que le msgbox est décallé ce qui te permet d'identifier le corps de la fonction.

Autre chose, commente ton code, là il est simple, mais dès qu'il dépasse deux page, trois fonctions et un module, ça devient vite illisible. Si tu connait ton code sur le moment, dis-toi que personne d'autre que toi ne pourra le relire et que dans 1 mois toi non plus.
Je t'invite à télécharger des exemple chez microsoft pour voir comment il sont formattés et de t'en inspirer.

Avant de te lancer dans la très dure jungle du cryptage, recherche des explications d'algorithme et des histoires du cryptage (ça foisonne dans les sites universitaires). Je te lance quelques clefs de recherche : DES, RSA (très simple dans la théorie, très complexe dans la pratique), Diffie-Hellman, Colossus (ça c'est pour l'histoire et pour te montrer la faiblesse de ton algo), One Time Keypad. Il y en a un nouveau créé par des belges dont je ne me rappelle plus le nom.
Rappelle-toi toujours qu'en cryptologie il est bon d'être humble (comme le démontre quelques récents post sur ce site).

Ceci dit, si cette voie t'interresse, n'hésite pas à t'y engoufrer, c'est super passionant.

Commentaire de Sotar le 06/11/2002 10:26:06

TextBox2 = left$(Textbox1,1) '=d
TextBox2 = right$(left$(Textbox1,1),6) '= b
mais bon je pense qu'il y a plus simple.