+/*
+ Bacula(R) - The Network Backup Solution
+
+ Copyright (C) 2000-2016 Kern Sibbald
+
+ The original author of Bacula is Kern Sibbald, with contributions
+ from many others, a complete list can be found in the file AUTHORS.
+
+ You may use this file and others of this release according to the
+ license defined in the LICENSE file, which includes the Affero General
+ Public License, v3.0 ("AGPLv3") and some additional permissions and
+ terms pursuant to its AGPLv3 Section 7.
+
+ This notice must be preserved when any source code is
+ conveyed and/or propagated.
+
+ Bacula(R) is a registered trademark of Kern Sibbald.
+*/
/*
* Challenge Response Authentication Method using MD5 (CRAM-MD5)
*
* cram-md5 is based on RFC2104.
- *
+ *
* Written for Bacula by Kern E. Sibbald, May MMI.
*
- * Version $Id$
*/
-/*
- Copyright (C) 2000, 2001, 2002 Kern Sibbald and John Walker
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
+#include "bacula.h"
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
+const int dbglvl = 50;
- You should have received a copy of the GNU Lesser General Public
- License along with this library; if not, write to the Free
- Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
- MA 02111-1307, USA.
+/* Authorize other end
+ * Codes that tls_local_need and tls_remote_need can take:
+ * BNET_TLS_NONE I cannot do tls
+ * BNET_TLS_OK I can do tls, but it is not required on my end
+ * BNET_TLS_REQUIRED tls is required on my end
+ *
+ * Returns: false if authentication failed
+ * true if OK
*/
-
-#include "bacula.h"
-
-/* Authorize other end */
-int cram_md5_auth(BSOCK *bs, char *password, int ssl_need)
+bool cram_md5_challenge(BSOCK *bs, const char *password, int tls_local_need, int compatible)
{
struct timeval t1;
struct timeval t2;
struct timezone tz;
- int i, ok;
+ int i;
+ bool ok;
char chal[MAXSTRING];
char host[MAXSTRING];
uint8_t hmac[20];
if (!gethostname(host, sizeof(host))) {
bstrncpy(host, my_name, sizeof(host));
}
+ /* Send challenge -- no hashing yet */
bsnprintf(chal, sizeof(chal), "<%u.%u@%s>", (uint32_t)random(), (uint32_t)time(NULL), host);
- if (!bnet_fsend(bs, "auth cram-md5 %s ssl=%d\n", chal, ssl_need)) {
- return 0;
- }
-
- if (!bnet_ssl_client(bs, password, ssl_need)) {
- return 0;
+ if (compatible) {
+ Dmsg2(dbglvl, "send: auth cram-md5 challenge %s ssl=%d\n", chal, tls_local_need);
+ if (!bs->fsend("auth cram-md5 %s ssl=%d\n", chal, tls_local_need)) {
+ Dmsg1(dbglvl, "Send challenge comm error. ERR=%s\n", bs->bstrerror());
+ return false;
+ }
+ } else {
+ /* Old non-compatible system */
+ Dmsg2(dbglvl, "send: auth cram-md5 challenge %s ssl=%d\n", chal, tls_local_need);
+ if (!bs->fsend("auth cram-md5 %s ssl=%d\n", chal, tls_local_need)) {
+ Dmsg1(dbglvl, "Send challenge comm error. ERR=%s\n", bs->bstrerror());
+ return false;
+ }
}
- Dmsg1(99, "sent challenge: %s", bs->msg);
- if (bnet_wait_data(bs, 180) <= 0 || bnet_recv(bs) <= 0) {
+ /* Read hashed response to challenge */
+ if (bs->wait_data(180) <= 0 || bs->recv() <= 0) {
+ Dmsg1(dbglvl, "Receive cram-md5 response comm error. ERR=%s\n", bs->bstrerror());
bmicrosleep(5, 0);
- return 0;
+ return false;
}
+
+ /* Attempt to duplicate hash with our password */
hmac_md5((uint8_t *)chal, strlen(chal), (uint8_t *)password, strlen(password), hmac);
- bin_to_base64(host, (char *)hmac, 16);
- ok = strcmp(mp_chr(bs->msg), host) == 0;
- Dmsg3(99, "Authenticate %s: wanted %s, got %s\n",
- ok ? "OK" : "NOT OK", host, bs->msg);
+ bin_to_base64(host, sizeof(host), (char *)hmac, 16, compatible);
+ ok = strcmp(bs->msg, host) == 0;
+ if (ok) {
+ Dmsg1(dbglvl, "Authenticate OK %s\n", host);
+ } else {
+ bin_to_base64(host, sizeof(host), (char *)hmac, 16, false);
+ ok = strcmp(bs->msg, host) == 0;
+ if (!ok) {
+ Dmsg2(dbglvl, "Authenticate NOT OK: wanted %s, got %s\n", host, bs->msg);
+ }
+ }
if (ok) {
- bnet_fsend(bs, "1000 OK auth\n");
+ bs->fsend("1000 OK auth\n");
} else {
- Dmsg1(100, "PW: %s\n", password);
- bnet_fsend(bs, "1999 Authorization failed.\n");
+ bs->fsend(_("1999 Authorization failed.\n"));
bmicrosleep(5, 0);
}
return ok;
}
-/* Get authorization from other end */
-int cram_md5_get_auth(BSOCK *bs, char *password, int ssl_need)
+/* Respond to challenge from other end */
+bool cram_md5_respond(BSOCK *bs, const char *password, int *tls_remote_need, int *compatible)
{
char chal[MAXSTRING];
uint8_t hmac[20];
- int ssl_has; /* This is what the other end has */
- if (bnet_recv(bs) <= 0) {
+ *compatible = false;
+ if (bs->recv() <= 0) {
bmicrosleep(5, 0);
- return 0;
+ return false;
}
if (bs->msglen >= MAXSTRING) {
- Dmsg1(99, "Wanted auth cram... Got: %s", bs->msg);
+ Dmsg1(dbglvl, "Msg too long wanted auth cram... Got: %s", bs->msg);
bmicrosleep(5, 0);
- return 0;
+ return false;
}
- if (sscanf(mp_chr(bs->msg), "auth cram-md5 %s ssl=%d\n", chal, &ssl_has) != 2) {
- ssl_has = BNET_SSL_NONE;
- if (sscanf(mp_chr(bs->msg), "auth cram-md5 %s\n", chal) != 1) {
- bnet_fsend(bs, "1999 Authorization failed.\n");
- Dmsg1(100, "Cannot scan challenge: %s\n", bs->msg);
- bmicrosleep(5, 0);
- return 0;
+ Dmsg1(100, "cram-get received: %s", bs->msg);
+ /*
+ * Note that the next call is only to keep compatibility with very
+ * old versions of Bacula that used a non-compatible base64 algorithm.
+ */
+ if (sscanf(bs->msg, "auth cram-md5c %s ssl=%d", chal, tls_remote_need) == 2) {
+ *compatible = true;
+ } else if (sscanf(bs->msg, "auth cram-md5 %s ssl=%d", chal, tls_remote_need) != 2) {
+ if (sscanf(bs->msg, "auth cram-md5 %s\n", chal) != 1) {
+ Dmsg1(dbglvl, "Cannot scan received response to challenge: %s", bs->msg);
+ bs->fsend(_("1999 Authorization failed.\n"));
+ bmicrosleep(5, 0);
+ return false;
}
}
- if (!bnet_ssl_server(bs, password, ssl_need, ssl_has)) {
- return 0;
- }
hmac_md5((uint8_t *)chal, strlen(chal), (uint8_t *)password, strlen(password), hmac);
- bs->msglen = bin_to_base64(mp_chr(bs->msg), (char *)hmac, 16) + 1;
- if (!bnet_send(bs)) {
- Dmsg0(100, "Send response failed.\n");
- return 0;
+ bs->msglen = bin_to_base64(bs->msg, 50, (char *)hmac, 16, *compatible) + 1;
+// Don't turn the following on except for local debugging -- security
+// Dmsg3(100, "get_auth: chal=%s pw=%s hmac=%s\n", chal, password, bs->msg);
+ if (!bs->send()) {
+ Dmsg1(dbglvl, "Send challenge failed. ERR=%s\n", bs->bstrerror());
+ return false;
}
Dmsg1(99, "sending resp to challenge: %s\n", bs->msg);
- if (bnet_wait_data(bs, 180) <= 0 || bnet_recv(bs) <= 0) {
+ if (bs->wait_data(180) <= 0 || bs->recv() <= 0) {
+ Dmsg1(dbglvl, "Receive cram-md5 response failed. ERR=%s\n", bs->bstrerror());
bmicrosleep(5, 0);
- return 0;
+ return false;
}
- if (strcmp(mp_chr(bs->msg), "1000 OK auth\n") == 0) {
- return 1;
+ if (strcmp(bs->msg, "1000 OK auth\n") == 0) {
+ return true;
}
- Dmsg1(100, "PW: %s\n", password);
+ Dmsg1(dbglvl, "Received bad response: %s\n", bs->msg);
bmicrosleep(5, 0);
- return 0;
+ return false;
}