Autor Tema: Funciones Extractor Correo  (Leído 2812 veces)

0 Usuarios y 1 Visitante están viendo este tema.

RootBox

  • **
  • Mensajes: 156
  • Liked: 0
Funciones Extractor Correo
« : mayo 04, 2006, 11:38:36 am »
Bueno aki les dejo las funciones para extraer correos de resultados de google

Código: [Seleccionar]
		function busca($elmail){

global $varmail;

$varmail = $elmail;

$socket = fsockopen("www.google.com",80);

$palabras = "/search?q=%40".$elmail."&num=30";


$headersdata  = "GET ". $palabras ." HTTP/1.0\r\n";
$headersdata .= "Accept: text/html\r\n";
$headersdata .= "Referer: http://www.google.com/\r\n";
$headersdata .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n";
$headersdata .= "Host: www.google.com\r\n\r\n";

fputs($socket,$headersdata);

$resultado = "";

while(!feof($socket)) {
$resultado .= fgets($socket,128);
}

$mick .= $resultado;

fclose($socket);

return $mick;
}


function filtra($lala1){

$lala1 = explode("</b>",$lala1);

for($i=0;$i<count($lala1);$i++){
if(strpos($lala1[$i], '@<b>') !==false){
$lala2 = explode(" ",$lala1[$i]);

for($a=0;$a<count($lala2);$a++){
if(strpos($lala2[$a], '@<b>') !==false){
$lala3 = str_replace("<b>","",$lala2[$a]);
if(strpos($lala3, '>') !==false){
$lala4 = explode(">",$lala3);
$mails[] = $lala4['1'];
}else{
$mails[] = $lala3;
}
}
}

}
}

$mailtopish = "";

for($x=0;$x<count($mails);$x++){


$mailtopish .= $mails[$x]." - ";


}

return $mailtopish;

}
function filtra2($correosesc){


$correosesc = explode(" - ",$correosesc);
$correosesc = array_unique($correosesc);

for($z=0;$z<count($correosesc);$z++){


if (eregi("^[A-Z0-9._%-]+@[A-Z0-9._%-]+\.[A-Z]{2,6}$", $correosesc[$z])) {
$correosesc[$z] = strtolower($correosesc[$z]);

$correosesc[$z] =    $correosesc[$z] . "\n<br>" ;

echo $correosesc[$z];
}

}
}

Pues una vez con esas funciones nomas es pura logica..

Cita
$correos = busca($_REQUEST['mail']);
$mfil = filtra($correos);

echo $mfil;
archivo.php?mail=gobiernofederal.com