Lines Matching refs:data
47 # Now you can add TSIG, just specify key/key data with:
53 # Note that this data will still be sent with any request for
54 # pattern, only this data will be signed. Currently, this is only
161 return $packet->data;
165 # given a stream of data, reads a DNS-formatted name and returns its
168 my ($data) = @_;
172 $label_len = unpack("c", $data);
173 $data = substr($data, $label_len + 1);
180 # given a stream of data, reads a DNS wire-format packet and returns
183 my ($data) = @_;
187 my ($header, $offset) = Net::DNS::Header->parse(\$data);
189 ($q, $offset) = Net::DNS::Question->parse(\$data, $offset);
192 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
195 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
198 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
205 # to sign multiple-message TCP responses. Several data that are included
212 # the unwanted data from the digest before calling the default sign_hmac
215 my ($key, $data) = @_;
218 my $rmacsize = unpack("n", $data);
219 $data = substr($data, 2);
222 my $rmac = substr($data, 0, $rmacsize);
223 $data = substr($data, $rmacsize);
226 my $plen = packetlen($data);
227 my $pdata = substr($data, 0, $plen);
228 $data = substr($data, $plen);
231 $data = substr($data, namelen($data));
232 $data = substr($data, 6);
233 $data = substr($data, namelen($data));
235 # preserve the TSIG data
236 my $tdata = substr($data, 0, 8);
239 $data = pack("n", $rmacsize) . $rmac . $pdata . $tdata;
240 return Net::DNS::RR::TSIG::sign_hmac($key, $data);
288 print " Signing the data with " .
317 Net::DNS::Packet->new(\($packet->data));
321 push(@results,$packet->data);