Lines Matching refs:data
52 # Now you can add TSIG, just specify key/key data with:
58 # Note that this data will still be sent with any request for
59 # pattern, only this data will be signed. Currently, this is only
197 return $packet->data;
201 # given a stream of data, reads a DNS-formatted name and returns its
204 my ($data) = @_;
208 $label_len = unpack("c", $data);
209 $data = substr($data, $label_len + 1);
216 # given a stream of data, reads a DNS wire-format packet and returns
219 my ($data) = @_;
233 ($header, $offset) = Net::DNS::Header->decode(\$data);
235 ($header, $offset) = Net::DNS::Header->parse(\$data);
241 Net::DNS::Question->decode(\$data, $offset);
244 Net::DNS::Question->parse(\$data, $offset);
249 ($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
251 ($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
256 ($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
258 ($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
263 ($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
265 ($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
273 # to sign multiple-message TCP responses. Several data that are included
280 # the unwanted data from the digest before calling the default sign_hmac
283 my ($key, $data) = @_;
286 my $rmacsize = unpack("n", $data);
287 $data = substr($data, 2);
290 my $rmac = substr($data, 0, $rmacsize);
291 $data = substr($data, $rmacsize);
294 my $plen = packetlen($data);
295 my $pdata = substr($data, 0, $plen);
296 $data = substr($data, $plen);
299 $data = substr($data, namelen($data));
300 $data = substr($data, 6);
301 $data = substr($data, namelen($data));
303 # preserve the TSIG data
304 my $tdata = substr($data, 0, 8);
307 $data = pack("n", $rmacsize) . $rmac . $pdata . $tdata;
308 return Net::DNS::RR::TSIG::sign_hmac($key, $data);
366 print " Signing the data with " .
425 Net::DNS::Packet->new(\($packet->data));
429 push(@results,$packet->data);