Hallo,
was heißt denn "funktionert nicht"?
Entspricht die Verschlüsselung nicht dem was Du erwartet hast?
Kommt der KlarText wieder heraus?
Delphi-Quellcode:
For i:=1 To length (original) DO
code[i]:=chr(ord(orginal[i])+3);
Edt_Ausgabe.Text:=code;
end;
So sollet es schon besser aussehen:
Delphi-Quellcode:
For i:=1 To length (original) DO
begin
code:=chr(ord(orginal[i])+3);
Edt_Ausgabe.Text:=Edt_Ausgabe.Text+code;
end;
Grüße
Klaus