Current Path : /proc/2/root/usr/share/perl5/Crypt/Random/Provider/

Upload File :

Current File : //proc/2/root/usr/share/perl5/Crypt/Random/Provider/devurandom.pm

#!/usr/bin/perl -sw
##
##
##
## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: devurandom.pm,v 1.2 2001/06/22 18:16:29 vipul Exp $

package Crypt::Random::Provider::devurandom; 
use strict;
use lib qw(lib);
use Crypt::Random::Provider::File;
use vars qw(@ISA);
@ISA = qw(Crypt::Random::Provider::File);

sub _defaultsource { return "/dev/urandom" } 

1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez