realrand 1.0.2

data/lib/random/online.rb

@@ -0,0 +1,132 @@
+# = RealRand
+#
+# Author::    Maik Schmidt <contact@maik-schmidt.de>
+# Copyright:: Copyright (c) 2003 Maik Schmidt
+# License::   Distributes under the same terms as Ruby.
+#
+
+require 'net/http'
+
+module Random
+  class OnlineGenerator
+    attr_reader :host
+    attr_accessor :proxy_host, :proxy_port, :proxy_usr, :proxy_pwd
+
+    def initialize(host)
+      @host = host
+      @proxy_host = nil
+      @proxy_port = -1
+      @proxy_usr = nil
+      @proxy_pwd = nil
+    end
+
+    protected 
+
+    def get_response(script, parameters)
+      Net::HTTP::Proxy(
+        @proxy_host,
+        @proxy_port,
+        @proxy_usr,
+        @proxy_pwd
+      ).start(@host) { |h|
+        response = h.get("#{script}?#{parameters}")
+        if response.class == Net::HTTPOK
+          return response
+        else
+          raise "An HTTP error occured."
+        end
+      }
+    end
+  end
+  
+  class RandomOrg < OnlineGenerator
+    def initialize
+      super("www.random.org")
+    end
+
+    def randnum(num = 100, min = 1, max = 100)
+      if num < 0 || num > 10_000
+        raise RangeError, "Invalid amount: #{num}."
+      end
+      return [] if num == 0
+      if min < -1_000_000_000
+        raise RangeError, "Invalid minimum: #{min}."
+      end
+      if max > 1_000_000_000
+        raise RangeError, "Invalid maximum: #{max}."
+      end
+      if max <= min
+        raise RangeError, "Maximum has to be bigger than minimum."
+      end
+
+      parameters = "num=#{num}&min=#{min}&max=#{max}&col=#{num}"
+      response = get_response("/cgi-bin/randnum", parameters)
+      convert_result(response.body)
+    end
+
+    def randbyte(nbytes = 256)
+      if nbytes < 0 || nbytes > 16_384
+        raise RangeError, "Invalid amount: #{nbytes}."
+      end
+      return [] if nbytes == 0
+      parameters = "nbytes=#{nbytes}&format=d"
+      response = get_response("/cgi-bin/randbyte", parameters)
+      convert_result(response.body)
+    end
+
+    private
+
+    def convert_result(response)
+      result = []
+      response.each { |line|
+        result += line.chomp.split.map { |x| x.to_i }
+      }
+      result
+    end
+  end
+
+  class FourmiLab < OnlineGenerator
+    def initialize
+      super("www.fourmilab.ch")
+    end
+
+    def randbyte(nbytes = 128)
+      if nbytes < 0 || nbytes > 2048
+        raise RangeError, "Invalid amount: #{nbytes}."
+      end
+      return [] if nbytes == 0
+      parameters = "nbytes=#{nbytes}&fmt=bin"
+      response = get_response("/cgi-bin/uncgi/Hotbits", parameters)
+      if response['content-type'] != 'application/octet-stream'
+        raise "Unexpected content type: #{response['content-type']}."
+      end
+      result = []
+      response.body.each_byte { |b| result << b }
+      result
+    end
+  end
+
+  class EntropyPool < OnlineGenerator
+    def initialize
+      super("random.hd.org")
+    end
+
+    def randbyte(nbytes = 16, limit = true)
+      if nbytes < 0 || nbytes > 256
+        raise RangeError, "Invalid amount: #{nbytes}."
+      end
+      return [] if nbytes == 0
+      parameters = "numBytes=#{nbytes}&type=bin&limit=#{limit}"
+      response = get_response("/getBits.jsp", parameters)
+      if response['content-type'] !~ /application\/octet-stream/
+        raise "Unexpected content type: <#{response['content-type']}>."
+      end
+      result = []
+      response.body.each_byte { |b| result << b }
+      result
+    end
+  end
+end
+
+# vim:sw=2
+

data/realrand.gemspec

