tcl_tests/req-newkey.try

   1 #!/usr/bin/tclsh
   2 # -*- coding: cp1251 -*-
   3 if {[info exists env(PKG_PATH)]} {
   4         lappend auto_path $env(PKG_PATH)
   5 } else {
   6         lappend auto_path [file dirname [info script]]
   7 }
   8 package require ossltest
   9 package require asn 0.4.1
  10 cd $::test::dir
  11
  12 switch -exact [engine_name] {
  13         "ccore" {
  14                 set no_param_set "no public key parameters set"
  15                 set invalid_paramset "invalid pubic key paramset name"
  16         }
  17         "open" {
  18                 set no_param_set "no parameters set"
  19                 set invalid_paramset "parameter error"
  20         }
  21 }
  22
  23 start_tests "Создание ключей и заявок, команда req -newkey"
  24 makeCA
  25 foreach {alg descr code result} {
  26 gost2001: "ГОСТ 2001 Криптопро" 1 no_param_set
  27 gost2001:A "ГОСТ 2001 Криптопро A" 0 1.2.643.2.2.35.1
  28 gost2001:B "ГОСТ 2001 Криптопро B" 0 1.2.643.2.2.35.2
  29 gost2001:C "ГОСТ 2001 Криптопро C" 0 1.2.643.2.2.35.3
  30 gost2001:D "ГОСТ 2001 Криптопро неверный параметр" 1 invalid_paramset
  31 gost2001:test "ГОСТ 2001 Криптопро тестовый" 0 1.2.643.2.2.35.0
  32 gost2001:XA "ГОСТ 2001 Криптопро XA" 0 1.2.643.2.2.36.0
  33 gost2001:XB "ГОСТ 2001 Криптопро XB" 0 1.2.643.2.2.36.1
  34 gost2001:id-GostR3410-2001-CryptoPro-XchB-ParamSet  "ГОСТ 2001 Криптопро XB по имени" 0 1.2.643.2.2.36.1
  35 gost2001:1.2.643.2.2.36.1 "ГОСТ 2001 Криптопро XB по OID" 0 1.2.643.2.2.36.1
  36 gost2001:1.2.840.113549.1.1.1 "Недопустимый OID" 1 invalid_paramset
  37 gost2001:RSAencryption: "Недопустимое имя объекта" 1 invalid_paramset
  38 gost2012_256: "ГОСТ 2012 256 бит" 1 no_param_set
  39 gost2012_256:A "ГОСТ 2012 256 бит Криптопро A" 0 1.2.643.2.2.35.1
  40 gost2012_256:B "ГОСТ 2012 256 бит Криптопро B" 0 1.2.643.2.2.35.2
  41 gost2012_256:C "ГОСТ 2012 256 бит Криптопро C" 0 1.2.643.2.2.35.3
  42 gost2012_256:D "ГОСТ 2012 256 бит Криптопро неверный параметр" 1 invalid_paramset
  43 gost2012_256:id-GostR3410-2001-CryptoPro-B-ParamSet  "ГОСТ 2012 256 бит Криптопро B по имени" 0 1.2.643.2.2.35.2
  44 gost2012_256:1.2.643.2.2.35.1 "ГОСТ 2012 256 бит Криптопро A по OID" 0 1.2.643.2.2.35.1
  45 gost2012_256:1.2.840.113549.1.1.1 "Недопустимый OID" 1 invalid_paramset
  46 gost2012_256:RSAencryption: "Недопустимое имя объекта" 1 invalid_paramset
  47 gost2012_512: "ГОСТ 2012 512 бит" 1 no_param_set
  48 gost2012_512:A "ГОСТ 2012 512 бит ТК26 A" 0 1.2.643.7.1.2.1.2.1
  49 gost2012_512:B "ГОСТ 2012 512 бит ТК26 B" 0 1.2.643.7.1.2.1.2.2
  50 gost2012_512:C "ГОСТ 2012 512 бит неверный параметр" 1 invalid_paramset
  51 gost2012_512:id-tc26-gost-3410-2012-512-paramSetB  "ГОСТ 2012 512 бит набор параметров B по имени" 0 1.2.643.7.1.2.1.2.2
  52 gost2012_512:1.2.643.7.1.2.1.2.1 "ГОСТ 2012 512 бит набор параметров A по OID" 0 1.2.643.7.1.2.1.2.1
  53 gost2012_512:1.2.643.2.2.35.1 "Недопустимый OID" 1 invalid_paramset
  54 gost2012_512:RSAencryption: "Недопустимое имя объекта" 1 invalid_paramset
  55
  56
  57 } {
  58
  59         switch -exact $result {
  60                 "no_param_set" { set result $no_param_set }
  61                 "invalid_paramset" { set result $invalid_paramset }
  62         }
  63
  64         set index [string first ":" $alg]
  65         if {$index != -1} {
  66                 set algname [string range $alg 0 [expr $index-1]]
  67                 set algparam [string range $alg [expr $index+1] end]
  68         } else {
  69                 set algname $alg
  70                 set algparam ""
  71         }
  72         if {$algparam ne ""} {
  73                 set algparamcmdline "-pkeyopt paramset:$algparam"
  74         } else {
  75                 set algparamcmdline ""
  76         }
  77
  78         test -skip {{[engine_name] eq "open" && $alg eq "gost2001:test"}} $descr {
  79                 openssl "req -newkey $algname $algparamcmdline -keyout test.key -out test.req -batch -nodes -config $::test::ca/req.conf"
  80                 set pkcs8 [readpem test.key]
  81                 asn::asnGetSequence pkcs8 seq1
  82                 asn::asnGetInteger seq1 int0
  83                 asn::asnGetSequence seq1 seq2
  84                 asn::asnGetObjectIdentifier seq2 oid
  85                 asn::asnGetSequence seq2 seq3
  86                 asn::asnGetObjectIdentifier seq3 oid
  87                 join $oid .
  88         } $code $result
  89         log "errorInfo: $errorInfo"
  90
  91         test -skip {![file exists test.req]} "Заявка подписана корректно" {
  92                 grep "verif" [openssl "req -verify -in test.req"]
  93         } 0 "verify OK\n"
  94 }
  95 end_tests