hagencode.pas?

[Larsi]

Hi, ich benötige schnell die Datei hagencode.pas für meinen Password Saver, da es zu Fehlern kommt wenn ich dieses hier verwende:

Delphi-Quellcode:

type
  TRC4Context = record
    D: array[Byte] of Byte;
    I,J: Byte;
  end;

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;

procedure RC4Code(var RC4: TRC4Context; const Source; var Dest; Count: Integer);
var
  S: Integer;
  T: Byte;
begin
  with RC4 do
    for S := 0 to Count -1 do
    begin
      Inc(I);
      T := D[I];
      Inc(J, T);
      D[I] := D[J];
      D[J] := T;
      Inc(T, D[I]);
      TByteArray(Dest)[S] := TByteArray(Source)[S] xor D[T];
    end;
end;

procedure RC4Done(var RC4: TRC4Context);
begin
  FillChar(RC4, SizeOf(RC4), 0);
end;

Ist das überhaupt die Datei hagencode.pas?


MFG Lars Wiltfang

[mkinzler]

Sieht aus wie ein Teil aus Hagen/negaH s DEC

[DeddyH]

hagencode.pas? Hab ich noch nie von gehört, wird aber wohl, wenn überhaupt, zum DEC gehören.

[Larsi]

http://www.delphipraxis.net/internal...ct.php?t=47586

Da wurde von der Datei berichtet und die brauche ich jetzt. Also ich habe schon die Datei tRcxStreamDecorater.pas und die Datei Rcx.pas eingebunden aber Delphi will dann noch die Datei HaGenCode.pas haben. Und meine Frage ist jetzt ob das die ist? Oder wie ich die finden kann!

[DeddyH]

Hast Du doch fast selbst gepostet: http://www.delphipraxis.net/internal...ct.php?t=30830

[Larsi]

Ok, danke :) Aber bei der Ausführung meckert Delphi jetzt wieder bei der Datei Rcx.pas mit folgenden Fehlermeldungen:
[Pascal Hinweis] RCx.pas(76): H2077 Auf 'L' zugewiesener Wert wird niemals benutzt
[Pascal Hinweis] RCx.pas(75): H2077 Auf 'T' zugewiesener Wert wird niemals benutzt
[Pascal Hinweis] RCx.pas(74): H2077 Auf 'S' zugewiesener Wert wird niemals benutzt
[Pascal Hinweis] RCx.pas(73): H2077 Auf 'R' zugewiesener Wert wird niemals benutzt
[Pascal Hinweis] RCx.pas(48): H2164 Variable 'K' wurde deklariert, aber in 'RCxInit' nicht verwendet
[Pascal Fehler] RCx.pas(196): E2003 Undefinierter Bezeichner: 'GetTickCount'
[Pascal Fataler Fehler] RCStreamDeco.pas(36): F2063 Verwendete Unit 'RCx.pas' kann nicht compiliert werden


dann steht in den uses von meinem programm auch noch was von DECCipher? wo finde ich denn das?????

[DeddyH]

Binde mal die Unit Windows und die Dateien des DEC mit ein.

[Larsi]

Woher wisst Ihr das alles^^. Danke das hat jetzt funktionier aber jetzt bracuht Delphi noch die Datei DECCipher.pas/dcu, wo finde ich die?

[DeddyH]

Hast Du denn das DEC installiert?

[mkinzler]

http://www.michael-puff.de/Developer...agen_Reddmann/