Fehler bei XOR-Verschlüsslung?

[EDatabaseError]

Ich habe folgenden Code:

Delphi-Quellcode:

function SimpleCryptString(const S, Key: string): string; 
var 
  i, j: Integer; 
  C: Byte; 
  P: PByte; 
begin 
  SetLength(Result, Length(S)); 
  P := PByte(Result);

  j := 1; 
  for i := 1 to Length(S) do 
  begin 
    C := Ord(S[i]); 

    C := C xor Ord(Key[j]); 
    P^ := C; 
    Inc(P); 
    Inc(j); 
    if j > Length(Key) then 
      j := 1; 
  end; 
end;

der einen String verschlüsselt. Leider wird das - und alles was darauf folgt verschluckt??? Warum?

Bspw: Ich will test-test.de verschlüsseln.
Wenn ich das Resultat wieder entschlüssle bekomme ich folgendes test

Danke

Mfg
Tobi

[JasonDX]

Zitat von EDatabaseError:

Ich habe folgenden Code:

Delphi-Quellcode:

function SimpleCryptString(const S, Key: string): string; 
var 
  i, j: Integer; 
  C: Byte; 
  P: PByte; 
begin 
  SetLength(Result, Length(S)); 
  P := PByte(Result);

  j := 1; 
  for i := 1 to Length(S) do 
  begin 
    C := Ord(S[i]); 

    C := C xor Ord(Key[j]); 
    P^ := C; 
    Inc(P); 
    Inc(j); 
    if j > Length(Key) then 
      j := 1; 
  end; 
end;

Warum so kompliziert mit PByte, Pointerinkrementierung ect.?

Delphi-Quellcode:

function SimpleCryptString(const S, Key: string): string;
var
  i: integer;
begin
  setLength(result, length(s));
  for i := 1 to length(s) do
    result[i] := chr(ord(S[i]) xor ord(Key[i mod length(Key) + 1]));
end;

greetz
Mike

[EDatabaseError]

Suuuper danke! Funktoniert!

Mfg

[EDatabaseError]

In deinem Code wird mir leider die 1 verschluckt

Mfg
Tobi

[JasonDX]

Zitat von EDatabaseError:

In deinem Code wird mir leider die 1 verschluckt

Du meinst vom Key? Er faengt nicht direkt beim 1. Zeichen an, sondern beim zweiten. Nach length(Key)-1 Zeichen wird auch das erste Zeichen des Keys verwendet
Kann man natuerlich auch aendern:
result[i] := chr(ord(S[i]) xor ord(Key[(i - 1) mod length(Key) + 1])); greetz
Mike

[EDatabaseError]

öhm, ne ich meinte folgendes:
"web47f1" verschlüssle ich und das entschlüsselte ist dann aber "web47f"

Mfg
Tobi

[shmia]

Zitat von JasonDX:

Warum so kompliziert mit PByte, Pointerinkrementierung ect.?

Das habe ich irgendwann mal verbrochen, um möglichst hohe Geschwindigkeit zu erreichen.
Die Funktion ist korrekt; man muss aber darauf achten, das der verschlüsselte String auch Chr(0) enthalten kann.
Wenn man den verschlüsselten Text speichern möchte (z.B. in INI-Datei, Datenbank) sollte man zusätzlich noch BASE64 kodieren.