unit1.cpp

RSA加密解密源码

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#pragma hdrstop

#include "Unit1.h"
#include "rsa.h"
#include "vlong.h"

char *Key_file="rsavar.txt";
int  VL;

int find_string_head(unsigned char c,FILE *fp);
int get_vlong(char c,vlong *nu);
vlong _Encrypt(vlong m);
vlong _Decrypte(vlong c);


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
private_key pkey;
char prand[2][128],vername[3],tc;
DWORD i,j,nn, nCount;
vlong *tmp[3];
FILE *fp;
Button1->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
srand((unsigned)time(NULL));    //产生随机数，当然设个种子先
//nCount = 32;                  //生成512位

nCount = 64;                    //生成1024位

//nCount = 16;                  //生成256位

                                //先产生两个大的随机数
for(i=0; i<2; i++)
{
	for(j=0; j<nCount; j++)
	{
		tc = (char)(0x41+rand()%0xAF);   //这是什么意思
		prand[i][j] = tc;
	}
	prand[i][j]=0;
}

pkey.create(prand[0], prand[1]); //公钥、私钥一次搞掂

tmp[1] = &pkey.e;                //把他们写到一个文件里面去
tmp[2] = &pkey.d;
tmp[0] = &pkey.m;
strcpy(vername, "med");
fp =  fopen(Key_file, "w");
for(j=0; j<3; j++)
{
	nn=tmp[j]->value->n;
	fprintf(fp, "[%c]\n%d\n", vername[j], nn);
	for(i=0; i<nn; i++)
	{
		fprintf(fp,"%08lX\n",tmp[j]->value->a[i]);
	}
}
fclose(fp);                      //打完收工！
Button1->Enabled=true;
Button2->Enabled=true;
Button3->Enabled=true;
}
//---------------------------------------------------------------------------

//*************************************************
// 不知道叫什么名字好:)
// 功能就是到密钥文件中间去找你要的密钥
// 返回密钥长度并将文件指针指向数据开始的地方
//*************************************************
int find_string_head(unsigned char c,FILE *fp)
{
unsigned char tc;
int len;
tc=' ';
while(1)
{
	while(tc!='[' && !feof(fp)) tc=fgetc(fp);
	if(feof(fp)) return 0;
	tc=fgetc(fp);
	if(tc==c) break;
}
while(tc!=0x0a) tc=fgetc(fp);
fscanf(fp,"%d\n",&len);
return len;
}

//***********************************************
// 从密钥文件中间读取指定的密钥，并返回密钥长度
// c就是指定的密钥标志
// 返回的密钥在nu里面
//***********************************************
int get_vlong(char c,vlong *nu)
{
FILE *fp;
char tc;
int len,i;
DWORD temp[64];
fp=fopen(Key_file,"r");
len=find_string_head(c,fp);
if(len==0) {fclose(fp);return 0;}
for(i=0;i<len;i++)
	{
	fscanf(fp,"%8lx\n",temp+i);
	}
nu->load(temp,len);
return len;
}

//***********************************************
// 这个就是用私钥编码
// 不要去看名字，认为是编码就对了
//***********************************************
vlong _Encrypt(vlong m)
{
private_key pkey;
VL=get_vlong('m',&pkey.m);
get_vlong('d',&pkey.d);
return pkey.decrypt(m);
}

//***********************************************
// 这个是用公钥编码
//***********************************************
vlong _Decrypte(vlong c)
{
public_key pkey;
VL=get_vlong('m',&pkey.m);
get_vlong('e',&pkey.e);
return pkey.encrypt(c);
}


void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i;
DWORD a[64];
public_key pkey;
Button1->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
VL=get_vlong('m',&pkey.m);   //取得密钥的长度
memset(a,0,VL*sizeof(DWORD));
//printf("Please Input CardNo & PCID (Fmt %%X-%%X):\n");
//scanf("%lX-%lX",&a[0], &a[1]);
a[0]=0x12345678;
a[1]=0xabcdef12;
vlong m;
m.load(a, 2); //这样 m 中就保存有要加密的数
vlong c = _Encrypt(m);
c.store(a, VL);
	FILE *fp =  fopen("nwnb.txt", "w");
if(fp != NULL)
{
for(i=0;i<VL;i++)
	{
	fprintf(fp,"%08lX\n",a[i]);
	}
fclose(fp);
Button1->Enabled=true;
Button2->Enabled=true;
Button3->Enabled=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int i;
public_key pkey;
Button1->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
VL=get_vlong('m',&pkey.m);
DWORD a[64];
memset(a,0,VL*sizeof(long));
FILE *fp =  fopen("nwnb.txt", "r");
if(fp != NULL)
{
for(i=0;i<VL;i++)
	{
	fscanf(fp,"%08lX\n",&a[i]);
	}
fclose(fp);
}
//加密的数据保存到m中
vlong m;
m.load(a,VL);
//计算加密前的数据，保存在c中
vlong c=_Decrypte(m);
//下面两句话仅仅是特定的情况，其实长度不应该是2的
memset(a,0,8*sizeof(long));
c.store(a,2);
// a[0], a[1]就是加密前的数据
//printf("Decrypt Data:\n");
//printf("%08lX-%08lX\n", a[0], a[1]);
Button1->Enabled=true;
Button2->Enabled=true;
Button3->Enabled=true;
}
//---------------------------------------------------------------------------