encoder.m

Fountain Encoding Algrothm

function [output_stream,output_flag]=encoder(video_fname, packet_size)

% Load message
fid = fopen(video_fname, 'r');
message = fread(fid, 5, 'uint8')'


%Generate uniform integers on the set 1:n:
for num_times=1:10

num_samples= ceil(5.*rand(1,1));
upper_limit_range = 5;
r_n = ceil(upper_limit_range.*rand(num_samples,1));

new_message=zeros(size(r_n));
new_message(1:size(new_message))=message(r_n)
end

output_stream=1;
output_flag=1;