Hilfe:Caesar-Verfahren

[HelmHut]

Hallo Leute,

ich muss bis Donnerstag, den 13.01.2005, ein Projekt abgeben. Ich soll mit Delphi einen Text im CAESAR-VERFAHREN verschlüsseln. Ich habe auch einen Quelltext gefunden, der aber für meine Verhältnisse zu schwer ist. Ich würde mich über eine Antwort mit einem LEICHTEREN QUELLTEXT freuen oder über eine ERKLÄRUNG MEINES QUELLTEXTES, da ich ihn inner Schule erklären muß. Ich bin sonst aufgeschmissen. BITTE UM HILFE!!!

Das ist mein Quelltext:

Delphi-Quellcode:

IF Memo1.Lines.Count > 0 THEN 
begin 
FOR ZNr:= 1 TO Memo1.Lines.Count DO 
begin 
ZOrgText:= Memo1.Lines[ZNr - 1]; // 
IF length(ZOrgText) > 0 THEN 
begin 
ZVerschlText:= ''; // 
FOR BNr:= 1 TO length(ZOrgText) DO 
begin 
OrgReih:= Ord(ZOrgText[BNr]); // 
NeuReih:= OrgReih + SpinEdit1.Value; // 
ZVerschlText:= ZVerschlText + Chr(NeuReih); // 
end; 
Memo2.Lines.Add(ZVerschlText); // 
end 
ELSE 
Memo2.Lines.Add('') // 
end 
end;

[edit=r_kerber]Doppelpost gelöscht. Delphi-Tags eingefügt (das nächste mal bitte selbst machen)! Mfg, r_kerber[/edit]