daily pastebin goal
9%
SHARE
TWEET

Untitled

a guest Jun 18th, 2018 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2. use String::Random;
  3. $pwr = new String::Random;
  4. map {$pw = $pwr->randpattern("snss!ns"); system("zip -P '$pw' -q '$_.zip' '$_'") != 0 or print "$_\t\t$pw\n"} @ARGV;
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