159191Skris/* test vectors from p1ovect1.txt */ 259191Skris 359191Skris#include <stdio.h> 459191Skris#include <string.h> 559191Skris 6109998Smarkm#include "e_os.h" 759191Skris 859191Skris#include <openssl/crypto.h> 959191Skris#include <openssl/err.h> 1059191Skris#include <openssl/rand.h> 11160814Ssimon#include <openssl/bn.h> 12109998Smarkm#ifdef OPENSSL_NO_RSA 1359191Skrisint main(int argc, char *argv[]) 1459191Skris{ 1559191Skris printf("No RSA support\n"); 16296465Sdelphij return (0); 1759191Skris} 1859191Skris#else 19296465Sdelphij# include <openssl/rsa.h> 2059191Skris 21296465Sdelphij# define SetKey \ 2259191Skris key->n = BN_bin2bn(n, sizeof(n)-1, key->n); \ 2359191Skris key->e = BN_bin2bn(e, sizeof(e)-1, key->e); \ 2459191Skris key->d = BN_bin2bn(d, sizeof(d)-1, key->d); \ 2559191Skris key->p = BN_bin2bn(p, sizeof(p)-1, key->p); \ 2659191Skris key->q = BN_bin2bn(q, sizeof(q)-1, key->q); \ 2759191Skris key->dmp1 = BN_bin2bn(dmp1, sizeof(dmp1)-1, key->dmp1); \ 2859191Skris key->dmq1 = BN_bin2bn(dmq1, sizeof(dmq1)-1, key->dmq1); \ 2959191Skris key->iqmp = BN_bin2bn(iqmp, sizeof(iqmp)-1, key->iqmp); \ 3059191Skris memcpy(c, ctext_ex, sizeof(ctext_ex) - 1); \ 3159191Skris return (sizeof(ctext_ex) - 1); 3259191Skris 3359191Skrisstatic int key1(RSA *key, unsigned char *c) 34296465Sdelphij{ 3559191Skris static unsigned char n[] = 36296465Sdelphij "\x00\xAA\x36\xAB\xCE\x88\xAC\xFD\xFF\x55\x52\x3C\x7F\xC4\x52\x3F" 37296465Sdelphij "\x90\xEF\xA0\x0D\xF3\x77\x4A\x25\x9F\x2E\x62\xB4\xC5\xD9\x9C\xB5" 38296465Sdelphij "\xAD\xB3\x00\xA0\x28\x5E\x53\x01\x93\x0E\x0C\x70\xFB\x68\x76\x93" 39296465Sdelphij "\x9C\xE6\x16\xCE\x62\x4A\x11\xE0\x08\x6D\x34\x1E\xBC\xAC\xA0\xA1" 40296465Sdelphij "\xF5"; 4159191Skris 4259191Skris static unsigned char e[] = "\x11"; 4359191Skris 4459191Skris static unsigned char d[] = 45296465Sdelphij "\x0A\x03\x37\x48\x62\x64\x87\x69\x5F\x5F\x30\xBC\x38\xB9\x8B\x44" 46296465Sdelphij "\xC2\xCD\x2D\xFF\x43\x40\x98\xCD\x20\xD8\xA1\x38\xD0\x90\xBF\x64" 47296465Sdelphij "\x79\x7C\x3F\xA7\xA2\xCD\xCB\x3C\xD1\xE0\xBD\xBA\x26\x54\xB4\xF9" 48296465Sdelphij "\xDF\x8E\x8A\xE5\x9D\x73\x3D\x9F\x33\xB3\x01\x62\x4A\xFD\x1D\x51"; 4959191Skris 5059191Skris static unsigned char p[] = 51296465Sdelphij "\x00\xD8\x40\xB4\x16\x66\xB4\x2E\x92\xEA\x0D\xA3\xB4\x32\x04\xB5" 52296465Sdelphij "\xCF\xCE\x33\x52\x52\x4D\x04\x16\xA5\xA4\x41\xE7\x00\xAF\x46\x12" 53296465Sdelphij "\x0D"; 54296465Sdelphij 5559191Skris static unsigned char q[] = 56296465Sdelphij "\x00\xC9\x7F\xB1\xF0\x27\xF4\x53\xF6\x34\x12\x33\xEA\xAA\xD1\xD9" 57296465Sdelphij "\x35\x3F\x6C\x42\xD0\x88\x66\xB1\xD0\x5A\x0F\x20\x35\x02\x8B\x9D" 58296465Sdelphij "\x89"; 5959191Skris 6059191Skris static unsigned char dmp1[] = 61296465Sdelphij "\x59\x0B\x95\x72\xA2\xC2\xA9\xC4\x06\x05\x9D\xC2\xAB\x2F\x1D\xAF" 62296465Sdelphij "\xEB\x7E\x8B\x4F\x10\xA7\x54\x9E\x8E\xED\xF5\xB4\xFC\xE0\x9E\x05"; 6359191Skris 6459191Skris static unsigned char dmq1[] = 65296465Sdelphij "\x00\x8E\x3C\x05\x21\xFE\x15\xE0\xEA\x06\xA3\x6F\xF0\xF1\x0C\x99" 66296465Sdelphij "\x52\xC3\x5B\x7A\x75\x14\xFD\x32\x38\xB8\x0A\xAD\x52\x98\x62\x8D" 67296465Sdelphij "\x51"; 6859191Skris 6959191Skris static unsigned char iqmp[] = 70296465Sdelphij "\x36\x3F\xF7\x18\x9D\xA8\xE9\x0B\x1D\x34\x1F\x71\xD0\x9B\x76\xA8" 71296465Sdelphij "\xA9\x43\xE1\x1D\x10\xB2\x4D\x24\x9F\x2D\xEA\xFE\xF8\x0C\x18\x26"; 7259191Skris 7359191Skris static unsigned char ctext_ex[] = 74296465Sdelphij "\x1b\x8f\x05\xf9\xca\x1a\x79\x52\x6e\x53\xf3\xcc\x51\x4f\xdb\x89" 75296465Sdelphij "\x2b\xfb\x91\x93\x23\x1e\x78\xb9\x92\xe6\x8d\x50\xa4\x80\xcb\x52" 76296465Sdelphij "\x33\x89\x5c\x74\x95\x8d\x5d\x02\xab\x8c\x0f\xd0\x40\xeb\x58\x44" 77296465Sdelphij "\xb0\x05\xc3\x9e\xd8\x27\x4a\x9d\xbf\xa8\x06\x71\x40\x94\x39\xd2"; 7859191Skris 7959191Skris SetKey; 80296465Sdelphij} 8159191Skris 8259191Skrisstatic int key2(RSA *key, unsigned char *c) 83296465Sdelphij{ 8459191Skris static unsigned char n[] = 85296465Sdelphij "\x00\xA3\x07\x9A\x90\xDF\x0D\xFD\x72\xAC\x09\x0C\xCC\x2A\x78\xB8" 86296465Sdelphij "\x74\x13\x13\x3E\x40\x75\x9C\x98\xFA\xF8\x20\x4F\x35\x8A\x0B\x26" 87296465Sdelphij "\x3C\x67\x70\xE7\x83\xA9\x3B\x69\x71\xB7\x37\x79\xD2\x71\x7B\xE8" 88296465Sdelphij "\x34\x77\xCF"; 8959191Skris 9059191Skris static unsigned char e[] = "\x3"; 9159191Skris 9259191Skris static unsigned char d[] = 93296465Sdelphij "\x6C\xAF\xBC\x60\x94\xB3\xFE\x4C\x72\xB0\xB3\x32\xC6\xFB\x25\xA2" 94296465Sdelphij "\xB7\x62\x29\x80\x4E\x68\x65\xFC\xA4\x5A\x74\xDF\x0F\x8F\xB8\x41" 95296465Sdelphij "\x3B\x52\xC0\xD0\xE5\x3D\x9B\x59\x0F\xF1\x9B\xE7\x9F\x49\xDD\x21" 96296465Sdelphij "\xE5\xEB"; 9759191Skris 9859191Skris static unsigned char p[] = 99296465Sdelphij "\x00\xCF\x20\x35\x02\x8B\x9D\x86\x98\x40\xB4\x16\x66\xB4\x2E\x92" 100296465Sdelphij "\xEA\x0D\xA3\xB4\x32\x04\xB5\xCF\xCE\x91"; 10159191Skris 10259191Skris static unsigned char q[] = 103296465Sdelphij "\x00\xC9\x7F\xB1\xF0\x27\xF4\x53\xF6\x34\x12\x33\xEA\xAA\xD1\xD9" 104296465Sdelphij "\x35\x3F\x6C\x42\xD0\x88\x66\xB1\xD0\x5F"; 105296465Sdelphij 10659191Skris static unsigned char dmp1[] = 107296465Sdelphij "\x00\x8A\x15\x78\xAC\x5D\x13\xAF\x10\x2B\x22\xB9\x99\xCD\x74\x61" 108296465Sdelphij "\xF1\x5E\x6D\x22\xCC\x03\x23\xDF\xDF\x0B"; 10959191Skris 11059191Skris static unsigned char dmq1[] = 111296465Sdelphij "\x00\x86\x55\x21\x4A\xC5\x4D\x8D\x4E\xCD\x61\x77\xF1\xC7\x36\x90" 112296465Sdelphij "\xCE\x2A\x48\x2C\x8B\x05\x99\xCB\xE0\x3F"; 11359191Skris 11459191Skris static unsigned char iqmp[] = 115296465Sdelphij "\x00\x83\xEF\xEF\xB8\xA9\xA4\x0D\x1D\xB6\xED\x98\xAD\x84\xED\x13" 116296465Sdelphij "\x35\xDC\xC1\x08\xF3\x22\xD0\x57\xCF\x8D"; 11759191Skris 11859191Skris static unsigned char ctext_ex[] = 119296465Sdelphij "\x14\xbd\xdd\x28\xc9\x83\x35\x19\x23\x80\xe8\xe5\x49\xb1\x58\x2a" 120296465Sdelphij "\x8b\x40\xb4\x48\x6d\x03\xa6\xa5\x31\x1f\x1f\xd5\xf0\xa1\x80\xe4" 121296465Sdelphij "\x17\x53\x03\x29\xa9\x34\x90\x74\xb1\x52\x13\x54\x29\x08\x24\x52" 122296465Sdelphij "\x62\x51"; 12359191Skris 12459191Skris SetKey; 125296465Sdelphij} 12659191Skris 12759191Skrisstatic int key3(RSA *key, unsigned char *c) 128296465Sdelphij{ 12959191Skris static unsigned char n[] = 130296465Sdelphij "\x00\xBB\xF8\x2F\x09\x06\x82\xCE\x9C\x23\x38\xAC\x2B\x9D\xA8\x71" 131296465Sdelphij "\xF7\x36\x8D\x07\xEE\xD4\x10\x43\xA4\x40\xD6\xB6\xF0\x74\x54\xF5" 132296465Sdelphij "\x1F\xB8\xDF\xBA\xAF\x03\x5C\x02\xAB\x61\xEA\x48\xCE\xEB\x6F\xCD" 133296465Sdelphij "\x48\x76\xED\x52\x0D\x60\xE1\xEC\x46\x19\x71\x9D\x8A\x5B\x8B\x80" 134296465Sdelphij "\x7F\xAF\xB8\xE0\xA3\xDF\xC7\x37\x72\x3E\xE6\xB4\xB7\xD9\x3A\x25" 135296465Sdelphij "\x84\xEE\x6A\x64\x9D\x06\x09\x53\x74\x88\x34\xB2\x45\x45\x98\x39" 136296465Sdelphij "\x4E\xE0\xAA\xB1\x2D\x7B\x61\xA5\x1F\x52\x7A\x9A\x41\xF6\xC1\x68" 137296465Sdelphij "\x7F\xE2\x53\x72\x98\xCA\x2A\x8F\x59\x46\xF8\xE5\xFD\x09\x1D\xBD" 138296465Sdelphij "\xCB"; 13959191Skris 14059191Skris static unsigned char e[] = "\x11"; 14159191Skris 14259191Skris static unsigned char d[] = 143296465Sdelphij "\x00\xA5\xDA\xFC\x53\x41\xFA\xF2\x89\xC4\xB9\x88\xDB\x30\xC1\xCD" 144296465Sdelphij "\xF8\x3F\x31\x25\x1E\x06\x68\xB4\x27\x84\x81\x38\x01\x57\x96\x41" 145296465Sdelphij "\xB2\x94\x10\xB3\xC7\x99\x8D\x6B\xC4\x65\x74\x5E\x5C\x39\x26\x69" 146296465Sdelphij "\xD6\x87\x0D\xA2\xC0\x82\xA9\x39\xE3\x7F\xDC\xB8\x2E\xC9\x3E\xDA" 147296465Sdelphij "\xC9\x7F\xF3\xAD\x59\x50\xAC\xCF\xBC\x11\x1C\x76\xF1\xA9\x52\x94" 148296465Sdelphij "\x44\xE5\x6A\xAF\x68\xC5\x6C\x09\x2C\xD3\x8D\xC3\xBE\xF5\xD2\x0A" 149296465Sdelphij "\x93\x99\x26\xED\x4F\x74\xA1\x3E\xDD\xFB\xE1\xA1\xCE\xCC\x48\x94" 150296465Sdelphij "\xAF\x94\x28\xC2\xB7\xB8\x88\x3F\xE4\x46\x3A\x4B\xC8\x5B\x1C\xB3" 151296465Sdelphij "\xC1"; 15259191Skris 15359191Skris static unsigned char p[] = 154296465Sdelphij "\x00\xEE\xCF\xAE\x81\xB1\xB9\xB3\xC9\x08\x81\x0B\x10\xA1\xB5\x60" 155296465Sdelphij "\x01\x99\xEB\x9F\x44\xAE\xF4\xFD\xA4\x93\xB8\x1A\x9E\x3D\x84\xF6" 156296465Sdelphij "\x32\x12\x4E\xF0\x23\x6E\x5D\x1E\x3B\x7E\x28\xFA\xE7\xAA\x04\x0A" 157296465Sdelphij "\x2D\x5B\x25\x21\x76\x45\x9D\x1F\x39\x75\x41\xBA\x2A\x58\xFB\x65" 158296465Sdelphij "\x99"; 15959191Skris 16059191Skris static unsigned char q[] = 161296465Sdelphij "\x00\xC9\x7F\xB1\xF0\x27\xF4\x53\xF6\x34\x12\x33\xEA\xAA\xD1\xD9" 162296465Sdelphij "\x35\x3F\x6C\x42\xD0\x88\x66\xB1\xD0\x5A\x0F\x20\x35\x02\x8B\x9D" 163296465Sdelphij "\x86\x98\x40\xB4\x16\x66\xB4\x2E\x92\xEA\x0D\xA3\xB4\x32\x04\xB5" 164296465Sdelphij "\xCF\xCE\x33\x52\x52\x4D\x04\x16\xA5\xA4\x41\xE7\x00\xAF\x46\x15" 165296465Sdelphij "\x03"; 16659191Skris 16759191Skris static unsigned char dmp1[] = 168296465Sdelphij "\x54\x49\x4C\xA6\x3E\xBA\x03\x37\xE4\xE2\x40\x23\xFC\xD6\x9A\x5A" 169296465Sdelphij "\xEB\x07\xDD\xDC\x01\x83\xA4\xD0\xAC\x9B\x54\xB0\x51\xF2\xB1\x3E" 170296465Sdelphij "\xD9\x49\x09\x75\xEA\xB7\x74\x14\xFF\x59\xC1\xF7\x69\x2E\x9A\x2E" 171296465Sdelphij "\x20\x2B\x38\xFC\x91\x0A\x47\x41\x74\xAD\xC9\x3C\x1F\x67\xC9\x81"; 17259191Skris 17359191Skris static unsigned char dmq1[] = 174296465Sdelphij "\x47\x1E\x02\x90\xFF\x0A\xF0\x75\x03\x51\xB7\xF8\x78\x86\x4C\xA9" 175296465Sdelphij "\x61\xAD\xBD\x3A\x8A\x7E\x99\x1C\x5C\x05\x56\xA9\x4C\x31\x46\xA7" 176296465Sdelphij "\xF9\x80\x3F\x8F\x6F\x8A\xE3\x42\xE9\x31\xFD\x8A\xE4\x7A\x22\x0D" 177296465Sdelphij "\x1B\x99\xA4\x95\x84\x98\x07\xFE\x39\xF9\x24\x5A\x98\x36\xDA\x3D"; 178296465Sdelphij 17959191Skris static unsigned char iqmp[] = 180296465Sdelphij "\x00\xB0\x6C\x4F\xDA\xBB\x63\x01\x19\x8D\x26\x5B\xDB\xAE\x94\x23" 181296465Sdelphij "\xB3\x80\xF2\x71\xF7\x34\x53\x88\x50\x93\x07\x7F\xCD\x39\xE2\x11" 182296465Sdelphij "\x9F\xC9\x86\x32\x15\x4F\x58\x83\xB1\x67\xA9\x67\xBF\x40\x2B\x4E" 183296465Sdelphij "\x9E\x2E\x0F\x96\x56\xE6\x98\xEA\x36\x66\xED\xFB\x25\x79\x80\x39" 184296465Sdelphij "\xF7"; 18559191Skris 18659191Skris static unsigned char ctext_ex[] = 187296465Sdelphij "\xb8\x24\x6b\x56\xa6\xed\x58\x81\xae\xb5\x85\xd9\xa2\x5b\x2a\xd7" 188296465Sdelphij "\x90\xc4\x17\xe0\x80\x68\x1b\xf1\xac\x2b\xc3\xde\xb6\x9d\x8b\xce" 189296465Sdelphij "\xf0\xc4\x36\x6f\xec\x40\x0a\xf0\x52\xa7\x2e\x9b\x0e\xff\xb5\xb3" 190296465Sdelphij "\xf2\xf1\x92\xdb\xea\xca\x03\xc1\x27\x40\x05\x71\x13\xbf\x1f\x06" 191296465Sdelphij "\x69\xac\x22\xe9\xf3\xa7\x85\x2e\x3c\x15\xd9\x13\xca\xb0\xb8\x86" 192296465Sdelphij "\x3a\x95\xc9\x92\x94\xce\x86\x74\x21\x49\x54\x61\x03\x46\xf4\xd4" 193296465Sdelphij "\x74\xb2\x6f\x7c\x48\xb4\x2e\xe6\x8e\x1f\x57\x2a\x1f\xc4\x02\x6a" 194296465Sdelphij "\xc4\x56\xb4\xf5\x9f\x7b\x62\x1e\xa1\xb9\xd8\x8f\x64\x20\x2f\xb1"; 19559191Skris 19659191Skris SetKey; 197296465Sdelphij} 19859191Skris 19959191Skrisstatic int pad_unknown(void) 20059191Skris{ 20159191Skris unsigned long l; 20259191Skris while ((l = ERR_get_error()) != 0) 203296465Sdelphij if (ERR_GET_REASON(l) == RSA_R_UNKNOWN_PADDING_TYPE) 204296465Sdelphij return (1); 205296465Sdelphij return (0); 20659191Skris} 20759191Skris 208296465Sdelphijstatic const char rnd_seed[] = 209296465Sdelphij "string to make the random number generator think it has entropy"; 21059191Skris 21159191Skrisint main(int argc, char *argv[]) 212296465Sdelphij{ 213296465Sdelphij int err = 0; 21459191Skris int v; 21559191Skris RSA *key; 21659191Skris unsigned char ptext[256]; 21759191Skris unsigned char ctext[256]; 21859191Skris static unsigned char ptext_ex[] = "\x54\x85\x9b\x34\x2c\x49\xea\x2a"; 21959191Skris unsigned char ctext_ex[256]; 22059191Skris int plen; 22159191Skris int clen = 0; 22259191Skris int num; 223194206Ssimon int n; 22459191Skris 225109998Smarkm CRYPTO_malloc_debug_init(); 226109998Smarkm CRYPTO_dbg_set_options(V_CRYPTO_MDEBUG_ALL); 227109998Smarkm CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON); 228109998Smarkm 22959191Skris RAND_seed(rnd_seed, sizeof rnd_seed); /* or OAEP may fail */ 23059191Skris 23159191Skris plen = sizeof(ptext_ex) - 1; 23259191Skris 233296465Sdelphij for (v = 0; v < 6; v++) { 234296465Sdelphij key = RSA_new(); 235296465Sdelphij switch (v % 3) { 236296465Sdelphij case 0: 237296465Sdelphij clen = key1(key, ctext_ex); 238296465Sdelphij break; 239296465Sdelphij case 1: 240296465Sdelphij clen = key2(key, ctext_ex); 241296465Sdelphij break; 242296465Sdelphij case 2: 243296465Sdelphij clen = key3(key, ctext_ex); 244296465Sdelphij break; 245296465Sdelphij } 246296465Sdelphij if (v / 3 >= 1) 247296465Sdelphij key->flags |= RSA_FLAG_NO_CONSTTIME; 24859191Skris 249296465Sdelphij num = RSA_public_encrypt(plen, ptext_ex, ctext, key, 250296465Sdelphij RSA_PKCS1_PADDING); 251296465Sdelphij if (num != clen) { 252296465Sdelphij printf("PKCS#1 v1.5 encryption failed!\n"); 253296465Sdelphij err = 1; 254296465Sdelphij goto oaep; 255296465Sdelphij } 25659191Skris 257296465Sdelphij num = RSA_private_decrypt(num, ctext, ptext, key, RSA_PKCS1_PADDING); 258296465Sdelphij if (num != plen || memcmp(ptext, ptext_ex, num) != 0) { 259296465Sdelphij printf("PKCS#1 v1.5 decryption failed!\n"); 260296465Sdelphij err = 1; 261296465Sdelphij } else 262296465Sdelphij printf("PKCS #1 v1.5 encryption/decryption ok\n"); 263194206Ssimon 264296465Sdelphij oaep: 265296465Sdelphij ERR_clear_error(); 266296465Sdelphij num = RSA_public_encrypt(plen, ptext_ex, ctext, key, 267296465Sdelphij RSA_PKCS1_OAEP_PADDING); 268296465Sdelphij if (num == -1 && pad_unknown()) { 269296465Sdelphij printf("No OAEP support\n"); 270296465Sdelphij goto next; 271296465Sdelphij } 272296465Sdelphij if (num != clen) { 273296465Sdelphij printf("OAEP encryption failed!\n"); 274296465Sdelphij err = 1; 275296465Sdelphij goto next; 276296465Sdelphij } 27759191Skris 278296465Sdelphij num = RSA_private_decrypt(num, ctext, ptext, key, 279296465Sdelphij RSA_PKCS1_OAEP_PADDING); 280296465Sdelphij if (num != plen || memcmp(ptext, ptext_ex, num) != 0) { 281296465Sdelphij printf("OAEP decryption (encrypted data) failed!\n"); 282296465Sdelphij err = 1; 283296465Sdelphij } else if (memcmp(ctext, ctext_ex, num) == 0) 284296465Sdelphij printf("OAEP test vector %d passed!\n", v); 28559191Skris 286296465Sdelphij /* 287296465Sdelphij * Different ciphertexts (rsa_oaep.c without -DPKCS_TESTVECT). Try 288296465Sdelphij * decrypting ctext_ex 289296465Sdelphij */ 290194206Ssimon 291296465Sdelphij num = RSA_private_decrypt(clen, ctext_ex, ptext, key, 292296465Sdelphij RSA_PKCS1_OAEP_PADDING); 29359191Skris 294296465Sdelphij if (num != plen || memcmp(ptext, ptext_ex, num) != 0) { 295296465Sdelphij printf("OAEP decryption (test vector data) failed!\n"); 296296465Sdelphij err = 1; 297296465Sdelphij } else 298296465Sdelphij printf("OAEP encryption/decryption ok\n"); 299296465Sdelphij 300296465Sdelphij /* Try decrypting corrupted ciphertexts */ 301296465Sdelphij for (n = 0; n < clen; ++n) { 302296465Sdelphij int b; 303296465Sdelphij unsigned char saved = ctext[n]; 304296465Sdelphij for (b = 0; b < 256; ++b) { 305296465Sdelphij if (b == saved) 306296465Sdelphij continue; 307296465Sdelphij ctext[n] = b; 308296465Sdelphij num = RSA_private_decrypt(num, ctext, ptext, key, 309296465Sdelphij RSA_PKCS1_OAEP_PADDING); 310296465Sdelphij if (num > 0) { 311296465Sdelphij printf("Corrupt data decrypted!\n"); 312296465Sdelphij err = 1; 313296465Sdelphij } 314296465Sdelphij } 315296465Sdelphij } 316296465Sdelphij next: 317296465Sdelphij RSA_free(key); 318296465Sdelphij } 319296465Sdelphij 320109998Smarkm CRYPTO_cleanup_all_ex_data(); 32159191Skris ERR_remove_state(0); 32259191Skris 323109998Smarkm CRYPTO_mem_leaks_fp(stderr); 32459191Skris 325296465Sdelphij# ifdef OPENSSL_SYS_NETWARE 326296465Sdelphij if (err) 327296465Sdelphij printf("ERROR: %d\n", err); 328296465Sdelphij# endif 32959191Skris return err; 330296465Sdelphij} 33159191Skris#endif 332