Das sind doch die relevanten Stellen:
Delphi-Quellcode:
Code := Code - Z;
If (Code > 122) Then
Code := Code - 26;
Delphi-Quellcode:
Code := Code + Z;
If (Code < 122) Then
Code := Code + 26;
Überleg dir mal, warum bei der Verschlüsselung die IF-Abfrage kommt und was sie bewirkt. Dann überleg mal, wie dieser Vorgang rückgängig gemacht werden muss. Dann siehst du auch, was bei der Enschlüsselung falsch läuft.
Ich bin in der Materie zwar noch relativ neu und, sofern falsch, beachtet mich gar nicht...
Aber nachdem ich das ganze mal nachgebastelt habe, funktionierts nu bei mir
Fehler dürfte das im Zitat rot markierte Zeichen sein.
Hoffe mal, dass mein erster Beitrag korrekt ist.
Grüße
Day
Edit: Farbige Markierungen im Delphi Code funktionieren nicht...
In Prozedur B:
If (Code
> 122) Then ... so funktionierts