-
大小: 128KB文件類(lèi)型: .7z金幣: 1下載: 0 次發(fā)布日期: 2021-01-05
- 語(yǔ)言: 其他
- 標(biāo)簽: miracl.lib??網(wǎng)絡(luò)安全??mircal庫(kù)??miracl庫(kù)??
資源簡(jiǎn)介
本資源是作者本人使用vs2010編譯通過(guò)的，親測(cè)可用。沒(méi)有其他依賴(lài)項(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評(píng)論
共有 條評(píng)論