Forum programmazione

[Fabriz]

Ho creato un piccolo programma per cifrare testi in chiaro tramite l'uso del metodo di Cesare:

Code: Select all

Program criptocesare;
var txt:string[100];
    i:byte;
procedure leggi;
begin
     write('Introduci il testo da cifrare: ');
     readln(txt);
end;
procedure cifra;
begin
     for i:=1 to length(txt) do
     if (ord(txt[i])<97) or (ord(txt[i])>122) then delete(txt,i,1)
                                              else
     case txt[i] of
     'x': txt[i]:='a';
     'y': txt[i]:='b';
     'z': txt[i]:='c'
     else txt[i]:=chr(ord(txt[i])+3);
     end;
end;
begin
     leggi;
     cifra;
     writeln('La stringa cifrata: ',txt);
     readln
end.

[Fabriz]

E questo decripta:

Code: Select all

Program decriptocesare;
var txt:string[100];
    i:byte;
procedure leggi;
begin
     write('Introduci il testo da decifrare: ');
     readln(txt);
end;
procedure cifra;
begin
     {i caratteri speciali (' ' ! ? ; . : ecc...) sono andati persi, siccome il
     programma che cripta li ha cancellati}
     for i:=1 to length(txt) do
     case txt[i] of
     'a': txt[i]:='x';
     'b': txt[i]:='y';
     'c': txt[i]:='z'
     else txt[i]:=chr(ord(txt[i])-3);
     end;
end;
begin
     leggi;
     cifra;
     writeln('La stringa decifrata: ',txt);
     readln
end.