spatio.rar_chaotic_cryptanalysis_cryptosystem_spatiotemporal

%attaque du keystream %taille_key=1000; clc close all clear all %%%%%%%%%%%%%%%%%%%%%%%%%%%% RG = imread('lennags256.bmp'); [lignes,colones]=size(RG); siz=colones*lignes; sor=single(RG); binx=zeros(1,siz); %vecteur pour prendre les valeurs de la matrice sor % for i=1:lignes % for j=1:colones % sor(i,j)=RG(i,j); % % end % end i=1;j=1; while (j<=colones) for k=1:lignes binx(i)=sor(k,j); i=i+1; end j=j+1; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% v=8; mu=10; Long_seq=10; cond_initial=rand(Long_seq,1); %cryptage de l'image [S_img,K_img]=chiffr_image_spatio_modif_sbox(binx,siz,cond_initial,Long_seq,mu,v); S0=S_img(1); K0=K_img(1); %%%%%%%%%%%%%%%%% %dechiffrage de l'image sans obtenion des cl�s %construction du premier caractere en clair plaintext=zeros(1,siz); p=zeros(1,256); % message=zeros(1,256); test=cputime; message=0; [S,K]=chiffr_image_spatio_modif_sbox(message,1,cond_initial,Long_seq,mu,v); croo(1)=S; p(1)=1; for i=1:256 S=S+1; if (S==2^v) croo(i)=0; S=0; else croo(i)=S; end message=message+1; p(i)=message; end % recherche de l'element S correspondant a S0 for b=1:256 if(S0==croo(b))%&&(K0==k1(b))) tt=b; break; end end plaintext(1)=p(tt); % recherche du 2eme cryptograme cr1=zeros(1,256); k1=zeros(1,256); p=zeros(1,256); for long_mess=2:siz %siz pa 4 message=0; [S,K]=chiffr_image_spatio_modif_sbox([plaintext(1:long_mess-1) message],long_mess,cond_initial,Long_seq,mu,v); So=S(long_mess); cr1(1)=So; p(1)=1; for i=2:256 So=So+1; if (So==2^v) cr1(i)=0; So=0; else cr1(i)=So; end message=message+1; p(i)=message; end % recherche de l'element S correspondant a S % tt=1; for b=1:256 if(S_img(long_mess)==cr1(b))%&&(K_img(long_mess)==k1(b))) tt=b; break; end end plaintext(long_mess)=p(tt); % plaintext(long_mess)=mod(S_img(long_mess)-k1(b),2^v); end temp=cputime-test err=plaintext-binx; %%%%%%%%%%%%%%%%%%%% % %*******recup�ration de l'image ************** %op�ration inverse %coversion en uint8 for j=1:siz dec_symb_uint8(j)=uint8(plaintext(j)); end %conversion du vecteur en une matrice lignes*colones i=1;j=1; while (j<=colones) for k=1:lignes entree(k,j)= dec_symb_uint8(i); i=i+1; end j=j+1; end imwrite(entree,'attaqueee.bmp','bmp')