#!/usr/bin/perl -w

#Generatore di stringhe con metodo Brute force 
#e salvataggio su file.
#Autore: Camboni Gian Luca <gianluca.camboni@gmail.com>
#
#incompleto, molte funzionalitą ancora da implementare
print "\t****BRUTE FORCE****\n\n";
print "Numero cicli: ";
$c = <STDIN>;
print "File su cui salvare: ";
$output = <STDIN>;

if(open(FILE, "$output")){
		close(FILE);
		print "File gią esistente! Desideri sovrascrivere? y/n: ";
		$ch = <STDIN>;
		chomp($ch);
	
	while(($ch ne "y")&&($ch ne "n")){
		printf "Scelta non valida! Digita y o n\n";
		printf "Desideri sovrascrivere il file? :";
		$ch = <STDIN>;
		chomp($ch);
	}  
	
	if($ch eq "n"){
		printf "Digita nuovo nome file: ";
		$output = <STDIN>;
	}
	
	open(FILE, ">$output");
	close(FILE);
}
open(FILE, ">>$output");
for ($str = "a", $i=0; $i<$c; $i++, $str++){
	print $str . "\n";
	print FILE $str . "\n"; 
}
close(FILE);