sub sendMasterSecureLogin {
	my $self = shift;
	my $username = shift;
	my $password = shift;
	my $version = shift;
	my $region = shift;
	my $salt = shift;
	my $md5 = Digest::MD5->new;
	my ($msg,$number);
	if ($config{'SecureLogin'} % 2 == 1) {
		$salt = $salt . $password;
	} else {
		$salt = $password . $salt;
	}
	$md5->add($salt);
	if ($config{'SecureLogin'} < 3 ) {
		$msg = pack("C*", 0xDD, 0x01) . pack("L1", $version) . $username . chr(0) x (24 - length($username)) .
			$md5->digest . pack("C*", $region);
	} else {
		$number = ($config{'SecureLogin_Account'} > 0) ? $config{'SecureLogin_Account'} -1 : 0;
		$msg = pack("C*", 0xFA, 0x01) . pack("L1", $version) . $username . chr(0) x (24 - length($username)) .
			$md5->digest . pack("C*", $region) . pack("C1", $number);
	}
	$self->send($msg);
	debug("", 2, "Sent MasterSecureLogin\n");
}