Con Perl en mi cutre portátil se generan 50000 en un segundo:
Lo echa por la terminal, pero rediriges a un archivo y listos. Se puede ejecutar varias veces para aprovechar bien la CPU, como han apuntado.
Si lo quieres en base58, pide
. Solo tengo que hacer copy-paste pero ahora mismo me es tarde.
Code:
use warnings;
use strict;
use Fcntl;
my $num_keys = 50e3;
sub gen_privkey {
my ($fd) = @_;
my $read = sysread $fd, my $buf, 256/8 or die "sysread: $!";
die 'EOF' unless $read;
return unpack 'H*', $buf;
}
sysopen my $fd, '/dev/urandom', O_RDONLY;
printf "%s\n", gen_privkey $fd for 1 .. $num_keys;
close $fd;
use strict;
use Fcntl;
my $num_keys = 50e3;
sub gen_privkey {
my ($fd) = @_;
my $read = sysread $fd, my $buf, 256/8 or die "sysread: $!";
die 'EOF' unless $read;
return unpack 'H*', $buf;
}
sysopen my $fd, '/dev/urandom', O_RDONLY;
printf "%s\n", gen_privkey $fd for 1 .. $num_keys;
close $fd;
Lo echa por la terminal, pero rediriges a un archivo y listos. Se puede ejecutar varias veces para aprovechar bien la CPU, como han apuntado.
Si lo quieres en base58, pide
. Solo tengo que hacer copy-paste pero ahora mismo me es tarde.