sub encryption{
my( $type ) = @_;
chomp($type);
$password =~ tr/N-ZA-M/A-Z/;
$password =~ tr/n-za-m/a-z/;
return $type;