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.
Bei meinem Beitrag weiter unten habe ich ausversehen auf zitat statt auf edit geklickt (*mit-der-hand-vor-den-kopf-schlag*)
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!