开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 加密解密 > CA认证 > 查看源码
RsaA.cpp
资源名称：rsa.rar　[点击查看]
上传用户：len888
上传日期：2015-03-06
资源大小：59k
文件大小：25k
源码类别：

CA认证

开发平台：

Visual C++

RsaA.cpp：源码内容
  1. // RsaA.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. //#include "RSATest1.h"
  6. #include "RsaA.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CRsaA
  17. IMPLEMENT_DYNCREATE(CRsaA, CCmdTarget)
  19. CRsaA::CRsaA()
  20. {
  21. InitInt();
  23. }
  25. CRsaA::~CRsaA()
  26. {
  28. }
  31. BEGIN_MESSAGE_MAP(CRsaA, CCmdTarget)
  32. //{{AFX_MSG_MAP(CRsaA)
  33. // NOTE - the ClassWizard will add and remove mapping macros here.
  34. //}}AFX_MSG_MAP
  35. //ON_MESSAGE(WM_COMPUTING,OnComputing)
  36. END_MESSAGE_MAP()
  38. /////////////////////////////////////////////////////////////////////////////
  39. // CRsaA message handlers
  41. /*----------------------------------------------------------------------------
  42. 功能：进行相关大数的初始化
  43. 入口参数：无
  44. 返回值：无
  45. ----------------------------------------------------------------------------*/
  46. void CRsaA::InitInt(void)
  47. {
  48. SetZero(ZEROVALUE); //对大数变量zerovalue清零
  49. memset(mZEROVALUE,0,MLENGTH);
  50. SetZero(ONEVALUE);                      //对大数变量ONEVALUE进行清零
  51. ONEVALUE[DATALENGTH-1]=1; //ONEVALUE的最后一位为1
  52. SetZero(TWOVALUE); //将TOWVALUE进行清零
  53.     TWOVALUE[DATALENGTH-1]=2; //TOWVALUE的最后一位为2
  54. SetZero(EIGHTVALUE); //对EIGHTVALUE进行清零
  55.     EIGHTVALUE[DATALENGTH-1]=8; //最后一位为8
  56. return ;
  57. }
  59. /*---------------------------------------------------------------------------
  60. 功能：将一个大数A转换为相应的字符串形式
  61. 入口参数：大数A
  62. 返回值：相对应的字符串
  63. ----------------------------------------------------------------------------*/
  64. CString CRsaA::PrtInt(byteint A)
  65. {
  66. register i=0;
  67. int m,n;
  68. while(i<DATALENGTH && A[i]==0)          //跳过大数开始的空白0
  69. i++;
  70. if(i<DATALENGTH)
  71. m=DATALENGTH-i;                     //求出有用的大数长度
  72. n=0;
  73. //注意到这里的i已经是数组中第一个非零元素的对应位置，
  74. CString str=""; //因此下面的循环就是从数组中
  75. //存放的数的最高位开始输出。
  76. while(i<DATALENGTH)
  77. {
  78. str += (A[i++]+'0');
  79. }
  80. return str;
  81. }
  83. /*---------------------------------------------------------------------------
  84. 功能：大数A与大数B相乘，结果放入C中 A×B->C
  85. 入口参数：被乘数A和乘数B，结果C
  86. 返回值：无
  87. ----------------------------------------------------------------------------*/
  88. void CRsaA::Multiply(byteint A,byteint B,byteint C)
  89. {
  90. register i,j,w;
  91. int X,Y,Z;
  92. int Avalid=0; //Avalid=validating bits of A
  93. int Bvalid=0; //Avalid=validating bits of B
  94. while (A[Avalid]==0 && Avalid<DATALENGTH)
  95. Avalid++; //计算Avalid
  96. while (B[Bvalid]==0 && Bvalid<DATALENGTH)
  97. Bvalid++; //计算Bvalid
  99. SetZero(C); //将C清零初始化
  101. for(i=DATALENGTH-1;i>=Avalid;i--)
  102. for(j=DATALENGTH-1;j>=Bvalid;j--)       //逐位进行相乘运算
  103. {
  104. X=A[i]*B[j];        
  105. Y=X/10;
  106. Z=X-10*Y;
  107. w=i+j-(DATALENGTH-1);
  108. C[w]=C[w]+Z;
  109. C[w-1]=C[w-1]+(C[w]/10)+Y;
  110. C[w]=C[w]-(C[w]/10)*10;
  111. }
  112. return;
  113. }
  115. /*---------------------------------------------------------------------------
  116. 功能：将指定的自定义的大数进行0初始化
  117. 入口参数：大数A名
  118. 返回值：无
  119. ----------------------------------------------------------------------------*/
  120. void CRsaA::SetZero(byteint A)  
  121. {
  122. memset(A,0,DATALENGTH);                    //调用系统函数进行初始化
  123. }
  125. /*---------------------------------------------------------------------------
  126. 功能：将大数B拷贝到大数A中
  127. 入口参数：大数A，大数B
  128. 返回值：无
  129. ----------------------------------------------------------------------------*/
  130. void CRsaA::IntCpy(byteint A,byteint B)
  131. {
  132. memcpy(A,B,DATALENGTH);                    //调用系统函数完成拷贝
  133. }
  135. /*---------------------------------------------------------------------------
  136. 功能：A＋B的结果送C
  137. 入口参数：大数A,B,C
  138. 返回值：无
  139. ----------------------------------------------------------------------------*/
  140. void CRsaA::Plus(byteint A,byteint B,byteint C)
  141. {
  142. register i;//,w;
  143. int X,Y,Z,m,n,valid;
  144. m=IntValid(A);                 //计算A的长度         
  145. n=IntValid(B);                 //计算B的长度
  146. valid=(m>n)?m+1:n+1;           //计算时要以最长的数为准
  147. SetZero(C);                    //将C清零
  148. for(i=DATALENGTH-1;i>=DATALENGTH-valid;i--)
  149. {
  150. X=A[i]+B[i];               //按位相加
  151. Y=X/10;
  152. Z=X-10*Y;
  154. C[i]=C[i]+Z;               //计算进位
  155. C[i-1]=C[i-1]+Y;
  156. }
  157. }
  159. /*---------------------------------------------------------------------------
  160. 功能：大数SA减去大数SB，结果放入SC
  161. 入口参数：被减数SA，减数SB，差SC
  162. 返回值：无
  163. ----------------------------------------------------------------------------*/
  164. void CRsaA::Substract(byteint SA,byteint SB,byteint SC)
  165. {
  166. byteint buf;
  167. register i,j;
  168. int X;
  169. IntCpy(buf,SA);                  //将SA的内容拷贝到buf中
  170. SetZero(SC);                 //SC清零初始化
  171. for(i=DATALENGTH-1;i>=0;i--)
  172. {
  173. if(buf[i]<SB[i])             //如果最低位不够减
  174. {
  175. buf[i]=buf[i]+10;        //向高位借1
  176. if(buf[i-1]>0)           //如果高位够减，直接减1
  177. (buf[i-1])--;    
  178. else                     //否则一直找到够减的位
  179. {
  180. j=i-1;
  181. while(buf[j]==0)     //j不会出现越界，是因为保证了最高位不为0
  182. buf[j--]=9;
  183. buf[j]=buf[j]-1;
  184. }
  185. }
  186. X=buf[i]-SB[i];              //将各位减的结果存入SC中
  187. SC[i]=X;
  188. }
  189. }
  191. /*---------------------------------------------------------------------------
  192. 功能：比较两个大数A和B的大小
  193. 入口参数：大数A和大数B
  194. 返回值：A>B:return 1 ; A=B:return 0 ; A<B:return -1
  195. ----------------------------------------------------------------------------*/
  196. int CRsaA::IntCmp(byteint A,byteint B)
  197. {
  198. int stat;
  199. stat=memcmp(A,B,DATALENGTH);    //系统函数
  200. if(stat==0)
  201. return 0;
  202. if(stat>0)
  203. return 1;
  204. return -1;
  205. }
  207. /*---------------------------------------------------------------------------
  208. 功能：得到一个大数的非零位数
  209. 入口参数：大数validtemp
  210. 返回值：大数中非零的位数
  211. ----------------------------------------------------------------------------*/
  212. int CRsaA::IntValid(byteint validtemp)
  213. {
  214. register i=0;
  215. while(validtemp[i]==0 && i<DATALENGTH)
  216. i++;
  217. return DATALENGTH-i;
  218. }
  220. /*---------------------------------------------------------------------------
  221. 功能：计算大数A÷B的结果，余数放在C中，商在D中
  222. 入口参数：被除数A，除数B，余数C，商D
  223. 返回值：无
  224. ----------------------------------------------------------------------------*/
  225. void CRsaA::SetMode(byteint A,byteint B,byteint C,byteint D)
  226. {
  227. register i,j,k;
  228. int valid_1,valid_2,valid,sbits,cmpval;
  229. byteint buf1,buf2;
  230.     
  231. SetZero(buf1);  SetZero(buf2);
  232. SetZero(D);                       //将大数D进行清零初始化
  233.     IntCpy(C,A);                      //将被除数A拷贝到C中
  234. valid_2=IntValid(B);              //计算B(除数)的位数,
  235. while((cmpval=IntCmp(C,B))>0)     //变除法为减法,每减一次就判断是否有C>B,如果满足就继续减。
  236. {
  237. valid_1=IntValid(C);          //计算C(被除数)的位数,因为它的位数在循环过程中是变化的
  238.                               //做减法后(C-B)仍然存放在C中
  239. valid=valid_1-valid_2;        //C的长度与B的长度的差（该值最小为0）
  240. if(valid>0)                   //如果被除数比除数的位数多
  241. {
  242. i=DATALENGTH-valid_1;     //被除数前导零的个数
  243. j=DATALENGTH-valid_2;     //除数前导零的个数，作下标指示器
  244. sbits=0;
  245. for(k=j;k<DATALENGTH;k++)
  246. {
  247. if(C[i]>B[j])         //从C和B的最高位开始依次比较对应位的大小，判断是否够减
  248. break;
  249. if(C[i]<B[j])
  250. {
  251. sbits=1;          //如果不够减，那么C就退一位，再做减法
  252. break;
  253. }
  254. i++;j++;              //当C和B的最高位相等时,就比较二者的次高位
  255. }
  256. valid=valid-sbits;
  257. SetZero(buf1);            //buf1清零
  258. for(i=valid;i<DATALENGTH;i++)
  259. {
  260. j=i-valid;
  261. buf1[j]=B[i];         //buf1中存放的是B左移若干位之后得到的值
  262.                       //如果够减,则B左移后最高位与C的最高位对齐,
  263.                       //否则与C的次高位对齐
  264. }
  265. }
  266. else
  267. IntCpy(buf1,B);           //当C和B的位数相同时,就直接把B放入缓冲区buf1中
  269. D[DATALENGTH-1-valid]++;      //这里保存的是在某一位上所做的减法的次数，每做一次就加1
  270. Substract(C,buf1,buf2);       //不论C的长度与B的长度的差是否大于0，都要做减法，直到C<=B
  271. IntCpy(C,buf2);
  272. }
  273. if(cmpval==0)                     //两个数相等
  274. {
  275. SetZero(C);                   //余数为0
  276. D[DATALENGTH-1]++;            //商为1
  277. }
  278. }
  280. /*---------------------------------------------------------------------------
  281. 功能：随机地产生一个大数奇数，长度为num，最高位不是0，存放在RandomA中
  282. 入口参数：大数A，长度num
  283. 返回值：无
  284. ----------------------------------------------------------------------------*/
  285. void CRsaA::IntRandom(byteint RandomA,int num)
  286. {
  287. int i;
  288. SetZero(RandomA);                     //将RandomA清零
  290. while(!(RandomA[DATALENGTH-1]%2))     //判断条件保证RandomA的最后一位数是奇数
  291. RandomA[DATALENGTH-1]=rand()%10;  //如果最后一位是偶数，则从新产生最后一位
  292.     while(!(RandomA[DATALENGTH-num]))     //判断条件保证RandomA最高位不是0
  293. RandomA[DATALENGTH-num]=rand()%10;//如果最高位是0,则从新产生最高位
  295. i=DATALENGTH-2;
  296. while(i>=DATALENGTH-num+1)            //循环产生从次低位开始到次高位的所有位上的数
  297. RandomA[i--]=rand()%10;
  298. }
  300. /*---------------------------------------------------------------------------
  301. 功能：将质数类型B拷贝到A中，实现类型转换
  302. 入口参数：大数A，质数类型B
  303. 返回值：无
  304. ----------------------------------------------------------------------------*/
  305. //功能：将数B拷贝到大数A，实现类型转换
  306. void CRsaA::LoadInt(byteint A,mtype B)
  307. {
  308. register i,j;
  309. SetZero(A);                  //A进行清零初始化
  310. i=DATALENGTH-1;
  311. j=MLENGTH-1;
  312. while(j>0)                   //循环拷贝各位数字
  313. {
  314. A[i--]=B[j--];
  315. }
  316. }
  318. /*---------------------------------------------------------------------------
  319. 功能：该函数用来从集合[1,b-1]中产生若干个用于检测的数，存放在Model[]中
  320. 入口参数：无
  321. 返回值：无
  322. ----------------------------------------------------------------------------*/
  323. void CRsaA::Mdata()
  324. {
  325. register i,j;                     //Randomly choose a set of 100 numbers in [1,b-1]
  326. int k=MLENGTH-2;
  328. memset(Model,0,TESTNUM*MLENGTH);  //这个函数在这里用来将整个数组清零，进行初始化
  329. srand( (unsigned)time( NULL ) );  //进行随机函数的初始化
  330. for(i=0;i<TESTNUM;i++)            //TESTNUM为需要产生的个数
  331. {
  332. for(j=MLENGTH-1;j>=k;j--)
  333. {
  334. Model[i][j]=rand()%10;    //注意这里与测试素数的程序中的区别，
  335. }
  336. if((memcmp(Model[i],mZEROVALUE,MLENGTH))==0)  
  337. i--;
  338. k--;                          //保证所产生的数不为0
  339. if (k<0) k=MLENGTH-2;
  340. }
  342. }
  344. /*---------------------------------------------------------------------------
  345. 功能：该函数用来将十进制的大整数转换成二进制的数
  346. 入口参数：需转换的大数B，二进制结果flag[400]
  347. 返回值：无
  348. ----------------------------------------------------------------------------*/
  349. void CRsaA::TransBi(byteint B,signed char flag[400])
  350. {
  351. byteint buf;
  352. byteint result;
  353. byteint temp;
  354. register i;
  355. SetZero(buf);  SetZero(result);  SetZero(temp);
  356. memset(flag,0,400);                     //将flag数组清零
  358. i=399;
  359. IntCpy(buf,B);                          //将B拷贝到buf中
  360. while(IntCmp(buf,ZEROVALUE)==1)         //如果buf内容为0
  361. {
  362. SetMode(buf,TWOVALUE,temp,result);  //将buf进行大数的模2运算，商在result中，余数temp
  363. flag[i]=temp[DATALENGTH-1];         
  364. IntCpy(buf,result);                 //对商继续进行模2运算
  365. i--;
  366. }
  367. flag[i]=-1;                             //设置一个标志位，表明二进制数的开始
  368. }
  370. /*---------------------------------------------------------------------------
  371. 功能：该函数用来进行模幂算法，A为底数，模为c，二进制的指数B存放在数组flag中
  372. 入口参数：底数A，模C，结果D，二进制质数flag[400]
  373. 返回值：A^B=1(mod C),返回1；A^B=p-1(mod C),返回2；否则返回0
  374. ----------------------------------------------------------------------------*/
  375. int CRsaA::PowerMode(byteint A,byteint C,byteint D,signed char flag[400])
  376. {
  377. byteint buf;
  378. byteint result;
  379. byteint temp,P;
  380. register i;
  381. SetZero(D);   SetZero(buf); SetZero(result); SetZero(temp); SetZero(P);  //将D清零
  383. IntCpy(temp,A);                       //将A的值拷贝到temp中
  384. if(flag[399]==1)                      //最低位为1，拷贝本身，flag[i]只有1或者0两种情况
  385. IntCpy(result,A);
  386. else   //最低位为0，则幂为1
  387. IntCpy(result,ONEVALUE);
  388. i=398;
  389. while(flag[i]!=-1)                    //判断是否已经到达指数尽头
  390. {
  391. Multiply(temp,temp,buf);          //temp*temp->buf 
  392. SetMode(buf,C,temp,P);            //buf%c余数->temp,商->p
  393. if(flag[i]!=0)                    //如果该位不是0，则将其和前一步低一位的结果进行乘法运算
  394. {                                 //否则，将其作为该位的模，在高一位的运算中，只要进行一次
  395. Multiply(temp,result,buf);    //平方运算，就可以得到高一位的模
  396. SetMode(buf,C,result,P);
  397. }
  398. i--;
  399. }                                     //result中存放的是最终结果
  400. IntCpy(buf,C);
  401. IntCpy(D,result);
  402. Substract(buf,ONEVALUE,temp);
  403. if(IntCmp(result,ONEVALUE)==0)        //p mod n=1，判断是否有A^B=1(mod C)
  404. return 1;
  405. if(IntCmp(result,temp)==0)            //p mod n=-1[p-1=-1(mod p)]，判断是否有A^B=p-1(mod C)
  406. return 2;
  407. return 0;
  408. }
  410. /*---------------------------------------------------------------------------
  411. 功能：产生一个质数
  412. 入口参数：大数Prm
  413. 返回值：产生成功，返回0
  414. ----------------------------------------------------------------------------*/
  415. int CRsaA::Prime(byteint Prm)
  416. {
  417. int i,k,ok;
  418. signed char flag[400];
  419. byteint A,B,D,buf1,buf2;
  420. SetZero(A); SetZero(B); SetZero(D); SetZero(buf1); SetZero(buf2);
  422. while(1)                                 //一直循环直到找到一个素数为止
  423. {
  424. int pass=0;
  425. srand( (unsigned)time( NULL ) );     //初始化srand
  426. IntRandom(B,MLENGTH);                //随机产生一个大数B  try b if prime,B是一个奇数
  428. IntCpy(Prm,B);                       //将B拷贝到prm中 C=N result prime
  429. Substract(B,ONEVALUE,buf1);          //将B-ONEVALUE的结果放到buf1中
  430. SetMode(buf1,TWOVALUE,buf2,B);       //B=(B-1)/2的商,buf2=(B-1)/2的余数=0
  431. TransBi(B,flag);                     //将B转换为二进制大数
  432. ok=1;
  433. for(i=0;i<TESTNUM;i++)
  434. {
  435. LoadInt(A,Model[i]);             //将数组Model中的第i+1个数读取到A中
  436. k=PowerMode(A,Prm,D,flag);       //(A^flag) mod Prm ->D
  437. if(k!=1 && k!=2)                 //不符合判定规则
  438. {
  439. ok=0;
  440. break;
  441. }
  442. if(k==1)                         //判定条件1，G=A^(n-1)/2=1
  443. {
  444. }
  445. if(k==2)                         //判定条件2，G=A^(n-1)/2=p-1
  446. {
  447. }
  449. }
  450. if (ok)//if(ok && pass_2)
  451. {
  452. return 0;
  453. }//for循环用来检测IntRandom(B,MLENGTH)产生的数B是否是一个素数
  454. }
  455. }
  457. /*---------------------------------------------------------------------------
  458. 功能：计算公钥PK
  459. 入口参数：$(r)的值在Rvalue中，私钥SK，公钥PK
  460. 返回值：成功找到，返回1
  461. ----------------------------------------------------------------------------*/
  462. int CRsaA::ComputingPK(byteint Rvalue,byteint SK,byteint PK)
  463. {
  464. register i;
  465. byteint PA,PB,PC,buf1,temp,buf2;
  466. SetZero(PK); SetZero(PA); SetZero(PB); SetZero(PC); SetZero(buf1);   //清零初始化
  467. SetZero(temp); SetZero(buf2);
  468. while(1)
  469. {
  470. IntRandom(SK,SKLENGTH);        //随机产生一个大数奇数作为Generated secret key
  472. IntCpy(PB,SK);
  473. IntCpy(PA,Rvalue);
  474. while(1)
  475. {
  476. SetMode(PA,PB,PC,PK);     //PA=PB*PK+PC
  477. i=IntCmp(PC,ONEVALUE);
  478. if(i==0)                  //PC=1, i=0
  479. break;                //满足条件，是互质的
  480. i=IntCmp(PC,ZEROVALUE);
  481. if(i==0)
  482. {
  483. i=-1;                 //PC=0,i=-1
  484. break;                //不满足互质条件，跳出循环，从新生成一个随机数
  485. }
  486. IntCpy(PA,PB);            //按照欧几里的定理继续判断
  488. IntCpy(PB,PC);
  489. }
  490. if(i==0)                      //满足，跳出查找循环
  491. break;
  492. }
  494. IntCpy(temp,ONEVALUE);
  495. IntCpy(PA,Rvalue);
  496. IntCpy(PB,SK);
  497. while(1)
  498. {
  499. Multiply(PA,temp,buf1);  //buf1=PA*temp
  500. Plus(buf1,ONEVALUE,buf2);//buf2=(PA*temp)+1
  501. SetMode(buf2,PB,buf1,PK);//buf=((PA*temp)+1)%PB
  502. if(IntCmp(buf1,ZEROVALUE)==0)
  503. break;
  504. Plus(temp,ONEVALUE,buf1);
  505. IntCpy(temp,buf1);
  506. }
  507. return 1;                   //SK and PK found
  508. }
  511. /*---------------------------------------------------------------------------
  512. 功能：计算模R
  513. 入口参数：产生的质数p，q，模R
  514. 返回值：无
  515. ----------------------------------------------------------------------------*/
  516. void CRsaA::ComputingR(byteint p,byteint q,byteint R)
  517. {
  518. Multiply(p,q,R);              // R=p*q, public mode number
  519. }
  521. /*---------------------------------------------------------------------------
  522. 功能：计算$(r)
  523. 入口参数：质数p，质数q，模$(r)放在Rvalue
  524. 返回值：无
  525. ----------------------------------------------------------------------------*/
  526. void CRsaA::ComputingRvalue(byteint p,byteint q,byteint Rvalue)
  527. {
  528. byteint buf1,buf2;
  529. SetZero(buf1); SetZero(buf2);
  531. Substract(p,ONEVALUE,buf1);   // buf1=p-1
  532. Substract(q,ONEVALUE,buf2);   // buf2=q-1
  533. Multiply(buf1,buf2,Rvalue);   // Rvalue=(p-1)*(q-1)
  534. }
  536. /*---------------------------------------------------------------------------
  537. 功能：将接受的字符串转换为大数类型
  538. 入口参数：大数result,字符串input
  539. 返回值：数的长度
  540. ----------------------------------------------------------------------------*/
  541. int CRsaA::Getinput(byteint result,CString input)
  542. {
  543. int i=DATALENGTH,m=0;
  544. long strlen;
  545. strlen=input.GetLength();
  547. if(strlen==0) return 0;
  548. else
  549. {
  550. for(int j=0;j<strlen;j++)
  551. {
  552. result[i-strlen+j] = (input.GetAt(j)-'0');
  553. }
  554. return j;
  555. }
  556. }
  558. /*---------------------------------------------------------------------------
  559. 功能：实现加密，解密运算功能
  560. 入口参数：明文(大数类型source)，模R，秘钥key，结果desti
  561. 返回值：无
  562. ----------------------------------------------------------------------------*/
  563. void CRsaA::RsaDo(byteint source,byteint R,byteint key,byteint desti)
  564. {
  565. TransBi(key,flag);
  566. PowerMode(source,R,desti,flag);
  567. }
  569. /*---------------------------------------------------------------------------
  570. 功能：将长整形的数转换为大数类型
  571. 入口参数：大数类型result,长整形input
  572. 返回值：成功，返回数的长度，否则返回0；
  573. ----------------------------------------------------------------------------*/
  574. int CRsaA::Getinput1(byteint result,unsigned long input)
  575. {
  576. int i=DATALENGTH-1,m=0;
  577. long j=0;
  578. int k=0;
  580. if(input)
  581. {
  582. do
  583. {
  584. j=input/10;
  585. k=input-j*10;
  586. result[i]=k;
  587. i--;
  588. m++;
  589. input=j;
  590. }while(j);
  591. return m;
  592. }
  593. else
  594. return 0;
  595. }
  597. /*---------------------------------------------------------------------------
  598. 功能：将十六进制的串转换为数值
  599. 入口参数：字符串指针
  600. 返回值：成功，返回数
  601. ----------------------------------------------------------------------------*/
  602. unsigned long CRsaA::Os2ip(unsigned char* pstr)
  603. {
  604. unsigned long ch=0;
  605. unsigned int j=0;
  606. unsigned long k=1;
  607. for(int i=0;i<4;i++)
  608. {
  609. j = (unsigned int) (*(pstr+3-i));
  610. /* if( (*(pstr+3-i))>='0'&&(*(pstr+3-i))<='9')
  611. j = (*(pstr+3-i)) - '0';
  612. if( (*(pstr+3-i))>='a'&&(*(pstr+3-i))<='f') 
  613. j = (*(pstr+3-i)) - 'a'+10;
  614. if( (*(pstr+3-i))>='A'&&(*(pstr+3-i))<='F')
  615. j = (*(pstr+3-i)) - 'A'+10;*/
  616. ch += j*k;
  617. k*=256;
  618. }
  619. return ch;
  620. } 
  622. /*---------------------------------------------------------------------------
  623. 功能：将数串转换为相应的字符串
  624. 入口参数：字符串str
  625. 返回值：返回转换的结果；
  626. ----------------------------------------------------------------------------*/
  627. CString CRsaA::Ip2os(CString str)
  628. {
  629. int strlen=str.GetLength(),quotient=0,remainder=0;
  630. unsigned long num=0,temp=0;
  631. unsigned int k=1;
  632. CString strResult="";
  634. for(int i=strlen;i>0;i--)  //得到相应的数字串,存放在num中
  635. {
  636. temp = (str.GetAt(i-1) - '0');
  637. num += temp*k;
  638. k *= 10;
  639. }
  640. //采用模除的方式,求得相应的十六进制数
  641. for(int j=0;j<4;j++)
  642. {
  643. quotient = num/256;
  644. remainder = num - quotient*256;
  645. /*if(remainder>=0&&remainder<=9)
  646. strResult.Insert(0,(remainder+'0'));
  647. if(remainder>=10&&remainder<=15)
  648. strResult.Insert(0,(remainder-10+'a'));*/
  649. strResult.Insert(0,(unsigned char)remainder);
  650. num = quotient;
  651. }
  653. return strResult; 
  654. }
  656. /*---------------------------------------------------------------------------
  657. 功能：产生RSA秘钥对
  658. 入口参数：存放结果的字符串地址 
  659. 返回值：无
  660. ----------------------------------------------------------------------------*/
  661. void CRsaA::GenKeys(CString& pk,CString& sk,CString& R)
  662. {
  663. byteint m_p,m_q,m_R,m_Rvalue,m_PK,m_SK;
  664. SetZero(m_p);      //对大数变量进行清零初始化
  665. SetZero(m_q);
  666.     SetZero(m_R);
  667.     SetZero(m_Rvalue);
  668.     SetZero(m_PK);
  669.     SetZero(m_SK);
  671. Mdata();         //生成比较数表
  672. AfxMessageBox("开始计算质数P...");
  673. Prime(m_p);        //生成素数p q
  674. AfxMessageBox("开始计算质数Q...");
  675. Prime(m_q);
  677. AfxMessageBox("开始计算模R...");
  678. ComputingR(m_p,m_q,m_R); //计算模R
  679. AfxMessageBox("开始计算模r");
  680. ComputingRvalue(m_p,m_q,m_Rvalue);  //计算r
  681. AfxMessageBox("开始计算秘钥SK,PK");
  682. ComputingPK(m_Rvalue,m_PK,m_SK);    // Generate PK and SK
  684. //CGenKeyBusyDlg dlg1;
  685. //g1.DoModal();
  686. R=PrtInt(m_R);
  687. pk=PrtInt(m_PK);
  688. sk=PrtInt(m_SK);
  689. return ;
  691. }
  693. /*---------------------------------------------------------------------------
  694. 功能：实现加密功能接口
  695. 入口参数：明文字符串source，模字符串R，秘钥字符串key，结果字符串数组result
  696. 返回值：无
  697. ----------------------------------------------------------------------------*/
  698. int CRsaA::RsaEncrypt(CString& source,const char *key,const char *R,CStringArray& result)
  699. {
  700. unsigned char* pstr;
  701. int j;//sourcelen,j;
  702. byteint m_key,m_R,desti,aa;
  703. SetZero(desti);                         //将大数变量清零初始化
  704. SetZero(aa);
  705. //SetZero(bb);
  706. SetZero(m_key);
  707. SetZero(m_R);
  709. pstr = (unsigned char*)(LPCTSTR)source; //得到字符串数据的指针
  710. j = source.GetLength()/4;               //得到数组的元素个数
  712. result.SetSize(j,1);
  713. Getinput(m_key,key);                    //将字符串转换为大数类型
  714. Getinput(m_R,R);
  716. for(int i=0;i<j;i++)
  717. {
  718. Getinput1(desti,Os2ip(pstr));       //将四个字节的输入转换为大数类型数值
  719. RsaDo(desti,m_R,m_key,aa);          //进行加密运算
  720. result.SetAt(i,PrtInt(aa));         //将结果存放到数组中
  721. SetZero(desti);  SetZero(aa);
  722. pstr += 4;
  723. }
  724. return j;
  725. }
  727. /*---------------------------------------------------------------------------
  728. 功能：实现解密功能接口
  729. 入口参数：密文字符串数组source，秘钥字符串sk，模字符串R，
  730. 返回值：结果字符串数组result
  731. ----------------------------------------------------------------------------*/
  732. CString CRsaA::RsaDecrypt(CStringArray& source,const char* sk,const char* R)
  733. {
  734. int index=0;
  735. CString result;
  736. byteint m_sk,m_r,desti,aa;
  737. SetZero(m_sk);  SetZero(m_r); SetZero(desti); SetZero(aa);  //SetZero(bb);
  739. index=source.GetSize();   //得到数组的元素个数
  740. Getinput(m_sk,sk);        //将字符串转换为大数类型
  741. Getinput(m_r,R);
  743. for(int i=0;i<index;i++)
  744. {
  745. Getinput(desti,source.GetAt(i));   //将加密结果转换为大数类型
  746. RsaDo(desti,m_r,m_sk,aa);          //解密运算
  747. result += Ip2os(PrtInt(aa));       //组合初始明文
  748. SetZero(aa);  SetZero(desti);
  749. }
  751. return result;        //返回明文串
  752. }
  754. /*---------------------------------------------------------------------------
  755. 功能：生成一个秘钥存贮文件
  756. 入口参数：无
  757. 返回值：无
  758. ----------------------------------------------------------------------------*/
  759. void CRsaA::GenKeysTable()
  760. {
  761. CStringArray RArray,SKArray,PKArray;
  762. CString r,pk,sk;
  763. int j=1,i;      //参数j表示产生的秘钥对的个数
  764. unsigned char strlength;
  765. //设置数组的元素个数
  766. RArray.SetSize(j,1); SKArray.SetSize(j,1); PKArray.SetSize(j,1);
  768. /*-----------------------------------------------------------------------
  769. 文件格式为：
  770. 长度   秘钥   长度   秘钥......
  771. ----   ----   ----   ----
  772. 1byte  nbyte  1byte  nbyte       (中间无空格,R,SK,PK)
  773. */
  774. CFile file;
  776. for(i=0;i<j;i++)
  777. {
  778. GenKeys(pk,sk,r);  //循环产生秘钥
  779. RArray.SetAt(i,r); SKArray.SetAt(i,sk); PKArray.SetAt(i,pk);
  780. }
  782. //if(file.Open("c:\key.txt",CFile::modeCreate|CFile::modeReadWrite)==0)
  783. if(file.Open("key.txt",CFile::modeCreate|CFile::modeReadWrite)==0)
  784. {
  785. AfxMessageBox("open file error!");  //打开文件失败
  786. return;
  787. }
  790. for(i=0;i<j;i++)
  791. {                //循环写入结果
  792. strlength = (unsigned char)(RArray.GetAt(i)).GetLength();
  793. file.Write(&strlength,1);
  795. file.Write(RArray.GetAt(i),(RArray.GetAt(i)).GetLength());
  797. strlength = (unsigned char)(SKArray.GetAt(i)).GetLength();
  798. file.Write(&strlength,1);
  800. file.Write(SKArray.GetAt(i),(SKArray.GetAt(i)).GetLength());
  802. strlength = (unsigned char)(PKArray.GetAt(i)).GetLength();
  803. file.Write(&strlength,1);
  805. file.Write(PKArray.GetAt(i),(PKArray.GetAt(i)).GetLength());
  806. }
  808. file.Close();
  809. }
  811. void CRsaA::LoadKeysFromFile(CString& r,CString& sk,CString& pk)
  812. {
  813. int            j=10,len;
  814. char           *pbuffer;
  815. unsigned char  strlen1;
  817. CFile          file;
  818. CFileException e;
  819. CString        strFileName;
  820. if(file.Open("c:\key.txt",CFile::modeRead)==0)
  821. {
  822. AfxMessageBox("File(key.txt)could not be opened" );
  823. }
  824. file.Read(&strlen1,1);  //读出R长度
  825. len = (int)strlen1;
  827. pbuffer = new char[len+1];
  828. pbuffer[len]='';
  829. file.Read(pbuffer,len);  //读出R
  830. r=pbuffer;
  831. delete pbuffer;
  833. file.Read(&strlen1,1);  //读出SK长度
  834. len = (int)strlen1;
  836. pbuffer = new char[len+1];
  837. pbuffer[len]='';
  838. file.Read(pbuffer,len);  //读出SK
  839. sk=pbuffer;
  840. delete pbuffer;
  842. file.Read(&strlen1,1);  //读出PK长度
  843. len = (int)strlen1;
  845. pbuffer = new char[len+1];
  846. pbuffer[len]='';
  847. file.Read(pbuffer,len);  //读出PK
  848. pk=pbuffer;
  849. delete pbuffer;
  851. file.Close();
  852. }