tcl_tests/smime.try

   1 #!/usr/bin/tclsh
   2 # -*- coding: cp1251 -*-
   3 lappend auto_path [file dirname [info script]]
   4 package require ossltest
   5 cd $::test::dir
   6 set testname [file rootname [file tail $::argv0]]
   7
   8 start_tests "Тесты на команду smime"
   9
  10 test "Creating CA 2001" {
  11         makeCA ${testname}CA gost2001:A
  12 } 0 1
  13
  14 test "Creating CA 2012" {
  15         makeCA
  16 } 0 1
  17
  18
  19 if {[info exists env(ALG_LIST)]} {
  20         set alg_list $env(ALG_LIST)
  21 } else {
  22         switch -exact [engine_name] {
  23                 "ccore" {set alg_list {gost2001:A gost2001:B gost2001:C gost2012_256:A gost2012_256:B gost2012_256:C gost2012_512:A gost2012_512:B}}
  24                 "open" {set alg_list {gost2001:A gost2001:B gost2001:C gost2012_256:A gost2012_256:B gost2012_256:C gost2012_512:A gost2012_512:B}}
  25         }
  26 }
  27
  28 foreach alg $alg_list {
  29         set alg_fn [string map {":" "_"} $alg]
  30         set username U_smime_$alg_fn
  31         switch -glob $alg {
  32                 gost2012* {set ::test::ca ${testname}CA-2012
  33                            set ca_sign_alg hash_with_sign12_512
  34                           }
  35                 * {set ::test::ca ${testname}CA
  36                    set ca_sign_alg hash_with_sign01_cp
  37                   }
  38         }
  39
  40 test "Creating user with signing key $alg" {
  41         makeRegisteredUser $username $alg
  42
  43         if {![file exists $username/req.pem]&&[file exists $username/cert.pem]} {
  44                 file delete $username/cert.pem
  45         }
  46         file exists $username/cert.pem
  47 } 0 1
  48
  49 test -skip {![file exists $username/cert.pem]} -createsfiles [list sign.dat sign_$alg_fn.msg] "Signing a message without cert by $alg" {
  50         makeFile sign.dat [string repeat "Test data to sign.\n" 100]
  51         openssl "smime -sign -in sign.dat -text -out sign_$alg_fn.msg -signer $username/cert.pem -inkey $username/seckey.pem -nocerts"
  52         file isfile sign_$alg_fn.msg
  53 } 0 1
  54
  55 test -skip {![file exist sign_$alg_fn.msg]} "Checking micalg param in signed without cert $alg message" {
  56         regexp -- micalg="[micalg [alg_hash $alg]]" [grep micalg [getFile sign_$alg_fn.msg]]
  57 } 0 1
  58
  59 test -createsfiles sign_$alg_fn.pem -skip {![file exist sign_$alg_fn.msg]} "Extracting PKCS7 from signed without cert $alg message" {
  60         openssl "smime -pk7out -out sign_$alg_fn.pem -in sign_$alg_fn.msg"
  61         file isfile sign_$alg_fn.pem
  62 } 0 1
  63
  64
  65 test -skip {![file exists sign_$alg_fn.pem]} "Checking oids in pkcs7 struct" {
  66         extract_oids sign_$alg_fn.pem PEM
  67 } 0 [mkObjList [hash_long_name $alg] [hash_long_name $alg] "GOST R 34.11-2012 with 256 bit hash" "GOST R 34.11-2012 with 512 bit hash" "GOST R 34.11-94" "GOST 28147-89" [alg_long_name $alg]]
  68 #[mkObjList [alg_hash $alg] [alg_hash $alg] hash_12_256 hash_12_512 hash_94 crypt89_cc [alg_id $alg]]
  69 # hash_12_256 hash_12_512 hash_94 crypt89_cc are from sMIMECapabilities
  70
  71 test -skip {![file exists sign_$alg_fn.msg]} "Verifying a message signed with $alg without ca " {
  72         grep Veri [openssl "smime -verify -text -in sign_$alg_fn.msg -out verified.txt -noverify -certfile $username/cert.pem"]
  73 } 0 "Verification successful
  74 "
  75
  76 test -skip {![file exists sign_$alg_fn.msg]}  "Verifying a message signed with $alg with ca" {
  77         grep Veri [openssl "smime -verify -text -in sign_$alg_fn.msg -out verified.txt -certfile $username/cert.pem -CAfile $::test::ca/cacert.pem"]
  78 } 0 "Verification successful
  79 "
  80
  81 test -skip {![file exists sign_$alg_fn.msg]} -createsfiles [list bad_$alg_fn.msg verified.txt] "Verifying corrupted messages signed with $alg" {
  82         set corrupted [getFile sign_$alg_fn.msg]
  83         set index [string first "Test data" $corrupted ]
  84         makeFile bad_$alg_fn.msg [string replace $corrupted $index [expr $index+9] "Bad data"]
  85         grep Verification [openssl "smime -verify -text -in bad_$alg_fn.msg -out verified.txt -noverify -certfile $username/cert.pem"]
  86 } 1 "Verification failure"
  87
  88 test -skip {![file exists $username/cert.pem]}  -createsfiles [list sign.dat sign_c_$alg_fn.msg] "Signing a message by $alg with cert" {
  89         makeFile sign.dat [string repeat "Test data to sign.\n" 100]
  90         openssl "smime -sign -in sign.dat -crlfeol -text -out sign_c_$alg_fn.msg -signer $username/cert.pem -inkey $username/seckey.pem"
  91         file isfile sign_c_$alg_fn.msg
  92 } 0 1
  93
  94 test -skip {![file exist sign_c_$alg_fn.msg]} "Checking micalg param in signed with cert $alg message" {
  95         regexp -- micalg="[micalg [alg_hash $alg]]" [grep micalg [getFile sign_c_$alg_fn.msg]]
  96 } 0 1
  97
  98 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert inside without ca" {
  99         grep Veri [openssl "smime -verify -text -in sign_c_$alg_fn.msg -out verified.txt -noverify"]
 100 } 0 "Verification successful
 101 "
 102
 103 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert with ca" {
 104         grep Veri [openssl "smime -verify -text -in sign_c_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
 105 } 0 "Verification successful
 106 "
 107 test -skip {![file exists $username/cert.pem]} -createsfiles {sign.dat sign_op_$alg_fn.msg} "Signing a message by $alg with cert using opaque signing" {
 108         makeFile sign.dat [string repeat "Test data to sign.\n" 100]
 109         openssl "smime -sign -in sign.dat -text -out sign_op_$alg_fn.msg -signer $username/cert.pem -inkey $username/seckey.pem -nodetach"
 110         file isfile sign_op_$alg_fn.msg
 111 } 0 1
 112
 113 test -createsfiles verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a message signed by $alg having cert inside without ca" {
 114         grep Veri [openssl "smime -verify -text -in sign_op_$alg_fn.msg -out verified.txt -noverify"]
 115 } 0 "Verification successful
 116 "
 117
 118 test -createsfiles verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a $alg opaque  message with ca" {
 119         grep Veri [openssl "smime -verify -text -in sign_op_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
 120 } 0 "Verification successful
 121 "
 122
 123 test -createsfiles broken_op_$alg_fn.msg  -skip {![file exists sign_op_$alg_fn.msg]} "Verifying broken $alg opaque message" {
 124         set data [getFile sign_op_$alg_fn.msg]
 125         regexp "(.*)\n\r?\n(.+)" $data match header encoded
 126         set asnstruct [::base64::decode $encoded]
 127         makeFile broken_op_$alg_fn.msg "$header\n\n[::base64::encode [regsub -all\
 128                 "Test data" $asnstruct "Best data"]]"
 129         grep Verification [openssl "smime -verify -text -in broken_op_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
 130 } 1 "Verification failure"
 131
 132
 133 test -createsfiles "sign_det_$alg_fn.msg" -skip {![file exists $username/cert.pem]||![file exists sign.dat]} "Creating detached $alg signature" {
 134         openssl "smime -sign -binary -in sign.dat -out sign_det_$alg_fn.msg -signer $username/cert.pem -inkey $username/seckey.pem"
 135         file exists sign_det_$alg_fn.msg
 136 } 0 1
 137
 138 test -skip {![file exist sign_det_$alg_fn.msg]} "Checking micalg param in detached $alg signature" {
 139         regexp -- micalg="[micalg [alg_hash $alg]]" [grep micalg [getFile sign_det_$alg_fn.msg]]
 140 } 0 1
 141
 142 test -createsfiles sign_det_$alg_fn.pem -skip {![file exist sign_det_$alg_fn.msg]} "Extracting PKCS7 from signed $alg message" {
 143         openssl "smime -pk7out -out sign_det_$alg_fn.pem -in sign_det_$alg_fn.msg"
 144         file isfile sign_det_$alg_fn.pem
 145 } 0 1
 146
 147 #We expect cryptocom oids because of cert signed by ca with Cryptocom algs
 148 # Result sequence
 149 # 1. digest
 150 # 2.  algorithm of CA key
 151 # 3. algorithm of current key
 152 # 4. algorithm of CA key
 153 # 5. digest
 154 # 6. digests from sMIMECapabilities
 155 # 7. encryption from sMIMECapabilities
 156 # 8. algorithm of current key
 157 test -skip {![file exists sign_det_$alg_fn.pem]} "Checking oids in pkcs7 struct" {
 158         extract_oids sign_det_$alg_fn.pem PEM
 159 } 0 [mkObjList [hash_long_name $alg] [smime_hash_with_sign_long_name $ca_sign_alg] [alg_long_name $alg] [pubkey_long_name $alg] [param_hash_long_name [param_hash $alg]] [smime_hash_with_sign_long_name  $ca_sign_alg] [hash_long_name $alg] "GOST R 34.11-2012 with 256 bit hash" "GOST R 34.11-2012 with 512 bit hash" "GOST R 34.11-94" "GOST 28147-89" [alg_long_name $alg]]
 160
 161 test -skip {![file exists sign_det_$alg_fn.pem]} "Verifying detached $alg signature" {
 162         grep Veri [openssl "smime -verify -content sign.dat -inform PEM -in sign_det_$alg_fn.pem -out verified.txt -noverify"]
 163 } 0 "Verification successful
 164 "
 165
 166 test -skip {![file exists sign_det_$alg_fn.msg]} -createsfiles {bad.dat} "Verifying corrupted $alg detached signature" {
 167         makeFile bad.dat [regsub Test [getFile sign.dat] Best]
 168         grep Verification [openssl "smime -verify -content bad.dat -in sign_det_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
 169 } 1 "Verification failure"
 170
 171
 172 }
 173 end_tests