Fehler bei XOR-Verschlüsslung?

[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