| Subject: | PATCH: allow long passwords |
The attached patch allows very long passwords to work.
| Subject: | mail_sender_long_passwords.patch |
diff -Naur old/Sender.pm new/Sender.pm
--- old/Sender.pm 2012-12-13 04:29:40.000000000 +1100
+++ new/Sender.pm 2014-02-22 21:41:49.029897284 +1100
@@ -268,7 +268,7 @@
$_ = send_cmd $s, &encode_base64($self->{'authid'});
if (!/^[123]/) { return $self->Error(LOGINERROR($_)); }
- $_ = send_cmd $s, &encode_base64($self->{'authpwd'});
+ $_ = send_cmd $s, &encode_base64($self->{'authpwd'}, '');
if (!/^[123]/) { return $self->Error(LOGINERROR($_)); }
}
return;
@@ -295,7 +295,7 @@
my $decoded_stamp = decode_base64($stamp);
my $hmac = hmac_md5_hex($decoded_stamp, $secret);
- my $answer = encode_base64($user . ' ' . $hmac);
+ my $answer = encode_base64($user . ' ' . $hmac, '');
$_ = send_cmd $s, $answer;
if (!/^[123]/) { return $self->Error(LOGINERROR($_)); }
return;
@@ -308,7 +308,7 @@
$_ = send_cmd $s, "AUTH PLAIN";
if (!/^[123]/) { return $self->Error(INVALIDAUTH('PLAIN', $_)); }
- $_ = send_cmd $s, encode_base64("\000" . $self->{'authid'} . "\000" . $self->{'authpwd'});
+ $_ = send_cmd $s, encode_base64("\000" . $self->{'authid'} . "\000" . $self->{'authpwd'}, '');
if (!/^[123]/) { return $self->Error(LOGINERROR($_)); }
return;
}