1e1051a39Sopenharmony_ci/*
2e1051a39Sopenharmony_ci * Copyright 2006-2021 The OpenSSL Project Authors. All Rights Reserved.
3e1051a39Sopenharmony_ci *
4e1051a39Sopenharmony_ci * Licensed under the Apache License 2.0 (the "License").  You may not use
5e1051a39Sopenharmony_ci * this file except in compliance with the License.  You can obtain a copy
6e1051a39Sopenharmony_ci * in the file LICENSE in the source distribution or at
7e1051a39Sopenharmony_ci * https://www.openssl.org/source/license.html
8e1051a39Sopenharmony_ci */
9e1051a39Sopenharmony_ci
10e1051a39Sopenharmony_ci/*
11e1051a39Sopenharmony_ci * RSA low level APIs are deprecated for public use, but still ok for
12e1051a39Sopenharmony_ci * internal use.
13e1051a39Sopenharmony_ci */
14e1051a39Sopenharmony_ci#include "internal/deprecated.h"
15e1051a39Sopenharmony_ci
16e1051a39Sopenharmony_ci#include <stdio.h>
17e1051a39Sopenharmony_ci#include "internal/cryptlib.h"
18e1051a39Sopenharmony_ci#include <openssl/rsa.h>
19e1051a39Sopenharmony_ci#include <openssl/evp.h>
20e1051a39Sopenharmony_ci
21e1051a39Sopenharmony_ci#ifndef OPENSSL_NO_STDIO
22e1051a39Sopenharmony_ciint RSA_print_fp(FILE *fp, const RSA *x, int off)
23e1051a39Sopenharmony_ci{
24e1051a39Sopenharmony_ci    BIO *b;
25e1051a39Sopenharmony_ci    int ret;
26e1051a39Sopenharmony_ci
27e1051a39Sopenharmony_ci    if ((b = BIO_new(BIO_s_file())) == NULL) {
28e1051a39Sopenharmony_ci        ERR_raise(ERR_LIB_RSA, ERR_R_BUF_LIB);
29e1051a39Sopenharmony_ci        return 0;
30e1051a39Sopenharmony_ci    }
31e1051a39Sopenharmony_ci    BIO_set_fp(b, fp, BIO_NOCLOSE);
32e1051a39Sopenharmony_ci    ret = RSA_print(b, x, off);
33e1051a39Sopenharmony_ci    BIO_free(b);
34e1051a39Sopenharmony_ci    return ret;
35e1051a39Sopenharmony_ci}
36e1051a39Sopenharmony_ci#endif
37e1051a39Sopenharmony_ci
38e1051a39Sopenharmony_ciint RSA_print(BIO *bp, const RSA *x, int off)
39e1051a39Sopenharmony_ci{
40e1051a39Sopenharmony_ci    EVP_PKEY *pk;
41e1051a39Sopenharmony_ci    int ret;
42e1051a39Sopenharmony_ci    pk = EVP_PKEY_new();
43e1051a39Sopenharmony_ci    if (pk == NULL)
44e1051a39Sopenharmony_ci        return 0;
45e1051a39Sopenharmony_ci    ret = EVP_PKEY_set1_RSA(pk, (RSA *)x);
46e1051a39Sopenharmony_ci    if (ret)
47e1051a39Sopenharmony_ci        ret = EVP_PKEY_print_private(bp, pk, off, NULL);
48e1051a39Sopenharmony_ci    EVP_PKEY_free(pk);
49e1051a39Sopenharmony_ci    return ret;
50e1051a39Sopenharmony_ci}
51