skipping the iv parameter initialisation

This commit is contained in:
SJ
2016-04-26 22:28:38 +02:00
parent c0e1425e52
commit 1d57248db9
5 changed files with 1 additions and 19 deletions

View File

@ -1,13 +0,0 @@
#!/usr/bin/perl
#
@x = ('A'..'Z','a'..'z',0..9);
$iv = "";
srand;
for($i=0; $i<16; $i++){
$iv .= @x[rand @x];
}
print $iv;