Short Script Untuk Kill Process Unicode

eaa..non-stop share dari devil utk para migger sekalian, semoga bermanfaat
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