| … | |
… | |
| 496 | Example output: |
496 | Example output: |
| 497 | |
497 | |
| 498 | SEQUENCE |
498 | SEQUENCE |
| 499 | | OCTET_STRING bytes 800063784300454045045400000001 |
499 | | OCTET_STRING bytes 800063784300454045045400000001 |
| 500 | | OCTET_STRING bytes |
500 | | OCTET_STRING bytes |
| 501 | | CONTEXT (7) bytes CONSTRUCTED |
501 | | CONTEXT (7) CONSTRUCTED |
| 502 | | | INTEGER int 1058588941 |
502 | | | INTEGER int 1058588941 |
| 503 | | | INTEGER int 0 |
503 | | | INTEGER int 0 |
| 504 | | | INTEGER int 0 |
504 | | | INTEGER int 0 |
| 505 | | | SEQUENCE |
505 | | | SEQUENCE |
| 506 | | | | SEQUENCE |
506 | | | | SEQUENCE |
| … | |
… | |
| 549 | $class =~ s/^ASN_//; |
549 | $class =~ s/^ASN_//; |
| 550 | $tag =~ s/^(ASN_|SNMP_)//; |
550 | $tag =~ s/^(ASN_|SNMP_)//; |
| 551 | $type =~ s/^BER_TYPE_//; |
551 | $type =~ s/^BER_TYPE_//; |
| 552 | |
552 | |
| 553 | if ($ber->[BER_FLAGS]) { |
553 | if ($ber->[BER_FLAGS]) { |
| 554 | printf "$indent%-16.16s %-6.6s CONSTRUCTED\n", $tag, lc $type; |
554 | printf "$indent%-16.16s CONSTRUCTED\n", $tag; |
| 555 | &_ber_dump ($_, $profile, "$indent| ") |
555 | &_ber_dump ($_, $profile, "$indent| ") |
| 556 | for @$data; |
556 | for @$data; |
| 557 | } else { |
557 | } else { |
| 558 | if ($data =~ y/\x20-\x7e//c / (length $data || 1) > 0.2 or $data =~ /\x00./s) { |
558 | if ($data =~ y/\x20-\x7e//c / (length $data || 1) > 0.2 or $data =~ /\x00./s) { |
| 559 | # assume binary |
559 | # assume binary |
