- Bienvenido a Test Foro de elhacker.net SMF 2.1.
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.
#302
Scripting / [Perl] K0bra 1.6
14 Julio 2012, 19:38 PM
Nueva version de este scanner SQLI.
Las opciones son
Las opciones son
- Comprobar vulnerabilidad
- Buscar numero de columnas
- Buscar automaticamente el numero para mostrar datos
- Mostras tablas
- Mostrar columnas
- Mostrar bases de datos
- Mostrar tablas de otra DB
- Mostrar columnas de una tabla de otra DB
- Brutear tablas y columnas
- Mostrar usuarios de mysql.user
- Buscar archivos usando load_file
- Mostrar un archivo usando load_file
- Mostrar valores
- Mostrar informacion sobre la DB
- Crear una shell usando outfile
- Todo se guarda en logs ordenados
- Mejor manejo de control+c
- Codigo identado (gracias a perltidy)
El codigo lo pueden ver aca
#303
Scripting / Re: [Perl Tk] Codificator 0.2
9 Julio 2012, 05:35 AM
no me referia a eso , me referia a que en la version 1.0 tendria que ser un programa decente , aunque esa es solo mi opinion personal.
#304
Scripting / Re: [Perl Tk] Codificator 0.2
8 Julio 2012, 18:21 PM
si se puede de hecho estoy haciendo uno ahora y la semana que viene publico otro que es 1.0
#305
Scripting / Re: [Perl Tk] Codificator 0.2
8 Julio 2012, 17:31 PM
si , considero personalmente que las versiones de 1.0 para arriba tienen que ser verdaderos programas y no simple scripts.
#306
Scripting / [Perl Tk] Codificator 0.2
7 Julio 2012, 16:06 PM
Version Tk de este codificador.
Una imagen
El codigo
Una imagen
El codigo
Código (perl) [Seleccionar]
#!usr/bin/perl
#Codificator 0.2
#Version Tk
#Coded By Doddy H
use Tk;
use Tk::Dialog;
use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
$header = "This tool encode text in :
Hex
SHA1
MD5
Base64
ASCII
URL
";
my $color_fondo = "black", my $color_texto = "white";
$window = MainWindow->new( -background => "black", -foreground => "white" );
$window->geometry("380x370+80+80");
$window->title("Codificator 0.2 || Coded By Doddy H");
$window->resizable( 0, 0 );
$menula = $window->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 => "Encode",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&encode
);
$menulnowaxm->command(
-label => "Decode",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&decode
);
$menulnowaxm->command(
-label => "Clean",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&clear
);
$aboutnowaxm->command(
-label => "About",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&about
);
$exitnowaxm->command(
-label => "Exit",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&exitnow
);
$window->Label(
-font => "Impact",
-background => $color_fondo,
-foreground => $color_texto,
-text => "Options : "
)->place( -x => 110, -y => 53 );
$window->Optionmenu(
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto,
-options => [
[ HEX => HEX ],
[ ASCII => ASCII ],
[ BASE64 => BASE64 ],
[ MD5 => MD5 ],
[ SHA1 => SHA1 ],
[ URL => URL ]
],
-variable => \$var,
-textvariable => \$codificacion
)->place( -x => 180, -y => 53 );
my $rot = $window->Text(
-background => $color_fondo,
-foreground => $color_texto,
-width => 45,
-height => 15
)->place( -x => 30, -y => 120 );
$rot->insert( 'end', $header );
MainLoop;
sub about {
$window->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 clear {
$rot->delete( '0.1', 'end' );
}
sub encode {
$text = $rot->get( "1.0", "end" );
chomp $text;
&clear;
if ( $codificacion eq "HEX" ) {
$result = hexar($text);
$rot->insert( 'end', $result );
print $result;
}
elsif ( $codificacion eq "SHA1" ) {
$sha1 = Digest::SHA1->new->add($text);
my $digest = $sha1->digest;
$rot->insert( 'end', $digest );
}
elsif ( $codificacion eq "BASE64" ) {
$result = encode_base64($text);
$rot->insert( 'end', $result );
}
elsif ( $codificacion eq "URL" ) {
my $codec = Badger::Codec::URL->new();
my $ya = $codec->encode($text);
$rot->insert( 'end', $ya );
}
elsif ( $codificacion eq "ASCII" ) {
$result = ascii($text);
$rot->insert( 'end', $result );
}
elsif ( $codificacion eq "MD5" ) {
$digest = Digest::MD5->md5_hex($text);
$rot->insert( 'end', $digest );
}
else {
$window->messageBox( -message => "What?!\n" );
}
}
sub decode {
$text = $rot->get( "1.0", "end" );
chomp $text;
&clear;
if ( $codificacion eq "HEX" ) {
$result = decodera($text);
$rot->insert( 'end', $result );
}
elsif ( $codificacion eq "SHA1" ) {
$window->messageBox( -message =>
"What?! , it's not possible with a function decoded\n" );
}
elsif ( $codificacion eq "BASE64" ) {
$result = decode_base64($text);
$rot->insert( 'end', $result );
}
elsif ( $codificacion eq "URL" ) {
my $codec = Badger::Codec::URL->new();
my $ya = $codec->decode($text);
$rot->insert( 'end', $ya );
}
elsif ( $codificacion eq "ASCII" ) {
$result = ascii_de($text);
$rot->insert( 'end', $result );
}
elsif ( $codificacion eq "MD5" ) {
$window->messageBox( -message =>
"What?! , it's not possible with a function decoded\n" );
}
else {
$window->messageBox( -message => "What?!\n" );
}
}
sub hexar {
my $string = $_[0];
$hex = '0x';
for ( split //, $string ) {
$hex .= sprintf "%x", ord;
}
return $hex;
}
sub ascii {
return join ',', unpack "U*", $_[0];
}
sub decodera {
$_[0] =~ s/^0x//;
$encode = join q[], map { chr hex } $_[0] =~ /../g;
return $encode;
}
sub ascii_de {
$_[0] = join q[], map { chr } split q[,], $_[0];
return $_[0];
}
# The End ?
#307
Scripting / [Perl] Codificator 0.2
7 Julio 2012, 16:06 PM
Nueva version de este script para codificar y decodificar en :
- Hex
- SHA1
- MD5 (solo encode)
- Base64
- ASCII
- URL
El codigoCódigo (perl) [Seleccionar]
#!usr/bin/perl
#Codificator 0.2
#Coded By Doddy H
#This tool encode in :
#
#Hex
#MD5
#Base64
#ASCII
#URL
#
#
use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;
sub head {
clean();
print q(
@@@ @ @ @ @ @
@ @ @ @ @
@ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @
@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@
@ @ @ @ @ @ @ @ @ @@@@ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @
@@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @
);
}
head();
print "\n[+] Options\n\n";
print q(
1 - MD5 encode
2 - Base64 encode
3 - Base64 decode
4 - Ascii encode
5 - Ascii decode
6 - Hex encode
7 - Hex decode
8 - URL encode
9 - URL decode
10 - Exit
);
while (true) {
print "\n\n[+] Option : ";
chomp( my $op = <stdin> );
print "\n\n";
if ( $op eq 1 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";
}
elsif ( $op eq 2 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] Base64 : " . encode_base64($string);
}
elsif ( $op eq 3 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
}
elsif ( $op eq 4 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] Ascii : " . join ',', unpack "U*", $string;
print "\n";
}
elsif ( $op eq 5 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] Ascii decode : " . join q[], map { chr } split q[,],
$string . "\n";
print "\n";
}
elsif ( $op eq 6 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
$hex = "0x";
for ( split //, $string ) {
$hex .= sprintf "%x", ord;
}
print "\n\n[+] Hex : " . $hex . "\n";
}
elsif ( $op eq 7 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
$string =~ s/^0x//;
$encode = join q[], map { chr hex } $string =~ /../g;
print "\n\n[+] Hex decode : " . $encode . "\n";
}
elsif ( $op eq 8 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] URL Encode : " . uri_escape($string) . "\n";
}
elsif ( $op eq 9 ) {
print "[+] String : ";
chomp( my $string = <stdin> );
print "\n\n[+] URL Decode : " . uri_unescape($string) . "\n";
}
elsif ( $op eq 10 ) {
copyright();
exit(1);
}
else {
print "[+] Write good stupid !\n";
}
}
sub clean {
my $os = $^O;
if ( $os =~ /Win32/ig ) {
system("cls");
}
else {
system("clear");
}
}
sub copyright {
print "\n-- == Doddy Hackman 2012 == --\n\n";
<stdin>;
exit(1);
}
# The End ?
#308
Scripting / [Perl Tk] Destroyer Shells 0.4
30 Junio 2012, 01:39 AM
Version Tk de un script para buscar y borrar phpshells.
Una imagen
El codigo
Una imagen
El codigo
Código (perl) [Seleccionar]
#!usr/bin/perl
#DestroyerShells 0.4
#Version Tk
#Coded By Doddy H
use Tk;
use Tk::Dialog;
use LWP::UserAgent;
use File::Find;
my @nombres = (
"C99Shell",
"r57shell",
"DxShell",
"HiddenShell",
"~ Andr3a92 ~ Sh3ll ~",
"CShell",
"Dark Shell",
"GsC SheLL",
"N3fa5t1cA Sh3ll",
"ONBOOMSHELL",
"StAkeR ~ Shell",
"MoDDeD By KinG-InFeT",
"31337 Shel"
);
my @founds;
#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}
my $color_texto = "orange";
my $color_fondo = "black";
my $newdaxz =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$newdaxz->title("DestroyerShells 0.4 || 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 => \&scan
);
$menulnowaxm->command(
-label => "Delete Shells",
-background => $color_fondo,
-foreground => $color_texto,
-command => \&delnow
);
$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 => "Directory : ",
-font => "Impact",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $dir = $newdaxz->Entry(
-text => "C:/xampp/htdocs",
-width => 37,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 95, -y => 45 );
$newdaxz->Label(
-text => "Shells Founds",
-font => "Impact",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 120, -y => 80 );
my $files = $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 );
MainLoop;
sub delnow {
my $total = $files->size - 1;
for my $number ( 0 .. $total ) {
my $ruta = $files->get($number);
unlink($ruta);
}
$files->delete( "0.0", "end" );
}
sub scan {
$files->delete( "0.0", "end" );
my $dir = $dir->get;
find( \&finder, $dir );
sub finder {
my $file = $_;
if ( -f $file ) {
if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) {
my $abrir = $File::Find::name;
$tatus->configure( -text => $abrir );
open( FILE, $abrir );
my $words = join q(), <FILE>;
close(FILE);
for my $rastro (@nombres) {
$newdaxz->update;
chomp $rastro;
if ( $words =~ /$rastro/ig ) {
$files->insert( "end", $abrir );
}
}
}
}
}
$tatus->configure( -text => " " );
}
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;
}
#The End ?
#309
Scripting / [Perl] Destroyer Shells 0.4
30 Junio 2012, 01:38 AM
Version mejorada de este script para buscar y borrar shells.
Código (perl) [Seleccionar]
#!usr/bin/perl
#DestroyerShells 0.4
#Coded By Doddy H
use File::Find;
my @nombres = (
"C99Shell",
"r57shell",
"DxShell",
"HiddenShell",
"~ Andr3a92 ~ Sh3ll ~",
"CShell",
"Dark Shell",
"GsC SheLL",
"N3fa5t1cA Sh3ll",
"ONBOOMSHELL",
"StAkeR ~ Shell",
"MoDDeD By KinG-InFeT",
"31337 Shel"
);
my @founds;
head();
print "\n[+] Directory : ";
chomp( my $dir = <stdin> );
start($dir);
copyright();
sub start {
my $dir = shift;
print "\n\n[+] Searching in directory $dir\n\n";
find( \&finder, $dir );
sub finder {
my $file = $_;
if ( -f $file ) {
if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) {
my $abrir = $File::Find::name;
open( FILE, $abrir );
my $words = join q(), <FILE>;
close(FILE);
for my $rastro (@nombres) {
chomp $rastro;
if ( $words =~ /$rastro/ig ) {
push( @founds, $abrir );
}
}
}
}
}
my @founda = repes(@founds);
print "[+] Number of files found : " . int(@founda) . "\n\n";
if ( int(@founda) ne "0" ) {
for (@founda) {
print "[+] File Found : $_\n";
}
print "\n[+] Delete files y/n : ";
chomp( my $op = <stdin> );
if ( $op =~ /y/ig ) {
for (@founda) { unlink($_); }
print "\n[+] Files Deleted\n";
}
elsif ( $op =~ /n/ig ) {
print "\n[+] Good Bye\n";
}
else {
print "\n[+] Write good stupid\n";
}
}
}
sub repes {
foreach $test (@_) {
push @limpio, $test unless $repe{$test}++;
}
return @limpio;
}
sub head {
print qq(
@@@@ @@@ @ @ @
@ @ @ @ @ @ @ @
@ @ @ @ @ @ @
@ @ @@@ @@ @@ @@ @@@ @ @ @@@ @@ @ @ @@ @@@ @ @ @@
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@ @@ @ @ @ @ @ @ @
@ @ @@@@@ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @@@@@ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @
@@@@ @@@ @@ @ @ @@@ @ @@@ @ @@@ @ @ @@@ @ @ @@
@
@@
);
}
sub copyright {
print "\n\n-- == Doddy Hackman 2012 == --\n\n";
<stdin>;
exit(1);
}
# The End ?
#310
Scripting / [Perl Tk] Finder Text 0.2
23 Junio 2012, 18:16 PM
Version Tk de un programa para buscar patrones en cualquier directorio.
Una imagen
El codigo
Una imagen
El codigo
Código (perl) [Seleccionar]
#!usr/bin/perl
#Finder Text 0.2
#Version Tk
#Coded By Doddy H
use Tk;
my $color_fondo = "black";
my $color_texto = "green";
#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}
my $vent =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$vent->title("Finder Text 0.2 (C) Doddy Hackman 2012");
$vent->geometry("395x440+20+20");
$vent->resizable( 0, 0 );
$vent->Label(
-text => "Directory : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 20, -y => 20 );
my $dir = $vent->Entry(
-width => 40,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 100, -y => 23 );
$vent->Label(
-text => "String : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 20, -y => 50 );
my $string = $vent->Entry(
-width => 30,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 80, -y => 53 );
$vent->Button(
-text => "Find",
-command => \&now,
-width => 11,
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto
)->place( -x => 271, -y => 53 );
$vent->Label(
-text => "Files Found",
-font => "Impact",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 150, -y => 100 );
my $listas = $vent->Listbox(
-width => 50,
-height => 15,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 45, -y => 150 );
$vent->Label(
-text => "Status : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 70, -y => 390 );
my $tatus = $vent->Entry(
-width => 30,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 130, -y => 393 );
$listas->bind( "<Double-1>", [ \&loader ] );
MainLoop;
sub loader {
$listasx = $listas->curselection();
for my $id (@$listasx) {
my $linkar = $listas->get($id);
system("$linkar");
}
}
sub now {
$listas->delete( "0.0", "end" );
goodbye( $dir->get, $string->get );
$tatus->configure( -text => " " );
}
sub verificar {
my ( $file, $text ) = @_;
my $numero_linea = 0;
open( FILE, $file );
my @words = <FILE>;
close FILE;
chomp @words;
for my $linea (@words) {
chomp $linea;
$numero_linea++;
if ( $linea =~ /$text/ ) {
$listas->insert( "end", $file );
}
}
}
sub goodbye {
opendir DIR, $_[0];
my @archivos = readdir DIR;
close DIR;
for (@archivos) {
next if $_ eq "." or $_ eq "..";
my $fichero = $_[0] . "/" . $_;
if ( -f $fichero ) {
$vent->update;
$tatus->configure( -text => $fichero );
verificar( $fichero, $_[1] );
}
if ( -d $fichero ) {
&goodbye( $fichero, $_[1] );
}
}
}
#The End ?