Un simple programa para buscar cierto texto en un archivo o directorio.

#!usr/bin/perl
#FinderText 0.1 
#Written by Doddy H
 
print "\n-- == FinderText 0.1 == --\n\n";
unless($ARGV[0]) {
print "\n[+] sintax : $0 <file/dir> <text>\n";	
} else {
print "\n[+] Searching text\n\n";
if (-f $ARGV[0]) {
verificar($ARGV[0],$ARGV[1]);
}
if (-d $ARGV[0]) { 
goodbye($ARGV[0],$ARGV[1]);
}
print "\n[+] Finished\n";
}
print "\n\n[+] Written By Doddy H\n\n";
 
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/ig) {
print "[+] Text $text Found in file $file in line $numero_linea\n"; 
}}}
 
sub goodbye {
 
opendir DIR,$_[0];
my @archivos = readdir DIR;
close DIR;
 
for (@archivos) {
next if $_ eq "." or $_ eq "..";
my $fichero = $_[0]."/".$_;
 
if (-f $fichero) {
verificar($fichero,$_[1]);
}
 
if (-d $fichero) {
&goodbye($fichero);
}}}
 
# The End ? 

Simple programa para buscar phpshells activas usando google

#!/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;
 
print "\n[Pages] : ";
chomp(my $pa = <stdin>);
 
$option = men();
 
