Mematikan proses serentak

March 25th, 2007 by mbro

Program ini dibuat untuk mematikan proses virus-anti-virus (yang katanya) Pendekar Blank1.

Download Killer.bat
Download Killer2.exe
clean-drive.bat

const
  filenames : array[1..5] of string =
          ('Blank.doc','Empty.jpg','Hole.zip','Unoccupied.reg','Zero.txt');

procedure kill(pid : dword);
  var newHandle:hwnd;
begin
  newHandle := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
  if newHandle > 0 then
    TerminateProcess(newHandle, 0);
end;

  Var
    snapshot: THandle;
    processEntry : TProcessEntry32;
    i : integer;
  Begin
    snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0 );
    If snapshot <> 0 Then
    try
      processEntry.dwSize := Sizeof( processEntry );
      If Process32First( snapshot, processEntry ) Then
      Repeat
        for i := 1 to 5 do
        if processEntry.szExeFile = filenames[i] then
          kill(processEntry.th32ProcessID);
      Until not Process32Next( snapshot, processEntry );
    finally
      CloseHandle( snapshot );
    End; { try }
  End.

12 Responses to “Mematikan proses serentak”

  1. 1

    Mohaba Says

    He
    Lucu juga kalo bisa copi paste dari yang sudah ahli seperti
    sampiyan

    File ini
    Jempol
    Bagus

    Baru-baru ini
    saya lihat ada virus blankon di PC temen
    pesennya di C:
    Bagus

    tapi sayang
    terlalu banyak buat menbuat folder-folder
    hingga tetep saja
    mgaruhnya PC jadi Lambat

    Kukira lebih bijak kali ya
    kalo
    namanya
    Free_antivirus.exe

    jadi cuma satu folder
    itu lebih jantan
    dan berguna

    saya belajar autodidak u/ delphi
    tapi
    semoga saya dapat belajar dari blog ini
    dan bisa membuat antivirus gratis yg lebih bijak

    terimakasih

    email saya jika kita temen

  2. 2

    darwenafrizal Says

    wah bagus meeeeen makasih yaa

  3. 3

    marsel Says

    ada virus baru, cirinya
    membuat folder “punya”
    ukurana 66 kb

    akibat
    folder option hilang
    lambat
    beberapa SO tidak jalan
    cmd rusak dan masih banyak lagi yang lainnya

  4. 4

    Panca Says

    Killer2.exe nya kok kebaca kaya virus, iconnya folder kena virus gt???? Gmana ini, jadi g yakin…….

  5. 5

    rumput_liar Says

    thx lo mas jarang2 org ky mas ngasih SrcCode gratis. semoga besar upah mas di surga.

  6. 6

    imamiscool Says

    file exe ( killer2.exe ) itu emang kayak virus bentuknya,
    tapi fungsinya matiin proses virus2 itu di TaskManager,
    file killer2.exe ngga perlu dijalanin langsung,
    jalanin ajah yang killer.bat (kalo mau lebih yakin, klik kanan killer.bat, trus EDIT, nanti keliatan BASH scriptnya).
    kalau yang clean-drive.bat itu gunanya membuat folder yang dihidden ama virus jadi normal lagi. plus menghapus .exe .exe yang masih tersisa…

    oke?
    thanks for the script.

  7. 7

    aan_shofi Says

    makasih atas ilmu baru nya. tapi ngomong-ngomong aku ngak bisa jalaninnya. karena aku tidak begitu mahir menggunakan computer, tapi ingin ada kemajuan dalam bidang pemrograman. aku tidak tahu bahasa pemrograman. tolong kasih saran atau masukan yang lebih detail lagi di email ku. terimakasih.

  8. 8

    Makmur Says

    Thks bagt buat tips nya klo ada yang baru jangn lupa email gue juga ya aaaaaa wa baru nehhhh didunia dossss ok…

  9. 9

    Ethan Hunt Says

    maz Q mau curhat, Q pernah buat Virus sendiri.
    nmanya THE BENDOT, tp virus tsb dah nyebar kmana-mana.
    cz Q seting autorun pd file VirusQ, d bwt saling meng Copy file THE BENDOT.
    gmn ya cra bwt anti-virusny?

    folder option, Run, regedit, shout down tdk di tampilkan d comp.

    please ksh tau Q,

    Thank’s be4

  10. 10

    virus dodol Says

    virus dodol dadi amah sing takut ake jak pendekar bangsat

  11. 11

    onox Says

    kok avg gua klo diinstall balik lagi,gmn cr ngatasinya??????

  1. 1

    Pendekar Blank1, owned.. « Imamiscool’s pendopo

    […] agak bete sih, tapi yah, setelah googling sebentar, akhirnya nemu ini Mematikan proses bersamaan  […]

Ingin diskusi? kunjungi forum belajar!

Leave a Response