Is it possible to convert the output of the Encrypt[] function into binary digits?

Question

I use the following code to generate a key and then use it to encrypt a simple string message. The output of the function Encrypt is an encrypted object. But I would rather convert this into binary digits (a long sequence of zeros and ones). Unfortunately, I am not able to do so. I tried to use the function IntegerDigits[] but that did not work. Thanks in advance!

key = GenerateSymmetricKey[];
message = "Hello world";
Encrypt[key, message]

Answer 1

I will turn Kuba's comment into an answer. The EncryptedObject you create using Encrypt contains the encrypted data and the initialization vector of the encryption method as a ByteArray. These can be turned into an array of digits using Normal and IntegerDigits.

key = GenerateSymmetricKey[];
message = "Hello world";
eobj = Encrypt[key, message];
bin = eobj["Data"] // Normal // IntegerDigits[#, 2, 8] & // Flatten;
initvec = 
  eobj["InitializationVector"] // Normal // IntegerDigits[#, 2, 8] & // Flatten;

Now you send bin and initvec to the receiver (or do what ever else you wanted to do with the binary digits). To decrypt the message you can create a new EncryptedObject and decrypt it:

eobj2 = EncryptedObject[Association[
     "Data" -> ByteArray[(FromDigits[#1, 2] & ) /@ ArrayReshape[bin, {16, 8}]], 
     "InitializationVector" -> ByteArray[(FromDigits[#1, 2] & ) /@ 
           ArrayReshape[initvec, {16, 8}]], 
     "OriginalForm" -> String]];
Decrypt[key, eobj2]

Note that I used ByteArray, FromDigits, and ArrayReshape to reverse Kuba's Normal, IntegerDigits and Flatten, respectively.