if ($option eq 1) {
@pages = google("www.google.com.ar","intitle:\"- c99shell\"",$pa);
print "\n[+] Count Pages : ".int(@pages)."\n\n";	
for my $pax(@pages) {
$code = toma($pax);
if ($code=~/--\[ c99shell/ig) {
print "\a[Link] : ".$pax."\n";
savefile("shells.txt",$pax);
}
}
}
elsif ($option eq 2) {
@pages = google("www.google.com.ar","intitle:\"r57shell\"",$pa);	
print "\n[+] Count Pages : ".int(@pages)."\n\n";
for my $pax(@pages) {
$code = toma($pax);
if ($code=~/o---\[ r57shell - http-shell by RST/ig) {
print "\a[Link] : ".$pax."\n";
savefile("shells.txt",$pax);
}
}
}
elsif ($option eq 3) {
@pages = google("www.google.com.ar","intitle:\"--= DxShell 1.0 - by o_O Tync =--\"",$pa);	
print "\n[+] Count Pages : ".int(@pages)."\n\n";
for my $pax(@pages) {
$code = toma($pax);
if ($code=~/--= DxShell 1.0 - by o_O Tync =--/ig) {
print "\a[Link] : ".$pax."\n";
savefile("shells.txt",$pax);
}
}
}
elsif ($option eq 4) {
@pages = google("www.google.com.ar","o--\[ heroes1412 \]--",$pa);	
print "\n[+] Count Pages : ".int(@pages)."\n\n";
for my $pax(@pages) {
$code = toma($pax);
if ($code=~/o--\[ heroes1412 \]--/ig) {
print "\a[Link] : ".$pax."\n";
savefile("shells.txt",$pax);
}
}
}
elsif ($option eq 5) {
@pages = google("www.google.com.ar","Locus7Shell",$pa);
print "\n[+] Count Pages : ".int(@pages)."\n\n";
for my $pax(@pages) {
$code = toma($pax);
if ($code=~/--\[ x2300 Locus7Shell/ig) {
print "\a[Link] : ".$pax."\n";
savefile("shells.txt",$pax);
}
}	
}
else {
print "\n\n[-] Bad Option\n\n";
}
print "\n\n[+] Finish\n\n";
copyright();
<stdin>;
 
 
sub men {
print "\n\n[+] Shells to find : \n\n";
print "[1] : c99\n";
print "[2] : r57\n";
print "[3] : Dxshell\n";
print "[4] : heroes1412\n";
print "[5] : Locus7Shell\n\n";
print "\n[Options] : ";
chomp(my $option = <STDIN>);
return $option;
}
 
 
sub head {
print "\n\n -- == Finder Shells == --\n\n\n";
}
 
sub copyright {
print "\n\n(C) Doddy Hackman 2010\n\n";
}
 
sub toma {
return $nave->request (GET $_[0])->content;
}
 
sub google {
print "\n[Dork] : $_[1]\n[Paginas] : $_[2]\n\n[+] Searching pages..\n";
for ($pages=0;$pages<=$_[2];$pages=$pages+10) {
$response = toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages");
while ($response=~m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) {
push(@founds,$1);
}}
print "[+] Erasing repeated\n";
for(@founds) {
$t = $_;
push(@r,$t);
} 	
return(repes(@r));
}
 
 
sub repes {
foreach my $palabra ( @_ ) {
next if $repety{ $palabra }++;
push @revisado,$palabra;
}
return @revisado;
}
 
 
sub clean {
if ($_[0] =~/\=/) {
my @sacar= split("=",$_[0]);
return(@sacar[0]."=");
}
}
 
sub savefile {
open(SAVE,">>logs/".$_[0]);
print SAVE $_[1]."\n";
close SAVE; 
}
 
sub installer {
unless (-d "/logs") {
mkdir("logs/",777);
}
}
 
# ¿ The End ? 

Simple programa para buscar el tipico listado de directorios , lo pueden usar de dos formas , la primera es una busqueda simple y la otra al estilo spider , esta ultima nos ayuda a seguir buscando directorios escalando los encontrados

#!usr/bin/perl
#Finder Paths 0.5 Coded By Doddy H
 
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
use Getopt::Long;
 
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");
 
GetOptions(
"-target=s" => \$target, 
"-option=s" => \$opcion);
 
head();
unless ($target && $opcion) { 
sintax();
}
else  { 
if ($opcion eq "spider") {
print "\n[+] Searching in $target\n";
escalar($target); 
}
elsif($opcion eq "simple") {
print "\n[+] Searching in $target\n\n\n";
simple($target);
} else {
print "\n[-] Error\n";
}
}
copyright();
 
sub escalar {
 
my $code  = toma( $_[0] );
my @links = get_links($code);
 
if ( $code =~ /Index of (.*)</ig ) {
my $dir_found = $1;
chomp $dir_found;
print "\n\n[+] Directory Found : $dir_found\n\n";
while ( $code =~ /<a href=\"(.*)\">(.*)<\/a>/ig ) {
my $ruta   = $1;
my $nombre = $2;
unless ( $nombre =~ /Parent Directory/ig or $nombre =~ /Description/ig ) {
unless ($nombre=~/\/$/) {
print "[+] File Found : $nombre\n";
}
push(@encontrados,$_[0]."/".$nombre);
}
}
}
 
#get more
 
for my $com (@links) {
my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
if ( $path =~ /\/(.*)$/ ) {
my $path1 = $1;
$_[0] =~ s/$path1//ig;
my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
if ( $path =~ /(.*)\// ) {
my $parche = $1;                                 
unless($repetidos=~/$parche/){
$repetidos.=" ".$parche;
escalar("http://".$auth.$parche );                    
}
}
for(@encontrados) {
escalar($_);
}}}}
 
sub simple {
 
my $code  = toma($_[0]);
my @links = get_links($code);
 
for my $com (@links) {
my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
if ( $path =~ /\/(.*)$/ ) {
my $path1 = $1;
$_[0] =~ s/$path1//ig;
my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
if ( $path =~ /(.*)\// ) {
my $parche = $1;                                 
unless($repetidos=~/$parche/){
$repetidos.=" ".$parche;
my $code=toma("http://".$auth.$parche);     
 
if ( $code =~ /Index of (.*)</ig ) {
my $dir_found = $1;
chomp $dir_found;
print "[+] Directory Found : $dir_found\n";
}}}}}}
 
sub toma {
return $nave->get( $_[0] )->content;
}
 
sub get_links {
 
$test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
return @links;
 
sub agarrar {
my ( $a, %b ) = @_; 
push( @links, values %b );
}
}
 
sub head {
print "\n\n-- == FinderPaths 0.5 == --\n\n";
}
 
sub sintax {
print "\n[+] Sintax : $0 -target <web> -option <simple/spider>\n";
}
 
sub copyright {
print "\n\n(C) Doddy Hackman 2011\n\n";
}
 
# The End ? 
 

Un programa para buscar phpshells en nuestra computadora y poder borrarlas si nos molesta

#!usr/bin/perl
#DestroyerShells 0.3
#Writtten 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;
 
print "\n-- == DestroyerShells 0.3 == --\n";
unless($ARGV[0]) {
print "\n[+] sintax : $0 <dir>\n";
} else {
start($ARGV[0]);
}
print "\n\n[+] Written By Doddy H\n\n";
 
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;
}
 
# The End ? 
 

Simple programa en tk para buscar seriales de programas o juegos

#!usr/bin/perl
#SerialFinder 0.2
#By Doddy H
 
use Tk;
use Tk::PNG;
 
if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}
 
my $ventana = MainWindow->new();
$ventana->title("SerialFinder 0.2 By Doddy H");
$ventana->geometry("370x300+20+20");
$ventana->resizable(0,0);
 
$ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
my $p = $ventana->Entry(-text=>"Nero",-width=>"31")->place(-x=>80,-y=>23);
$ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);
 
$ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);
 
$ventana->Radiobutton(-text =>"serials.be", -value => "serials.be",-variable=> \$op)->place(-x=>130,-y=>130);
$ventana->Radiobutton(-text =>"serials.ws", -value => "serials.ws",-variable=> \$op)->place(-x=>130,-y=>160);
$ventana->Radiobutton(-text =>"cracks.vg", -value => "cracks.vg",-variable=> \$op)->place(-x=>130,-y=>190);
$ventana->Radiobutton(-text =>"serialportal.com", -value => "serialportal.com",-variable=> \$op)->place(-x=>130,-y=>220);
$ventana->Radiobutton(-text =>"freeserials.ws", -value => "freeserials.ws",-variable=> \$op)->place(-x=>130,-y=>250);
 
MainLoop;
 
sub now {
 
my $link;
my $test = $p->get;
 
chomp $test;
 
if ($op eq "serials.be") {
$link = "http://www.serials.be/search_serial.php?serial=".$test;
}
elsif ($op eq "serials.ws") {
$link = "http://www.serials.ws/?chto=".$test;
}
elsif ($op eq "cracks.vg") {
$link = "http://www.cracks.vg/search.php?query=".$test;
}
elsif ($op eq "serialportal.com") {
$link = "http://www.serialportal.com/search.php?serial=".$test;
}
elsif ($op eq "freeserials.ws") {
$link = "http://www.freeserials.ws/?q=".$test."&Search=Search";
} else {
$link = "http://www.google.com.ar/search?q=como aprender a escribir";
}
 
system("start firefox $link");
 
}
 
# The End ? 
 

Simple programa en tk para buscar en google

#!usr/bin/perl
#GoogleHack 0.3 
#By Doddy H
#Based in the program GoogleHacks
use Tk;
use Tk::PNG;
 
if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}
 
my $ventana = MainWindow->new();
$ventana->title("GoogleHack 0.3 By Doddy H");
$ventana->geometry("370x300+20+20");
$ventana->resizable(0,0);
 
$ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
my $v = $ventana->Entry(-text=>"Test",-width=>"31")->place(-x=>80,-y=>23);
$ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);
 
$ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);
 
$ventana->Radiobutton(-text =>"Music", -value => "music",-variable=> \$op)->place(-x=>140,-y=>130);
$ventana->Radiobutton(-text =>"Programs", -value => "programs",-variable=> \$op)->place(-x=>140,-y=>160);
$ventana->Radiobutton(-text =>"Book", -value => "book",-variable=> \$op)->place(-x=>140,-y=>190);
$ventana->Radiobutton(-text =>"Videos", -value => "videos",-variable=> \$op)->place(-x=>140,-y=>220);
$ventana->Radiobutton(-text =>"Torrent", -value => "torrent",-variable=> \$op)->place(-x=>140,-y=>250);
 
MainLoop;
 
sub now {
 
my $test = $v->get; 
my $link;
 
if ($op eq "music") {
$link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.mp3|.wma|.ogg) "'.$test.'"';
}
elsif ($op eq "programs") {
$link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.exe|.zip|.ddl) "'.$test.'"';
}
elsif ($op eq "book") {
$link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.txt|.pps|.lit|.odt|.doc|.rtf|.zip|.rar|.pdf|.chm) "'.$test.'"';
}
elsif ($op eq "videos") {
$link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.mpg|.avi|.flv|.wmv|.di) "'.$test.'"';
}
elsif ($op eq "torrent") {
$link = "$test filetype:torrent";
} else {
$link = "como aprender a escribir";
}
chomp $link;
my $final = "http://www.google.com.ar/search?q=".$link;
system('start firefox "'.$final.'"');
}
 
