Select Code to Download

perl -e 'print pack("H16",join("",map{$_=chr(int(rand(177)));}(1..56))
+);' >>keyfile.key

#!/usr/bin/perl -w

...
                exit(0);
        }
}

#!/usr/bin/perl -w

...
        print decrypt($cipher,$in),"\n";
        undef($in);
}