Reject request http_api request that have malformed Authentication header

src/ejabberd_http.erl

@@ -852,23 +852,23 @@ code_to_phrase(505) -> <<"HTTP Version Not Supported">>.
 
 -spec parse_auth(binary()) -> {binary(), binary()} | {oauth, binary(), []} | undefined.
 parse_auth(<<"Basic ", Auth64/binary>>) ->
-    Auth = try base64:decode(Auth64)
+    try base64:decode(Auth64) of
-	   catch _:badarg -> <<>>
+	Auth ->
-	   end,
+	    case binary:split(Auth, <<":">>) of
-    %% Auth should be a string with the format: user@server:password
+		[User, Pass] ->
-    %% Note that password can contain additional characters '@' and ':'
+		    PassUtf8 = unicode:characters_to_binary(Pass, utf8),
-    case str:chr(Auth, $:) of
+		    {User, PassUtf8};
-        0 ->
+		_ ->
-            undefined;
+		    invalid
-        Pos ->
+	    end
-            {User, <<$:, Pass/binary>>} = erlang:split_binary(Auth, Pos-1),
+    catch _:_ ->
-            PassUtf8 = unicode:characters_to_binary(binary_to_list(Pass), utf8),
+	invalid
-            {User, PassUtf8}
     end;
 parse_auth(<<"Bearer ", SToken/binary>>) ->
     Token = str:strip(SToken),
     {oauth, Token, []};
-parse_auth(<<_/binary>>) -> undefined.
+parse_auth(<<_/binary>>) ->
+    invalid.
 
 parse_urlencoded(S) ->
     parse_urlencoded(S, nokey, <<>>, key).

src/ejabberd_web_admin.erl

@@ -254,6 +254,7 @@ get_auth_admin(Auth, HostHTTP, RPath, Method) ->
 	    catch _:{bad_jid, _} ->
 		    {unauthorized, <<"badformed-jid">>}
 	    end;
+      invalid -> {unauthorized, <<"no-auth-provided">>};
       undefined -> {unauthorized, <<"no-auth-provided">>}
     end.
 

src/mod_http_api.erl

@@ -158,6 +158,8 @@ extract_auth(#request{auth = HTTPAuth, ip = {IP, _}, opts = Opts}) ->
 		       {false, Reason} ->
 			   {error, Reason}
 		   end;
+	       invalid ->
+		   {error, invalid_auth};
 	       _ ->
 		   #{}
 	   end,