test/04-pkey.t

   1 #!/usr/bin/perl
   2 use Test::More tests => 15;
   3 use Cwd 'abs_path';
   4
   5 #
   6 # If this variable is set, engine would be loaded via configuration
   7 # file. Otherwise - via command line
   8 #
   9 $use_config = 1;
  10
  11 # prepare data for
  12
  13
  14 # Set OPENSSL_ENGINES environment variable to just built engine
  15 if(!defined $ENV{'OPENSSL_ENGINES'}){
  16         $ENV{'OPENSSL_ENGINES'} = abs_path("../.libs");
  17 }
  18
  19 $engine=$ENV{'ENGINE_NAME'}||"gost";
  20
  21 # Reopen STDERR to eliminate extra output
  22 open STDERR, ">>","tests.err";
  23
  24
  25 open F,">","test.cnf";
  26 if (defined($use_config) && $use_config) {
  27         $eng_param = "";
  28         open F,">","test.cnf";
  29         print F <<EOCFG;
  30 openssl_conf = openssl_def
  31 [openssl_def]
  32 engines = engines
  33 [engines]
  34 ${engine}=gost_conf
  35 [gost_conf]
  36 default_algorithms = ALL
  37
  38 EOCFG
  39 } else {
  40         $eng_param = "-engine $engine"
  41 }
  42 close F;
  43 $ENV{'OPENSSL_CONF'}=abs_path('test.cnf');
  44
  45
  46 @keys=(['gost2001','A',"-----BEGIN PRIVATE KEY-----
  47 MEUCAQAwHAYGKoUDAgITMBIGByqFAwICIwEGByqFAwICHgEEIgIgRhUDJ1WQASIf
  48 nx+aUM2eagzV9dCt6mQ5wdtenr2ZS/Y=
  49 -----END PRIVATE KEY-----
  50 ","Private key: 46150327559001221F9F1F9A50CD9E6A0CD5F5D0ADEA6439C1DB5E9EBD994BF6
  51 ","Public key:
  52    X:789094AF6386A43AF191210FFED0AEA5D1D9750D8FF8BCD1B584BFAA966850E4
  53    Y:25ED63EE42624403D08FC60E5F8130F121ECDC5E297D9E3C7B106C906E0855E9
  54 Parameter set: id-GostR3410-2001-CryptoPro-A-ParamSet
  55 ","-----BEGIN PUBLIC KEY-----
  56 MGMwHAYGKoUDAgITMBIGByqFAwICIwEGByqFAwICHgEDQwAEQORQaJaqv4S10bz4
  57 jw112dGlrtD+DyGR8TqkhmOvlJB46VUIbpBsEHs8nn0pXtzsIfEwgV8Oxo/QA0Ri
  58 Qu5j7SU=
  59 -----END PUBLIC KEY-----
  60 "],
  61 ['gost2001','B'=>'-----BEGIN PRIVATE KEY-----
  62 MEUCAQAwHAYGKoUDAgITMBIGByqFAwICIwIGByqFAwICHgEEIgIgImwnCcqcfuXK
  63 MVYg+UWQhiXYKz1yQ8kDSB7Ly515XH4=
  64 -----END PRIVATE KEY-----
  65 ','Private key: 226C2709CA9C7EE5CA315620F945908625D82B3D7243C903481ECBCB9D795C7E
  66 ','Public key:
  67    X:59C15439385CBE790274D6537D318A35B27413D265FFDC5FBE5354DF8C7AC591
  68    Y:11B771AC016AA817542184D05F2C7DDD0F9A5A5C9F840A79B5B7A73658F3048A
  69 Parameter set: id-GostR3410-2001-CryptoPro-B-ParamSet
  70 ','-----BEGIN PUBLIC KEY-----
  71 MGMwHAYGKoUDAgITMBIGByqFAwICIwIGByqFAwICHgEDQwAEQJHFeozfVFO+X9z/
  72 ZdITdLI1ijF9U9Z0Anm+XDg5VMFZigTzWDant7V5CoSfXFqaD919LF/QhCFUF6hq
  73 AaxxtxE=
  74 -----END PUBLIC KEY-----
  75 '],
  76 ['gost2001','C'=>'-----BEGIN PRIVATE KEY-----
  77 MEUCAQAwHAYGKoUDAgITMBIGByqFAwICIwMGByqFAwICHgEEIgIgKKUJVY2xlp24
  78 mky1F9inWeq3mm0J/uza6HsDvspgSzY=
  79 -----END PRIVATE KEY-----
  80 ','Private key: 28A509558DB1969DB89A4CB517D8A759EAB79A6D09FEECDAE87B03BECA604B36
  81 ','Public key:
  82    X:58154320380CCFD2A101D2B7844516984023CF5A38610C4F98220E017270B2D4
  83    Y:14C6977A6E9C0412DF5B53E69CD48DAF2B5805F55F6ACBEB4E01BA7B2BF84FC8
  84 Parameter set: id-GostR3410-2001-CryptoPro-C-ParamSet
  85 ','-----BEGIN PUBLIC KEY-----
  86 MGMwHAYGKoUDAgITMBIGByqFAwICIwMGByqFAwICHgEDQwAEQNSycHIBDiKYTwxh
  87 OFrPI0CYFkWEt9IBodLPDDggQxVYyE/4K3u6AU7ry2pf9QVYK6+N1JzmU1vfEgSc
  88 bnqXxhQ=
  89 -----END PUBLIC KEY-----
  90 '],
  91 ['gost2001','XA'=>,'-----BEGIN PRIVATE KEY-----
  92 MEUCAQAwHAYGKoUDAgITMBIGByqFAwICJAAGByqFAwICHgEEIgIgOFuMMveKUx/C
  93 BOSjl9XCepDCHWHv/1bcjdKexKGJkZw=
  94 -----END PRIVATE KEY-----
  95 ','Private key: 385B8C32F78A531FC204E4A397D5C27A90C21D61EFFF56DC8DD29EC4A189919C
  96 ','Public key:
  97    X:FA969CB29310E897978A1C9245107B46499D5C14A3975BF8E10EF5F613BE4EC6
  98    Y:17FCFACCB0F838AE730E8B4021E880937824214DFF5365A61576AC5E72F92E35
  99 Parameter set: id-GostR3410-2001-CryptoPro-XchA-ParamSet
 100 ','-----BEGIN PUBLIC KEY-----
 101 MGMwHAYGKoUDAgITMBIGByqFAwICJAAGByqFAwICHgEDQwAEQMZOvhP29Q7h+FuX
 102 oxRcnUlGexBFkhyKl5foEJOynJb6NS75cl6sdhWmZVP/TSEkeJOA6CFAiw5zrjj4
 103 sMz6/Bc=
 104 -----END PUBLIC KEY-----
 105 '],
 106 ['gost2001','XB'=>,'-----BEGIN PRIVATE KEY-----
 107 MEUCAQAwHAYGKoUDAgITMBIGByqFAwICJAEGByqFAwICHgEEIgIgE7WWqiYWoKLs
 108 7ezZ8L8Q9JcT73Jf5NYfFnlnoKRIQGg=
 109 -----END PRIVATE KEY-----
 110 ','Private key: 13B596AA2616A0A2ECEDECD9F0BF10F49713EF725FE4D61F167967A0A4484068
 111 ','Public key:
 112    X:1D33A01774E501EFADD6C7A936728AF644749E98FEF5AE77A25E185955ED2E14
 113    Y:FAD2D8101A99EDE8FBDF118B70A9894F4E6DE962B68D27E39B057624A51727
 114 Parameter set: id-GostR3410-2001-CryptoPro-XchB-ParamSet
 115 ','-----BEGIN PUBLIC KEY-----
 116 MGMwHAYGKoUDAgITMBIGByqFAwICJAEGByqFAwICHgEDQwAEQBQu7VVZGF6id671
 117 /piedET2inI2qcfWre8B5XQXoDMdJxelJHYFm+MnjbZi6W1OT4mpcIsR3/vo7Zka
 118 ENjS+gA=
 119 -----END PUBLIC KEY-----
 120 ']
 121 );
 122 for $keyinfo (@keys) {
 123         my ($alg,$paramset,$seckey,$sectext,$pubtext,$pubkey) = @$keyinfo;
 124         open F,">",'tmp.pem';
 125         print F $seckey;
 126         close F;
 127         #1.  Прочитать секретный ключ и напечатать публичный и секретный ключи
 128         is(`openssl pkey -noout -text -in tmp.pem`,$sectext . $pubtext,
 129                 "Print key pair $alg:$paramset");
 130         #2. Прочитать секретный ключ и вывести публичный (все алгоритмы)
 131     is(`openssl pkey -pubout -in tmp.pem`,$pubkey,
 132                 "Compute public key $alg:$paramset");
 133         open F,">","tmp.pem";
 134         print F $pubkey;
 135         close F;
 136         #3. Прочитать публичный и напечать его в виде текста
 137         is(`openssl pkey -pubin -noout -in tmp.pem -text`,$pubtext,
 138                 "Read and print public key $alg:paramset");
 139
 140 }
 141 unlink "tmp.pem";
 142 #4. Сгенерировать ключ два раза (для всех алгоритов и параметров).
 143 # Проверить что получились числа требуемой длины и они не совпадают
 144
 145
 146 #5. Проверить эталонную подпись
 147
 148 #6. Выработать подпись и проверить её
 149
 150 #7. Выработать подпись, поменять в ней один бит и убедиться что она
 151 # перестала проверяться
 152
 153 # 8. Выработать подпись, поменять 1 бит в подписываемых данных и
 154 # убедитсья, что подпись перестала быть корректной.
 155
 156 # 9. Выработать shared ключ по vko
 157
 158 # 10. Разобрать стандартый encrypted key
 159
 160 # 11. Сгенерирвоать encrypted key и его разобрать.
 161
 162 unlink "test.cnf";
 163