diff options
author | Peter Wu <peter@lekensteyn.nl> | 2016-08-09 18:19:18 +0200 |
---|---|---|
committer | Peter Wu <peter@lekensteyn.nl> | 2016-08-09 18:19:18 +0200 |
commit | 7851407fe89228897d01278bb1929f817821a701 (patch) | |
tree | bc15b7bcc143404fc510214a587e2f0a29df4dea /hwrand.pl | |
parent | 15b4bbfc33689b3780b1767301c8e8d6a2084875 (diff) | |
download | scripts-7851407fe89228897d01278bb1929f817821a701.tar.gz |
hwrand.pl,hwrand.py: forward randomness
Continuously fills the entropy pool from /dev/hwrng, crediting 4 bits of
entropy per byte. Hopefully speeds up the provisioning of a test VM that
invokes pacman-key --init...
Authored by me, posted on https://unix.stackexchange.com/a/302338/8250
Diffstat (limited to 'hwrand.pl')
-rwxr-xr-x | hwrand.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/hwrand.pl b/hwrand.pl new file mode 100755 index 0000000..87fd667 --- /dev/null +++ b/hwrand.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl +open my $hw, "</dev/hwrng" and open my $rnd, "</dev/random" or die; +for (;;) { + my $l = read $hw, my $d, 512; + ioctl $rnd, 0x40085203, pack("ii", 4 * $l, $l) . $d or die; + vec(my $w, fileno $rnd, 1) = 1; + select undef, $w, undef, undef +} |