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
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 "===================================="
CariHancurkan()
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
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