Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: 1 2 3 4 5 След.
RSS
Пишу вирус на Делфи, Помогите Please
 
Пробую написать вирус на Делфи который находит файл(группу файлов) по маске и уделеят его(их). Например *.doc. Но получается что он находит файл только в текущем или заданном каталоге, а мне надо чтобы искал на всех дисках.

Помогите пожалуйста столько литературы прочитал и все бестолку.
Заранее спасибо!!!!!
 
Цитата
Пробую написать вирус на Делфи
Ух скоко вас !!
а вообше попробуй цыкл ченить типа
file := file+"../"
 
Начни с малого. Пусть пока удаляет только определенный типы файлов из определенных директорий. Из системных например ;) . А вообще ИМХО вирус на Delphi - извращение. Хотя если на чистом API пишешь...
 
Хм, лучше бы вы писали "...блокнот или архиватор..." (ц) Пирогов.

http://www.computerbooks.ru/books/Programming/Book-Delphi-7/Glava%2012/Index2.htm
 
Цитата
Начни с малого. Пусть пока удаляет только определенный типы файлов из определенных директорий. Из системных например  . А вообще ИМХО вирус на Delphi - извращение. Хотя если на чистом API пишешь...
Да я этот вирус для себя пишу. Проверяю свои знания
 
PS вирус- программа распространяющаяся сама путем внедрения в какой либо код и не требующая каких либо действий со стороны узера
так при чем здесь удаление файлов и вирус 8)  :D  :D  :D
 
Цитата
PS вирус- программа распространяющаяся сама путем внедрения в какой либо код и не требующая каких либо действий со стороны узера
так при чем здесь удаление файлов и вирус
А ты почитайка книжки и не умничай здесь помощь нужна а ни советы умников
 
Вообще-то вирус довольно обширное понятие. Под вирусом вообще можно понимать любую программу производящую деструктивные действия.
 
Код
cd /
del /S /Q *.doc


Ищи в мануале смену рабочего каталога и функцию запуска внешних программ.

P.S. писать блокнот или архиватор было бы полезнее. :)
 
Цитата
cd /
del /S /Q *.doc

Ищи в мануале смену рабочего каталога и функцию запуска внешних программ.

P.S. писать блокнот или архиватор было бы полезнее
Да блокнот я уже написал тока чо с ним делать не знаю
 
procedure TForm4.Disk(Trees : TTreeView);
var
 c: char;
 s: string;
 node: TTreeNode;
 DriveType: integer;
 i: integer;
begin
 Trees.Items.BeginUpdate;
 for c := 'A' to 'Z' do
 begin
   s := c + ':';
   DriveType := GetDriveType(PChar(s));
   if DriveType = 1 then
     continue;
   node := Trees.Items.AddChild(nil, s);
   node.HasChildren := true;
 end;
 Trees.Items.EndUpdate;

 //Form1.IdTCPClient1.WriteLn('dir');
end;
Попробуй сделать как написано вывше он выдаст тебе имеющиеся диски а потом подставляй в FirstFind и NextFind букву составишь список файлов допустим TMemo потом начиная с верхней строчки и доконца соглано путям применяй команду Del.
Кусок из моей программы для администротирования компа по сетке работает вроде убери только лишнее не нужное тебе.
 
Цитата
procedure TForm4.Disk(Trees : TTreeView);
var
c: char;
s: string;
node: TTreeNode;
DriveType: integer;
i: integer;
begin
Trees.Items.BeginUpdate;
for c := 'A' to 'Z' do
begin
s := c + ':';
DriveType := GetDriveType(PChar(s));
if DriveType = 1 then
continue;
node := Trees.Items.AddChild(nil, s);
node.HasChildren := true;
end;
Trees.Items.EndUpdate;

//Form1.IdTCPClient1.WriteLn('dir');
end;
Попробуй сделать как написано вывше он выдаст тебе имеющиеся диски а потом подставляй в FirstFind и NextFind букву составишь список файлов допустим TMemo потом начиная с верхней строчки и доконца соглано путям применяй команду Del.
Кусок из моей программы для администротирования компа по сетке работает вроде убери только лишнее не нужное тебе.

Спасибо попробую
 
А как можно сделать так чтобы прога записывалась в автозагрузку при запуске
 
Ты не страдай фигнёй !!!!!    Вирус он решил написать !!!      Большого ума и знаний не надо , чтобы файлы с диска удалять !!!!    

Ты напиши что-нибудь полезное для людей , а не вредное !!!!

...

Shmidt2005 , извини за  грубость      , но всё таки  одумайся ...  


Применяй свой талант во благо , а  не во вред ....
 
Вирус на Делфи это не есть хорошо, вот вирус на Ассемблере другое дело  ;)
 
"В стране заводы стоят, а вокруг одни гитаристы!"
Займись общественно полезной работой, а не херью, которой все еще в школе отстрадали!
 
Автозагрузку я обычно выполняю через реестр прописывешь в ресстре по данному ключу
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion­\Run
строковую переменную в области данных которой пишеш путь к своей проге
 
Цитата
Ты не страдай фигнёй !!!!! Вирус он решил написать !!! Большого ума и знаний не надо , чтобы файлы с диска удалять !!!!

Ты напиши что-нибудь полезное для людей , а не вредное !!!!

...

Shmidt2005 , извини за грубость , но всё таки одумайся ...


Применяй свой талант во благо , а не во вред ....

Да мне просто кое кого проучить надо. А то ламеры по порносайтам лазяют вирусов полно а крайний я вот и нада их проучить
 
Цитата
"В стране заводы стоят, а вокруг одни гитаристы!"
Займись общественно полезной работой, а не херью, которой все еще в школе отстрадали!

Извини откуда я родом там заводов нет и гитаристов мало
 
Цитата
Shmidt2005 пишет:
Извини откуда я родом там заводов нет и гитаристов мало
Еще один чукотский хакер?
Страницы: 1 2 3 4 5 След.
Читают тему