-
大小: 128KB文件類型: .7z金幣: 1下載: 0 次發(fā)布日期: 2021-01-05
- 語言: 其他
- 標(biāo)簽: miracl.lib??網(wǎng)絡(luò)安全??mircal庫??miracl庫??
資源簡介
本資源是作者本人使用vs2010編譯通過的,親測可用。沒有其他依賴項(xiàng),代碼使用的東西都在壓縮包中。
代碼片段和文件信息
/*
?*???Program?to?calculate?mersenne?primes
?*???using?Lucas-Lehmer?test?-?Knuth?p.391
?*
?*???Try?this?only?in?a?32-bit?(or?better!)?environment
?*
?*/
#include?
#include?“miracl.h“
#define?LIMIT?100000
int?main()
{?/*?calculate?mersenne?primes?*/
????BOOL?compo;
????big?LmT;
????int?ikqpr;
????miracl?*mip=mirsys(50000);
????L=mirvar(0);
????m=mirvar(0);
????T=mirvar(0);
????gprime(LIMIT);
????for?(k=1;;k++)
????{?/*?test?only?prime?exponents?*/
????????q=mip->PRIMES[k];
????????if?(q==0)?break;
????????expb2(qm);
????????decr(m1m);????/*?m=2^q-1?*/
/*?try?to?find?a?factor.?Should?perhaps?keep?trying?over?a?bigger?range...?*/
????????compo=FALSE;
????????for(i=2;i<16*q;i+=2)
????????{?/*?prime?factors?(if?they?exist)?are?always?*
???????????*?of?the?form?i*q+1?and
評論
共有 條評論