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:

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 :mrgreen:

...:cat:...

[Pseudemys Nelsoni]

Stimmt, danke :mrgreen:

[himitsu]

Moin Nelsoni


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

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.

:roll:

[himitsu]

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

Also ignorier mich einfach :angel:

[Pseudemys Nelsoni]

Trotzdem, danke :cheers: