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

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
Полезные скрипты

Страница 60 из 87

« Первая

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

01.04.2009, 20:41

_Kris_

Познающий

Регистрация: 22.07.2008

Сообщений: 62

Провел на форуме:
304390

Репутация: 172

PHP код:


		
			
#! /usr/bin/env python

# -*- coding:windows-1251 -*-



#-#######################################################-##

# Скачиваем музыку                                        ##

# (c) 2009                                                ##

# Создал специально для себя,                             ##

# так как инет медленный, а без                           ##

# Транса, кодить не умею...                               ##

# De-visible project                                      ##

# ndcoders.ru                                             ##

# GreetZ To login999                                      ##

# Thanks to http://mp3.myws.ru/index.php/search?q=trance  ##

# Также делаем программы на заказ                         ##

# Контакт ICQ#: 22-3333-575                               ##

# Мы: ndcoders.ru, devisible.ru                           ##

#-######################################################-###



import urllib

import time

import re

import threading

import urlparse

import string



URL_MAS = []

s = 0



def DownFile(url):

    f = urlparse.urlsplit(url)

    mp3_name = str(f.path).strip('\/')

    mp3_name = str(mp3_name).strip('[')

    mp3_name = str(mp3_name).strip(']')

    mp3_name = str(mp3_name).strip('\'')

    mp3_name = mp3_name.replace('/','1')

    try:

        print u"Начинаем закачку файла: ", mp3_name, '\n'

        print u"Размер файла: ", GetSizeMp3(url), "byte"

        infile = urllib.urlopen(url).read()

    except:

        print u"Ошибка скачивания: ", mp3_name

    print u", Файл закачен\n"

    mp3_file = open(mp3_name+str(s)+'.mp3',"wb")

    mp3_file.write(infile)

    mp3_file.close()

    print 'File Saved Local'



def GetSizeMp3(url):

    size_mp3 = urllib.urlopen(url).info()

    mp3 = str(size_mp3)

    s_mp3 = str(re.findall(r'Content-Length: (.*?)\r\n',mp3))[2:-2]

    print s_mp3



def LoadFromFile():

    with open("urls.txt",) as urls:

        for ur in urls:

            URL_MAS.append(ur[:-1])



def ServerOption():

    info = urllib.urlopen('http://mp3.myws.ru').info()

    with open('serv_option.txt',"w") as serv:

        serv.write(str(info))

        print '''

            Author: De-visible, ICQ#: 22-3333-575

            WeAre:  ND_c0ders, ndcoders.ru

            ServerOption: mp3.myws.ru



            '''

        print info,'\n\n'



def Start_Process():

    LoadFromFile()

    print u"Массив ссылок загружен",'\n'

    print u"Менеджер закачек запущен",'\n'

    ServerOption()

    for url_mas in URL_MAS:

        DownFile(url_mas)

        s = s + 1

    print u" Все закачки завершены"

threading.Thread(target = Start_Process).start()

time.sleep(1000)

02.04.2009, 04:19

Fepsis

Постоянный

Регистрация: 17.09.2008

Сообщений: 562

Провел на форуме:
6962560

Репутация: 536

Скрипт для ТС-а вот этого топика: http://forum.antichat.ru/thread114182.html
Проверяет наличие указанного вами товара в интернет магазине www.ebay.com

PHP код:


		
			
<?php



if(isset($_POST['go']))

{

echo 'Введите наименование товара, например <b>iphone, nokia n95 </b> ну или ещё 



что-нибудь..)<br><br><form method=post><input type="text" name="n">

<input name="go" type=submit value="Проверить"></form>';

$name = str_replace(" " , "+", $_POST['n']);

$url = "http://shop.ebay.com/items/?_nkw=".$name;

$page = file_get_contents($url); 

preg_match_all("/(?<=Matching products<\/span><span class=\"cnt\">\()([0-9]*)(?=\))/", $page, 



$match);

$n = array_pop(array_pop($match));



if ($n<>"")

  {

   print_r("Товар <b>".$_POST['n']."</b> имеется в наличии в количестве <b>".$n."</b> штук");

  }

else

  {

   print_r("Товар <b>".$_POST['n']."</b> отсутствует");

  }

}

else

{

echo 'Введите наименование товара, например <b>iphone, nokia n95 </b> ну или ещё 



что-нибудь..)<br><br><form method=post>

<input type="text" name="n"> <input name="go"

type=submit value="Проверить"></form>';

}



?>

02.04.2009, 22:51

Gar|k

Постоянный

Регистрация: 20.03.2009

Сообщений: 564

Провел на форуме:
991929

Репутация: 395

JS переводящий word -> char (SQL)

Все мы любим SQL инекции и знаем что если нельзя вписать буковку то можно вприсать char(код)

Код:

<html>
<head>
<title>
Word -> Char (SQL)
</title>
<script language='javascript'>
function char(str)
	{
	len = str.length;
	if(len==0){return 'null';}
	rez='';
	for(i=0;i<len;i++)
		{
		n = str.charCodeAt(i);
		if(n>1000){n=n-848;}
		rez=rez+''+n;
		if(i+1<len){rez=rez+',';}
		}
	return('char('+rez+')');                              
	}
</script>
</head>
<body>

<input type=text id=enter> <input type=button value=" Gen " onclick="javascript:show.innerHTML=char(enter.value)"><br>
<div style='padding:7;background:#f8f8f8;font:15pt system' align=center id=show></div>
</body>
</html>

06.04.2009, 19:35

Exgibichi

Новичок

Регистрация: 07.07.2008

Сообщений: 6

Провел на форуме:
315057

Репутация: 10

Парсит ссылки с гугла по кейворду

PHP код:


		
			
<?php

/*

|

|  www.google.ru parser

|  C0d3d by Exgibichi

|  27/07/08

|

*/



set_time_limit(0); 



$n = 20; // number of pages

$keyword = 'keyword'; //keyword for parse



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);

}

?>

07.04.2009, 06:46

kopele

Новичок

Регистрация: 19.11.2008

Сообщений: 10

Провел на форуме:
123389

Репутация: 6

Exgibichi
Add remove duplicate in links.txt and parse empty string

09.04.2009, 12:49

mff

Познавший АНТИЧАТ

Регистрация: 12.03.2008

Сообщений: 1,379

Провел на форуме:
5866479

Репутация: 1809

Ребят, поделитесь, у кого есть, скриптом для сбора ников с форумов vBulletin 3.8.2

09.04.2009, 14:38

ph1l1ster

Постоянный

Регистрация: 11.03.2008

Сообщений: 347

Провел на форуме:
2075230

Репутация: 462

vBulletin nickname grabber

Код:

 #!/usr/bin/perl 
use LWP::UserAgent; 
system('cls');
print qq(
==============================
# vBulletin nickname grabber #
#      coded by ph1l1ster    #
#        icq: 612672         #
==============================\n\n\n
);

print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.php?do=getall&order=asc&sort=username&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?u=.*\">(.*)<\/a>/g;
print A join "\n", @nicknames;}