Übersetzungsprobleme c -> delphi

[Hybrid666]

Zitat von negaH:

Delphi-Quellcode:

J := 0;
for I := 1 to Length(Text) do
begin
  Text[I] := Char(Ord(Text[I]) xor Ord(Schlüssel[J +1]));
  J := (J +1) mod Length(Schlüssel);
end;

// oder

J := 1;
for I := 1 to Length(Text) do
begin
  Text[I] := Char(Ord(Text[I]) xor Ord(Schlüssel[J]));
  Inc(J);
  if J > Length(Schlüssel) then J := 1;  
end;

// oder

for I := 0 to Length(Text) -1 do
  Text[I +1] := Char(Ord(Text[I +1]) xor Ord(Schlüssel[I mod Length(Schlüssel) +1]));

Aber diese Art der Verschlüsselung ist eh sehr unsicher.
Obige Sourcen gehen davon aus das Text und Schlüssel LongStrings -> String Typen sind.

Gruß Hagen

wow danke...das das unsicher ist ist in dem fall egal...

das soll nur in ne DLL rein...ich bin gamers.IRC coder und wir wollen die verkrüppelte $decode und $encode durch ne DLL ersetzen weil das $decode nicht alles wieder ins reine bringen kann was $encode ausspuckt (vor allem bei sehr langen texten) und ich schreib einfach ne DLL die die config file direkt schreibt sodass man nicht nur aus ner ini file was ins gIRC kopieren muss um das auth PW zu haben ^^

MfG Hybrid666