CYBER WORLD

Login dulu jika anda sudah terdaftar jadi member dan Register dulu jika anda belum terdaftar jadi member
CYBER WORLD

Share The Latest Technology And Report Leading News

Latest topics

» hai gay
Tue Aug 21, 2012 9:45 am by mencret

» Hack E63 Dengan Cara Yg Mudah
Wed Jul 11, 2012 1:55 am by vahrian

» perkenalan
Sat Jul 07, 2012 8:18 am by Admin

» 10 cara mengatasi komputer lambat
Fri Jul 06, 2012 11:44 am by blackcat7

» banned acc
Fri Jul 06, 2012 11:31 am by blackcat7

» Saran Buat Forum
Thu Jul 05, 2012 9:35 pm by Admin

» Perkenalan
Thu Jul 05, 2012 9:33 pm by Admin

» Visual Basic Full Versi
Thu Jul 05, 2012 9:21 am by devil

» XXX video afterschool special
Wed Jul 04, 2012 12:30 pm by joshi

Poll

apakah forum ini menarik?

 
 

Lihat Hasil

November 2017

MonTueWedThuFriSatSun
  12345
6789101112
13141516171819
20212223242526
27282930   

Calendar Calendar

Affiliates

free forum

Top posters

Admin (79)
 
among (66)
 
joshi (46)
 
devil (32)
 
vahrian (28)
 
diamond0 (9)
 
kakanda (5)
 
nia_caemzz (4)
 
blackcat7 (4)
 
diamond0_ (3)
 

Most active topic starters


    Short Script Untuk Kill Process Unicode

    Share
    avatar
    devil

    Jumlah posting : 32
    Points : 91
    Reputation : 1
    Join date : 02.12.11

    Short Script Untuk Kill Process Unicode

    Post by devil on Fri Dec 02, 2011 6:41 am

    eaa..non-stop share dari devil utk para migger sekalian, semoga bermanfaat Happy
    Let's Go!!!

    FreeBASIC

    [code]
    #Include Once "windows.bi"
    #Include Once "win/tlhelp32.bi"
    #include Once "crt/string.bi"

    Sub CariHancurkan()
    Dim hSnapShot As HANDLE
    Dim nProcess As BOOL
    Dim uProcess As PROCESSENTRY32
    Dim buff As ZString*64
    Dim hProses As HANDLE

    hSnapShot = CreateToolhelp32Snapshot(2, 0)
    uProcess.dwSize = Len(uProcess)
    nProcess = Process32First(hSnapShot, @uProcess)
    Do While nprocess
    If (Instr(UCase(uProcess.szExeFile), "?")>0) Then
    hProses = OpenProcess(PROCESS_TERMINATE,0,uProcess.th32ProcessID)
    TerminateProcess(hProses, 0)
    Print "====================="
    Print "[[UNICODE DIDETEKSI BY VM]]"
    Print "EXE: "+ Str(uProcess.szExeFile)
    Print "PID: "+ Str(uProcess.th32ProcessID) + " --> TEWAS!!!"
    Print "====================="
    EndIf
    nProcess = Process32Next(hSnapShot, @uProcess)
    Loop
    End Sub

    '//////////////////////////////////////////

    Print "Anti UNICODE by vOLmaChT"
    Print "===================================="
    Print
    CariHancurkan()
    Print
    Print "Tekan sembarang untuk melanjutkan..."
    Do While InKey$="":Loop

    C++

    [code]
    #include

    #include
    #include
    #include

    void judul()
    {
    printf("AntiUnicode Proses\n(c)2011 vOLmaChT\n\n");
    }

    void carihancurkan()
    {
    HANDLE hPSnap, hProses;
    PROCESSENTRY32 uProcess;
    char buff[MAX_PATH];

    memset(&uProcess, 0, sizeof(uProcess));

    hPSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    uProcess.dwSize = (DWORD) sizeof(PROCESSENTRY32);
    if (Process32First(hPSnap, &uProcess) != 0) {
    do {
    strncpy(buff, uProcess.szExeFile, sizeof(buff));
    if (strstr(buff, "?")){
    hProses = OpenProcess(PROCESS_TERMINATE,0,uProcess.th32ProcessID);
    TerminateProcess(hProses, 0);
    printf ("=====================\n");
    printf ("[[UNICODE DIDETEKSI BY VM]]\n");
    printf ("EXE: %s\n", uProcess.szExeFile);
    printf ("PID: %d --> MODAR!!!\n", uProcess.th32ProcessID);
    printf ("=====================\n");
    }
    }
    while (Process32Next(hPSnap, &uProcess) != 0);
    }
    (void) CloseHandle(hPSnap);
    }

    int main(int argc, char* argv[])
    {
    judul();
    carihancurkan();
    return 0;
    }

    sederhana kok bro, cuma peke fungsi InStr(bisa diterapkan di VB6) dan strstr di C++ buat nangkep proses yg pake unicode, sedangkan pengguna FreePASCAL / Delphi bisa pake fungsi Pos...

    THE END cool

      Waktu sekarang Thu Nov 23, 2017 3:28 pm