#!/usr/bin/perl

#This script runs for different filesizes and different keys to calculate key generation time, encryption time and decryption time.

use strict

my $file;
my @files;
my $key;
my $FWRITE;

$FWRITE = "RSAopMod.txt";


@files = ("128", "256", "512", "1K", "2K", "3K", "4K");

foreach $file (@files) {


	@keys = ("128", "256", "512", "768", "1024");
	foreach $key (@keys) {

		print "File is $file , Key is $key\n";

		@args  = ("java RSAmod $key <data/$file >>$FWRITE" );
		system(@args);

	}

}