WebCP

perl -MMIME::Base64 -e 'print encode_base64("john\@example.com");'
    asadBlqewrQEFGNvbQ==

perl -MMIME::Base64 -e 'print encode_base64("MyP@\$\$w0rd");'
    TXEEWTQkdzByZA==