Lines Matching refs:certlen

57         my ($hicertlen, $certlen) = unpack('Cn', $remdata);
58         $certlen += ($hicertlen << 16);
60         die "Certificate too long" if ($certlen + 3) > $certlistlen;
64         my $certdata = substr($remdata, 0, $certlen);
66         $remdata = substr($remdata, $certlen);
72             if ($certlen + 3 + $extensions_len + 2) > $certlistlen;
98         print "    Certificate Len:".$certlen."\n";
109         my ($hicertlen, $certlen) = unpack('Cn', $remdata);
110         $certlen += ($hicertlen << 16);
112         die "Certificate too long" if ($certlen + 3) > $certlistlen;
116         my $certdata = substr($remdata, 0, $certlen);
118         $remdata = substr($remdata, $certlen);
124         print "    Certificate Len:".$certlen."\n";
144         my $certlen = length($self->first_certificate);
145         my $certlistlen = $certlen + length($extensions)
150         $hi = $certlen >> 16;
151         $certlen = $certlen & 0xffff;
152         $data .= pack('Cn', $hi, $certlen);
158         my $certlen = length($self->first_certificate);
159         my $certlistlen = $certlen + length($self->remaining_certdata);
163         $hi = $certlen >> 16;
164         $certlen = $certlen & 0xffff;
165         $data .= pack('Cn', $hi, $certlen);