eine Variable bei jedem Durchlauf ändern, aber immer anders?

[Niels]

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.