ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Google keyword grabber
  #1  
Старый 04.05.2009, 20:14
Аватар для Exgibichi
Exgibichi
Новичок
Регистрация: 07.07.2008
Сообщений: 6
Провел на форуме:
315057

Репутация: 10
По умолчанию Google keyword grabber

накодил вчера тулзу, решил поделиться, думаю сеошники оценят. Ах да тулза грабит похожие кейворды из гугла.

upd добавил фильтр на наличее кея в фразе

PHP код:
<?php
/* 

|  Google keyword grabber
|  C0d3d by Exgibichi 
|  3/05/09

*/ 
error_reporting(0);
set_time_limit(1000);

if(!
$_POST['key']) {

echo 
'<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >
      <div style="margin:20%">
      <form action="" method="POST">
      <input type="text" name="key" value="viagra">
      Level: 
      <input type="text" name="n" value="2" size="3"><br/><br/>
      <input type="submit" value="Go">
      </form>
      </div>'
;

} else {

  if(!
$_POST['n']) { $n 2; } else { $n $_POST['n']; }
  
  echo 
'<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >';
  echo 
'<b>key:</b> '.$_POST['key'].' ';
  echo 
'<b>level:</b> '.$n.' ';
  
$startkey $_POST['key'];
  
$k keygrab($startkey);
  
$rx kgr($k$n);
  
$rx array_unique($rx);
  
$cx count($rx);
  echo 
'<b>key grabbed:</b> '.$cx.'<br/><br/>';
  
  foreach(
$rx as $bx) {

    
$bx str_replace('+'' '$bx);
    echo 
$bx.'<br/>';
  }
}

function 
keygrab($firstkey) {

  global 
$startkey;
  
  
$firstkey str_replace(' ','+',$firstkey);  
  
$url 'http://www.google.com/search?q='.urlencode($firstkey); 
  
$file file_get_contents($url) or die('Could not access file'); 
  
$exp "<a\s[^>]*href=(\"??)([^\" >]*?)\\1[^>]*>(.*)<\/a>"

  if(
preg_match_all("/$exp/siU"$file$matchesPREG_SET_ORDER)) { 
  
    foreach(
$matches as $m) {
    
      if(
strstr($m[2],'/search?hl') && !strstr($m[2],'http') && !strstr($m[2],'related')) {
      
        
preg_match('/&q=(.*)&revid/',$m[2],$rx);
        
        if(
strstr($rx[1],'%') && strstr($rx[1], $startkey)) {
        
          
$keys[] = urldecode($rx[1]);
          
        } elseif(
strstr($rx[1], $startkey)) {
        
          
$keys[] = $rx[1];
        }
      }
    }
  }  return 
$keys;
}

function 
dar2sar($array) { 

 for (
$i=0$i<count($array); $i++) {
  
    for (
$j=0$j<count($array[$i]); $j++) {
          
        
$s[] = $array[$i][$j];
    }
  } return 
$s;
}

function 
Clean_null_keys($array) { 

  foreach (
$array as $m) { 
  
    if (!
$m == '') {
      
$t[] = $m;
    }
  } return 
$t;
}

function 
kgr($sarx$n) {

  if(
$n == 0){ return $sarx; }

  foreach(
$sarx as $ax){
    
    if(
$ax) {
      
$cx[] = keygrab($ax);
    }
  }
  
$cx Clean_null_keys($cx);
  
$cx dar2sar($cx);
  
$cx Clean_null_keys($cx);
  
$n--;
  return 
kgr($cx$n);
}
?>

Последний раз редактировалось Exgibichi; 04.05.2009 в 22:17..
 
Ответить с цитированием

  #2  
Старый 04.05.2009, 20:28
Аватар для Alexsize
Alexsize
Fail
Регистрация: 17.09.2005
Сообщений: 2,242
Провел на форуме:
9089375

Репутация: 4268


По умолчанию

Щас оценим.


arginmax
fematril
zestra for women
l-arginine


1) вот этого по кею виагра быть не должно.
2) скинь в ПМ асю, объясню что там еще должно быть)
__________________
...

Последний раз редактировалось Alexsize; 04.05.2009 в 20:33..
 
Ответить с цитированием

  #3  
Старый 04.05.2009, 20:45
Аватар для Gifts
Gifts
Reservists Of Antichat - Level 6
Регистрация: 25.04.2008
Сообщений: 827
Провел на форуме:
2769640

Репутация: 1304


По умолчанию

http://forum.antichat.ru/thread107524.html
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Новичкам о дорвеях троль909 Статьи 21 03.05.2010 01:11
Полная обзорная статья о Google PR [ANGEL] Статьи 6 16.02.2009 18:31
Google готовит свою ОС? Alexandr II Мировые новости 22 16.12.2008 22:31
Кому не трудно помогите начинающему Pashtet Болталка 3 02.05.2007 03:33



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