Lines Matching refs:record
169 my $record = shift;
180 if ($record->content_type == TLSProxy::Record::RT_CCS) {
192 } elsif ($record->content_type == TLSProxy::Record::RT_HANDSHAKE) {
193 if ($record->len == 0 || $record->len_real == 0) {
202 push @message_rec_list, $record;
209 if (length($payload) + $record->decrypt_len >= $messlen) {
212 $payload .= substr($record->decrypt_data, 0, $recoffset);
221 $payload .= $record->decrypt_data;
222 $recoffset = $record->decrypt_len;
223 push @message_frag_lens, $record->decrypt_len;
228 while ($record->decrypt_len > $recoffset) {
230 if ($record->decrypt_len - $recoffset < 4) {
234 @message_rec_list = ($record);
238 substr($record->decrypt_data,
247 if ($recoffset <= $record->decrypt_len) {
249 if ($record->decrypt_len - $recoffset >= $messlen) {
251 $payload .= substr($record->decrypt_data, $recoffset,
262 $payload .= substr($record->decrypt_data, $recoffset,
263 $record->decrypt_len - $recoffset);
264 $recoffset = $record->decrypt_len;
270 } elsif ($record->content_type == TLSProxy::Record::RT_APPLICATION_DATA) {
272 print " [".$record->decrypt_data."]\n";
278 } elsif ($record->content_type == TLSProxy::Record::RT_ALERT) {
279 my ($alertlev, $alertdesc) = unpack('CC', $record->decrypt_data);
293 $record->encrypted,