mailpiler/util/gen-iv.pl at 28a85ef44c80e1ad09668efa9a6d45a55c0785e6

Fork: 0

mpolo.team / mailpiler

Find file

Newer

Older

mailpiler / util / gen-iv.pl

SJ on 11 Feb 2012 130 bytes 0.1.14 fixes

Raw Blame History

#!/usr/bin/perl
#

@x = ('A'..'Z','a'..'z',0..9);
$iv = "";

srand;

for($i=0; $i<16; $i++){
   $iv .= @x[rand @x];
}

print $iv;