1 /* 2 * Copyright 2012-2022 The OpenSSL Project Authors. All Rights Reserved. 3 * 4 * Licensed under the Apache License 2.0 (the "License"). You may not use 5 * this file except in compliance with the License. You can obtain a copy 6 * in the file LICENSE in the source distribution or at 7 * https://www.openssl.org/source/license.html 8 */ 9 10 /* 11 * Simple ARIA CBC encryption demonstration program. 12 */ 13 14 #include <stdio.h> 15 #include <openssl/err.h> 16 #include <openssl/bio.h> 17 #include <openssl/evp.h> 18 #include <openssl/crypto.h> 19 #include <openssl/core_names.h> 20 21 /* ARIA key */ 22 static const unsigned char cbc_key[] = { 23 0xee, 0xbc, 0x1f, 0x57, 0x48, 0x7f, 0x51, 0x92, 0x1c, 0x04, 0x65, 0x66, 24 0x5f, 0x8a, 0xe6, 0xd1, 0x65, 0x8b, 0xb2, 0x6d, 0xe6, 0xf8, 0xa0, 0x69, 25 0xa3, 0x52, 0x02, 0x93, 0xa5, 0x72, 0x07, 0x8f 26 }; 27 28 /* Unique initialisation vector */ 29 static const unsigned char cbc_iv[] = { 30 0x99, 0xaa, 0x3e, 0x68, 0xed, 0x81, 0x73, 0xa0, 0xee, 0xd0, 0x66, 0x84, 31 0x99, 0xaa, 0x3e, 0x68, 32 }; 33 34 /* Example plaintext to encrypt */ 35 static const unsigned char cbc_pt[] = { 36 0xf5, 0x6e, 0x87, 0x05, 0x5b, 0xc3, 0x2d, 0x0e, 0xeb, 0x31, 0xb2, 0xea, 37 0xcc, 0x2b, 0xf2, 0xa5 38 }; 39 40 /* Expected ciphertext value */ 41 static const unsigned char cbc_ct[] = { 42 0x9a, 0x44, 0xe6, 0x85, 0x94, 0x26, 0xff, 0x30, 0x03, 0xd3, 0x7e, 0xc6, 43 0xb5, 0x4a, 0x09, 0x66, 0x39, 0x28, 0xf3, 0x67, 0x14, 0xbc, 0xe8, 0xe2, 44 0xcf, 0x31, 0xb8, 0x60, 0x42, 0x72, 0x6d, 0xc8 45 }; 46 47 /* 48 * A library context and property query can be used to select & filter 49 * algorithm implementations. If they are NULL then the default library 50 * context and properties are used. 51 */ 52 OSSL_LIB_CTX *libctx = NULL; 53 const char *propq = NULL; 54 55 int aria_cbc_encrypt(void) 56 { 57 int ret = 0; 58 EVP_CIPHER_CTX *ctx; 59 EVP_CIPHER *cipher = NULL; 60 int outlen, tmplen; 61 size_t cbc_ivlen = sizeof(cbc_iv); 62 unsigned char outbuf[1024]; 63 unsigned char outtag[16]; 64 65 printf("ARIA CBC Encrypt:\n"); 66 printf("Plaintext:\n"); 67 BIO_dump_fp(stdout, cbc_pt, sizeof(cbc_pt)); 68 69 /* Create a context for the encrypt operation */ 70 if ((ctx = EVP_CIPHER_CTX_new()) == NULL) 71 goto err; 72 73 /* Fetch the cipher implementation */ 74 if ((cipher = EVP_CIPHER_fetch(libctx, "ARIA-256-CBC", propq)) == NULL) 75 goto err; 76 77 /* 78 * Initialise an encrypt operation with the cipher/mode, key and IV. 79 * We are not setting any custom params so let params be just NULL. 80 */ 81 if (!EVP_EncryptInit_ex2(ctx, cipher, cbc_key, cbc_iv, /* params */ NULL)) 82 goto err; 83 84 /* Encrypt plaintext */ 85 if (!EVP_EncryptUpdate(ctx, outbuf, &outlen, cbc_pt, sizeof(cbc_pt))) 86 goto err; 87 88 /* Finalise: there can be some additional output from padding */ 89 if (!EVP_EncryptFinal_ex(ctx, outbuf + outlen, &tmplen)) 90 goto err; 91 outlen += tmplen; 92 93 /* Output encrypted block */ 94 printf("Ciphertext (outlen:%d):\n", outlen); 95 BIO_dump_fp(stdout, outbuf, outlen); 96 97 if (sizeof(cbc_ct) == outlen && !CRYPTO_memcmp(outbuf, cbc_ct, outlen)) 98 printf("Final ciphertext matches expected ciphertext\n"); 99 else 100 printf("Final ciphertext differs from expected ciphertext\n"); 101 102 ret = 1; 103 err: 104 if (!ret) 105 ERR_print_errors_fp(stderr); 106 107 EVP_CIPHER_free(cipher); 108 EVP_CIPHER_CTX_free(ctx); 109 110 return ret; 111 } 112 113 int aria_cbc_decrypt(void) 114 { 115 int ret = 0; 116 EVP_CIPHER_CTX *ctx; 117 EVP_CIPHER *cipher = NULL; 118 int outlen, tmplen, rv; 119 size_t cbc_ivlen = sizeof(cbc_iv); 120 unsigned char outbuf[1024]; 121 122 printf("ARIA CBC Decrypt:\n"); 123 printf("Ciphertext:\n"); 124 BIO_dump_fp(stdout, cbc_ct, sizeof(cbc_ct)); 125 126 if ((ctx = EVP_CIPHER_CTX_new()) == NULL) 127 goto err; 128 129 /* Fetch the cipher implementation */ 130 if ((cipher = EVP_CIPHER_fetch(libctx, "ARIA-256-CBC", propq)) == NULL) 131 goto err; 132 133 /* 134 * Initialise an encrypt operation with the cipher/mode, key and IV. 135 * We are not setting any custom params so let params be just NULL. 136 */ 137 if (!EVP_DecryptInit_ex2(ctx, cipher, cbc_key, cbc_iv, /* params */ NULL)) 138 goto err; 139 140 /* Decrypt plaintext */ 141 if (!EVP_DecryptUpdate(ctx, outbuf, &outlen, cbc_ct, sizeof(cbc_ct))) 142 goto err; 143 144 /* Finalise: there can be some additional output from padding */ 145 if (!EVP_DecryptFinal_ex(ctx, outbuf + outlen, &tmplen)) 146 goto err; 147 outlen += tmplen; 148 149 /* Output decrypted block */ 150 printf("Plaintext (outlen:%d):\n", outlen); 151 BIO_dump_fp(stdout, outbuf, outlen); 152 153 if (sizeof(cbc_pt) == outlen && !CRYPTO_memcmp(outbuf, cbc_pt, outlen)) 154 printf("Final plaintext matches original plaintext\n"); 155 else 156 printf("Final plaintext differs from original plaintext\n"); 157 158 ret = 1; 159 err: 160 if (!ret) 161 ERR_print_errors_fp(stderr); 162 163 EVP_CIPHER_free(cipher); 164 EVP_CIPHER_CTX_free(ctx); 165 166 return ret; 167 } 168 169 int main(int argc, char **argv) 170 { 171 if (!aria_cbc_encrypt()) 172 return 1; 173 174 if (!aria_cbc_decrypt()) 175 return 1; 176 177 return 0; 178 } 179