#!/usr/bin/env perl
use String::Random;
$pwr = new String::Random;
map {$pw = $pwr->randpattern("snss!ns"); system("zip -P '$pw' -q '$_.zip' '$_'") != 0 or print "$_\t\t$pw\n"} @ARGV;