Zitat von
SirThornberry:
Zitat von
Binärbaum:
Man könnte es so probieren:
Delphi-Quellcode:
var
mein_text: string;//Original
neuer_Text: string;//Verschlüsselt
...
neuer_text:=mein_Text; //Verschlüsselter Text initialisieren
for i:= 1 to Length(mein_Text) do begin
neuer_Text[i]:= Chr(Ord(mei_text[i])+ (i mod 25));
end;
Hallo???
So kannst du den verschlüsselten Text schon fast in den Müll werfen.
angeommen mein Zeichen hat den
Ascii-Wert 254 und i ist 3, dann würde bei würde bei der "254 + 3" gerechnet werden was "257" ergibt. Und wenn du das mit "chr" wieder zurück schreibst kommt was falches raus weil es kein
ascii-wert "257" gibt. Auf grund eines Überlaufes würd vermutlich dann der
Ascii-Wert "1" sein und nicht wie es laut berechnung sein müsste "257"
Da die ersten 32
ASCII-Zeichen Steuerzeichen sind, würde ich einfach '- (i mod 25)' anstatt '+ (i mod 25)' nehmen. Damit bekommst du keine Probleme. Wenn du natürlich mehr als i mod 32 hast, wird's dann problematisch, da müsste man dann was ändern.