sub encrypt {

    my $string = shift;

    $string =~ tr/a-mN-ZA-Mn-z0-9.&@=/H-Mn-z0-9.&@=a-mN-ZA-G/;

    return $string;

}