Código
#!/usr/bin/perl #Finder Shells 0.3 (c) Doddy Hackman 2011 use LWP::UserAgent; use HTTP::Request::Common; installer(); my $nave = LWP::UserAgent->new(); $nave->timeout(3); $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"); &head; $option = men(); if ($option eq 1) { @pages = google("www.google.com.ar","intitle:\"- c99shell\"",$pa); for my $pax(@pages) { $code = toma($pax); if ($code=~/--\[ c99shell/ig) { savefile("shells.txt",$pax); } } } elsif ($option eq 2) { @pages = google("www.google.com.ar","intitle:\"r57shell\"",$pa); for my $pax(@pages) { $code = toma($pax); if ($code=~/o---\[ r57shell - http-shell by RST/ig) { savefile("shells.txt",$pax); } } } elsif ($option eq 3) { @pages = google("www.google.com.ar","intitle:\"--= DxShell 1.0 - by o_O Tync =--\"",$pa); for my $pax(@pages) { $code = toma($pax); if ($code=~/--= DxShell 1.0 - by o_O Tync =--/ig) { savefile("shells.txt",$pax); } } } elsif ($option eq 4) { @pages = google("www.google.com.ar","o--\[ heroes1412 \]--",$pa); for my $pax(@pages) { $code = toma($pax); if ($code=~/o--\[ heroes1412 \]--/ig) { savefile("shells.txt",$pax); } } } elsif ($option eq 5) { @pages = google("www.google.com.ar","Locus7Shell",$pa); for my $pax(@pages) { $code = toma($pax); if ($code=~/--\[ x2300 Locus7Shell/ig) { savefile("shells.txt",$pax); } } } else { } copyright(); <stdin>; sub men { } sub head { } sub copyright { } sub toma { } sub google { for ($pages=0;$pages<=$_[2];$pages=$pages+10) { $response = toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages"); }} for(@founds) { $t = $_; } } sub repes { foreach my $palabra ( @_ ) { next if $repety{ $palabra }++; } } sub clean { if ($_[0] =~/\=/) { } } sub savefile { close SAVE; } sub installer { unless (-d "/logs") { } } # ¿ The End ?