#!/usr/bin/perl
# test_random.pl - Don Yang (uguu.org)
#
# 03/18/04


use strict;
my ($i, $j, $o, @s, $prefix);
local (*FILE);

$ARGV[0] && (srand $ARGV[0]);
$prefix = $ARGV[1] || undef;


if( $prefix )
{
   open FILE, "> $prefix.in" or die $!;
   for($i = 0; $i < 1000000; $i++)
   {
      print FILE chr(int(rand 256));
   }
   close FILE;

   @s = ('a'..'z', 'A'..'Z', '0'..'9',
         '(', ')', '/', '@', '^', '$', '+', '-',
         '(', ')', '/', '@', '^', '$', '+', '-');

   $o = '';
   for($i = 0; $i < 32; $i++)
   {
      $o .= $s[int(rand($#s + 1))];
   }
   for($i = 0; $i <= $#s; $i++)
   {
      $j = int(rand(length $o));
      $o = substr($o, 0, $j) . $s[$i] . substr($o, $j);
   }
   open FILE, "> $prefix.l" or die $!;
   print FILE $o;
   close FILE;

   $o = '';
   for($i = 0; $i < 32; $i++)
   {
      $o .= $s[int(rand($#s + 1))];
   }
   for($i = 0; $i <= $#s; $i++)
   {
      $j = int(rand(length $o));
      $o = substr($o, 0, $j) . $s[$i] . substr($o, $j);
   }
   open FILE, "> $prefix.r" or die $!;
   print FILE $o;
   close FILE;
}
else
{
   for($i = 0; $i < 1000000; $i++)
   {
      print chr(int(rand 256));
   }
}