Hallo zusammen!
Interessiert habe ich die RC4 Beiträge gelesen...hab dann die vorgeschlagenen
Funktionen auch gleich ausprobiert.
Unter Delphi 6 läuft alles einwandfrei
Doch unter Delphi 8.NET hat der Compiler keine Freude am Datentype "PByteArray"
Hat jemand ne Ahnung wie man diesen Code ändern muss damit er auch .NET kompatibel ist?
Danke im voraus
Delphi-Quellcode:
procedure RC4Init(var RC4: TRC4Context; const Key: String);
var
R,S,T,K: Byte;
U,L: Integer;
begin
L := Length(Key);
with RC4 do
begin
I := 0;
J := 0;
for S := 0 to 255 do D[S] := S;
R := 0;
U := 0;
for S := 0 to 255 do
begin
if U < L then K := PByteArray(Key)[U] else K := 0;
Inc(U);
if U >= L then U := 0;
Inc(R, D[S] + K);
T := D[S];
D[S] := D[R];
D[R] := T;
end;
end;
end;