Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Помогите со скриптом (сборщик емаилов) (https://forum.antichat.xyz/showthread.php?t=43423)

helat 30.06.2007 16:19

Помогите со скриптом (сборщик емаилов)
 
PHP код:

<?php
    $limit
=$HTTP_GET_VARS["limit"];
    
$limit split(";",$limit);

    if (
$limit[0]<=0$limit[0]=1;
    if (
$limit[1]==0$limit[1]=999999;

    
$s1"        <td width=100% align=\"left\" valign=\"top\" bgcolor=#f8f8f8>&nbsp;<a class=target href=\"mailto:";
    
$s2"</a></td>";
    
$t "\">";

    
$file_c "http://www.exaccess.ru/asp/seller.asp?id_s=";
    for (
$i=$limit[0]; $i<=$limit[1]; $i++ )
    {   
$file $file_c.$i;
        
$f=file($file);
        
$str $f[159];
        
$str=str_replace($s1,"",$str);
        
$str=str_replace($s2,"",$str);
        
$str=split($t,$str);
        echo 
"<b>".$i."</b> ".$str[0]."<br>";
    }         
/**/

    
?>

Есть вот такой скрипт
Мне надо его переделать под свой сайт
делаю вот так

PHP код:

<?php
    $limit
=$HTTP_GET_VARS["limit"];
    
$limit split(";",$limit);

    if (
$limit[0]<=0$limit[0]=1;
    if (
$limit[1]==0$limit[1]=99999999;

    
$s1"        <br><br><br><br><br><br><br><br><br><br>";
    
$s2"&nbsp;&nbsp;&nbsp";
    
$t "\">";

    
$file_c "http://*****.ru/";
    for (
$i=$limit[0]; $i<=$limit[1]; $i++ )
    {   
$file $file_c.$i;
        
$f=file($file);
        
$str $f[159];
        
$str=str_replace($s1,"",$str);
        
$str=str_replace($s2,"",$str);
        
$str=split($t,$str);
        echo 
"<b>".$i."</b> ".$str[0]."<br>";
    }         
/**/

    
?>

Но он не работает.
ПОМОГИТЕ.

helat 30.06.2007 16:34

И если можно чтоб результат в файл сохранялся

KPOT_f!nd 30.06.2007 16:40

_www.downloads.xclan.ru/sources/Mail_Grabber.rar

helat 30.06.2007 16:48

invlose дай свою аську плииз.
или стукни мне 361316611

helat 30.06.2007 16:49

KPOT_f!nd мне надо не только мыла.
мне над ещё кое что

GreenBear 30.06.2007 16:50

PHP код:

preg_match_all('/[a-z0-9_-]+@[a-z0-9]+\.([a-z0-9]{2})/is'$str$mail);
    foreach(
$mail[0] as $k=>$v){
        if(!
in_array(rtrim($v), $emails)){
                
$emails[] = rtrim($v);
            
fwrite($accrtrim($v)."\r\n");
            }
    } 

ну потипу этого, делал для сайта "хялява для спамеров".

hhover 30.06.2007 16:51

Прям прослезился, вспомнил свои первые скрипты, почти такие же кривые. Хорошо хоть глупых вопросов я не задавал. :\

PHP код:

preg_match_all "/[A-Za-z0-9\-\_\.]{1,15}\@[A-Za-z0-9\-\.]+\.[A-Za-z]{2,4}/is"$pagesource$result ); 


KPOT_f!nd 30.06.2007 16:51

Цитата:

KPOT_f!nd мне надо не только мыла.
мне над ещё кое что
Помогите со скриптом (сборщик емаилов) ты напиши то что нужно конкретно!

helat 30.06.2007 17:34

мне надо выдирать с сайта
********.ru/XXXXXX (где XXXX это порядковый номер.)
определённый текст ,который в исходниках находиться между
<br><br><br><br><br><br><br><br><br><br>
И
&nbsp;&nbsp;&nbsp

helat 30.06.2007 17:58

и этот текст сохранять в файл

hhover 30.06.2007 18:17

PHP код:

<?php
$url 
'http://ursite.com/';
$fo fopen 'result.txt''ab' );
for ( 
$i $_GET['limit1']; $i <= $_GET['limit2']; $i++ )
{
  
$pagesource join file $url $i ) );
  
preg_match "/\<br\>\<br\>\<br\>\<br\>\<br\>\<br\>\<br\>\<br\>\<br\>\<br\>(.+?)\&nbsp\;\&nbsp\;\&nbsp\;/is"$pagesource$result );
  
fwrite $fo$result[1] . "\r\n" );
}
fclose $fo );
?>


helat 30.06.2007 18:47

чото он не пашет

helat 30.06.2007 18:48

php?limit=12345678;12345679 так обращение делаю

hhover 30.06.2007 19:22

Гений.

helat 30.06.2007 19:28

так оно так не работает.
Стукни мне в 361316611

helat 30.06.2007 23:41

а как если текст между
" border="0" alt="
и
" /><br />

Ch3ck 01.07.2007 11:54

Я вот для чего-то писал. Пример-но тоже самое...
PHP код:

<? 
$handler
=fopen('emails.txt','a+');
  for(
$i=1;$i<3000;$i++){ 
    
$filename 'http://www.***.ru/center.php?chp=showorg&num='.$i
    echo 
$i.". "
    
$str file_get_contents($filename); 
    
preg_match_all('|href="mailto:([^"]*)"|is',$str,$out); 
    if(empty(
$out[1][0])) echo " no mail"
    else{ 
      echo 
" get ".$out[1][0]; 
      
fwrite($handler,$out[1][0]."\n"); 
    } 
    echo 
"\n"
  } 
  
fclose($handler); 
?>


Isis 01.07.2007 11:58

BlackLogic, почему цикл повторяется ровно 2999 раз ?

helat 01.07.2007 12:54

неработает ни первый не второй

hhover 01.07.2007 12:59

http://bash.org.ru/quote/330837

Ch3ck 01.07.2007 13:10

Цитата:

BlackLogic, почему цикл повторяется ровно 2999 раз ?
Не знаю. Сделай сколько хочешь.

helat 01.07.2007 15:04

я изменял.Не помогает


Время: 04:26