1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/local/bin/perl
#
# Check whether the ANY DEFINED BY syntax is working
#
BEGIN { require './t/funcs.pl'}
use Convert::ASN1;
print "1..21\n";
btest 1, $asn_str=Convert::ASN1->new or warn $asn->error;
btest 2, $asn_str->prepare("string STRING") or warn $asn->error;
btest 3, $asn_seq=Convert::ASN1->new or warn $asn->error;
btest 4, $asn_seq->prepare(q(
SEQUENCE {
integer INTEGER,
str STRING
}
)) or warn $asn_seq->error;
btest 5, $asn = Convert::ASN1->new or warn $asn->error;
btest 6, $asn->prepare(q(
type OBJECT IDENTIFIER,
content ANY DEFINED BY type
)) or warn $asn->error;
# Bogus OIDs - testing only!
btest 7, $asn->registeroid("1.1.1.1",$asn_str);
btest 8, $asn->registeroid("1.1.1.2",$asn_seq);
# Encode the first type
my $result = pack("C*", 0x06, 0x03, 0x29, 0x01, 0x01, 0x04, 0x0d, 0x4a, 0x75,
0x73, 0x74, 0x20, 0x61, 0x20, 0x73, 0x74, 0x72, 0x69,
0x6e, 0x67);
stest 9, $result, $asn->encode(type => "1.1.1.1", content => {string=>"Just a string"});
btest 10, $ret = $asn->decode($result) or warn $asn->error;
stest 11, "Just a string", $ret->{content}->{string};
# Now check the second
$result = pack("C*", 0x06, 0x03, 0x29, 0x01, 0x02, 0x30, 0x11, 0x02,
0x01, 0x01, 0x04, 0x0c, 0x61, 0x6e, 0x64, 0x20,
0x61, 0x20, 0x73, 0x74, 0x72, 0x69, 0x6e, 0x67);
stest 12, $result, $asn->encode(type => "1.1.1.2",
content => {integer=>1, str=>"and a string"});
btest 13, $ret = $asn->decode($result) or warn $asn->error;
ntest 14, 1, $ret->{content}->{integer};
stest 15, "and a string", $ret->{content}->{str};
# Decoding ANY with indefinite length must include the trailing terminator
btest 16, $asn = Convert::ASN1->new or warn $asn->error;
btest 17, $asn->prepare(q(
Test2 ::= ANY
Test1 ::= SEQUENCE OF ANY
)) or warn $asn->error;
$result = pack("H*","3080020109308002010900000000");
btest 18, $ret = $asn->find('Test1')->decode($result);
rtest 19, [pack("H*","020109"),pack("H*","30800201090000")], $ret;
btest 20, $ret = $asn->find('Test2')->decode($result);
stest 21, $result, $ret;
|
