[Turbo Pascal] Cryptor v1

[EpiTouille]

Voilà j'ai 15 ans j'ai creé un petit logiciel pouvez-vous m'aider à l'améliorer et voir si il marche sur vos machines ?
merci

Le lien du zip avec les fichiers sources + executables
http://rapidshare.com/files/23328873...ur_v1.zip.html

Merci de m'en dire des nouvelles

[Alcatîz]

Bonjour,

Le programme tourne. Il serait beaucoup plus convivial (mais plus compliqué, bien sûr) de créer un dialogue dans lequel l'utilisateur peut parcourir l'arborescence des répertoires pour enregistrer et charger le fichier crypté.

Ceci dit, ton source serait beaucoup plus lisible s'il était agrémenté de commentaires.

Dans les procédures convl et convc, tu effectues une batterie de tests qui pourraient être très avantageusement remplacés par un tableau déclaré sous forme de constante.

[EpiTouille]

Quand tu dits que elle pourrait être remplacer par des tableau, oui je sais, mais je sais pas comment faire si toi ou quelqu'un peu m'éclairsir

[Alcatîz]

Tu peux déclarer une constante de type tableau comme ceci :

Code :

1
2
3
Type TTabConv = Array [1..27,1..2] of Byte;
 
Const TabConv : TTabConv = ((0,Ord(' ')),(1,Ord('a')) ... etc ... (46,Ord('z'));