function p = cim(m)
% take 128 x 128 x 3 image and encrypt it
p = m;

for r = 1:128
    for c = 1:8:127
        t = [p(r,c,1), p(r,c,2), p(r,c,3), p(r,c+1,1), p(r,c+1,2), p(r,c+1,3), p(r,c+2,1), p(r,c+2,2)];
        [p(r,c,1), p(r,c,2), p(r,c,3), p(r,c+1,1), p(r,c+1,2), p(r,c+1,3), p(r,c+2,1), p(r,c+2,2)] = rc4set(t);
        t = [p(r,c+2,3), p(r,c+3,1), p(r,c+3,2), p(r,c+3,3), p(r,c+4,1), p(r,c+4,2), p(r,c+4,3), p(r,c+5,1)];
        [p(r,c+2,3), p(r,c+3,1), p(r,c+3,2), p(r,c+3,3), p(r,c+4,1), p(r,c+4,2), p(r,c+4,3), p(r,c+5,1)] = rc4set(t); 
        t = [p(r,c+5,2), p(r,c+5,3), p(r,c+6,1), p(r,c+6,2), p(r,c+6,3), p(r,c+7,1), p(r,c+7,2), p(r,c+7,3)];
        [p(r,c+5,2), p(r,c+5,3), p(r,c+6,1), p(r,c+6,2), p(r,c+6,3), p(r,c+7,1), p(r,c+7,2), p(r,c+7,3)] = rc4set(t); 
    end
 end