%include "std.mgp" %%default 1 bimage "gtk/gtk-window.jpg" 1024x768, center %page %charset "iso8859-1" %bimage "bg.png" 1280x1024 Algorithm::FEC %page Algorithm::FEC %font "t5" +---+---+---+---+---+---+---+---+ | 0 | | | | | | |n-1| +---+---+---+---+---+---+---+---+ DDD DDD DDD DDD DDD DDD DDD DDD %page Algorithm::FEC %font "t5" +---+---+---+---+---+---+---+---+---+---+-----+ | 0 | | | | | | |n-1| n | |n+k-1| +---+---+---+---+---+---+---+---+---+---+-----+ DDD DDD DDD DDD DDD DDD DDD DDD CCC CCC CCCCC %page API Kodieren %pause %font "t5" $fec = new Algorithm::FEC $n, $k, $blocksize; %pause $fec->set_encode_blocks ([array_of_blocks]); %pause $block = $fec->encode ($index); %pause %font "s" Dekodieren %pause %font "t5" $fec = new Algorithm::FEC $n, $k, $blocksize; %pause $fec->set_decode_blocks ([blocks], [indices]); %pause $fec->decode; %pause $fec->shuffle ([blocks], [indices]); $fec->copy ($srcidx, $dstidx); %page Blockangaben %pause "String mit Blocksize Octets Länge" %pause FILEHANDLE einer Datei mit Blocksize Octets Länge %pause [FILEHANDLE, offset] %page Aus!