$verif = "N";
while ($verif eq "N"){
	&inicio();
	($verif)=&verifica1();
}
if ($valid eq "S"){
	&validacion();
}
&make();
exit;
sub inicio {
	system("cls");
	print "Modulo de Configuración de Sonda Web Services\n";
	print "----------------------------------------------------------------------------------------\n\n";
	print " URL ( ejm. http://www.sinapse.com.ar/ )    : ";
	$url = <STDIN>;
	chomp($url);
	print " PORT ( ejm. 4444 )                         : ";
	$port = <STDIN>;
	chomp($port);
	print " Requiere Validacion ([S/s] Si - [N/n] No ) : ";
	$valid1 = <STDIN>;
	chomp($valid1);
	$valid  = uc(substr($valid1,0,1));
	print "\n [SYSTEM] Verificando datos ingresados\n\n";
	if ($valid eq "S"){
		if (!$port){
			print " [SYSTEM] URL especificada : ".$url."           con Validacion\n";
		}else{
			print " [SYSTEM] URL especificada : ".$url.":".$port." con Validacion\n";
		}
	}else{
		if (!$port){
			print " [SYSTEM] URL especificada : ".$url."           sin Validacion\n";
		}else{
			print " [SYSTEM] URL especificada : ".$url.":".$port." sin Validacion\n";
		}
	}
	print "\n";
	return();
}
sub verifica1 {
	print " Son correctos ([S/s] Si - [N/n] No )       : ";
	$verif1 = <STDIN>;
	chomp($verif1);
	$verif  = uc(substr($verif1,0,1));
	return($verif);
}
sub getNamePass {
	use Term::ReadKey;
	print " UserName                                   : ";
	my $username = <STDIN>;
	chomp ($username);
	print " Password                                   : ";
	ReadMode 'noecho';
	my $pass = ReadLine 0;
	chomp($pass);
	print "\n";
	return ($username,$pass);
}
sub validacion {
	print "\n [SYSTEM] El Site requiere autorizacion \n\n";
	($user,$pass)=&getNamePass();
	print "\n [SYSTEM] Encryptando Informacion vital \n\n";
	chomp($user, $pass);
	($user)=&codekey("E", $user);
	($pass)=&codekey("E", $pass);
	chomp($user, $pass);
	return();
}
sub make {
	print "\n [SYSTEM] Generando sonda.ini \n\n";
	open(CFG,">sonda.ini");
	print CFG "URL;N;$url\n";
	print CFG "POR;N;$port\n";
	print CFG "VAL;N;$valid\n";
	if ($valid eq "S"){
		print CFG "USR;C;$user\n";
		print CFG "PAS;C;$pass\n";
	}
	return();
}
sub codekey{
	use MIME::Base64;	
	($var, $ent) = @_;
	if($var eq E){
		$out = encode_base64($ent);
	}elsif($var eq D){
		$out = decode_base64($ent);
	}
	return($out);
}