RSA非对称加密解密Delphi源码

RSA非对称加密解密Delphi源码，亲测XE10.2.3可用！RSA控件，内含密钥对生成，无须DLL！

/* 
    Public base64 conversion tables
*/ 
unsigned char B64[]=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/“;
unsigned char b64[256];


/* 
    void initb64（）; 
    Initializes the base64->base16 conversion tab. 
    Call this function once when your program starts.
*/
void initb64（）{
    unsigned int i;
    for （i=0; i<256; i++） b64[i]=0x00;
    for （i=0; i<64; i++） b64[（B64[i]）]=i;
}

/*
   int b64toh（lpbase64String lpDestinationBuffer）;
   Converts base64 string b to hexnumber d.
   Returns size of hexnumber in bytes.
*/
int b64toh（char *b char *d）{
    unsigned int  ikl;

    l=strlen（b）;
    if （l<2） return 0;
    i=0k=0;
    while （1） {
        i++;
        if （k+1        else break;
      

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        233  2012-10-09 20:40  RSA加解密及公钥密生成工具\RSA\Del.bat

     文件      63330  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\FGInt.pas

     文件       1928  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\FGIntPrimeGeneration.PAS

     文件      10923  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\FGIntRSA.PAS

     文件       7490  2012-09-24 00:13  RSA加解密及公钥密生成工具\RSA\IEDCode.pas

     文件       8316  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\PacRAS.bdsproj

     文件        428  2013-04-07 21:57  RSA加解密及公钥密生成工具\RSA\PacRAS.cfg

     文件       1712  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\PacRAS.dcr

     文件       2014  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\PacRAS.dof

     文件        643  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\PacRAS.dpk

     文件       3763  2012-09-26 07:36  RSA加解密及公钥密生成工具\RSA\PacRAS.dproj

     文件        224  2012-09-27 17:00  RSA加解密及公钥密生成工具\RSA\PacRAS.identcache

     文件       4688  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\PacRAS.res

     文件       4629  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSA\RSA.pas

     文件        233  2012-10-09 20:40  RSA加解密及公钥密生成工具\RSADEMO\Del.bat

     文件       3062  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSADEMO\FrmMain.dfm

     文件       1930  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSADEMO\FrmMain.pas

     文件        183  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSADEMO\RSA.dpr

     文件       3133  2017-04-19 21:16  RSA加解密及公钥密生成工具\RSADEMO\RSA.dproj

     文件        104  2017-04-19 21:16  RSA加解密及公钥密生成工具\RSADEMO\RSA.identcache

     文件       4396  2017-04-19 21:16  RSA加解密及公钥密生成工具\RSADEMO\RSA.res

     文件        187  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSADEMO\RSADemo.dpr

     文件       3563  2017-04-19 21:16  RSA加解密及公钥密生成工具\RSADEMO\RSADemo.dproj

     文件         98  2019-01-15 11:47  RSA加解密及公钥密生成工具\RSADEMO\RSADemo.identcache

     文件       4396  2017-04-19 21:16  RSA加解密及公钥密生成工具\RSADEMO\RSADemo.res

     文件        185  2012-05-03 10:11  RSA加解密及公钥密生成工具\RSADEMO\RSAED.dpr

     文件       3204  2012-09-24 14:13  RSA加解密及公钥密生成工具\RSADEMO\RSAED.dproj

     文件        106  2017-04-19 21:17  RSA加解密及公钥密生成工具\RSADEMO\RSAED.identcache

     文件        876  2012-09-24 14:13  RSA加解密及公钥密生成工具\RSADEMO\RSAED.res

     文件       3022  2019-01-15 11:47  RSA加解密及公钥密生成工具\RSADEMO\Unit1.dfm

............此处省略17个文件信息