rekt m8

function [bin, hex]=ProgEspia(archivo)

file = textread('barcos.txt', '%s', 'delimiter', '%-', ...
                'whitespace', '');
[barco4_1,barco3_1,barco3_2,barco2_1,barco2_2,barco2_3,barco1_1,barco1_2,barco1_3,barco1_4] = OrdenarBarcos(file);

m1 = zeros(4,4);
    b4_1 = Cod_Barco(barco4_1,4);   %13b
    m1(:,1) = num2str(b4_1(1:4))-'0';%4
    m1(:,2) = num2str(b4_1(5:8))-'0';%4

    b3_1 = Cod_Barco(barco3_1,3);   %11b
    m1(:,3) = num2str(b3_1(1:4))-'0';%4
    m1(:,4) = num2str(b3_1(5:8))-'0';%4

    c_par_m1 = zeros(1,4);
    f_par_m1 = zeros(1,4);
    for i=1:4
       c_par_m1(i) = par(m1(i,:));
       f_par_m1(i) = par(m1(:,i));
    end

    m2 = zeros(4,4);
    b3_2 = Cod_Barco(barco3_2,3);  %11b
    m2(:,1) = num2str(b3_2(1:4))-'0';%4
    m2(:,2) = num2str(b3_2(5:8))-'0';%4


    b2_1 = Cod_Barco(barco2_1,2); %9b
    m2(:,3) = num2str(b2_1(1:4))-'0';%4
    m2(:,4) = num2str(b2_1(5:8))-'0';%4

    c_par_m2 = zeros(1,4);
    f_par_m2 = zeros(1,4);
    for i=1:4
       c_par_m2(i) = par(m2(i,:));
       f_par_m2(i) = par(m2(:,i));
    end

    m3 = zeros(4,4);
    b2_2 = Cod_Barco(barco2_2,2); %9b
    m3(:,1) = num2str(b2_2(1:4))-'0';%4
    m3(:,2) = num2str(b2_2(5:8))-'0';%4
    b2_3 = Cod_Barco(barco2_3,2); %9b
    m3(:,3) = num2str(b2_3(1:4))-'0';%4
    m3(:,4) = num2str(b2_3(5:8))-'0';%4

    c_par_m3 = zeros(1,4);
    f_par_m3 = zeros(1,4);
    for i=1:4
       c_par_m3(i) = par(m3(i,:));
       f_par_m3(i) = par(m3(:,i));
    end

    m4 = zeros(4,4);
    b1_1 = Cod_Barco(barco1_1,1);    %8b
    m4(:,1) = num2str(b1_1(1:4))-'0';
    m4(:,1) = num2str(b1_1(5:8))-'0';
    b1_2 = Cod_Barco(barco1_2,1);    %8b
    m4(:,3) = num2str(b1_2(1:4))-'0';
    m4(:,4) = num2str(b1_2(5:8))-'0';

    c_par_m4 = zeros(1,4);
    f_par_m4 = zeros(1,4);
    for i=1:4
       c_par_m4(i) = par(m4(i,:));
       f_par_m4(i) = par(m4(:,i));
    end

    m5 = zeros(4,4);
    b1_3 = Cod_Barco(barco1_3,1);    %8b
    m5(:,1) = num2str(b1_3(1:4))-'0';
    m5(:,2) = num2str(b1_3(5:8))-'0';
    b1_4 = Cod_Barco(barco1_4,1);    %8b
    m5(:,3) = num2str(b1_4(1:4))-'0';
    m3(:,4) = num2str(b1_4(5:8))-'0';

    c_par_m5 = zeros(1,4);
    f_par_m5 = zeros(1,4);

    for i=1:4
       c_par_m5(i) = par(m5(i,:));
       f_par_m5(i) = par(m3(:,i));
    end

     bin = [m1(:)' c_par_m1 f_par_m1 m2(:)' c_par_m2 f_par_m2 m3(:)' c_par_m3 f_par_m3 m4(:)' c_par_m4 f_par_m4 m5(:)' c_par_m5 f_par_m5];

     bin= num2str(bin);
     bin= regexprep(bin,'[^\w'']','');
     bin=strcat(bin,b3_1(9:11),b3_2(9:11),b2_1(9),b2_2(9));   %concatenem bin amb les formes de 3 i 2 ( falta 2_1)
     hex =BinToHex(bin);






end