$plaintext = substr($input . ("\x00" x $ciphertextsize), 0, $ciphertextsize);


##</code><code>##

print "Enter price to encrypt:";
chomp (my $input = <>);
my $micros = int($input * 1_000_000);
$plaintext = pack("N", $micros >> 32) . pack("N", $micros);


##</code><code>##

use Time::HiRes;
$initvector = join("", map {pack("N", $_)} Time::HiRes::gettimeofday(),
                       rand(2**32), rand(2**32));


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/