|
262
|
Programación / Scripting / [Perl Tk] Project DH Botnet 0.2
|
en: 8 Diciembre 2012, 14:12 pm
|
Bueno , siempre quize hacer una botnet en Perl , logre programar una bien basica que tiene las siguientes opciones : - Ejecucion de comandos
- Simple GetIP
- Listar procesos activos
- Matar procesos
- Listar archivos de un directorio
- Borrar un archivo o directorio cualquiera
- Leer archivos
- Abrir y cerrar lectora
- Ocultar y mostrar programas del escritorio
- Ocultar y mostrar Taskbar
- Mandar mensajitos molestos
- Abrir Word y hacer que escriba solo (una idea muy grosa xDD)
- Hacer que el teclado escriba solo
- Volver loco al mouse haciendo que se mueva por la pantalla
Para usar esta botnet necesitan un hosting que permita PHP y Mysql. Una imagen del generador : Otra imagen de la botnet en accion : El codigo lo pueden encontrar aca.
|
|
|
264
|
Programación / Scripting / [Perl] SMF Manager 0.1
|
en: 7 Diciembre 2012, 19:03 pm
|
Traduccion a Perl (mega buggeada) del script que hizo Javier de PortalHacker para poder leer los mensajes privados y listar las categorias de un foro SMF. El codigo #!usr/bin/perl #SMF Manager 0.00001 #Coded By Doddy H #ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd use LWP::UserAgent; use HTTP::Cookies; use HTML::Strip; my $nave = LWP::UserAgent->new( cookie_jar => HTTP::Cookies->new(), requests_redirectable => [], timeout => 5, agent => "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); @@@ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @ @@ @@ @ @@ @@ @ @@ @@ @ @@ @@ @@@ @ @@ @@@ @@@@ @@@ @@ @@@ @ @ @ @ @@@@ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @ @@@@ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@ @ @ @ @ @ @@@@ @ @ @@@@ @@@@ @@@ @ @ @@@@ ); chomp( my $url = <stdin> ); print "\n[+] Username : "; chomp( my $usera = <stdin> ); print "\n[+] Password : "; chomp( my $passa = <stdin> ); ## Login print "\n[+] Connecting ....\n\n"; my $code = $nave->post( $url . "/index.php?action=login2", { "user" => $usera, "passwrd" => $passa, "cookielength" => "9000", "hash_passwrd" => "", "submit" => "submit" } ); if ( $code->is_redirect ) { #print $code->header('location'),"\n"; } elsif ( $code->is_success ) { print $code->as_string, "\n"; } else { print STDERR $code->status_line, "\n"; } my $code = toma( $url . "/SSI.php?ssi_function=welcome" ); if ( $code =~ /Hola, <strong>(.*)<\/strong>/ ) { my $name = $1; print "[+] Welcome $name\n"; } else { } ## while (1) { print "\n[+] Options\n\n"; chomp( my $op = <stdin> ); if ( $op eq "3" ) { } if ( $op eq "1" ) { @ @ @@@@@ @ @ @ @ @@ @@ @ @ @@ @@ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ); mps($url); } if ( $op eq "2" ) { @ @ @@ @ @ @@ @ @ @ @ @ @@@ @ @ @@@ @@@@ @@@ @@ @@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @ @@@@@ @ @ @@@@ @ @@@@@ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @@@ @@@@ @@@@ @ @@@ @ @@@@ ); my $chau2 = 0; while ( $chau2 eq 0 ) { print "\n[+] 1 - List Categories\n"; chomp( my $op = <stdin> ); if ( $op eq "1" ) { print "\n[+] Searching ...\n\n"; my $code = toma($url); while ( $code =~ /<a class=\"subject\" href=\"(.*?)\" name=(.*?)>(.*?)<\/a>/migs ) { print "[+] ID : $2 [+] Name : $3\n"; } } else { $chau2 = 1; } } } } #gets_list_mp(); #gets_msg_mp(); #gets_msg_now(); sub mps { my $chau = "0"; print "\n[+] Searching pages ..\n"; my @founds = gets_list_mp($url); my $count = int(@founds); print "\n[+] Pages Found : $count\n"; while ( $chau eq 0 ) { print "\n[+] 1 - Get List Messages\n"; print "[+] 2 - Read Message\n"; chomp( my $op = <stdin> ); if ( $op eq "1" ) { print "\n[+] Number Page : "; chomp( my $op = <stdin> ); print "\n[+] Searching ..\n"; gets_msg_mp( $founds[ $op - 1 ] ); } elsif ( $op eq "2" ) { print "\n[+] Number Page : "; chomp( my $n = <stdin> ); chomp( my $id = <stdin> ); print "\n[+] Reading ...\n"; gets_msg_now( $founds[ $n - 1 ], $id ); } else { $chau = 1; } } } sub gets_msg_now { my $url = toma( $_[0] ); my $id = "msg_" . $_[1]; if ( $url =~ /<div class=\"inner\" id=\"$id\">(.*?)<\/div>/mig ) { my $uno = HTML::Strip->new( emit_spaces => 1 ); my $final = $uno->parse($1); $final =~ s/^[\t\f ]+|[\t\f ]+$//mg; } } sub gets_msg_mp { my $url = toma( $_[0] ); my @ids; my @asunto; my @nombre; while ( $url =~ /<td><a href=\"#msg(.*?)\">(.*?)<\/a><\/td>/migs ) { #print "$1 $2\n"; } while ( $url =~ /Ver perfil de (.*?)">/migs ) { #print "$1\n\n"; } my $total = int(@ids) - 1; for my $num ( 0 .. $total ) { . $ids[$num] . " [+] Asunto : " . $asunto[$num] . " [+] De : " . $nombre[$num] . "\n"; } } sub gets_list_mp { my @paginas; my $code = toma( $url . "/index.php?action=pm" ); push( @paginas, $url . "/index.php?action=pm" ); while ( $code =~ /<a class="navPages" href="(.*?)">(.*?)<\/a>/migs ) { } my @paginas = repes(@paginas); } sub repes { my @limpio; foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub toma { return $nave->get( $_[0] )->content; } sub tomar { my ( $web, $var ) = @_; return $nave->post( $web, [ %{$var} ] )->content; } #The End ?
AVISO : Solo esta probado en el foro spam portalhacker spam .
|
|
|
265
|
Programación / Scripting / [Python] MP3 Downloader 0.1
|
en: 28 Noviembre 2012, 16:09 pm
|
Traduccion a Python de este simple script para buscar y bajar musica. El codigo #!usr/bin/python #MP3 Downloader 0.1 #Coded By Doddy H import sys,urllib,urllib2,re,os,urlparse def toma(web) : nave = urllib2.Request(web) 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'); op = urllib2.build_opener() return op.open(nave).read() def clean(): if sys.platform=="win32": os.system("cls") else: os.system("clear") def head(): print """ @ @ @@@@@ @@@ @@@@ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @@ @@ @ @ @ @ @ @ @ @ @ @ @@ @ @@ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@@ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @@@ @@@@ @@@@ @ @ @ @ Coded By Doddy H """ def copyright(): print "\n\n(C) Doddy Hackman 2012\n" raw_input() sys.exit(1) def proxar(a,b,c): sys.stdout.write("\r[+] Status : %s / %s" % (a * b,c)) def down(file,filesave): print "\n[+] File to download : "+filesave+"\n" try: urllib.urlretrieve(file,filesave,reporthook=proxar) except: print "\n[-] Error\n" copyright() print "\n\n[+] File Download in "+os.curdir+"/"+filesave def buscar(titulo) : songs = [] datas =[] links = [] datas_back = [] links_back = [] titulo = re.sub(" ","_",titulo) print "\n\n[+] Searching ...\n" code = toma("http://mp3skull.com/mp3/"+titulo+".html") if not (re.findall("Sorry, no results found for",code)): songs = re.findall("<div style=\"font-size:15px;\"><b>(.*)<\/b><\/div>",code) datas_back = re.findall("<!-- info mp3 here -->\s+(.*?)<\/div>",code) links_back = re.findall("<a href=\"(.*)\.mp3\"",code) for datac in datas_back : datac = re.sub("<br />"," ",datac) datas.append(datac) for li in links_back : lic = li+".mp3" links.append(lic) try: for counter in range(0,len(songs)): print "\n[Song "+str(counter)+"] : "+songs[counter] print "[Data] : "+datas[counter] print "[Link] : "+links[counter] except: pass while 1: print "\n[+] Options\n" print "[+] 1 - Download" print "[+] 2 - Search" print "[+] 3 - Exit\n" op = raw_input("[+] Option : ") if op == "3": print "\n\n[+] Finished\n" copyright() if op == "2": party() if op == "1": num = input("\n[?] Number :") down(links[num],os.path.basename(links[num])) else: print "\n[-] Not Found\n"; raw_input() party() def party(): clean() head() bs = raw_input("\n\n[?] Song : ") buscar(bs) ## if not os.path.isdir("mp3_downloads"): os.makedirs("mp3_downloads") os.chdir("mp3_downloads") party() ## #The End ?
|
|
|
267
|
Programación / Scripting / [Perl] MP3 Downloader 0.1
|
en: 27 Noviembre 2012, 15:53 pm
|
Hice este simple script para buscar y bajar musica. El codigo #!usr/bin/perl #MP3 Downloader 0.1 #Coded By Doddy H use LWP::UserAgent; use URI ::Split qw(uri_split ); use Time::HiRes "usleep"; my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); my $se = "downloads_mp3"; unless ( -d $se ) { } head(); chomp( my $song = <stdin> ); $song =~ s/ /-/; print "\n[+] Searching ...\n\n"; my $code = toma( "http://mp3skull.com/mp3/" . $song . ".html" ); if ( $code =~ /Sorry, no results found for/ ) { print "\n[-] Not Found\n"; copyright(); } my @nombres; my @datas; my @links; while ( $code =~ /<div style="font-size:15px;"><b>(.*)<\/b><\/div>/mig ) { my $nombre = $1; #print "name : $nombre\n"; push( @nombres, $nombre ); } while ( $code =~ /<!-- info mp3 here -->\s+(.*?)<\/div>/migs ) { my $data = $1; $data =~ s/<br \/>/ /; $data =~ s/<br \/>/ /; #print "data : $data\n"; } while ( $code =~ /<a href=\"(.*)\.mp3\"/mig ) { my $link = $1 . ".mp3"; #print "link : $link\n"; } my $encontrados = int(@nombres) - 1; for my $aca ( 0 .. $encontrados ) { print "[Song $aca] : $nombres[$aca]\n"; print "[Data] : $datas[$aca]\n"; print "[Link] : $links[$aca]\n\n"; } chomp( my $number = <stdin> ); print "\n[+] Downloading ...\n"; now( $links[$number] ); print "\n[+] Finished\n"; copyright(); sub head { my @logo = ( "#=============================================#", "\n", "# MP3 Downloader 0.1 #", "\n", "#---------------------------------------------#", "\n", "# Written By Doddy H #", "\n", "# Email: lepuke[at]hotmail[com] #", "\n", "# Website: doddyhackman.webcindario.com #", "\n", "#---------------------------------------------#", "\n", "# The End ? #", "\n", "#=============================================#", "\n" ); marquesina(@logo); } sub copyright { my @fin = ("-- == (C) Doddy Hackman 2012 == --"); marquesina(@fin); <stdin>; } sub marquesina { #Effect based in the exploits by Jafer Al Zidjali my @logo = @_; my $car = "|"; for my $uno (@logo) { for my $dos ( split //, $uno ) { $|++; if ( $car eq "|" ) { mostrar( "\b" . $dos . $car, "/" ); } elsif ( $car eq "/" ) { mostrar( "\b" . $dos . $car, "-" ); } elsif ( $car eq "-" ) { mostrar( "\b" . $dos . $car, "\\" ); } else { mostrar( "\b" . $dos . $car, "|" ); } usleep(40_000); } } sub mostrar { $car = $_[1]; } } sub now { my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] ); if ( $path =~ /(.*)\/(.*)$/ ) { my $file = $2; if ( download( $_[0], $file ) ) { } } } sub download { if ( $nave->mirror( $_[0], $_[1] ) ) { if ( -f $_[1] ) { } } } sub toma { return $nave->get( $_[0] )->content; } #The End ?
Un ejemplo de uso #=============================================# # MP3 Downloader 0.1 # #---------------------------------------------# # Written By Doddy H # # Email: lepuke[at]hotmail[com] # # Website: doddyhackman.webcindario.com # #---------------------------------------------# # The End ? # #=============================================#
[?] Song : bones now
[+] Searching ...
[Song 0] : Discovery Now - bionic bones mp3 [Data] : 256 kbps 1:30 2.79 mb [Link] : http://www.whro.org/home/html/podcasts/discoverynow/041408.mp3
[Song 1] : Sean Bones - 'Here Now' mp3 [Data] : 128 kbps 3:28 3.19 mb [Link] : http://serve.castfire.com/audio/878039/sean-bones-here-now_2012-02-23-1 74939.128.mp3
[Song 2] : Discovery Now - bionic bones mp3 [Data] : 256 kbps 00:01:30 2.8 mb [Link] : http://whro.org/home/html/podcasts/discoverynow/041408.mp3
[Song 3] : Sean Bones - Here Now mp3 [Data] : 5.02 mb [Link] : http://www.hulkshare.com/dl/4t42l4kxi811/sean_bones_-_here_now.mp3
[Song 4] : Fuego Ft. Amara - Lo Que Quiero (Prod. By Bones, Now & Laterz) (Www.S tiloCaro.Com) mp3 [Data] : 4.43 mb [Link] : http://www.hulkshare.com/dl/w86wxq8bl0n4/fuego_ft._amara_-_lo_que_quier o_%28prod._by_bones%2c_now_%26_laterz%29.mp3
[Song 5] : Sean Bones - Here Now mp3 [Data] : 160 kbps 3:27 3.95 mb [Link] : http://myspoonful.com/wp-content/uploads/Sean-Bones-Here-Now.mp3
[Song 6] : Frankie Bones - Bonesbreaks Vol. 2 (B2) On The Beat Now-freestyle na veia mp3 [Data] : 4:40 mins 6.41 mb [Link] : http://dc203.4shared.com/img/564370108/97ff8470/dlink__2Fdownload_2FS4X eLchH_3Ftsid_3D20121127-94941-8934f180/preview.mp3
[?] Number : 1
[+] Downloading ...
[+] Finished
-- == (C) Doddy Hackman 2012 == --
|
|
|
269
|
Programación / Scripting / [Perl] FindIcons 0.1
|
en: 25 Noviembre 2012, 23:24 pm
|
Un simple script para bajar los iconos que quieran , los iconos bajados se guardan en un carpeta con el nombre buscado. #!usr/bin/perl #FindIcons 0.1 #Coded By Doddy H use LWP::UserAgent; use URI ::Split qw(uri_split ); use Time::HiRes "usleep"; my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); head(); chomp( my $se = <stdin> ); $se =~ s/ /-/; my $code = toma( "http://findicons.com/search/" . $se ); if ( $code =~ /<div class="box_info left">(.*)<\/div>/ ) { unless ( -d $se ) { } } else { print "\n[-] Not Found\n"; copyright(); } chomp( my $pages = <stdin> ); print "\n[+] Downloading ...\n\n"; for my $pages ( 1 .. $pages ) { my $code = toma("http://findicons.com/search/$se/$pages"); while ( $code =~ /<img src="http:\/\/png-(.*).findicons.com\/files\/(.*)" alt/mig ) { my $link = "http://png-" . $1 . ".findicons.com/files/" . $2; now($link); } } print "[+] Finished ...\n"; copyright(); sub head { my @logo = ( "#=============================================#", "\n", "# FindIcons 0.1 #", "\n", "#---------------------------------------------#", "\n", "# Written By Doddy H #", "\n", "# Email: lepuke[at]hotmail[com] #", "\n", "# Website: doddyhackman.webcindario.com #", "\n", "#---------------------------------------------#", "\n", "# The End ? #", "\n", "#=============================================#", "\n" ); marquesina(@logo); } sub copyright { my @fin = ("-- == (C) Doddy Hackman 2012 == --"); marquesina(@fin); <stdin>; } sub marquesina { #Effect based in the exploits by Jafer Al Zidjali my @logo = @_; my $car = "|"; for my $uno (@logo) { for my $dos ( split //, $uno ) { $|++; if ( $car eq "|" ) { mostrar( "\b" . $dos . $car, "/" ); } elsif ( $car eq "/" ) { mostrar( "\b" . $dos . $car, "-" ); } elsif ( $car eq "-" ) { mostrar( "\b" . $dos . $car, "\\" ); } else { mostrar( "\b" . $dos . $car, "|" ); } usleep(40_000); } } sub mostrar { $car = $_[1]; } } sub now { my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] ); if ( $path =~ /(.*)\/(.*)$/ ) { my $file = $2; if ( download( $_[0], $file ) ) { } } } sub download { if ( $nave->mirror( $_[0], $_[1] ) ) { if ( -f $_[1] ) { } } } sub toma { return $nave->get( $_[0] )->content; } #The End ?
|
|
|
|
|
|
|