خوارزمية DES وتمثيلها في الماتلاب

عالاقل رد واحد مافي ؟

نصيحة لوجه الله :

لن يضع لك أحد الكود كامل أعرض محاولتك و يمكن أن يساعدك أحد الإخوة .

هذي محاولتي لحد الان ولكن يوجد تكملة ولا اعرف برمجتها

clc
clear all
a=input('Enter 8 Characters   :  ','s');
b=upper(a);
b=abs(b);
c=de2bi(b,8,'left-msb');
disp('The Matrix  :'),disp(c);
ip=[58 50 42 34 26 18 10 2
60 52 44 36 28 20 12 4
62 54 46 38 30 22 14 6
64 56 48 40 32 24 16 8
57 49 41 33 25 17 9 1
59 51 43 35 27 19 11 3
61 53 45 37 29 21 13 5
63 55 47 39 31 23 15 7];
for i=1:8
    for j=1:8
        plain(i,j)=c(ip(i,j));
    end 
end
disp('The New Matrix  :'),disp(plain());
for i=1:4
    for j=1:8
    l(i,j)=plain(i,j);
    end
end
disp('The Left Part :'),disp(l());

for i=5:8
    for j=1:8
    r(i-4,j)=plain(i,j);
    end
end
disp('The Right Part :'),disp(r);