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/

[Larsi]

nö hab ich nicht, ging aber vor nem jahr auch ohne!^^

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Hast Du denn das DEC installiert?

*hust* Das DEC kann man nicht installieren, sondern nur Einbinden. :tongue: *hust*

[Larsi]

Cool mit DEC geht DEC ja^^ Dankeschön!!! Aber komischerweise meint Delphi jetzt dass da:

Delphi-Quellcode:

ShellExecute('%SystemRoot%\system32\blabla.exe', SW_Show);

ein Fehler drinnen ist, hab ich da was falsch gemacht oder hat das was mit DEC zu tun? Shellapi ist eingebunden!

[DeddyH]

ShellExecute erwartet ein paar Parameter mehr.

[edit] @Manuel :tongue: [/edit]

[Nuclear-Ping]

Zitat:

Zitat von Larsi

Cool mit DEC geht DEC ja^^ Dankeschön!!! Aber komischerweise meint Delphi jetzt dass da:

Delphi-Quellcode:

ShellExecute('%SystemRoot%\system32\blabla.exe', SW_Show);

ein Fehler drinnen ist, hab ich da was falsch gemacht oder hat das was mit DEC zu tun? Shellapi ist eingebunden!

Delphi-Quellcode:

WinExec('%SystemRoot%\system32\blabla.exe', SW_Show);

[Larsi]

Das funktioniert leider auch nicht:
winexec('%SystemRoot%\system32\osk.exe', SW_Show);
Kommen zwar keine Fehler bei Kompillieren aber wenn ich auf den Button dafür klicke passiert nichts. Oder muss ich die Windows Bildschirm Tastatur anders aufrufen? Wenn ich den Pfad unter Ausführen eingebe funktioniert es!


Bitte helft mir!

[Die Muhkuh]

Benutz ShellExecute richtig...

[Larsi]

Und wie?

[Nuclear-Ping]

Ich glaube nicht, dass WinExec die System-Platzhalter ersetzt. Da mußte wahrscheinlich selber ran. Schau mal hier: http://msdn2.microsoft.com/en-us/library/bb762203.aspx

[TurboMartin]

Zitat:

Zitat von Nuclear-Ping

Delphi-Quellcode:

WinExec('%SystemRoot%\system32\blabla.exe', SW_Show);

:shock:
Das ist aus Zeiten von Win9x und gibt es jetzt nicht mehr!

[Larsi]

Und ersetzt Shellexecute die?

[Nuclear-Ping]

Nein.

[Nuclear-Ping]

Zitat:

Zitat von TurboMartin

Zitat:

Zitat von Nuclear-Ping

Delphi-Quellcode:

WinExec('%SystemRoot%\system32\blabla.exe', SW_Show);

:shock:
Das ist aus Zeiten von Win9x und gibt es jetzt nicht mehr!

Totaler unsinn. WinExec funktioniert selbst unter Vista noch und ich gehe auch davon aus, dass es das im nächsten und übernächsten und ... Windows auch noch macht.

Wenn man's genau nehmen will, ist ShellExecute auch nicht dazu gedacht, Programme zu starten.

[Die Muhkuh]

Alternativ gäbe es auch noch CreateProcess ;-)

[Nuclear-Ping]

Eben, aber nem offensichtlichen Anfänger jetzt das noch zuzumuten wäre wohl mit Kanonen auf Spatzen geschossen. ;)

[Larsi]

danke jetzt getzt! Hab die Klammern mit einer Funktion names GetEnvVarValue gelöst, noch mal ganz großes Danke an euch!

[TurboMartin]

Zitat:

Zitat von Nuclear-Ping

Zitat:

Zitat von TurboMartin

Zitat:

Zitat von Nuclear-Ping

Delphi-Quellcode:

WinExec('%SystemRoot%\system32\blabla.exe', SW_Show);

:shock:
Das ist aus Zeiten von Win9x und gibt es jetzt nicht mehr!

Totaler unsinn. WinExec funktioniert selbst unter Vista noch und ich gehe auch davon aus, dass es das im nächsten und übernächsten und ... Windows auch noch macht.

Wenn man's genau nehmen will, ist ShellExecute auch nicht dazu gedacht, Programme zu starten.

Zitat:

Zitat von http://msdn2.microsoft.com/en-us/library/ms687393(VS.85).aspx

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

[Florian H]

Zitat:

Zitat von TurboMartin

Zitat:

Zitat von Nuclear-Ping

Totaler unsinn. WinExec funktioniert selbst unter Vista noch und ich gehe auch davon aus, dass es das im nächsten und übernächsten und ... Windows auch noch macht.

Wenn man's genau nehmen will, ist ShellExecute auch nicht dazu gedacht, Programme zu starten.

Zitat:

Zitat von http://msdn2.microsoft.com/en-us/library/ms687393(VS.85).aspx

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

Und wo steht da jetzt, dass es die Funktion abseits von Win9x nicht mehr gibt?
Klar ist sie veraltet, aber sämtliche aktuellen windows-Betriebssysteme unterstützen sie noch, einschließlich Vista. Und nichts anderes hat TurboMartin gesagt ;)

[DeddyH]

Zitat:

Zitat von Florian H

Und nichts anderes hat TurboMartin gesagt :wink:

Du meinst Nuclear-Ping ;)

[Phoenix]

Zitat:

Zitat von Nuclear-Ping

Totaler unsinn. WinExec funktioniert selbst unter Vista noch und ich gehe auch davon aus, dass es das im nächsten und übernächsten und ... Windows auch noch macht.

Halber Unsinn :-p
Vista x64 bringt das 16bit Subsystem nicht mehr mit, und deswegen gibt es dort auch die Unterstützung von WinExec schon nicht mehr.

Ich gehe eher davon aus, dass der Vista Nachfolger das 16bit Subsystem auch in seiner 32bit Variante schon nicht mehr mitbringt.

Edit: Zitat korrigiert. Danke für den Hinweis, Manuel ;-)

[Nuclear-Ping]

Echt? Unter Vista x64 gibts das schon net mehr? Direkt mal testen. :shock:

Das WinExec "deprecated" ist, weiß ich. Mich hat von TurboMartin nur die Aussage gestört, dass es a) aus Win9x kommt (afaik kommts aus Win 3.1) und dass es sie b) jetzt nicht mehr gibt, was eben auch nicht so der Wahrheit entspricht.

[Nuclear-Ping]

Geht noch unter Vista x64. Getestet.