Grazie. Sapresti comunque aiutarmi su quel codice di decriptazione sul programma che avevo postato prima?

code:

Program cript;
uses crt;
var s:string;
i:integer;
begin
writeln('inserisci il messaggio da criptare');
readln(s);
for i:=1 to Length(s) do
Write((ord(s[i]))*2,'0');
repeat until keypressed;
end.