function p = cmode(m)
% take 128 x 128 x 3 image and encrypt it
p = m;
e = [212	234	135	149	50	10	123	149];

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)];
        e2 = e;
        [e(1), e(2), e(3), e(4), e(5), e(6), e(7), e(8)] = rc4cbc(t, e2);
        [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)] = set8(e);
        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)];
        e2 = e;
        [e(1), e(2), e(3), e(4), e(5), e(6), e(7), e(8)] = rc4cbc(t, e2);
        [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)] = set8(e); 
        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)];
        e2 = e;
        [e(1), e(2), e(3), e(4), e(5), e(6), e(7), e(8)] = rc4cbc(t, e2);
        [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)] = set8(e); 
    end
 end