Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Best random number

by t0mas (Priest)
on Dec 19, 2002 at 14:02 UTC ( [id://221111]=note: print w/replies, xml ) Need Help??


in reply to Best random number

You could try to get them from random.org. The following snippet will print 100 random numbers between 1 and 100.

They offrer a CORBA interface if HTTP turns you off...
#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

my $response = $ua->get('http://www.random.org/cgi-bin/randnum?num=100
+&min=1&max=100&col=1');

if ($response->is_success) {
    print $response->content;
} else {
    print $response->status_line;
}

[download]
Merry Christmas


/brother t0mas

Replies are listed 'Best First'.
Re: Re: Best random number
by hardburn (Abbot) on Dec 19, 2002 at 15:42 UTC

    I wouldn't trust this solution, since the numbers are being transfered in plaintext. If I'm being really paranoid, I wouldn't even trust the numbers if they were sent over SSL (even if SSL is secure, random.org can still know what numbers I received). Unless you have a special situation, don't send random numbers you need in cryptographic applications over any network, even if you are using encryption.

[reply]
      If I'm really paranoid, I wouldn't trust a website claiming to generate random numbers. Who says they aren't logging what they send me?

      Abigail

[reply]

        Umm, isn't that what I basically said?

[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://221111]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others learning in the Monastery: (5)
As of 2024-04-19 07:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found