diff options
Diffstat (limited to 'Master/tlpkg/tlperl/bin/makerandom')
-rwxr-xr-x | Master/tlpkg/tlperl/bin/makerandom | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Master/tlpkg/tlperl/bin/makerandom b/Master/tlpkg/tlperl/bin/makerandom deleted file mode 100755 index 29b21c6608c..00000000000 --- a/Master/tlpkg/tlperl/bin/makerandom +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/perl -sI../lib -Ilib/ -## -## makerandom - interface to crypt::random -## -## Copyright (c) 1998, 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: makerandom,v 1.1.1.1 2001/06/21 15:34:49 vipul Exp $ - -use Crypt::Random qw( makerandom makerandom_itv ); - -unless ( $size || $lower ) { - my $name = $0; - $name =~ s:.*/::; - print "usage: $name [options] \ - -size=bitsize \ - -strength=[01] \ - -dev=device \ - -lower=lower_bound \ - -upper=upper_bound \ - -num=quantity\n\n"; - exit 0; -} - - -$strength = 0 unless $strength; -my $i = 1; - $num = 1 unless $num; - -while ( $i++ <= $num ) { - -my $r; - -if ( $size ) { - $r = makerandom Size => $size, - Strength => $strength, - Device => $dev; -} - -if ( $lower ) { - $r = makerandom_itv Lower => $lower, - Upper => $upper, - Strength => $strength, - Device => $dev; -} - -print "$r\n"; - -} |