Verschlüsselungs-algo

[yankee]

Zitat von yankee:

Etwa so:

Delphi-Quellcode:

old, new:string;
new[0] :=chr(ord(old[0]+3));
new[1] :=chr(ord(old[1]+5));
for i:=2 to length(old)-1 do new[i] :=chr(ord(old[i]+i+5-i*2));

also nur vom Prinzip her. Ich weiß nicht mehr, weie das Gegenstück von chr ist, deswegen habe ich mal achr genommen. Und ich hoffe, ich habe mich bei der Berechnung in der for-Schleife nicht vertan.
Aber mal so vom Grundatz her, müsste das hinkommen. Habe leider im Moment kein Delphi installiert (windoofs sit gaanz frich installiert), deswegen ungetestet. Eben nur so vom Prinzip her konstruiert...

EDIT: achr nach Kommentar von jfheins korrigiert und achr durch ord ersetzt.