Anti Kapersky etc... Selber Coden

[BlackSpike666]

Hey

Kennt oder hat jemand nen Source Code von einem Anti Kaspersky/ Anti Sandbox usw. Programm.
Also das bevor ein server ausgeführt wird erst geschaut wird ob Kasp. exe oder so läuft wenn nicht das der server ganz normal ausgeführt wird und wenn die Kasp. exe läuft der server nicht ausgeführt wird

Versuche es selber zu schreiben da ich nirgends was gutes finde...
Komme aber leider nicht wirklich weiter, bin noch nicht gut im coden...

GryZZi BlackSpike666 :twisted:

[o_O]

Komme aber leider nicht wirklich weiter, bin noch nicht gut im coden...

An welcher Stelle hängt es den bei dir genau ?

[kInGoFcHaOs]

kleiner tipp... du musst nicht umbedingt versuchen die exe zu killen

[zug404]

Eigentlich shcon aber für mich nicht da ich dmenächst vllt Delphi lerne will ich wissen wie lange ein Profi für sowas braucht.
Nebenbei (musst nicht die Frage beantworten) Wie lange lernst du schon Delhi ??

[BlackSpike666]

Ich beschäftige mich seit einem viertel jahr damit aber kaum zeit mich großartig zu verbessern. :?
Ich komme am eigendlichen Programm nicht weiter, was das programm machen muss
um den server erst zu starten wenn es geprüft ob die die Kas. exe läuft und dass wenn die exe nicht läuft dann den server ganz normal ausführen lässt....
:x

[K1ngC0bra]

Dann suche doch einfach nach einem Prozess von Kaspersky, oder nach einem Fenstertitel oder was auch immer.
Tipp einfach mal Delphi-Foren abklappern und nach "läuft ein Programm" suchen.

[Wängsta]

gibt es sowas denn nich schon im netz also das mit sandboxie hab ich mal irgendwo gelesen.....

[K1ngC0bra]

http://swissdelphicenter.ch/de/showcode.php?id=2369
http://swissdelphicenter.ch/de/showcode.php?id=1819

[VincentSX]

Sollte eigentlich relativ einfach zu lösen sein...

Die wirklich _einfachste_ Version Wäre:

{$APPTYPE CONSOLE}

uses
   Windows,
   SysUtils,
   TlHelp32,
   Dialogs;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

begin
   if processExists('delphi32.exe') then ExitProcess(0)
   else
   // bla bla  bla
   ShowMessage('process is not running')
end.

Wie gesagt das wäre die billigste var. Wenn man sich ein wenig näher mit befasst kommen einem sicherlich noch bessere Ideen um das ganze zu perfektionieren...

btw: Die funktion " processExists" ist vom "swissdelphicenter.ch" (Andy) :wink:

[kInGoFcHaOs]

ich sags nochmal... warum die EXE killen ? ^^