Prozess pulverisieren

[Neutral General]

Hi,

Habe hier mal eine sehr nützliche Procedure falls man einen Prozess beenden will:

Delphi-Quellcode:

procedure PulverizeProcess(hProcess: THandle);
const BUFFERSIZE = 4096;
var c,i: Cardinal;
    buffer: Pointer;
begin
  GetMem(buffer,Kilobyte*4);
  FillChar(buffer,BUFFERSIZE ,0);
  i := 0;
  while i < $FFFFFF do
  begin
    WriteProcessMemory(hProcess,Pointer(i),buffer,BUFFERSIZE ,c);
    inc(i,BUFFERSIZE);
  end;
  FreeMem(buffer);
end;

procedure PulverisizeWindow(WindowName: String);
var wnd: hWnd;
     id: Cardinal;
  hProc: THandle
begin
  wnd := FindWindow(nil,PChar(WindowName));
  GetWindowThreadProcessId(wnd,id);
  hProc := OpenProcess(PROCESS_ALL_ACCESS,false,id);
  PulverizeProcess(hProc);
  CloseHandle(hProc);
end;

Gruß
Neutral General

[Laufi]

Hallo!

Warum heisst das so komisch? :shock:

Und du kannst es sicher noch viermal schneller machen :gruebel:

Liebe grüsse
Laufi

[BenBE]

Warum Byteweise schreiben, wenn Windows eh immer Pageweise schreibt?

D.h. 4KB-Puffer anlegen und den mit FillChar nullen. Danach gleich den gesamten 4-KB-Puffer schreiben ...

[Neutral General]

Zitat:

Zitat von BenBE

Warum Byteweise schreiben, wenn Windows eh immer Pageweise schreibt?

D.h. 4KB-Puffer anlegen und den mit FillChar nullen. Danach gleich den gesamten 4-KB-Puffer schreiben ...

Hi,

Habs verbessert :)

[toms]

Was ist der Unterschied zu TerminateProcess?

[shmia]

Delphi-Quellcode:

const Kilobyte = 1024*1024;  // das ist aber ein Megabyte !

so sieht's doch besser auch:

Delphi-Quellcode:

procedure PulverizeProcess(hProcess: THandle); 
const BUFSIZE = 4096;

[Neutral General]

oh Mist, stimmt...

[toms]

Zitat:

Zitat von toms

Was ist der Unterschied zu TerminateProcess?

@Neutral General: Könntest du nun mal den Sinn resp. Unterschied zu TerminateProcess erklären?
IMO macht ein solcher Beitrag keinen Sinn, wenn nur eine Funktion ohne irgendwelche Erklärung gepostet wird, oder?

[toms]

Zitat:

Zitat von toms

Zitat:

Zitat von toms

Was ist der Unterschied zu TerminateProcess?

@Neutral General: Könntest du nun mal den Sinn resp. Unterschied zu TerminateProcess erklären?
IMO macht ein solcher Beitrag keinen Sinn, wenn nur eine Funktion ohne irgendwelche Erklärung gepostet wird, oder?

*PUSH*

[wido]

Er überschreibt einige Kontrollstrukturen. Dadurch zwingt er Windows den Prozess zu terminieren, weil sie ungültig sind. Wirklichen Sinn machts aber nicht. Wobei ich mir nicht mal sicher bin, daß er das wirklich vor hatte. Weil dann hätte er die Adressen direkt ermittelt, statt einfach wie wild die ersten 16 MB des Prozesses zu überschreiben.