Lines Matching refs:data
55 # Now you can add TSIG, just specify key/key data with:
61 # Note that this data will still be sent with any request for
62 # pattern, only this data will be signed. Currently, this is only
169 return $packet->data;
173 # given a stream of data, reads a DNS-formatted name and returns its
176 my ($data) = @_;
180 $label_len = unpack("c", $data);
181 $data = substr($data, $label_len + 1);
188 # given a stream of data, reads a DNS wire-format packet and returns
191 my ($data) = @_;
195 my ($header, $offset) = Net::DNS::Header->parse(\$data);
197 ($q, $offset) = Net::DNS::Question->parse(\$data, $offset);
200 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
203 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
206 ($rr, $offset) = Net::DNS::RR->parse(\$data, $offset);
213 # to sign multiple-message TCP responses. Several data that are included
220 # the unwanted data from the digest before calling the default sign_hmac
223 my ($key, $data) = @_;
226 my $rmacsize = unpack("n", $data);
227 $data = substr($data, 2);
230 my $rmac = substr($data, 0, $rmacsize);
231 $data = substr($data, $rmacsize);
234 my $plen = packetlen($data);
235 my $pdata = substr($data, 0, $plen);
236 $data = substr($data, $plen);
239 $data = substr($data, namelen($data));
240 $data = substr($data, 6);
241 $data = substr($data, namelen($data));
243 # preserve the TSIG data
244 my $tdata = substr($data, 0, 8);
247 $data = pack("n", $rmacsize) . $rmac . $pdata . $tdata;
248 return Net::DNS::RR::TSIG::sign_hmac($key, $data);
296 print " Signing the data with " .
325 Net::DNS::Packet->new(\($packet->data));
329 push(@results,$packet->data);