Стеганография в wolfram mathematica

InsertSecret[image_Image, msg_String] := 
  Module[{carrierData, secretBits, modifiedCarrierData, byteCount},
   
   carrierData = ImageData[image, "Byte"];
   
   
   byteCount = Apply[Times, Dimensions[carrierData]];
   
   secretBits  = 
    PadRight[Flatten[IntegerDigits[ToCharacterCode[msg], 2, 8]], 
     byteCount];
   
   modifiedCarrierData = BitAnd[carrierData, 2^^11111110];
   
   secretBits = 
    Fold[Partition, secretBits, 
     Reverse[Rest[Dimensions[carrierData]]]];
   
   Return[Image[modifiedCarrierData + secretBits, "Byte"]];
   ];
ExtractSecret[image_Image] := Module[{secretBits, secretMessage},
   secretBits = BitAnd[ImageData[image, "Byte"], 1];
   secretBits = Partition[Flatten[secretBits], 8];
   
   secretMessage = FromCharacterCode[FromDigits[#, 2] & /@ secretBits];
   
   secretMessage = 
    DeleteCases[Characters[secretMessage], FromCharacterCode[0]];
   
   Return[StringJoin[secretMessage]];
   ];
img = Import["..."];
stegImg = InsertSecret[img, "message"]