function crc=crc32 (source)
    SF= fopen(source, 'r');             %besedilo, ki ga analiziramo
    if(SF<0)
        printf("Napaka pri odpiranju datoteke %s\n",source)
    else
        v = fread (SF, inf, 'uint8');                   %V - vsebina
    end

    crc = (0xFFFFFFFF);
    x = (0xEDB88320)
    for i=1:length(v)
        byte = v(i)
        crc = bitxor(crc,byte)
        j=8
        while(j>0)
            mask = - and(crc,1)
            crc = bitxor(bitshift(crc,-1), and(x,mask))
            j--
        end
    end
    crc = bin2dec(num2str(not(vec(dec2bin(crc,32)-'0'))'))
end