#!/usr/bin/perl
$|=1;
print "CryptoCard key generator.\n";
print "Key #\tdec\thex\toct\n";

for($i=1;$i<9;$i++) {
    $octet=int(rand(255));
    print"$i:\t";
    if(length($octet)==1) {$dec="00$octet";}
    if(length($octet)==2) {$dec="0$octet";}
    if(length($octet)==3) {$dec="$octet";}
    $oct=sprintf("%o",$octet);
    if(length($oct)==1){$oct=sprintf("00$oct");}
    if(length($oct)==2){$oct=sprintf("0$oct");}
    $hex=sprintf("%#2.2x",$octet);
    print "$dec\t$hex\t$oct";
    print "\n";
    sleep(1);
}