Entschlüsselung für Caesar

[ölöp78]

Hier ist unser Verschlüsselungs Code uns fehlen aber Ansätze zur Entschlüsselung.

Delphi-Quellcode:

Procedure TForm1.Caesar(Wort : String; var caesartext : String);
var x:Char;
    i,y,z:Integer;
Begin
    i:=1;
    z:= length(Wort)+1;
         caesartext := '';
         repeat
         x:= Wort[i];
         y:= ORD(x)+1;
    caesartext:= caesartext+Chr(y);


         i:= I+1
         until I=z;
end;