]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/smime2.try
Update the HMAC calculation example
[openssl-gost/engine.git] / tcl_tests / smime2.try
1 #!/usr/bin/tclsh
2 lappend auto_path [file dirname [info script]]
3 package require ossltest
4 cd $::test::dir
5 start_tests "Тесты на команду smime - вторая подпись" 
6
7 test "Creating CA" {
8         makeCA
9 } 0 1
10
11 makeFile signed2.dat "Test data for 2 signatures"
12
13
14 foreach length {256 512} {
15
16 test "Creating users $length" {
17         makeRegisteredUser U_smime_1_$length gost2012_$length:A CN USER1_$length emailAddress test@cryptocom.ru
18         makeRegisteredUser U_smime_2_$length gost2012_$length:A CN USER2_$length emailAddress test@cryptocom.ru
19 } 0 1
20
21 test -createsfiles signed2_1_$length.asn "Signing in DER format with 1st signature" {
22         openssl "smime -sign -binary -outform der -inform der -nodetach -inkey U_smime_1_$length/seckey.pem -signer U_smime_1_$length/cert.pem -in signed2.dat -out signed2_1_$length.asn"
23         file isfile signed2_1_$length.asn
24 } 0 1
25
26 test -createsfiles signed2_2_$length.asn "Signing in DER format with 2nd signature" {
27         openssl "smime -resign -binary -outform der -inform der -nodetach -inkey U_smime_2_$length/seckey.pem -signer U_smime_2_$length/cert.pem -in signed2_1_$length.asn -out signed2_2_$length.asn"
28         file isfile signed2_2_$length.asn
29 } 0 1
30
31 test -createsfiles {was_signed.dat signer.certs} "Verifying signature" {
32         grep "Verif" [openssl "smime -verify -inform der -in signed2_2_$length.asn -noverify -signer signer.certs -out was_signed.dat"]
33 } 0 {Verification successful
34 }
35
36 test "Signed data is extracted correctly" {
37         string eq [getFile signed2.dat] [getFile was_signed.dat]
38 } 0 1
39
40 ### Test extracted sertificates
41
42 test "Extracting signer certificates" {
43         set i 0
44         set subjs {}
45         set certs [regexp -all -inline -- {-----BEGIN CERTIFICATE-----.*?-----END CERTIFICATE-----} [getFile signer.certs]]
46         foreach cert $certs {
47                 makeFile cert[incr i].pem $cert
48                 lappend subjs [grep subject [openssl "x509 -in cert$i.pem -subject -noout"]]
49         }
50         lsort $subjs
51 } 0  "{subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER1_$length, emailAddress = test@cryptocom.ru
52 } {subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER2_$length, emailAddress = test@cryptocom.ru
53 }"
54
55 test -createsfiles signed2_1_$length\_op.msg "Signing opaque in S/MIME format with 1st signature" {
56         openssl "smime -sign -binary -nodetach -inkey U_smime_1_$length/seckey.pem -signer U_smime_1_$length/cert.pem -in signed2.dat -out signed2_1_$length\_op.msg"
57         file isfile signed2_1_$length\_op.msg
58 } 0 1
59
60 test -createsfiles signed2_2_$length\_op.msg "Signing opaque in S/MIME format with 2nd signature" {
61         openssl "smime -resign -binary -nodetach -inkey U_smime_2_$length/seckey.pem -signer U_smime_2_$length/cert.pem -in signed2_1_$length\_op.msg -out signed2_2_$length\_op.msg"
62         file isfile signed2_2_$length\_op.msg
63 } 0 1
64
65 test -createsfiles {was_signed.dat signer.certs} "Verifying opaque signature" {
66         grep "Verif" [openssl "smime -verify -inform smime -in signed2_2_$length\_op.msg -noverify -signer signer.certs -out was_signed.dat"]
67 } 0 {Verification successful
68 }
69
70 test "Signed data is extracted correctly" {
71         string eq [getFile signed2.dat] [getFile was_signed.dat]
72 } 0 1
73
74 ### Test extracted sertificates
75
76 test "Extracting signer certificates" {
77         set i 0
78         set subjs {}
79         set certs [regexp -all -inline -- {-----BEGIN CERTIFICATE-----.*?-----END CERTIFICATE-----} [getFile signer.certs]]
80         foreach cert $certs {
81                 makeFile cert[incr i].pem $cert
82                 lappend subjs [grep subject [openssl "x509 -in cert$i.pem -subject -noout"]]
83         }
84         lsort $subjs
85 } 0  "{subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER1_$length, emailAddress = test@cryptocom.ru
86 } {subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER2_$length, emailAddress = test@cryptocom.ru
87 }"
88
89 test -createsfiles signed2_1_$length\_det.asn "Signing detached in DER format with 1st signature" {
90         openssl "smime -sign -binary -outform der -inkey U_smime_1_$length/seckey.pem -signer U_smime_1_$length/cert.pem -in signed2.dat -out signed2_1_$length\_det.asn"
91         file isfile signed2_1_$length\_det.asn
92 } 0 1
93
94 test -createsfiles signed2_2_$length\_det.asn "Signing detached in DER format with 2nd signature" {
95         openssl "smime -resign -binary -inkey U_smime_2_$length/seckey.pem -signer U_smime_2_$length/cert.pem -in signed2_1_$length\_det.asn -content signed2.dat -inform der -outform der -out signed2_2_$length\_det.asn"
96         file isfile signed2_2_$length\_det.asn
97 } 0 1
98
99 test -createsfiles {was_signed.dat signer.certs} "Verifying detached signature in DER format" {
100         grep "Verif" [openssl "smime -verify -in signed2_2_$length\_det.asn -noverify -signer signer.certs -out was_signed.dat -content signed2.dat -inform der"]
101 } 0 {Verification successful
102 }
103
104 test "Signed data is extracted correctly" {
105         string eq [getFile signed2.dat] [getFile was_signed.dat]
106 } 0 1
107
108 ### Test extracted sertificates
109
110 test "Extracting signer certificates" {
111         set i 0
112         set subjs {}
113         set certs [regexp -all -inline -- {-----BEGIN CERTIFICATE-----.*?-----END CERTIFICATE-----} [getFile signer.certs]]
114         foreach cert $certs {
115                 makeFile cert_asn[incr i].pem $cert
116                 lappend subjs [grep subject [openssl "x509 -in cert_asn$i.pem -subject -noout"]]
117         }
118         lsort  $subjs
119 } 0  "{subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER1_$length, emailAddress = test@cryptocom.ru
120 } {subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER2_$length, emailAddress = test@cryptocom.ru
121 }"
122
123 test -createsfiles signed2_1_$length.msg "Signing in S/MIME format with 1st signature" {
124         openssl "smime -sign -binary -inform der -inkey U_smime_1_$length/seckey.pem -signer U_smime_1_$length/cert.pem -in signed2.dat -out signed2_1_$length.msg"
125         file isfile signed2_1_$length.msg
126 } 0 1
127
128 test -createsfiles signed2_2_$length.msg "Signing in S/MIME format with 2nd signature" {
129         grep "SMIME" [openssl "smime -resign -binary -inkey U_smime_2_$length/seckey.pem -signer U_smime_2_$length/cert.pem -in signed2_1_$length.msg -inform smime -out signed2_2_$length.msg"]
130 } 0 ""
131
132 test -createsfiles {was_signed.dat  signer.certs} "Verifying signature" {
133         grep "Verif" [openssl "smime -verify -in signed2_2_$length.msg -noverify -signer signer.certs -out was_signed.dat -inform smime"]
134 } 0 {Verification successful
135 }
136
137 test "Signed data is extracted correctly" {
138         string eq [getFile signed2.dat] [getFile was_signed.dat]
139 } 0 1
140
141 ### Test extracted sertificates
142
143 test "Extracting signer certificates" {
144         set i 0
145         set subjs {}
146         set certs [regexp -all -inline -- {-----BEGIN CERTIFICATE-----.*?-----END CERTIFICATE-----} [getFile signer.certs]]
147         foreach cert $certs {
148                 makeFile cert_smime[incr i].pem $cert
149                 lappend subjs [grep subject [openssl "x509 -in cert_smime$i.pem -subject -noout"]]
150         }
151         lsort $subjs
152 } 0  "{subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER1_$length, emailAddress = test@cryptocom.ru
153 } {subject=C = RU, O = Cryptocom, OU = OpenSSL Team, CN = USER2_$length, emailAddress = test@cryptocom.ru
154 }"
155
156 }
157
158
159 test "Resigning in DER format with a unsuitable key length 512" {
160         openssl "smime -resign -binary -inform der -nodetach -inkey U_smime_2_512/seckey.pem -signer U_smime_2_512/cert.pem -in signed2_1_256.asn"
161 } 1 "no matching digest"
162
163 test "Resigning in DER format with a unsuitable key length 256" {
164         openssl "smime -resign -binary -inform der -nodetach -inkey U_smime_2_256/seckey.pem -signer U_smime_2_256/cert.pem -in signed2_1_512.asn"
165 } 1 "no matching digest"
166
167 test "Resigning opaque in S/MIME format with a unsuitable key length 512" {
168         openssl "smime -resign -binary -nodetach -inkey U_smime_2_512/seckey.pem -signer U_smime_2_512/cert.pem -in signed2_1_256_op.msg"
169 } 1 "no matching digest"
170
171 test "Resigning opaque in S/MIME format with a unsuitable key length 256" {
172         openssl "smime -resign -binary -nodetach -inkey U_smime_2_256/seckey.pem -signer U_smime_2_256/cert.pem -in signed2_1_512_op.msg"
173 } 1 "no matching digest"
174
175 test "Resigning detached in DER format with a unsuitable key length 512" {
176         openssl "smime -resign -binary -inform der -inkey U_smime_2_512/seckey.pem -signer U_smime_2_512/cert.pem -in signed2_1_256_det.asn -content signed2.dat"
177 } 1 "no matching digest"
178
179 test "Resigning detached in DER format with a unsuitable key length 256" {
180         openssl "smime -resign -binary -inform der -inkey U_smime_2_256/seckey.pem -signer U_smime_2_256/cert.pem -in signed2_1_512_det.asn -content signed2.dat"
181 } 1 "no matching digest"
182
183 test "Resigning in S/MIME format with a unsuitable key length 512" {
184         openssl "smime -resign -binary -inkey U_smime_2_512/seckey.pem -signer U_smime_2_512/cert.pem -in signed2_1_256.msg"
185 } 1 "no matching digest"
186
187 test "Resigning in S/MIME format with a unsuitable key length 256" {
188         openssl "smime -resign -binary -inkey U_smime_2_256/seckey.pem -signer U_smime_2_256/cert.pem -in signed2_1_512.msg"
189 } 1 "no matching digest"
190
191
192 end_tests
193
194 #./load_engine smime -sign -binary -outform der -inform der -nodetach -inkey certs/fstek.key -signer certs/fstek.crt -out signed2 -in signed1
195 #./load_engine smime -verify -inform der -in signed2 -noverify
196 #./load_engine smime -verify -inform der -in signed2 -noverify -signer sss
197 #cat sss
198 #history 
199 #vim sss
200 #./load_engine x509 -in sss sss2
201 #./load_engine x509 -in sss 
202 #./load_engine x509 -in sss -subject -noout
203 #./load_engine x509 -in sss2 -subject -noout
204 #./load_engine smime -verify -inform der -in signed2 -noverify -signer sss -out qqq