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"