use strict;
use warnings 'all';

use MIME::Base64;

sub b64_password { return MIME::Base64::encode($_[0]); }

sub b64_utf16_password {
	my @ascii = unpack("C*", $_[0]);
	my $utf16 = pack("v*", @ascii);
	my $base64_utf16 = MIME::Base64::encode($utf16);
	return $base64_utf16;
}