# The End ? 
 

diste en el blanco, esa es la idea de este proyecto xDDD

Un simple programa para subir codigos a pastebin

#!usr/bin/python
#PasteBin Uploader (C) Doddy Hackman 2011
 
import urllib2,sys,re
 
nave = urllib2.build_opener()	
nave.add_header = [('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5')]	
 
def tomar(web,vars) :
 return nave.open(web,vars).read()
 
def head():
 print "\n-- == PasteBin Uploader == --\n\n"
 
def copyright():
 print "\n(C) Doddy Hackman 2011\n"
 sys.exit(1)
 
def sintax():
 print "[+] paste.py <file> <title> <perl/python/ruby/php>\n"
 
def chubir(file,title,type):
 print "[+] Uploading file\n"
 try:
  lineas = open(file,"r").readlines()
 except:
  print "[-] Error open file\n"
  copyright()
 lin = "".join(lineas)
 try:
  code = tomar("http://pastebin.com/api_public.php","paste_code="+str(lin)+"&paste_name="+title+"&paste_format="+type+"&paste_expire_date=N&paste_private=public&submit=submit")
 except:
  print "[-] Page offline\n"
 if re.findall("Bad API request",code):
  print "[-] Error uploading file\n"
 else:
  print "[+] Enjoy : ",code+"\n"
  copyright()
 
head()
if len(sys.argv) != 4 : 
 sintax()
else :
 chubir(sys.argv[1],sys.argv[2],sys.argv[3])
copyright()
 
# The End

Un simple programa para testear proxies

#!usr/bin/python
#Proxy Tester (C) Doddy Hackman 2011
 
import urllib2,sys
 
 
def toma(web) :
 return nave.open(web).read()
 
def header() : 
 print "\n\n--== Proxy Tester ==--\n"
 
def copyright() : 
 print "\n\n(C) Doddy Hackman 2011\n"
 sys.exit(1)
 
def sintax() :
 print "\n[*] Sintax : ",sys.argv[0]," <file>"
 
def testar(host):
 try:
  proxy = urllib2.ProxyHandler({"http":host})
  nave = urllib2.build_opener(proxy)
  nave.add_header = [('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5')]
  urllib2.install_opener(nave)
  urllib2.urlopen("http://127.0.0.1/sql.php")#
  print "[+] Proxy Found : "+host
 except:
  pass
 
header()
if len(sys.argv) != 2 : 
 sintax()
else :
 print "\n[+] Opening file\n\n"
 try: 
  hosts = open(sys.argv[1], "r").readlines()
 except	:
  print "\n[-] Error opening file\n"
 for host in hosts:
  host = host.replace("\r","").replace("\n","")
  testar(host)
copyright()
 
#  The End 
 

Un simple programa para crackear hashes md5

#Simple Crack Hash 
#(C) DOddy Hackman 2011
#Test with 202cb962ac59075b964b07152d234b70:123
 
import urllib2,re,sys
 
nave = urllib2.build_opener(urllib2.HTTPCookieProcessor())	
nave.add_header = [('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5')]
 
 
def head():
 print "\n\n== -- Crack Hash -- ==\n\n"
 
def copyright():
 print "\n\n(C) Doddy HAckman 2011\n"
 
def uso():
 print "\n[+] crackhash.py <hash>\n\n"
 
def crack(passw):
 print "\n[+] Cracking...\n\n" 
 code = toma("http://md5.hashcracking.com/search.php?md5="+passw)
 if re.findall("Cleartext of (.*) is (.*)",code):
  control = re.findall("Cleartext of (.*) is (.*)",code)
  print "[+] Password : "+control[0][1]
 else:
  print "\n[-] Not Found\n\n"
 
def toma(web):
 return nave.open(web).read()
 
head()
 
if len(sys.argv) == 2 : 
 crack(sys.argv[1])
else:
 uso()
 
copyright()