Zitat von
Basilikum:
ich würde spontan etwas in diese Richtung vorschlagen:
Wieso so kompliziert?
Delphi-Quellcode:
function Move13Chars(value char): char;
begin
result := chr(ord(value) - 13);
end;
Habe ich was vergessen/überlesen?!
@heiopei:
Du hast bei deinem Anhang die
XOR_Letter-Prozedur verwendet. Die gibts bei meinem Delphi 7 nicht.
Ist die neu bei >=Delphi 2005 oder hast du die vergessen mitzugeben?
Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian