Einzelnen Beitrag anzeigen

Benutzerbild von guinnes
guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
 
Delphi 5 Enterprise
 
#103

Re: Virus infects Delphi

  Alt 19. Aug 2009, 18:15
Zitat von sirius:
guinnes, mit der Zeile und der folgenden testet er nur, ob die Datei bereits existiert. Arbeiten tut der Virus mit den Pascal-herkömmlichen Varianten (assignfile, reset, rewrite).
Das ist richtig, aber was tut dann das :
Delphi-Quellcode:
 if h <> DWORD(-1) then
  begin
    CloseHandle(h);
    exit;
  end;
Ungültiges Handle -> mach weiter, sonst mach dich vom Acker
Glückauf
  Mit Zitat antworten Zitat