Mensajes

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

Código (perl) [Seleccionar] Expandir

#!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

Código (perl) [Seleccionar] Expandir

#!/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

Código (perl) [Seleccionar] Expandir

#!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

Código (perl) [Seleccionar] Expandir


#!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

Código (perl) [Seleccionar] Expandir

#!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

Código (perl) [Seleccionar] Expandir

#!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

Código (python) [Seleccionar] Expandir


#!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

Código (python) [Seleccionar] Expandir


#!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

Código (python) [Seleccionar] Expandir


#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()