crc.m

clc;

msg=input('Input Message sequence :');        %msg=[1 0 0 1 0 0]; 
poly=input('Input Generator Polynomial :');   %poly=[1 1 0 1];
[M,N] = size(poly);
mseg = [msg zeros(1,N-1)];
[q,r] = deconv(mseg, poly);
r=abs(r);

for i=1:length(r)
    a=r(i);
    if ( mod(a,2)== 0 )
        r(i)=0;
    else
        r(i)=1;
    end
end
crc=r(length(msg)+1:end);
disp(crc);
frame = bitor(mseg,r);
disp(frame);
remsg = input("Enter the received message sequence:");

[a,b] = deconv(remsg,poly);

if mod(b,2)==0
    flag=0;
else
    flag=1;
end
if flag==1
    disp("The received bits stream is erroneous.");
else
    disp("There is no error in received bit stream.");
end