-
大小: 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評論
共有 條評論