Select Code to Download

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

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

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

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