Help for this page

Select Code to Download

Select or download this

while (read $fh, my $dta, 4) {
    my ($name, $len) = unpack "vv", $dta;
    read $fh, $dta, $len;
    $encrypted and $dta = decrypt $dta;
    :

Select or download this

while (my ($name, $dta) = unpack "vv/A*", $fh) {
    $encrypted and $dta = decrypt $dta;
    :