[DungeonLords]

Бесплатно и почтой! А вообще тупой вопрос. Попробывал бы и узнал. Всё равно насильно деньги никто не снимет.

[DKV]

Господа уважаемые не ругайтесь и вообще это у меня тупой вопрос не так ли?

[DKV]

Кстати спасибо тебе за книгу она оказалась очень даже интересная

[:S.p.a.m.]

Delphi глазами хакера для тех кто там не нашел. Тут 100% можно скачать

Думаю там ты найдеш все вопросы про вирусы, так как тут помойму запрещены такие темы (как еще администрация не закрыла тему эту )

[Vayrus]

> НО во-первых это противозаконно, во-вторых большинство вирусописателей не только не пишут вирусы на Delphi, а даже презирают его!

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

[DKV]

Уважаемый S.p.a.m. я вроде выше уже написал, что не собираюсь писать вирусы и полностью присоединяюсь к словам Vayrus'а а за книгу конечно спасибо но эту книгу я читал ещё в 2006 году. книга действительно хорошая

[DKV]

Ребята я опять возвращаюсь к своему вопросу. Я тут рылся в тегах и нашёл там вот это:

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;"
подскажите может я чего-то забыл?
Спасибо.

[Vayrus]

В Uses добавь TlHelp32

[DKV]

Ага у сё понятно

[DKV]

теперь на это ругается "ContinueLoop: BOOL;" вот зануда!

[DKV]

всё дошло я ещё забыл поставить Windows работаю в {$APPTYPECONSOLE}

[Interface]

> НО во-первых это противозаконно, во-вторых большинство вирусописателей не только не пишут вирусы на Delphi, а даже презирают его!

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

Нет, не загнул! Я даже представить не могу зачем вирусу формы, кнопки и прочее, что отличает паскаль от Дельфи. Автор мог сказать что угодно... ну давайте вирусы, форматирующие ЖД, сжигающие, ломающие комп назовем программами-шутками

-Ой у меня комп сломался... =(
-Это я пошутил так...

Бесплатно и почтой! А вообще тупой вопрос.

Нет не тупой! Кто тебя знает, на что ты даешь ссылку...

(как еще администрация не закрыла тему эту)

Ага, а знаете что самое обидное? Когда я назвал Джойнер (в шутку) троянкритером - это плохо! А когда человек открыто спрашивает о создании (возмоно это и не так) вируса - это хорошо...

[DKV]

Сообщение от Interface

Нет, не загнул! Я даже представить не могу зачем вирусу формы, кнопки и прочее, что отличает паскаль от Дельфи. Автор мог сказать что угодно... ну давайте вирусы, форматирующие ЖД, сжигающие, ломающие комп назовем программами-шутками


Нет не тупой! Кто тебя знает, на что ты даешь ссылку...

Ага, а знаете что самое обидное? Когда я назвал Джойнер (в шутку) троянкритером - это плохо! А когда человек открыто спрашивает о создании (возмоно это и не так) вируса - это хорошо...

Уважаемый Interface если вы так этого боитесь приобретите себе Антивирус если хотите могу даже посоветовать какой :rolleyes

[Vayrus]

> Нет, не загнул! Я даже представить не могу зачем вирусу формы, кнопки и прочее, что отличает паскаль от Дельфи. Автор мог сказать что угодно... ну давайте вирусы, форматирующие ЖД, сжигающие, ломающие комп назовем программами-шутками

Еще раз повторяю, писать уметь надо, причем тут формы, пишите на API, и вообще, грубо говоря, Delphi основан на Pascal'е. И перестань флудить

[Sultan]

Вот тебе один из возможных вариантов имитации зависания компа:

1. просто делаешь скрин экрана, ставишь его, убераешь все ярлыки, панель пуск, блок клаву и мышь от тебе и висячий1 комп.

Хоть это конешно не лучшее решение для данного случая но как вариан...

2.так жэ можна попробывать набить какойто тектовый файл тонной информации и заставить комп его считывать))) но думаю этот вариант на сегодняшний день можэт быть даже незаметен для компа жертвы))), хотя если производить чтение файла в цыкле товозможно и получится, надо експерементировать))... но как по мне так наиболее подходящий первый вариант))