Une première image

image1=Import["/home/rigo/Images/pissarro_lhermitage.jpg"]

ImageDimensions[image1]

Chaque pixel correspond à un triplet (R,V,B)

d1=ImageData[image1,"Byte"]

La donnée secrète à coder (ici, choix “aléatoire” pour la démonstration)

d2=Table[Random[Integer,{0,1}],{i,1,633},{j,1,848}]

Image[d2]

Shallow[d2]

On fait la somme des deux sur la composante bleue

Image[Mod[d1+Map[{0,0,#}&,d2,{2}],256],"Byte"]

On décode la partie cachée

ImageData[%,"Byte"]-d1