[Enlace externo eliminado para invitados]
este bot es la base del otro bot que hize que mas tarde publico ya que arregle un bug, que es un stealer de correos, si pues un recolector de correos que mas tarde publico porque salio un bug pero digo esto para que vean que este script tiene mas de una adaptación ademas de hacer un buscador... les dejo una imagen de como indexa y el srce para que lo pongan en su web si desean salu2
source
Código: Seleccionar todo
<?php
//Errores?¿?¿
error_reporting(E_ALL & ~E_NOTICE);
/***********************************************
* Autor: Linkgl *
* Fecha: 11/01/2010 *
* Este script puede modificarse *
* y distribuirse siempre y cuando se respeten *
* los derechos del autor *
* Correo: [email protected] *
************************************************/
//Comenzamos!
//Si no se encuentra activada la variable op procedemos
if(!(isset($_GET['op'])))
{
//Aqui dibujaremos el formulario para interactuar con el usuario...
?>
Bienvenido a LinDexer <br />
Indique la pagina de la que desea tomar los links<br />
Ejemplo: http://desarrolloweb.com/<br />
<form action="?op=buscar" method="post">
<input type="text" name="web"><br />
<input type="submit" value="robar">
</form>
<?
} //Si la variable op esta activada & su valor es buscar buscamos links a indexar
elseif($_GET['op']=="buscar")
{
//Detectamos la url que se escribio
$pagina=$_POST['web'];
//Obtenemos el contenido de la web
$archivo=file_get_contents($pagina);
//Seteamos un int a 0
$i=0;
//abrimos un bucle, mientras se encuentre un enlace procederemos, si no no hay nada que indexar
while(strpos($archivo,'<a href="'))
{
//extraemos el primer enlace
$extraer=strpos($archivo,'<a href="',$i);
//usamos la int i como puntero
$i=$extraer+1;
//eliminamos comillas para sacar la pura url
$ext=substr($archivo,$extraer + 9);
$se=strpos($ext,'"');
$final=substr($ext,0,$se);
//si no tiene http la añadimos
if(strpos($final,"http") === false)
{
$final="{$pagina}{$final}";
}
//abrimos datos.txt en este caso nuestra base de datos del modo a (append) para colocar los datos al final
$f=fopen("datos.txt","a");
//escribimos =) y cerramos
fwrite($f,$final." \n");
fclose($f);
//mostramos que la web se indexo
echo $final." > Indexada<br />";
//dormimos un segundo para no colgar el navegador y no joder la ram
//usamos flush para que todo sea mas comodo y visualmente atractivo, es decir ir mostrando el codigo antes de finalizar
sleep(1);flush();
}
}
else
{
echo "la pag qe busca no existe";
}
//Script creado y comentado por Linkgl, el autor no se hace responsable de los daños que el script pueda ocacionar.
?>
