From: Andreas Schneider <asn@samba.org>
Date: Thu, 21 Feb 2019 10:03:01 +0000 (+0100)
Subject: s4:tortue: Use GnuTLS RC4 in rpc lsa test
X-Git-Tag: ldb-2.0.5~156
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9767013b447174881d471f84bc93acd644f564cf;p=thirdparty%2Fsamba.git

s4:tortue: Use GnuTLS RC4 in rpc lsa test

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
---

diff --git a/source4/torture/rpc/lsa.c b/source4/torture/rpc/lsa.c
index 6cdab54c6ca..5b16ed9a014 100644
--- a/source4/torture/rpc/lsa.c
+++ b/source4/torture/rpc/lsa.c
@@ -35,8 +35,11 @@
 #include "source4/auth/kerberos/kerberos.h"
 #include "source4/auth/kerberos/kerberos_util.h"
 #include "lib/util/util_net.h"
-#include "../lib/crypto/crypto.h"
 #include "libcli/resolve/resolve.h"
+
+#include <gnutls/gnutls.h>
+#include <gnutls/crypto.h>
+
 #define TEST_MACHINENAME "lsatestmach"
 #define TRUSTPW "12345678"
 
@@ -2648,6 +2651,8 @@ static bool gen_authinfo_internal(TALLOC_CTX *mem_ctx,
 	DATA_BLOB auth_blob;
 	enum ndr_err_code ndr_err;
 	bool ok;
+	gnutls_cipher_hd_t cipher_hnd = NULL;
+	gnutls_datum_t _session_key;
 
 	authinfo_internal = talloc_zero(mem_ctx, struct lsa_TrustDomainInfoAuthInfoInternal);
 	if (authinfo_internal == NULL) {
@@ -2717,7 +2722,19 @@ static bool gen_authinfo_internal(TALLOC_CTX *mem_ctx,
 		return false;
 	}
 
-	arcfour_crypt_blob(auth_blob.data, auth_blob.length, &session_key);
+	_session_key = (gnutls_datum_t) {
+		.data = session_key.data,
+		.size = session_key.length,
+	};
+
+	gnutls_cipher_init(&cipher_hnd,
+			   GNUTLS_CIPHER_ARCFOUR_128,
+			   &_session_key,
+			   NULL);
+	gnutls_cipher_encrypt(cipher_hnd,
+			      auth_blob.data,
+			      auth_blob.length);
+	gnutls_cipher_deinit(cipher_hnd);
 
 	authinfo_internal->auth_blob.size = auth_blob.length;
 	authinfo_internal->auth_blob.data = auth_blob.data;