zig_example 0.3.2 → 0.3.3.1

data/ext/openssl/ossl_rand.c

@@ -1,200 +0,0 @@
-/*
- * 'OpenSSL for Ruby' project
- * Copyright (C) 2001-2002  Michal Rokos <m.rokos@sh.cvut.cz>
- *
- * All rights reserved.
- *
- * This program is licensed under the same licence as Ruby.
- * (See the file 'LICENCE'.)
- */
-#include "ossl.h"
-
-VALUE mRandom;
-VALUE eRandomError;
-
-/*
- *  call-seq:
- *     seed(str) -> str
- *
- * ::seed is equivalent to ::add where _entropy_ is length of _str_.
- */
-static VALUE
-ossl_rand_seed(VALUE self, VALUE str)
-{
-    StringValue(str);
-    RAND_seed(RSTRING_PTR(str), RSTRING_LENINT(str));
-
-    return str;
-}
-
-/*
- *  call-seq:
- *     add(str, entropy) -> self
- *
- * Mixes the bytes from _str_ into the Pseudo Random Number Generator(PRNG)
- * state.
- *
- * Thus, if the data from _str_ are unpredictable to an adversary, this
- * increases the uncertainty about the state and makes the PRNG output less
- * predictable.
- *
- * The _entropy_ argument is (the lower bound of) an estimate of how much
- * randomness is contained in _str_, measured in bytes.
- *
- * === Example
- *
- *    pid = $$
- *    now = Time.now
- *    ary = [now.to_i, now.nsec, 1000, pid]
- *    OpenSSL::Random.add(ary.join, 0.0)
- *    OpenSSL::Random.seed(ary.join)
- */
-static VALUE
-ossl_rand_add(VALUE self, VALUE str, VALUE entropy)
-{
-    StringValue(str);
-    RAND_add(RSTRING_PTR(str), RSTRING_LENINT(str), NUM2DBL(entropy));
-
-    return self;
-}
-
-/*
- *  call-seq:
- *     load_random_file(filename) -> true
- *
- * Reads bytes from _filename_ and adds them to the PRNG.
- */
-static VALUE
-ossl_rand_load_file(VALUE self, VALUE filename)
-{
-    if(!RAND_load_file(StringValueCStr(filename), -1)) {
-	ossl_raise(eRandomError, NULL);
-    }
-    return Qtrue;
-}
-
-/*
- *  call-seq:
- *     write_random_file(filename) -> true
- *
- * Writes a number of random generated bytes (currently 1024) to _filename_
- * which can be used to initialize the PRNG by calling ::load_random_file in a
- * later session.
- */
-static VALUE
-ossl_rand_write_file(VALUE self, VALUE filename)
-{
-    if (RAND_write_file(StringValueCStr(filename)) == -1) {
-	ossl_raise(eRandomError, NULL);
-    }
-    return Qtrue;
-}
-
-/*
- *  call-seq:
- *	random_bytes(length) -> string
- *
- * Generates a String with _length_ number of cryptographically strong
- * pseudo-random bytes.
- *
- * === Example
- *
- *    OpenSSL::Random.random_bytes(12)
- *    #=> "..."
- */
-static VALUE
-ossl_rand_bytes(VALUE self, VALUE len)
-{
-    VALUE str;
-    int n = NUM2INT(len);
-    int ret;
-
-    str = rb_str_new(0, n);
-    ret = RAND_bytes((unsigned char *)RSTRING_PTR(str), n);
-    if (ret == 0) {
-	ossl_raise(eRandomError, "RAND_bytes");
-    } else if (ret == -1) {
-	ossl_raise(eRandomError, "RAND_bytes is not supported");
-    }
-
-    return str;
-}
-
-#ifdef HAVE_RAND_EGD
-/*
- *  call-seq:
- *     egd(filename) -> true
- *
- * Same as ::egd_bytes but queries 255 bytes by default.
- */
-static VALUE
-ossl_rand_egd(VALUE self, VALUE filename)
-{
-    if (RAND_egd(StringValueCStr(filename)) == -1) {
-	ossl_raise(eRandomError, NULL);
-    }
-    return Qtrue;
-}
-
-/*
- *  call-seq:
- *     egd_bytes(filename, length) -> true
- *
- * Queries the entropy gathering daemon EGD on socket path given by _filename_.
- *
- * Fetches _length_ number of bytes and uses ::add to seed the OpenSSL built-in
- * PRNG.
- */
-static VALUE
-ossl_rand_egd_bytes(VALUE self, VALUE filename, VALUE len)
-{
-    int n = NUM2INT(len);
-
-    if (RAND_egd_bytes(StringValueCStr(filename), n) == -1) {
-	ossl_raise(eRandomError, NULL);
-    }
-    return Qtrue;
-}
-#endif /* HAVE_RAND_EGD */
-
-/*
- *  call-seq:
- *     status? => true | false
- *
- * Return +true+ if the PRNG has been seeded with enough data, +false+ otherwise.
- */
-static VALUE
-ossl_rand_status(VALUE self)
-{
-    return RAND_status() ? Qtrue : Qfalse;
-}
-
-/*
- * INIT
- */
-void
-Init_ossl_rand(void)
-{
-#if 0
-    mOSSL = rb_define_module("OpenSSL");
-    eOSSLError = rb_define_class_under(mOSSL, "OpenSSLError", rb_eStandardError);
-#endif
-
-    mRandom = rb_define_module_under(mOSSL, "Random");
-
-    eRandomError = rb_define_class_under(mRandom, "RandomError", eOSSLError);
-
-    rb_define_module_function(mRandom, "seed", ossl_rand_seed, 1);
-    rb_define_module_function(mRandom, "random_add", ossl_rand_add, 2);
-    rb_define_module_function(mRandom, "load_random_file", ossl_rand_load_file, 1);
-    rb_define_module_function(mRandom, "write_random_file", ossl_rand_write_file, 1);
-    rb_define_module_function(mRandom, "random_bytes", ossl_rand_bytes, 1);
-#if OPENSSL_VERSION_NUMBER < 0x10101000 || defined(LIBRESSL_VERSION_NUMBER)
-    rb_define_alias(rb_singleton_class(mRandom), "pseudo_bytes", "random_bytes");
-#endif
-#ifdef HAVE_RAND_EGD
-    rb_define_module_function(mRandom, "egd", ossl_rand_egd, 1);
-    rb_define_module_function(mRandom, "egd_bytes", ossl_rand_egd_bytes, 2);
-#endif /* HAVE_RAND_EGD */
-    rb_define_module_function(mRandom, "status?", ossl_rand_status, 0);
-}

data/ext/openssl/ossl_rand.h

@@ -1,18 +0,0 @@
-/*
- * 'OpenSSL for Ruby' project
- * Copyright (C) 2001-2002  Michal Rokos <m.rokos@sh.cvut.cz>
- * All rights reserved.
- */
-/*
- * This program is licensed under the same licence as Ruby.
- * (See the file 'LICENCE'.)
- */
-#if !defined(_OSSL_RAND_H_)
-#define _OSSL_RAND_H_
-
-extern VALUE mRandom;
-extern VALUE eRandomError;
-
-void Init_ossl_rand(void);
-
-#endif /* _OSSL_RAND_H_ */