|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Бесплатно и почтой! А вообще тупой вопрос. Попробывал бы и узнал. Всё равно насильно деньги никто не снимет.
Последний раз редактировалось DungeonLords, 06.02.2009 в 09:30. |
#17
|
|||
|
|||
DKV
Господа уважаемые не ругайтесь и вообще это у меня тупой вопрос не так ли?
|
#18
|
|||
|
|||
DKV
Кстати спасибо тебе за книгу она оказалась очень даже интересная
|
#19
|
||||
|
||||
Delphi глазами хакера для тех кто там не нашел. Тут 100% можно скачать
Думаю там ты найдеш все вопросы про вирусы, так как тут помойму запрещены такие темы (как еще администрация не закрыла тему эту ) |
#20
|
||||
|
||||
> НО во-первых это противозаконно, во-вторых большинство вирусописателей не только не пишут вирусы на Delphi, а даже презирают его!
Ну ты загнул и вообще писать уметь надо А кто здесь помогает вирус писать ??? Автор четко сказал что это не вирус, в любом случае это больше будет смахивать на программу-шутку, по крайней мере для меня. Книжку я видел, пойдет для начинающих, а так ничего сверхъестественного. |
#21
|
|||
|
|||
Уважаемый S.p.a.m. я вроде выше уже написал, что не собираюсь писать вирусы и полностью присоединяюсь к словам Vayrus'а а за книгу конечно спасибо но эту книгу я читал ещё в 2006 году. книга действительно хорошая
|
#22
|
|||
|
|||
Ребята я опять возвращаюсь к своему вопросу. Я тут рылся в тегах и нашёл там вот это:
uses SysUtils; const PROCESS_TERMINATE = $0001; var FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; ContinueLoop: BOOL; begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if LowerCase(ExtractFileName( (FProcessEntry32.szExeFile))) = 'kernel32.dll' then if not (TerminateProcess( OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)) then MessageBoxEx(Application.Handle, 'Can`t kill windows kernel...', 'Warning', MB_ICONWarning + MB_OK, $0419); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; но он у меня ругается на "FProcessEntry32: TProcessEntry32;" подскажите может я чего-то забыл? Спасибо. |
#23
|
||||
|
||||
В Uses добавь TlHelp32
|
#24
|
|||
|
|||
Ага у сё понятно
|
#25
|
|||
|
|||
теперь на это ругается "ContinueLoop: BOOL;" вот зануда!
|
#26
|
|||
|
|||
всё дошло я ещё забыл поставить Windows работаю в {$APPTYPECONSOLE}
|
#27
|
||||
|
||||
Цитата:
Цитата:
Цитата:
Цитата:
Я ни в чем никогда не уверен... И в этом тоже... |
#28
|
|||
|
|||
Цитата:
Уважаемый Interface если вы так этого боитесь приобретите себе Антивирус если хотите могу даже посоветовать какой :rolleyes |
#29
|
||||
|
||||
> Нет, не загнул! Я даже представить не могу зачем вирусу формы, кнопки и прочее, что отличает паскаль от Дельфи. Автор мог сказать что угодно... ну давайте вирусы, форматирующие ЖД, сжигающие, ломающие комп назовем программами-шутками
Еще раз повторяю, писать уметь надо, причем тут формы, пишите на API, и вообще, грубо говоря, Delphi основан на Pascal'е. И перестань флудить |
#30
|
|||
|
|||
От Вам и зависание
Вот тебе один из возможных вариантов имитации зависания компа:
1. просто делаешь скрин экрана, ставишь его, убераешь все ярлыки, панель пуск, блок клаву и мышь от тебе и висячий1 комп. Хоть это конешно не лучшее решение для данного случая но как вариан... 2.так жэ можна попробывать набить какойто тектовый файл тонной информации и заставить комп его считывать))) но думаю этот вариант на сегодняшний день можэт быть даже незаметен для компа жертвы))), хотя если производить чтение файла в цыкле товозможно и получится, надо експерементировать))... но как по мне так наиболее подходящий первый вариант)) |