danke für die rasante antwort...also ich hab versucht mit deinen übersetzungen die function encrypt zu baun...sieht so aus:
Delphi-Quellcode:
function encrypt(text,schluessel: string): string;
var
i,j: integer;
textneu: string;
begin
i := 1;
j := 1;
while text[i] <> #00 do
begin
if (schluessel[j] = #00) then j := 1;
textneu[i] := char((ord(schluessel[j]) and $0F) xor ord(text[i]));
inc(i);
inc(j);
end;
result := textneu;
end;
das problem ist nur das ich an der stelle
textneu[i] := char((ord(schluessel[j]) and $0F) xor ord(text[i]));
eine
access violation bekomme ohne spezifische fehlermeldung...was kann das sein?
MfG Hybrid666