cli: remove multiple members (#5656)

* cli: remove multiple members

* accept all members joining via link as observers (do NOT release)

* blocked words

* blocked words

* XGrpLinkReject

* core: 6.3.0.6 (simplexmq 6.3.0.6)

---------

Co-authored-by: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>

src/Simplex/Chat/ProfileGenerator.hs

@@ -2,6 +2,8 @@
 
 module Simplex.Chat.ProfileGenerator where
 
+import qualified Data.Attoparsec.Text as A
+import Data.Either (isRight)
 import Data.Text (Text)
 import Simplex.Chat.Types (Profile (..))
 import System.Random (randomRIO)
@@ -23,6 +25,15 @@ generateRandomProfile = do
             then pickNoun adjective (n - 1)
             else pure noun
 
+-- This function does not check for exact match with this disctionary,
+-- it only checks for the WordWord style.
+isRandomName :: Text -> Bool
+isRandomName = isRight . A.parseOnly randomNameP
+  where
+    randomNameP = A.satisfy upper >> A.takeWhile1 lower >> A.satisfy upper >> A.takeWhile1 lower >> A.endOfInput
+    upper c = c >= 'A' && c <= 'Z'
+    lower c = c >= 'a' && c <= 'z'
+
 adjectives :: [Text]
 adjectives =
   [ "Abatic",