Полезные скрипты

17

seohnik

29 июня 2009, 20:03

2030

Приветствую товарищи!

Предлагаю выкладывать в этой теме полезные скрипты которые были написаны вами или не вами, покупались, заказывались, или нашли готовое решение в паблике.

Предпочтение: скрипты относящиеся к СЕО, интересные веб-мастерские решения, скрипты для доменной индустрии, конвертеры, парсеры, хаки и т.п

Оформление: код оформлять в соответствующие теги. Краткое описание или пояснение к скрипту

Язык: PHP, PERL, JavaScript и др

seohnik добавил 30.06.2009 в 00:13

seohnik добавил 30.06.2009 в 00:10

Скрипт парсит Гугл по заданному кею и сохраняет урлы в файл


<?php

/*

|

|  www.google.ru parser

|  C0d3d by Exgibichi

|

*/



set_time_limit(0);



$n = 10; // Количество страниц

$keyword = 'keyword'; //Ваш ключевик



function googlelinkparse($keyword,$n) {



  $keyword = str_replace(' ','+',$keyword);

  $url = 'http://www.google.ru/search?q='.$keyword.'&num=100&filter=0&start='.$n.'0';

  $file = file_get_contents($url) or die('Could not access file');

  $exp = "<a\s[^>]*href=(\"??)([^\" >]*?)\\1[^>]*>(.*)<\/a>";



  if (preg_match_all("/$exp/siU", $file, $matches, PREG_SET_ORDER)) {



    $c = count($matches);

    for ($i=0; $i<$c; $i++) {



      if (strstr($matches[$i][2],'http://') && !strstr($matches[$i][2],'google') && !strstr($matches[$i][2],'search?q=cache') && !strstr($matches[$i][2],'youtube') && !strstr($matches[$i][2],'/aclk?sa')) {

      $links[] = $matches[$i][2];

      }

    }

  } return $links;

}



for ($i=0; $i<$n; $i++) {



  $link = googlelinkparse($keyword,$i);

  $c = count($link);



  for ($j=0; $j<$c; $j++) {

    $f = fopen('links.txt','a+'); fputs($f,$link[$j]."\r\n"); fclose($f);

  }

  sleep(10);

}

?>

142

FFFFx029A

30 июня 2009, 00:06

#1

Те на варез форум нужно! 😡

http://www.youtube.com/watch?v=Gyl4E4EcPdc (http://www.youtube.com/watch?v=Gyl4E4EcPdc) - партнёрка от Мавроди и МММ))) http://miniwm.ru/soft.php?read=917 (http://miniwm.ru/soft.php?read=917) CMS MiniWM v2.8 - 49.99$

315

El_grapaduro

30 июня 2009, 00:07

#2

ТС, с цветовосприятием у вас как, нормально?

покупались, заказывались,

я тут заказывал себе скрипт, короче парсит раму, яндекс и гугл. Составляет из спарсеного анкоры отсеивая хлам и считает стоимость продвижения по этим кеям. Проверят сайты в топе по этим кеям, палит закрытые сети.

Ща выложу.

196

VoV@

30 июня 2009, 05:57

#3

El_grapaduro:
ТС, с цветовосприятием у вас как, нормально?

я тут заказывал себе скрипт, короче парсит раму, яндекс и гугл. Составляет из спарсеного анкоры отсеивая хлам и считает стоимость продвижения по этим кеям. Проверят сайты в топе по этим кеям, палит закрытые сети.
Ща выложу.

Фигассе! Небось ещё и написан на брейнфаке?

⭐ Разработка Андроид-приложений (Xamarin C#). ⭐ Разработка ASP.NET (WebForms, MVC, WebAPI, Core). ⭐ Цой жив!

17

seohnik

30 июня 2009, 09:06

#4

El_grapaduro:
ТС, с цветовосприятием у вас как, нормально?

я тут заказывал себе скрипт, короче парсит раму, яндекс и гугл. Составляет из спарсеного анкоры отсеивая хлам и считает стоимость продвижения по этим кеям. Проверят сайты в топе по этим кеям, палит закрытые сети.
Ща выложу.

C цветовосприятием все отлично! А у Вас?

Речь идет не о нулленых движках или коммерческих скриптах, а о простеньких скриптах которые Вам не жалко выложить.

Например:

Скрипт меняет кодировку всех файлов в данном каталоге с utf8 на cp1251.


<?php



function doit($dir='.'){

    $d=opendir($dir);

    while($f=readdir($d)){

      if($f!=='.' AND $f!=='..'){

        echo $f;

        if(is_file($dir.'/'.$f)){

            echo ' Converting...';



            $a=file_get_contents($dir.'/'.$f);

            $a=iconv('UTF-8','WINDOWS-1251',$a);

            $fp=fopen($dir.'/'.$f,'w');

            fwrite($fp,$a);

            fclose($fp);

            echo ' - OK<br />';

        }elseif(is_dir($dir.'/'.$f)){

            echo ' changing dir<br />';

            doit($dir.'/'.$f);

        }else{

            echo ' Skipping<br />';

        }

      }

    }

}

doit('.');



?>

225

ewg777

30 июня 2009, 09:21

#5

И для чего нужен такой мусор?

Посмотрите код BearMan'a и сравните со своим говнокодом.

покупались, заказывались

Вам на nulled.cc нужно...

82

arkadiy_a

30 июня 2009, 16:34

#6

ТС отличная идея, не обращайте внимание на идиотов.

Новички внимание! Варез здесь выкладывать нельзя, с этим здесь строго.

194

BrokenBrake

1 июля 2009, 00:34

#7

Сперва тоже подумал, что ТС варез выкладывать предлагает, но он потом сделал оговорку. Так что нормальная тема, не кидайтесь на человека зря. Через сутки бесплатно вылкладываю этот скрипт. В тему не буду заходить, кому интересно - ждите новостей в блоге.

17

seohnik

1 июля 2009, 12:03

#8

Скрипт некий транслятор с bash.org.ru. Можно прикрутить к развлекательному сайту. :)

Выводит последнюю добавленную цитату:


<?php

    $text = file_get_contents('http://bash.org.ru');

    preg_match('#<div>(.+)</div>#U',$text,$fraza);

    echo '<p>',$fraza[0],'</p>';

?>

Выводит последнюю добавленную цитату из [топ Бездны]:


<?php

    $text = file_get_contents('http://bash.org.ru/abysstop');

    preg_match('#<div>(.+)</div>#U',$text,$fraza);

    echo '<p>',$fraza[0],'</p>';

?>

[Удален]

1 июля 2009, 13:44

#9

Переводчик рус->eng


<?php

$text_ru = 'этот текст надо перевести';

$text_en = translate ( $text_ru );



function translate( $text ) {

	$text = urlencode ( iconv ( 'WINDOWS-1251', 'UTF-8', $text ) );

	$fp = curl_init ( 'http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' . $text . '&langpair=ru%7Cen&callback=foo&context=bar' );

	curl_setopt ( $fp, CURLOPT_RETURNTRANSFER, '1' );

	preg_match ( '|"translatedText":"(.*?)"|is', curl_exec ( $fp ), $result );

	curl_close ( $fp );

	return iconv ( 'utf-8', 'windows-1251', $result [ '1' ] );

}



echo $text_en;

?>

194

BrokenBrake

1 июля 2009, 14:45

#10

KosoyRoman, а зачем кодировку менять? Сразу всё в UTF-8 делать и всё.

Все что нужно знать о DDоS-атаках грамотному менеджеру

Яндекс Вебмастер вынес товарные фиды в отдельный раздел