codigo
Código: Seleccionar todo
<?php
/*****************************************************\
* Codeado por Linkgl *
* Fecha 14/01/10 *
* correo: [email protected] *
* Version BETA aprueba de fallos *
* Este codigo se puede editar, distribuir y optimizar *
* siempre y cuando se respeten los derechos de autor *
\******************************************************/
error_reporting(E_ALL & ~E_NOTICE);
if(!(isset($_GET['op'])))
{//form
?>
Bienvenido a LinSpider <br />
Indique a continuación la página de la cual desea robar correos<br />
<form action="?op=robar" method="post">
<input type="text" name="web"><br />
<input type="submit" value="robar">
</form>
<?
}
elseif($_GET['op']=="robar")
{
//obtenemos datos y abrimos la pagina
$pagina=$_POST['web'];
$todo=file_get_contents($pagina);
//extraemos SOLO la primera página
if(strpos($todo,"@hotmail"))
{
//extraemos los correos de la pagina
$extraccion=explode(" ",$todo);
echo "Correos encontrados: <br />";
for($i=0;$i<count($extraccion);$i++)
{
if(strpos($extraccion[$i],"@hotmail"))
{
echo "{$extraccion[$i]} <br />";
//los almacenamos
$f=fopen("bd.txt","a");
fwrite($f,$extraccion[$i]."\n");
fclose($f);
}
}
}
else
{
echo "No se encontraron correos en la pagina principal <br /> Buscando en subpaginas <br />";
}
$i=0;
//extraemos las otras urls
while(strpos($todo,'<a href="'))
{
$extraer=strpos($todo,'<a href="',$i);
$i=$extraer+1;
$ext=substr($todo,$extraer + 9);
$se=strpos($ext,'"');
$final=substr($ext,0,$se);
if(strpos($final,"http") === false)
{
$final="{$pagina}{$final}";
}
echo "Entrando en: ".$final."<br />";
$veamos=file_get_contents($final);
if(strpos($veamos,"@hotmail"))
{
$extraccion=explode(" ",$todo);
echo "Correos encontrados: <br />";
for($i=0;$i<count($extraccion);$i++)
{
if(strpos($extraccion[$i],"@hotmail"))
{
echo "{$extraccion[$i]} <br />";
$f=fopen("bd.txt","a");
fwrite($f,$extraccion[$i]."\n");
fclose($f);
}
}
}
sleep(1);flush();
}
}
else
{
echo "La página que solicita no existe";
}
?>
PD2: Guarda todo en un txt llamado bd.txt si les da error den permisos 777 a la carpeta y al archivo.
