%nettoyage de l'écran clear all; clc; s = serial('COM1'); s.InputBufferSize = 9600*8; s.TimeOut=20; set(s,'BaudRate',9600); fopen(s); data=fread(s,10000,'uint8'); %fscan convertit les données en caratère data2(length(data):1) = 0; for j = 1:1:length(data) recu_pic = data(j); % matrice qui va contenir le codage % en 8 bits de recu_pic bin_crypt = [0 0 0 0 0 0 0 0]; %transormation du recu_pic en BIN (bin_crypt) for i=8: -1 :0 if (2^(i) <= recu_pic) bin_crypt(8-i) = 1; recu_pic = recu_pic - 2^(i); end; end; % copie de la chaine binaire pour traitement decrypt_bin = bin_crypt; %decryptage du BIN (inverse 1 bit sur 2) for i=1: 2: 8 if (decrypt_bin(i) == 0) decrypt_bin(i) = 1; else decrypt_bin(i) = 0; end; end; int_final_decrypte = 0; %calcul du INT à partir du BIN décrypter for i=8: -1 :1 if (decrypt_bin(9-i) == 1) int_final_decrypte = int_final_decrypte + 2^(i-1); end; end; data2(j)=int_final_decrypte/255; data2; end; subplot(121);plot(data(2000:2300)) subplot(122);plot(data2(2000:2300)) fclose(s) delete(s) %sound(data,880) %sound(data2,880)