Wie kann man das umsetzten (Algo)?

[himitsu]

Ich hoffe, ich hab's richtig verstanden.

Delphi-Quellcode:

S := 'Wort';

SE := '';
For I := 1 to Length(S) do
  SE := SE + IntToHex(Ord(S[I]) + $32 + I, 2);
  
Ergebnis := SE;

Delphi-Quellcode:

Ord(S[I])        =  Wert eines Zeichens
$32              =  32h
IntToHex(I, X);  =  wantelt den Integer (I) in einen hexadezimalen 
                      Wert (String) um, X entspricht der mindestanzahl
                      der Hex-Stellen