Hilfe bei XOR-"Verschlüsselung"

[Pseudemys Nelsoni]

Moin,

sorry, ein besserer Titel ist mir nicht eingefallen*g*

Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  C: Char;
begin
  C := 'h';
  C := Chr(((Ord(C) xor 1) + 1) + 24);
  C := Chr(((Ord(C) xor 1) - 1) - 24);
  showmessage(C);
end;

Wieso wird mir beim ShowMessage "j" angezeigt, statt "h"?
Nicht über die Zahlen wundern....normalerweise sind dort Variablen.

[sakura]

Zitat von Pseudemys Nelsoni:

Wieso wird mir beim ShowMessage "j" angezeigt, statt "h"?

Du musst die Reihenfolge der Auswertung umdrehen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  C: Char;
begin
  C := 'h';
  C := Chr(((Ord(C) xor 1) + 1) + 24);
  C := Chr(((Ord(C) - 24) - 1) xor 1);
  showmessage(C);
end;

Denke ich

......

[Pseudemys Nelsoni]

Stimmt, danke

[himitsu]

Moin Nelsoni


dieses +- 1 +- 24 kannst du der Einfahheit halber ja auch mal in eine 25 umwandeln

Delphi-Quellcode:

C := Chr((Ord(C) xor 1) + 25);
C := Chr((Ord(C) - 25) xor 1);

[Pseudemys Nelsoni]

Zitat:

Nicht über die Zahlen wundern....normalerweise sind dort Variablen.

[himitsu]

ohhh, das hat der Browser wohl verschluckt ... vorhin stand nur eine Zeile unter dem Quellcode

Also ignorier mich einfach

[Pseudemys Nelsoni]

Trotzdem, danke