Wie kann man das umsetzten (Algo)?

[Uncle Cracker]

Ich habe irgendwo mal ein verschlüsslung gelesen, die ich jetzt selbst mal umsetzten möchte, nur habe ich keine Ahnung wie ich das machen soll.

Ich möchte noch dazu sagen das dies kein Algo für die Schule ist, denn auf der Realschule 10. Klasse wird noch nicht programmiert.

Also folgendes: Zu jedem Zeichen des eingegebenen Wortes wird 32h und der Schleifenzähler addiert, das Ergebnis in einen Hexstring umgewandelt und alle Strings zusammen gesetzt.

Ich bin jetzt soweit, dass ich erstmal den Anfang habe, also das ich zu jedem Zeichen den Schleifenzähler addieren kann, das mit dem Hexstring verstehe ich nicht und das mit dem +32h erstrecht nicht.

Kann mir vielleicht jemand helfen?


:love: Danke UC

[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

[Uncle Cracker]

Danke schön, genau das wollte ich.

[OFFTOPIC]Wohnst du in der nähe von Dresden, ich wohne nähmlich in Freital[/OFFTOPIC]

[himitsu]

[OT]Jo, mitten drin.[/OT]