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