open RAND, "</dev/random";
read RAND, $key, length($message);