Bueno en esto día estuve probando este distrito.

Ps le dejo el link de descarga para lo que quieren descargarlo.

openSUSE 11.1

Bueno aquí un simple comando para quemar un .ISO desde la linea de comando.

wodim name.iso

Opciones de wodim

man wodim

Saludos.

Bueno aquí mi code para que encode sus texto a html entities, muy bueno para los blogs.

#Autor: Yoyahack
#Webs:  www.yoyahack.blogspot.com - www.undersecurity.net
#mail:  elmafioso.edwin@gmail.com
#Encode strings with HTML entities

#Module

use HTML::Entities;

#Code

print "\nYoyahack - www.yoyahack.blogspot.com\nwww.undersecurity.net\n";
print "\nUsage: perl name.pl <archive.txt>\n";
print "Ex: perl script.pl archive.txt\n";

open(AR,"$ARGV[0]") || die "\nNot found archive\n";
@ar=<AR>;
close (AR);

foreach $encode(@ar)
              {
              chomp($encode);

encode_entities( $encode );

open (SAVE,">>encode_text.txt");
print SAVE "$encode\n";
close (SAVE);


             }

print "\nSuccessfully saved text file!\n";
exit(0);

Bueno aquí un reverse dns que acabo de codear.

Modo de uso:

perl name.pl www.pagina.com

Guardas las webs en un archivo de texto.

Code:

#Autor: Yoyahack
#Webs: www.yoyahack.blogspot.com  -  www.undersecurity.net
#Reverse dns

#Modulos

use LWP::UserAgent;
use HTTP::Request;

#Body

print q(
Reverse Dns by yoyahack
www.yoyahack.blogspot.com - www.undersecurity.net
);

print "Usage: perl script.pl <web>\n";
print "Ex: perl reversedns.pl www.pagina.com\n";
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

my $busqueda = new HTTP::Request GET =>"http://www.ip-adress.com/reverse_ip/$ARGV[0]";
my $resultado = $ua->request($busqueda);
$ua->timeout(7) || die "Conecction faield";
my $result = $resultado->content();

while ($result =~ m!<a href="/whois/(.+)">Whois</a>!ig){


   open (DNS,">>reverse_dns.txt");
   print DNS "$1\n";
   close (DNS);
   print "$1\n";
  
}

Bueno este post lo vi en infiernohacker, me pareció muy interesante.

/proc/

En el directorio /proc/ podemos ver información sobre el kernel, el sistema, hardware,etc.
Paths:
/proc/version
/proc/interrupts
/proc/meminfo
/proc/mounts
/proc/modules
/proc/partitions
/proc/filesystems
/proc/kallsyms
/proc/cpuinfo
/proc/cmdline




/proc/self

El diretorio /proc/self es un enlace al proceso en ejecución.
Paths:
/proc/self/environ




/proc/sys/

El directorio /proc/sys proporciona informacion pero tambien (siendo administrador) se pueden activar o desactivar caracteristicas del kernel.
Paths:
/proc/sys/fs
/proc/sys/dev/
/proc/sys/kernel/
/proc/sys/kernel/acct
/proc/sys/kernel/cap-bound
/proc/sys/kernel/domainname
/proc/sys/kernel/exec-shield
/proc/sys/kernel/exec-shield-randomize
/proc/sys/kernel/hostname
/proc/sys/kernel/hotplug
/proc/sys/kernel/modprobe
/proc/sys/kernel/version
/proc/sys/kernel/sysrq
/proc/sys/net/core/
/proc/sys/net/ipv4/
/proc/sys/vm/
/proc/sysvipc



/proc/net/

El directorio /proc/net muestra información sobre la configuracion de red del sistema.
Paths:
/proc/net/arp
/proc/net/atm
/proc/net/dev
/proc/net/dev_mcast
/proc/net/igmp
/proc/net/ip_conntrack
/proc/net/ip_tables_names
/proc/net/ip_mr_cache
/proc/net/ip_mr_vif
/proc/net/netstat
/proc/net/psched
/proc/net/raw
/proc/net/route
/proc/net/rt_cache
/proc/net/snmp
/proc/net/sockstat
/proc/net/tcp
/proc/net/tr_rif
/proc/net/udp
/proc/net/unix
/proc/net/wireless



/proc/driver/

El directorio /proc/driver contiene información sobre los drivers que se estan utilizando.

Fuente

Bueno aquí algunos addons, son muy bueno todos xD.

User Agent Switcher 0.7.2

Live HTTP Headers 0.15

Firebug 1.4.2

Bueno aquí mi tools, sus característica son:

1. Busca paginas mediante google
2. Te da la opción de buscar paginas webs mediante distinto servidores google.
3. Abre un archivo de texto en la que están guardada todas las web y verifica las posibles vulnerabilidades a sqli.

Bueno este es un tutorial que hise hase un tiempo y como no lo habia publicado ps lo publico esta en un archivo pdf.

Descargar

Bueno este es la segunda version de google search en perl hecha por mi, ps en esta version guarda
los enlaces en un archivo de texto por default llamado 'enlaces.txt' si quieren alguna mejora ps decirlo.

#Autor:   Yoyahack


#Version: 0.2





use LWP::UserAgent;


use HTTP::Request;


 


print "Modo de uso:\n";


print "Perl name.pl <busqueda> <numeros de paginas>\n";


print "perl name.pl inurl:noticias.php?id=1 50\n";


 


my $ua = new LWP::UserAgent;


$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");


 


for($i=1;$i<$ARGV[1];$i++){


    my $busqueda = new HTTP::Request GET =>"http://www.google.com/search?hl=es&q=.$ARGV[0].&start=$i&sa=N";


    my $resultado = $ua->request($busqueda);


    $ua->timeout(7);


    my $result = $resultado->content;


 


    while ($result =~ m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) {


        my ($enlace) = ($1);


        open (SAVE, ">>enlaces.txt");


        print SAVE "\n$enlace\n";


        print "$enlace\n";


        close(SAVE);


}


}


#Gretz:   S[e]C, seth, OzX, p0fk  

Bueno este es un tuto que hise de como llegue a crear un script en perl parte por parte, espero que sea muy explicativo.

Descargar