1 files changed, 0 insertions, 8 deletions
diff --git a/hwrand.pl b/hwrand.pl
deleted file mode 100755
index 87fd667..0000000
--- a/hwrand.pl
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/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
-}