change some parameters in the library to meet the needs of the website httpbin.org

Fork of MiniTLS-GPL by Donatien Garnier

Committer:
shiyilei
Date:
Fri Feb 06 06:17:33 2015 +0000
Revision:
5:95f70ebfe61f
Parent:
0:35aa5be3b78d
change some parameters in the library to meet the needs of httpbin.org

Who changed what in which revision?

UserRevisionLine numberNew contents of line
MiniTLS 0:35aa5be3b78d 1 /* TomsFastMath, a fast ISO C bignum library.
MiniTLS 0:35aa5be3b78d 2 *
MiniTLS 0:35aa5be3b78d 3 * This project is meant to fill in where LibTomMath
MiniTLS 0:35aa5be3b78d 4 * falls short. That is speed ;-)
MiniTLS 0:35aa5be3b78d 5 *
MiniTLS 0:35aa5be3b78d 6 * This project is public domain and free for all purposes.
MiniTLS 0:35aa5be3b78d 7 *
MiniTLS 0:35aa5be3b78d 8 * Tom St Denis, tomstdenis@gmail.com
MiniTLS 0:35aa5be3b78d 9 */
MiniTLS 0:35aa5be3b78d 10 #include <tfm.h>
MiniTLS 0:35aa5be3b78d 11
MiniTLS 0:35aa5be3b78d 12 /* c = a mod 2**d */
MiniTLS 0:35aa5be3b78d 13 void fp_mod_2d(fp_int *a, int b, fp_int *c)
MiniTLS 0:35aa5be3b78d 14 {
MiniTLS 0:35aa5be3b78d 15 int x;
MiniTLS 0:35aa5be3b78d 16
MiniTLS 0:35aa5be3b78d 17 /* zero if count less than or equal to zero */
MiniTLS 0:35aa5be3b78d 18 if (b <= 0) {
MiniTLS 0:35aa5be3b78d 19 fp_zero(c);
MiniTLS 0:35aa5be3b78d 20 return;
MiniTLS 0:35aa5be3b78d 21 }
MiniTLS 0:35aa5be3b78d 22
MiniTLS 0:35aa5be3b78d 23 /* get copy of input */
MiniTLS 0:35aa5be3b78d 24 fp_copy(a, c);
MiniTLS 0:35aa5be3b78d 25
MiniTLS 0:35aa5be3b78d 26 /* if 2**d is larger than we just return */
MiniTLS 0:35aa5be3b78d 27 if (b >= (DIGIT_BIT * a->used)) {
MiniTLS 0:35aa5be3b78d 28 return;
MiniTLS 0:35aa5be3b78d 29 }
MiniTLS 0:35aa5be3b78d 30
MiniTLS 0:35aa5be3b78d 31 /* zero digits above the last digit of the modulus */
MiniTLS 0:35aa5be3b78d 32 for (x = (b / DIGIT_BIT) + ((b % DIGIT_BIT) == 0 ? 0 : 1); x < c->used; x++) {
MiniTLS 0:35aa5be3b78d 33 c->dp[x] = 0;
MiniTLS 0:35aa5be3b78d 34 }
MiniTLS 0:35aa5be3b78d 35 /* clear the digit that is not completely outside/inside the modulus */
MiniTLS 0:35aa5be3b78d 36 c->dp[b / DIGIT_BIT] &= ~((fp_digit)0) >> (DIGIT_BIT - b);
MiniTLS 0:35aa5be3b78d 37 fp_clamp (c);
MiniTLS 0:35aa5be3b78d 38 }
MiniTLS 0:35aa5be3b78d 39
MiniTLS 0:35aa5be3b78d 40 /* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_mod_2d.c,v $ */
MiniTLS 0:35aa5be3b78d 41 /* $Revision: 1.1 $ */
MiniTLS 0:35aa5be3b78d 42 /* $Date: 2006/12/31 21:25:53 $ */