3 This file is part of the ARM-Crypto-Lib.
4 Copyright (C) 2006-2011 Daniel Otte (daniel.otte@rub.de)
6 This program is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>.
24 #include "bigint_io.h"
25 #include "rsa_basic.h"
34 void rsa_enc(bigint_t *data, const rsa_publickey_t *key){
36 cli_putstr_P(PSTR("\r\n -->rsa_enc()\r\n m = "));
37 bigint_print_hex(data);
38 cli_putstr_P(PSTR("\r\n e = "));
39 bigint_print_hex(key->exponent);
40 cli_putstr_P(PSTR("\r\n n = "));
41 bigint_print_hex(key->modulus);
43 bigint_expmod_u(data, data, &key->exponent, &key->modulus);
50 h = (m1 - m2) * qinv % p
54 uint8_t rsa_dec_crt_mono(bigint_t *data, const rsa_privatekey_t *key){
56 m1.wordv = malloc((key->components[0].length_W /* + 1 */) * sizeof(bigint_word_t));
57 m2.wordv = malloc((key->components[1].length_W /* + 1 */) * sizeof(bigint_word_t));
58 if(!m1.wordv || !m2.wordv){
60 cli_putstr_P(PSTR("\r\nERROR: OOM!"));
67 cli_putstr_P(PSTR("\r\nDBG: expmod m1 ..."));
68 cli_putstr_P(PSTR("\r\nexpmod("));
69 bigint_print_hex(data);
71 bigint_print_hex(&(key->components[2]));
73 bigint_print_hex(&(key->components[0]));
74 cli_putstr_P(PSTR(") = "));
76 bigint_expmod_u(&m1, data, &(key->components[2]), &(key->components[0]));
78 bigint_print_hex(&m1);
79 cli_putstr_P(PSTR("expmod m2 ..."));
80 cli_putstr_P(PSTR("\r\nexpmod("));
81 bigint_print_hex(data);
83 bigint_print_hex(&(key->components[3]));
85 bigint_print_hex(&(key->components[1]));
86 cli_putstr_P(PSTR(") = "));
88 bigint_expmod_u(&m2, data, &(key->components[3]), &(key->components[1]));
90 bigint_print_hex(&m2);
91 cli_putstr_P(PSTR("\r\nDBG: sub ..."));
92 cli_putstr_P(PSTR("\r\nsub("));
93 bigint_print_hex(&m1);
95 bigint_print_hex(&m2);
96 cli_putstr_P(PSTR(") = "));
98 bigint_sub_s(&m1, &m1, &m2);
100 bigint_print_hex(&m1);
102 while(BIGINT_NEG_MASK & m1.info){
104 cli_putstr_P(PSTR("\r\nDBG: adding "));
105 bigint_print_hex(&key->components[0]);
106 cli_putstr_P(PSTR("\r\nDBG: to "));
107 bigint_print_hex(&m1);
109 bigint_add_s(&m1, &m1, &(key->components[0]));
112 cli_putstr_P(PSTR("\r\nDBG: reduce-mul ..."));
113 cli_putstr_P(PSTR("\r\nreduce("));
114 bigint_print_hex(&m1);
116 bigint_print_hex(&(key->components[0]));
117 cli_putstr_P(PSTR(") = "));
119 bigint_reduce(&m1, &(key->components[0]));
121 bigint_print_hex(&m1);
122 cli_putstr_P(PSTR("\r\nmul("));
123 bigint_print_hex(&m1);
125 bigint_print_hex(&(key->components[4]));
126 cli_putstr_P(PSTR(") = "));
128 bigint_mul_u(data, &m1, &(key->components[4]));
130 bigint_print_hex(data);
131 cli_putstr_P(PSTR("\r\nreduce("));
132 bigint_print_hex(data);
134 bigint_print_hex(&(key->components[0]));
135 cli_putstr_P(PSTR(") = "));
137 bigint_reduce(data, &(key->components[0]));
139 bigint_print_hex(data);
140 cli_putstr_P(PSTR("\r\nmul("));
141 bigint_print_hex(data);
143 bigint_print_hex(&(key->components[1]));
144 cli_putstr_P(PSTR(") = "));
146 bigint_mul_u(data, data, &(key->components[1]));
148 bigint_print_hex(data);
149 cli_putstr_P(PSTR("\r\nadd("));
150 bigint_print_hex(data);
152 bigint_print_hex(&m2);
153 cli_putstr_P(PSTR(") = "));
155 bigint_add_u(data, data, &m2);
157 bigint_print_hex(data);
164 uint8_t rsa_dec(bigint_t *data, const rsa_privatekey_t *key){
166 bigint_expmod_u(data, data, &(key->components[0]), &key->modulus);
170 if (rsa_dec_crt_mono(data, key)){
175 if(key->n<8 || (key->n-5)%3 != 0){
178 //rsa_dec_crt_multi(data, key, (key->n-5)/3);
182 void rsa_os2ip(bigint_t *dest, const void *data, uint32_t length_B){
183 #if BIGINT_WORD_SIZE == 8
185 memcpy(dest->wordv, data, length_B);
187 dest->length_W = length_B;
190 off = (sizeof(bigint_word_t) - length_B % sizeof(bigint_word_t)) % sizeof(bigint_word_t);
192 printf("\r\nDBG: off = 0x%02x", off);
196 dest->wordv = realloc(dest->wordv, length_B + sizeof(bigint_word_t) - off);
197 memmove((uint8_t*)dest->wordv + off, dest->wordv, length_B);
198 memset(dest->wordv, 0, off);
201 memcpy((uint8_t*)dest->wordv + off, data, length_B);
203 memset(dest->wordv, 0, off);
206 dest->length_W = (length_B + off) / sizeof(bigint_word_t);
208 printf("\r\nDBG: dest->length_W = %u", dest->length_W);
212 bigint_changeendianess(dest);
216 void rsa_i2osp(void *dest, bigint_t *src, uint16_t *out_length_B){
217 #if BIGINT_WORD_SIZE == 8
219 uint8_t *e = src->wordv + src->length_W;
221 for(i=src->length_W; i>0; --i){
222 *((uint8_t*)dest) = *--e;
223 dest = (uint8_t*)dest + 1;
226 bigint_changeendianess(src);
229 *out_length_B = src->length_W;
231 *out_length_B = bigint_get_first_set_bit(src) / 8 + 1;
234 for(i=*out_length_B; i>0; --i){
235 *((uint8_t*)dest) = ((uint8_t*)src->wordv)[i-1];
236 dest = (uint8_t*)dest + 1;
240 bigint_changeendianess(src);
243 off = bigint_get_last_set_bit(src)/8;
245 memmove(src->wordv, (uint8_t*)src->wordv+off, *out_length_B);