@@ -883,7 +883,7 @@ static int test_mp_prime_rand(void)
883
883
884
884
/* test for size */
885
885
for (ix = 10 ; ix < 128 ; ix ++ ) {
886
- printf ("Testing (not safe-prime): %9d bits \n " , ix );
886
+ printf ("\rTesting (not safe-prime): %9d bits " , ix );
887
887
fflush (stdout );
888
888
DO (mp_prime_rand (& a , 8 , ix , (rand_int () & 1 ) ? 0 : MP_PRIME_2MSB_ON ));
889
889
EXPECT (mp_count_bits (& a ) == ix );
@@ -896,6 +896,238 @@ static int test_mp_prime_rand(void)
896
896
return EXIT_FAILURE ;
897
897
}
898
898
899
+ /* Some small pseudoprimes to test the individual implementations */
900
+
901
+ /* Miller-Rabin base 2 */
902
+ static const uint32_t SPSP_2 [] = {
903
+ 2047 , 3277 , 4033 , 4681 , 8321 , 15841 , 29341 , 42799 ,
904
+ 49141 , 52633 , 65281 , 74665 , 80581 , 85489 , 88357 , 90751
905
+ };
906
+
907
+ /* Miller-Rabin base 3 */
908
+ static const uint32_t SPSP_3 [] = {
909
+ 121 , 703 , 1891 , 3281 , 8401 , 8911 , 10585 , 12403 , 16531 ,
910
+ 18721 , 19345 , 23521 , 31621 , 44287 , 47197 , 55969 , 63139 ,
911
+ 74593 , 79003 , 82513 , 87913 , 88573 , 97567
912
+ };
913
+
914
+ /* SPSP to all bases < 100 */
915
+ static const char * SPSP_2_100_LARGE [4 ] = {
916
+ "3L2x7YRmz7g4q+DwxESBacAClxrNiuspLCf8BUEphtky+5VNHLAb2ZZLLI0bu6cAOtNkUXenakBCCL"
917
+ "Vn7gqOpkcrQ/ptxZdk+4gnI99wFjgcfM512N71ZzbwvLe+5Pzat2k+nHIjE0w/WbQvzk4a2/syAY8S"
918
+ "i1B5XRjXYVAQOLyNWhsFpXeWXUgqiNzv7avfwBA3ZOXt" , /* bases 2 - 100 */
919
+ "JOcSIwxGqGEjeQ2GsdlnFMwhc+xY7EtZo5Kf4BglOuakxTJaP8qrdZyduXaAZUdzyPgQLf7B8vqvVE"
920
+ "VLJwH7dLkLEiw19tfu3naT6DgQWzk+b5WuwWJzsTMdgWWH86M1h/Gjt2J/qABtTTH26C8bS4v/q9Fh"
921
+ "R8jqHNOiufUgHkDQdW9Z+BLlf6OVVh2VwPIOGVc7kFF" , /* bases 2 - 107 */
922
+ "1ZCddPKHO7yeqI5ZeKG5ssTnzJeIDpWElJEZnHwejl4tsyly44JgwdiRmXgsi9FQfYhMzFZMgV6qWZZ"
923
+ "sIJl4RNgpD/PDb3nam++ECkzMBuNIXVpmZzw+Gj5xQmpKK+OX8pFSy2IQiKyKAOfSaivXEb2/dga2J/"
924
+ "Pc2d23lw+eP3WtBbfHc7TAQGgNI/6Xmcpl1G64eXCrJ" , /* bases 2 - 103 */
925
+ "cCax282DurA+2Z54W3VLKSC2mwgpilQpGydCDHvXHNRKbJQRa5NtLLfa3sXvCmUWZ9okP2ZSsPDnw0X"
926
+ "dUQLzaz59vnw0rKbfsoA4nDBjMXR78Q889+KS4HFKfXkzxsiIKYo0kSfwPKYxFUi4Zj185kwwAPTAr2"
927
+ "IjegdWjQLeX1ZQM0HVUUF3WEVhHXcFzF0sMiJU5hl" /* bases 2 - 101 */
928
+ };
929
+
930
+ /* Extra strong Lucas test with Baillie's parameters Q = 1, P = 3 */
931
+ static const uint32_t ESLPSP [] = {
932
+ 989 , 3239 , 5777 , 10877 , 27971 , 29681 , 30739 , 31631 , 39059 , 72389 ,
933
+ 73919 , 75077 , 100127 , 113573 , 125249 , 137549 , 137801 , 153931 , 155819 ,
934
+ 161027 , 162133 , 189419 , 218321 , 231703 , 249331 , 370229 , 429479 , 430127 ,
935
+ 459191 , 473891 , 480689 , 600059 , 621781 , 632249 , 635627
936
+ };
937
+
938
+ /*
939
+ Almost extra strong Lucas test with Baillie's parameters Q = 1, P = 3
940
+ Only those that are not in ESLPSP.
941
+ */
942
+ static const uint32_t AESLPSP [] = {
943
+ 10469 , 154697 , 233659 , 472453 , 629693 , 852389 , 1091093 , 1560437 ,
944
+ 1620673 , 1813601 , 1969109 , 2415739 , 2595329 , 2756837 , 3721549 ,
945
+ 4269341 , 5192309 , 7045433 , 7226669 , 7265561
946
+ };
947
+
948
+ /* Some randomly choosen 200 decimal digit large primes (https://primes.utm.edu/lists/small/small2.html) */
949
+ static const char * medium_primes [10 ] = {
950
+ "C8Ckh0vviS3HUPdB1NSrSm+gOodw/f1aQ5+aaH1W6RMB0jVkO6lTaL54O3o7U5BSGUFGxm5gAvisbJamasuLZS8g3ZsJ2JM4Vtn9cQZRfkP6b8V" ,
951
+ "64xDN9FqLBiovZ/9q/EPm0DONpIfn5MbJKHa+IjT0fjAzkg34FpAmad+CwhcpKaiTbZEpErut+DhpVyiQfqBFrgcGnGhhIrMF/XkyY3aVx6E96B" ,
952
+ "8cyuMlENm0vh/eWwgHUpDKqmLyCSsRQZRWvbHpA2jHDZv1EhHkVhceg3OFRZn/aXRBnbdtsc2xO6sWh9KZ5Mo7u9rJgBJMVtDnu094MCExj1YvB" ,
953
+ "BRFZFsYjSz45un8qptnuSqEsy9wV0BzbMpVAB1TrwImENOVIc1cASZNQ/mXG2xtazqgn/juVzFo91XLx9PtIlkcK0L2T6fBNgy8Lc7dSVoKQ+XP" ,
954
+ "Ez/mDl+to2gm69+VdIHI9Q7vaO3DuIdLVT69myM3HYwVBE+G24KffAOUAp3FGrSOU+LtERMiIYIEtxPI7n/DRJtmL2i0+REwGpTMge2d2EpabfB" ,
955
+ "5+Uz1gPFjZJ/nNdEOmOaMouJSGzygo42qz7xOwXn/moSUvBpPjo4twRGbK0+qaeU/RI8yYYxXr3OBP4w+/jgL3mN9GiENDM5LtEKMiQrZ9jIVEb" ,
956
+ "AQ5nD1+G1grv41s/XlK+0YTGyZgr/88PzdQJ8QT9tavisTgyG6k8/80A4HQhnFndskHNAaB2EW5fE7KH3kk7m89s8JnVqkJyGZWSfs1+JlmHLPf" ,
957
+ "3F19vPmM0Ih89KZ04Xmd62QB9F6E2sztT10A7Kcqc44eKvsNHh+JY6Z6gJXkbWg1Iw7xr29QAhEF/o1YAgfutQtpdzHkex06Yd71kPsaZdKXiC5" ,
958
+ "2fIcJ1t/VYCColXGs+ji/txNMEXn2FXdowLzlo7QKqzAWHdAbwtltSO5qpSp3OUiEOGUUi3hbyw3iQRE8nFJaikJ89Wdox6vpPtIsc3QRjexMnv" ,
959
+ "8aOicQ5gIbFCarFUgSgzh40LpuZ0jjK1u48/YT+C0h1dAQ8CIEgZjHZT+5/7cCRGmJlo+XCp7S41MSQ2ZNRSJh2texRYtvAXBAZfR8A8twl316P"
960
+ };
961
+
962
+ const mp_digit prime_tab [] = {
963
+ 0x0002 , 0x0003 , 0x0005 , 0x0007 , 0x000B , 0x000D , 0x0011 , 0x0013 ,
964
+ 0x0017 , 0x001D , 0x001F , 0x0025 , 0x0029 , 0x002B , 0x002F , 0x0035 ,
965
+ 0x003B , 0x003D , 0x0043 , 0x0047 , 0x0049 , 0x004F , 0x0053 , 0x0059 ,
966
+ 0x0061 , 0x0065 , 0x0067 , 0x006B , 0x006D , 0x0071 , 0x007F , 0x0083 ,
967
+ 0x0089 , 0x008B , 0x0095 , 0x0097 , 0x009D , 0x00A3 , 0x00A7 , 0x00AD ,
968
+ 0x00B3 , 0x00B5 , 0x00BF , 0x00C1 , 0x00C5 , 0x00C7 , 0x00D3 , 0x00DF ,
969
+ 0x00E3 , 0x00E5 , 0x00E9 , 0x00EF , 0x00F1 , 0x00FB , 0x0101 , 0x0107 ,
970
+ 0x010D , 0x010F , 0x0115 , 0x0119 , 0x011B , 0x0125 , 0x0133 , 0x0137 ,
971
+
972
+ 0x0139 , 0x013D , 0x014B , 0x0151 , 0x015B , 0x015D , 0x0161 , 0x0167 ,
973
+ 0x016F , 0x0175 , 0x017B , 0x017F , 0x0185 , 0x018D , 0x0191 , 0x0199 ,
974
+ 0x01A3 , 0x01A5 , 0x01AF , 0x01B1 , 0x01B7 , 0x01BB , 0x01C1 , 0x01C9 ,
975
+ 0x01CD , 0x01CF , 0x01D3 , 0x01DF , 0x01E7 , 0x01EB , 0x01F3 , 0x01F7 ,
976
+ 0x01FD , 0x0209 , 0x020B , 0x021D , 0x0223 , 0x022D , 0x0233 , 0x0239 ,
977
+ 0x023B , 0x0241 , 0x024B , 0x0251 , 0x0257 , 0x0259 , 0x025F , 0x0265 ,
978
+ 0x0269 , 0x026B , 0x0277 , 0x0281 , 0x0283 , 0x0287 , 0x028D , 0x0293 ,
979
+ 0x0295 , 0x02A1 , 0x02A5 , 0x02AB , 0x02B3 , 0x02BD , 0x02C5 , 0x02CF ,
980
+
981
+ 0x02D7 , 0x02DD , 0x02E3 , 0x02E7 , 0x02EF , 0x02F5 , 0x02F9 , 0x0301 ,
982
+ 0x0305 , 0x0313 , 0x031D , 0x0329 , 0x032B , 0x0335 , 0x0337 , 0x033B ,
983
+ 0x033D , 0x0347 , 0x0355 , 0x0359 , 0x035B , 0x035F , 0x036D , 0x0371 ,
984
+ 0x0373 , 0x0377 , 0x038B , 0x038F , 0x0397 , 0x03A1 , 0x03A9 , 0x03AD ,
985
+ 0x03B3 , 0x03B9 , 0x03C7 , 0x03CB , 0x03D1 , 0x03D7 , 0x03DF , 0x03E5 ,
986
+ 0x03F1 , 0x03F5 , 0x03FB , 0x03FD , 0x0407 , 0x0409 , 0x040F , 0x0419 ,
987
+ 0x041B , 0x0425 , 0x0427 , 0x042D , 0x043F , 0x0443 , 0x0445 , 0x0449 ,
988
+ 0x044F , 0x0455 , 0x045D , 0x0463 , 0x0469 , 0x047F , 0x0481 , 0x048B ,
989
+
990
+ 0x0493 , 0x049D , 0x04A3 , 0x04A9 , 0x04B1 , 0x04BD , 0x04C1 , 0x04C7 ,
991
+ 0x04CD , 0x04CF , 0x04D5 , 0x04E1 , 0x04EB , 0x04FD , 0x04FF , 0x0503 ,
992
+ 0x0509 , 0x050B , 0x0511 , 0x0515 , 0x0517 , 0x051B , 0x0527 , 0x0529 ,
993
+ 0x052F , 0x0551 , 0x0557 , 0x055D , 0x0565 , 0x0577 , 0x0581 , 0x058F ,
994
+ 0x0593 , 0x0595 , 0x0599 , 0x059F , 0x05A7 , 0x05AB , 0x05AD , 0x05B3 ,
995
+ 0x05BF , 0x05C9 , 0x05CB , 0x05CF , 0x05D1 , 0x05D5 , 0x05DB , 0x05E7 ,
996
+ 0x05F3 , 0x05FB , 0x0607 , 0x060D , 0x0611 , 0x0617 , 0x061F , 0x0623 ,
997
+ 0x062B , 0x062F , 0x063D , 0x0641 , 0x0647 , 0x0649 , 0x064D , 0x0653
998
+ };
999
+
1000
+ #define ARR_LENGTH (a ) ((int)(sizeof((a))/sizeof((a)[0])))
1001
+
1002
+ static int test_mp_prime_miller_rabin (void )
1003
+ {
1004
+ mp_int a , b , c ;
1005
+ bool result ;
1006
+ int i ;
1007
+ mp_digit j ;
1008
+ DOR (mp_init_multi (& a , & b , & c , NULL ));
1009
+
1010
+ /* SPSP to base 2 */
1011
+ mp_set (& b , 2u );
1012
+ for (i = 0 ; i < ARR_LENGTH (SPSP_2 ); i ++ ) {
1013
+ result = false;
1014
+ mp_set_u32 (& a , SPSP_2 [i ]);
1015
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1016
+ EXPECT (result == true);
1017
+ }
1018
+
1019
+ /* Some larger primes to check for false negatives */
1020
+ for (i = 0 ; i < 10 ; i ++ ) {
1021
+ result = false;
1022
+ DO (mp_read_radix (& a , medium_primes [i ], 64 ));
1023
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1024
+ EXPECT (result == true);
1025
+ }
1026
+ /* Some semi-primes */
1027
+ for (i = 0 ; i < 5 ; i += 2 ) {
1028
+ result = false;
1029
+ DO (mp_read_radix (& a , medium_primes [i ], 64 ));
1030
+ DO (mp_read_radix (& c , medium_primes [i + 1 ], 64 ));
1031
+ DO (mp_mul (& a , & c , & a ));
1032
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1033
+ EXPECT (result == false);
1034
+ }
1035
+
1036
+ /* SPSP to base 3 */
1037
+ mp_set (& b , 3u );
1038
+ for (i = 0 ; i < ARR_LENGTH (SPSP_3 ); i ++ ) {
1039
+ result = false;
1040
+ mp_set_u32 (& a , SPSP_3 [i ]);
1041
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1042
+ EXPECT (result == true);
1043
+ }
1044
+
1045
+ /* SPSP to bases 2 -- 100 */
1046
+ mp_set (& b , 2u );
1047
+ for (i = 0 ; i < 4 ; i ++ ) {
1048
+ DO (mp_read_radix (& a , SPSP_2_100_LARGE [i ], 64 ));
1049
+ for (j = 2u ; j <= 100u ; j ++ ) {
1050
+ result = false;
1051
+ mp_set (& b , j );
1052
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1053
+ EXPECT (result == true);
1054
+ }
1055
+ /* 107 is a prime that works */
1056
+ mp_set (& b , 107u );
1057
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1058
+ EXPECT (result == false);
1059
+ }
1060
+
1061
+ /* SPSP to bases 2 -- 100, automatic */
1062
+ mp_set (& b , 2u );
1063
+ for (i = 0 ; i < 4 ; i ++ ) {
1064
+ DO (mp_read_radix (& a , SPSP_2_100_LARGE [i ], 64 ));
1065
+ for (j = 2u ; j <= (mp_digit )mp_prime_rabin_miller_trials (mp_count_bits (& a )); j ++ ) {
1066
+ result = false;
1067
+ mp_set (& b , (mp_digit )prime_tab [j ]);
1068
+ DO (mp_prime_miller_rabin (& a , & b , & result ));
1069
+ }
1070
+ /* These numbers are not big enough for the heuristics to work */
1071
+ EXPECT (result == true);
1072
+ }
1073
+
1074
+ mp_clear_multi (& a , & b , & c , NULL );
1075
+ return EXIT_SUCCESS ;
1076
+ LBL_ERR :
1077
+ mp_clear_multi (& a , & b , & c , NULL );
1078
+ return EXIT_FAILURE ;
1079
+ }
1080
+
1081
+
1082
+ static int test_mp_prime_extra_strong_lucas (void )
1083
+ {
1084
+ mp_int a , b ;
1085
+ bool result ;
1086
+ int i ;
1087
+
1088
+ DOR (mp_init_multi (& a , & b , NULL ));
1089
+
1090
+ /* Check Extra Strong pseudoprimes */
1091
+ for (i = 0 ; i < ARR_LENGTH (ESLPSP ); i ++ ) {
1092
+ result = false;
1093
+ mp_set_u32 (& a , ESLPSP [i ]);
1094
+ DO (mp_prime_extra_strong_lucas (& a , & result ));
1095
+ EXPECT (result == true);
1096
+ }
1097
+
1098
+ /* Check Almost Extra Strong pseudoprimes (not in ESLPSP) */
1099
+ for (i = 0 ; i < ARR_LENGTH (AESLPSP ); i ++ ) {
1100
+ result = false;
1101
+ mp_set_u32 (& a , AESLPSP [i ]);
1102
+ DO (mp_prime_extra_strong_lucas (& a , & result ));
1103
+ EXPECT (result == false);
1104
+ }
1105
+
1106
+ /* Some larger primes to check for false negatives */
1107
+ for (i = 0 ; i < 10 ; i ++ ) {
1108
+ result = false;
1109
+ DO (mp_read_radix (& a , medium_primes [i ], 64 ));
1110
+ DO (mp_prime_extra_strong_lucas (& a , & result ));
1111
+ EXPECT (result == true);
1112
+ }
1113
+
1114
+ /* Some semi-primes */
1115
+ for (i = 0 ; i < 5 ; i ++ ) {
1116
+ result = false;
1117
+ DO (mp_read_radix (& a , medium_primes [i ], 64 ));
1118
+ DO (mp_read_radix (& a , medium_primes [i + 1 ], 64 ));
1119
+ DO (mp_mul (& a , & b , & a ));
1120
+ DO (mp_prime_extra_strong_lucas (& a , & result ));
1121
+ EXPECT (result == false);
1122
+ }
1123
+
1124
+ mp_clear_multi (& a , & b , NULL );
1125
+ return EXIT_SUCCESS ;
1126
+ LBL_ERR :
1127
+ mp_clear_multi (& a , & b , NULL );
1128
+ return EXIT_FAILURE ;
1129
+ }
1130
+
899
1131
static int test_mp_prime_is_prime (void )
900
1132
{
901
1133
int ix ;
@@ -905,6 +1137,17 @@ static int test_mp_prime_is_prime(void)
905
1137
mp_int a , b ;
906
1138
DOR (mp_init_multi (& a , & b , NULL ));
907
1139
1140
+ /* strong Miller-Rabin pseudoprimes to the first 100 primes (gernerated with Arnault's method) */
1141
+ printf ("Testing mp_prime_is_prime() with SPSPs to the first 100 primes\n" );
1142
+ for (ix = 0 ; ix < 4 ; ix ++ ) {
1143
+ DO (mp_read_radix (& a ,SPSP_2_100_LARGE [ix ],64 ));
1144
+ DO (mp_prime_is_prime (& a , mp_prime_rabin_miller_trials (mp_count_bits (& a )), & cnt ));
1145
+ if (cnt ) {
1146
+ printf ("SPSP_2_100_LARGE[%d] is not prime but mp_prime_is_prime says it is.\n" , ix );
1147
+ goto LBL_ERR ;
1148
+ }
1149
+ }
1150
+
908
1151
/* strong Miller-Rabin pseudoprime to the first 200 primes (F. Arnault) */
909
1152
printf ("Testing mp_prime_is_prime() with Arnault's pseudoprime 803...901" );
910
1153
DO (mp_read_radix (& a ,
@@ -965,7 +1208,7 @@ static int test_mp_prime_is_prime(void)
965
1208
DO (mp_read_radix (& a ,
966
1209
"FFFFFFFFFFFFFFFFC90FDAA22168C234C4C6628B80DC1CD129024E088A67CC74020BBEA63B139B22514A08798E3404DDEF9519B3CD3A431B302B0A6DF25F14374FE1356D6D51C245E485B576625E7EC6F44C42E9A63A3620FFFFFFFFFFFFFFFF" ,
967
1210
16 ));
968
- DO (mp_prime_strong_lucas_selfridge (& a , & cnt ));
1211
+ DO (mp_prime_extra_strong_lucas (& a , & cnt ));
969
1212
/* large problem */
970
1213
EXPECT (cnt );
971
1214
if ((e != MP_OKAY ) || !cnt ) {
@@ -2465,6 +2708,8 @@ static int unit_tests(int argc, char **argv)
2465
2708
T1 (mp_montgomery_reduce , MP_MONTGOMERY_REDUCE ),
2466
2709
T1 (mp_root_n , MP_ROOT_N ),
2467
2710
T1 (mp_or , MP_OR ),
2711
+ T1 (mp_prime_extra_strong_lucas , MP_PRIME_EXTRA_STRONG_LUCAS ),
2712
+ T1 (mp_prime_miller_rabin , MP_PRIME_MILLER_RABIN ),
2468
2713
T1 (mp_prime_is_prime , MP_PRIME_IS_PRIME ),
2469
2714
T1 (mp_prime_next_prime , MP_PRIME_NEXT_PRIME ),
2470
2715
T1 (mp_prime_rand , MP_PRIME_RAND ),
0 commit comments