Lines Matching refs:offset
211 print "Machine type offset in packet: $machinetype_offset\n" if ($main::debug);
216 print "AFPversion count offset: $afpversioncount_offset\n" if ($main::debug);
221 print "UAMcount offset: $uamcount_offset\n" if ($main::debug);
231 print "Volume Icon & Mask offset: $icon_offset\n" if ($main::debug);
241 # server name starts at offset+10, length byte first.
248 my ($offset) = 11 + $servername_len;
250 # quietly ++ the $offset to account for the padding that happens
253 $offset++ if ($servername_len % 2 == 0);
255 print "New offset: $offset\n" if ($main::debug);
257 my ($signature_offset) = unpack("n2", @packet[$offset] . @packet[$offset+1]);
258 print "Signature offset: $signature_offset\n" if ($main::debug);
267 my ($network_address_count_offset) = unpack("n2", @packet[$offset+2] . @packet[$offset+3]);
268 print "Network address count offset: $network_address_count_offset\n" if ($main::debug);
272 $offset += 4;
274 my ($directory_service_offset) = unpack("n2", @packet[$offset] . @packet[$offset+1]);
275 print "Directory service offset: $directory_service_offset\n" if ($main::debug);
284 $offset +=2;
288 my ($utf8_name_offset) = unpack("n2", @packet[$offset] . @packet[$offset+1]);
289 print "UTF8 name offset: $utf8_name_offset\n" if ($main::debug);
328 # return "counted" data at @packet[$offset]
335 my ($count, $offset, @packet) = @_;
342 ($count) = unpack("C", @packet[$offset]);
344 $offset++;
350 #print ">> extracting $count items from offset $offset\n";
354 my ($len) = unpack("C1", @packet[$offset]);
355 $data = join("", @packet[$offset+1..$offset+$len]);
358 $offset = $offset + $len + 1;
359 #print "new offset is $offset\n";
367 my ($offset, @packet) = @_;
376 my ($c) = @packet[$i+$offset];
460 my ($offset, @packet) = @_;
466 ($count) = unpack("C", @packet[$offset]);
468 $offset++;
470 #print "\n>> extracting $count items from offset $offset\n";
474 my ($len) = unpack("C1", @packet[$offset]);
476 my ($type) = unpack("C1", @packet[$offset+1]);
478 $data = join("", @packet[$offset+2..$offset+$len-1]);
480 $offset = $offset + $len ;
481 #print "new offset is $offset\n";