@@ -0,0 +1,34 @@
+require 'date'
+Gem::Specification.new do |s|
+  s.name = %q{realrand}
+  s.version = "1.0.2"
+  s.date = Date.today.to_s
+  s.summary = %q{Generate real random numbers with Ruby.}
+  s.description =<<DESCRIPTION
+A lot of algorithms in cryptography etc. depend on good random numbers,
+i.e. random numbers that are "real" random and not just generated by
+a so called pseudo-random generator.
+
+You cannot create real random numbers using a computer and an
+algorithm. Only nature creates real randomness (just take a look around
+the next time you are surrounded by a group of people.).
+
+Real randomness occurs e.g. in atmospheric noise, during radioactive
+decay, or in a lava lamp. Fortunately, you do not have to listen to an
+old radio the whole day or, even worse, deposit some uranium in your
+living room and observe it with a Geiger-M�ller tube. Other people do so
+(in a slightly modified manner, of course) and they kindly make their
+results public.
+DESCRIPTION
+  s.author = %q{Maik Schmidt}
+  s.email = %q{contact@maik-schmidt.de}
+  s.homepage = %q{http://www.maik-schmidt.de/realrand.html}
+  s.files = Dir.glob('**/*') 
+  s.require_paths = %w{. lib}
+  s.autorequire = %q{random/online}
+  s.has_rdoc = true
+  s.rdoc_options = ["--main", "README"]
+  s.extra_rdoc_files = ["README"]
+  s.test_files = %w{test/tc_all.rb}
+  s.required_ruby_version = Gem::Version::Requirement.new(">= 1.8.0")
+end

data/test/tc_all.rb

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'tc_random_org'
+require 'tc_fourmilab'
+require 'tc_entropy_pool'
+
+# vim:sw=2
+

data/test/tc_entropy_pool.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require '../lib/random/online'
+
+class TC_EntropyPool < Test::Unit::TestCase # :nodoc:
+  def setup
+    @generator = Random::EntropyPool.new
+  end
+
+  def test_illegal_amount
+    [257, -1].each { |x| 
+      assert_raises(RangeError) { @generator.randbyte(x) }
+    }
+  end
+  
+  def test_zero_amount
+    assert_equal([], @generator.randbyte(0))
+  end
+  
+  def test_randbyte
+    [1, 2, 10, 256].each { |x|
+      numbers = @generator.randbyte(x, false)
+      assert_equal(x, numbers.length)
+    }
+  end
+end
+
+# vim:sw=2
+

data/test/tc_fourmilab.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require '../lib/random/online'
+
+class TC_FourmiLab < Test::Unit::TestCase # :nodoc:
+  def setup
+    @generator = Random::FourmiLab.new
+  end
+
+  def test_illegal_amount
+    [2049, -1].each { |x| 
+      assert_raises(RangeError) { @generator.randbyte(x) }
+    }
+  end
+  
+  def test_zero_amount
+    assert_equal([], @generator.randbyte(0))
+  end
+  
+  def test_randbyte
+    [1, 2, 10, 2048].each { |x|
+      numbers = @generator.randbyte(x)
+      assert_equal(x, numbers.length)
+    }
+  end
+end
+
+# vim:sw=2
+

data/test/tc_random_org.rb

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require '../lib/random/online'
+
+class TC_RandomOrg < Test::Unit::TestCase # :nodoc:
+  def setup
+    @generator = Random::RandomOrg.new
+  end
+  
+  def test_illegal_amount
+    [10_001, -1].each { |x| 
+      assert_raises(RangeError) { @generator.randnum(x, 1, 100) }
+    }
+
+    [16_385, -1].each { |x| 
+      assert_raises(RangeError) { @generator.randbyte(x) }
+    }
+
+    [
+      [1, -1_000_000_001, 100],
+      [1, 1, 1_000_000_001],
+      [1, 1, 0],
+      [1, 1, 1],
+    ].each { |num, min, max|
+      assert_raises(RangeError) { @generator.randnum(num, min, max) }
+    }
+  end
+  
+  def test_zero_amount
+    assert_equal([], @generator.randnum(0, 1, 100))
+    assert_equal([], @generator.randbyte(0))
+  end
+  
+  def test_randnum
+    [
+      [1, -1_000_000_000, 1_000_000_000],
+      [1, 1, 2],
+      [5, 20, 100],
+      [1000, 1, 6],
+    ].each { |num, min, max|
+      numbers = @generator.randnum(num, min, max)
+      assert_equal(num, numbers.length)
+      numbers.each { |x| assert(x >= min && x <= max) }
+    }
+  end
+
+  def test_randbyte
+    [1, 2, 10, 100].each { |x|
+      numbers = @generator.randbyte(x)
+      assert_equal(x, numbers.length)
+    }
+  end
+end
+
+# vim:sw=2
+

metadata

@@ -0,0 +1,56 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: "0.8"
+specification_version: 1
+name: realrand
+version: !ruby/object:Gem::Version 
+  version: 1.0.2
+date: 2004-11-19
+summary: Generate real random numbers with Ruby.
+require_paths: 
+  - "."
+  - lib
+author: Maik Schmidt
+email: contact@maik-schmidt.de
+homepage: http://www.maik-schmidt.de/realrand.html
+rubyforge_project: 
+description: "A lot of algorithms in cryptography etc. depend on good random numbers, i.e. random numbers that are \"real\" random and not just generated by a so called pseudo-random generator.  You cannot create real random numbers using a computer and an algorithm. Only nature creates real randomness (just take a look around the next time you are surrounded by a group of people.).  Real randomness occurs e.g. in atmospheric noise, during radioactive decay, or in a lava lamp. Fortunately, you do not have to listen to an old radio the whole day or, even worse, deposit some uranium in your living room and observe it with a Geiger-M�ller tube. Other people do so (in a slightly modified manner, of course) and they kindly make their results public."
+autorequire: random/online
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.8.0
+  version: 
+platform: ruby
+files: 
+  - doc
+  - lib
+  - test
+  - LICENSE
+  - README
+  - install.rb
+  - INSTALL
+  - realrand-1.0.2.gem
+  - realrand.gemspec
+  - doc/readme.html
+  - lib/random
+  - lib/random/online.rb
+  - test/tc_entropy_pool.rb
+  - test/tc_fourmilab.rb
+  - test/tc_all.rb
+  - test/tc_random_org.rb
+test_files: 
+  - test/tc_all.rb
+rdoc_options: 
+  - "--main"
+  - README
+extra_rdoc_files: 
+  - README
+executables: []
+extensions: []
+requirements: []
+dependencies: []