Subversion Repositories planix.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 33
Line 8... Line 8...
8 
	mpint *z = mpnew(0);
 8 
	mpint *z = mpnew(0);
9 
	mpint *p = mpnew(0);
 9 
	mpint *p = mpnew(0);
10 
	mpint *q = mpnew(0);
 10 
	mpint *q = mpnew(0);
11 
	mpint *nine = mpnew(0);
 11 
	mpint *nine = mpnew(0);
12 
 
 12 
 
13 
	fmtinstall('B', mpconv);
 13 
	fmtinstall('B', mpfmt);
14 
	strtomp("2492491", nil, 16, z);	// 38347921 = x*y = (2**28-9)/7,
14 
	strtomp("2492491", nil, 16, z);	// 38347921 = x*y = (2**28-9)/7,
15 
				//    an example of 3**(n-1)=1 mod n
 15 
				//    an example of 3**(n-1)=1 mod n
16 
	strtomp("15662C00E811", nil, 16, p);// 23528569104401, a prime
 16 
	strtomp("15662C00E811", nil, 16, p);// 23528569104401, a prime
17 
	uitomp(9, nine);
 17 
	uitomp(9, nine);
18 
 
 18