|
441
|
Programación / Scripting / [Perl] FinderText 0.1
|
en: 1 Diciembre 2011, 22:11 pm
|
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; my @words = <FILE>; for my $linea(@words) { $numero_linea++; if ($linea=~/$text/ig) { print "[+] Text $text Found in file $file in line $numero_linea\n"; }}} sub goodbye { for (@archivos) { next if $_ eq "." or $_ eq ".."; my $fichero = $_[0]."/".$_; if (-f $fichero) { verificar($fichero,$_[1]); } if (-d $fichero) { &goodbye($fichero); }}} # The End ?
|
|
|
442
|
Programación / Scripting / [Perl] FinderShells 0.3
|
en: 1 Diciembre 2011, 22:11 pm
|
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; $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 "[4] : heroes1412\n"; print "[5] : Locus7Shell\n\n"; chomp(my $option = <STDIN>); } 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 ) { }} print "[+] Erasing repeated\n"; for(@founds) { $t = $_; } } sub repes { foreach my $palabra ( @_ ) { next if $repety{ $palabra }++; } } sub clean { if ($_[0] =~/\=/) { my @sacar= split("=",$_[0]); } } sub savefile { open(SAVE ,">>logs/".$_[0]); } sub installer { unless (-d "/logs") { } } # ¿ The End ?
|
|
|
443
|
Programación / Scripting / [Perl] FinderPaths 0.5
|
en: 1 Diciembre 2011, 22:10 pm
|
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 { } } copyright(); sub escalar { my $code = toma( $_[0] ); my @links = get_links($code); if ( $code =~ /Index of (.*)</ig ) { my $dir_found = $1; 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; print "[+] Directory Found : $dir_found\n"; }}}}}} sub toma { return $nave->get( $_[0] )->content; } sub get_links { $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] ); sub agarrar { my ( $a, %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 ?
|
|
|
444
|
Programación / Scripting / [Perl] DestroyerShells 0.3
|
en: 1 Diciembre 2011, 22:09 pm
|
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 { 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; my $words = join q(),<FILE>; for my $rastro(@nombres) { if ($words=~/$rastro/ig) { }}}}} 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 : "; 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}++; } } # The End ?
|
|
|
445
|
Programación / Scripting / [Perl Tk] SerialFinder 0.2
|
en: 1 Diciembre 2011, 22:09 pm
|
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; 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 ?
|
|
|
446
|
Programación / Scripting / [Perl Tk] GoogleHack 0.3
|
en: 1 Diciembre 2011, 22:08 pm
|
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"; } my $final = "http://www.google.com.ar/search?q=".$link; system('start firefox "'.$final.'"'); } # The End ?
|
|
|
448
|
Programación / Scripting / [Python] PasteBin Uploader
|
en: 16 Octubre 2011, 02:52 am
|
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
|
|
|
449
|
Programación / Scripting / [Python] Proxy Tester
|
en: 16 Octubre 2011, 02:52 am
|
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
|
|
|
450
|
Programación / Scripting / [Python] Simple Crack Hash
|
en: 16 Octubre 2011, 02:51 am
|
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()
|
|
|
|
|
|
|