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]