Bonjour à tous. Voila, je me lance en ce moment dans le Pascal, et j'ai un code de cryptage simple à faire. Il me semblait avoir fait quelque chose de correct, mais le fichier cible contient exactement la même chose que le fichier source au final.

(a savoir : les chemins de fichiers ont été evidemment verifiés )

Voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
{* Cryptage *}
 
PROGRAM cryptage;
USES crt;
 
VAR
source, cible: file of char;
lettre, cle: char;
nbcle, nblettre, nba, nbcar: INTEGER;
 
BEGIN
WRITELN ('Veuillez saisir une cl‚ de crytage');
Readln (cle);
Assign (source, 'Z:\turbo\source.txt');
Assign (cible, 'Z:\turbo\cible.txt');
 
RESET (source);
REWRITE (cible);
 
READ (source, lettre);
WHILE (NOT EOF(source)) DO
BEGIN
IF (lettre>'@') AND (lettre<'[')THEN
BEGIN
nbcle := ORD(cle);
nblettre := ORD(lettre);
nba := ORD('A');
nblettre := nblettre+(nbcle-nba);
lettre := CHR(nblettre);
END;
IF (lettre>'Z')THEN
BEGIN
nbcar := ORD('[');
nblettre := nba+(nblettre-nbcar);
lettre := CHR(nblettre);
END;
WRITE(cible, lettre);
READ(source, lettre);
END;
 
CLOSE(source);
CLOSE(cible);
 
END.
D'avance merci si vous trouvez l'erreur ou si vous avez une méthode autre à me proposer

(en espérant avoir posté au bon endroit)