function [out]=Scrambler(datain,length,seed_identifier);
if(seed_identifier==[0 0])
   for i=1:15
       reg=[0 0 1 1 1 1 1 1 1 1 1 1 1 1 1];
   end
elseif(seed_identifier==[0 1])
    for i=1:15
       reg=[0 1 1 1 1 1 1 1 1 1 1 1 1 1 1];
   end
elseif(seed_identifier==[1 0])
    for i=1:15
       reg=[1 0 1 1 1 1 1 1 1 1 1 1 1 1 1];
    end
elseif(seed_identifier==[1 1])
    for i=1:15
       reg=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1];
    end
    
data=uint8(datain);

temp=bitxor(reg(14),reg(15));
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);
reg(15)=reg(14);