#!/usr/bin/perl -w

if ($#ARGV != 4)
	{
	print "Usage $0 <file to sign> <Algorithm(DSA/RSA)> <keysizelimit> <msgsize> <interval>";
	exit;
	}
$msgfile = $ARGV[0];
$algo = $ARGV[1];
$keysizelimit = $ARGV[2];
$msgsize = $ARGV[3];
$interval = $ARGV[4];

open MSGFILE, ">$msgfile" or die "Error opening $msgfile for writing";
for ($i=0; $i<$msgsize; $i++)
	{
	print MSGFILE "a";
	}

system("rm -f result.keysize.$algo");
#Repeat for all the message size in given range
for ($keysize = 512; $keysize <= $keysizelimit; $keysize+=$interval)
	{
	system("java SignGen $msgfile $algo $keysize >> result.keysize.$algo");
	}
system("./creategraph_sign_keysize.pl result.keysize.$algo $algo $keysizelimit $interval");