Question

我正在使用delphiopenssl wrapper来生成.pem格式的密钥文件。我正在使用Generate RSA Key example生成这些密钥。

我需要的

两天前，我希望找到一种简单的方法来生成RSA密钥，并使用它们来加密/解密某些字符串或TBytes缓冲区。现在，在搜索了所有可能的解决方案之后，我决定使用OpenSSL来完成这项工作

我的问题

问题是我无法使用功能输入的文件名创建文件。但是我仍然得到一个名为“ C”或“ m”（不带扩展名）的文件，其中包含PEM格式的公钥和私钥，而奇怪的是我给函数指定了公钥和私钥的两个文件名< / p>

我尝试过的事情

我在寻找使用的openssl方法的文档，因此我知道如何调试此方法，但没有成功。
我尝试使用Openssl.exe命令行执行相同的操作，并且它起作用了，所以我知道这不是openssl中的错误。
起初，由于[dcc32 Error] CryptoUtils.pas(399): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'，我无法编译代码，我的解决方案是在需要的地方将类型强制转换为PAnsiChar，并确保所有输入都是ansistring，因此我可以尝试进行非Unicode测试，但是没有成功。
当我调试此文件时，文件名一直到函数调用为止，结果我得到0（在模糊的文档中0表示成功），但是我总是得到相同的结果（输出目录）。
我试图通过文档寻找其他语言的其他实现，但同样没有一个真正的解决方案，每个人都用魔法解决了问题

此代码负责

procedure GenerateKeyPair;
var
  kp: TKeyPairGenerator;
begin
kp := TKeyPairGenerator.Create;
kp.KeyFileNames(GetCurrentDir + '\mykeys');  // it create a pair c:\temp\mykeys.key
                                    // and c:\temp\mykeys.pub
kp.Password := 'mypasswd';          // Required
kp.GenerateRSA;
end;


procedure TMainForm.Button2Click(Sender: TObject);
begin
  InitOpenSSL;

  GenerateKeyPair;

  FreeOpenSSL;
end;

function TKeyPairGenerator.GenerateRSA: Integer;
var
  rsa: pRSA;
  PrivateKeyOut, PublicKeyOut, ErrMsg: pBIO;
  buff: array [0..1023] of char;
  enc: pEVP_CIPHER;

begin

Result := 0;

if (fPrivateKeyFile = '') or (fPublicKeyFile = '') then
  raise EOpenSSL.Create('Key filenames must be specified.');
if (fPassword = '') then
  raise EOpenSSL.Create('A password must be specified.');

ERR_load_crypto_strings;
OpenSSL_add_all_ciphers;

enc := EVP_des_ede3_cbc; ///??????

// Load a pseudo random file
RAND_load_file(PAnsiChar(fSeedFile), -1);

rsa := RSA_generate_key(fKeyLength, RSA_F4, nil, ErrMsg);
if rsa=nil then
  begin
  BIO_reset(ErrMsg);
  BIO_read(ErrMsg, @buff, 1024);
  raise EOpenSSL.Create(PChar(@buff));
  end;

PrivateKeyOut := BIO_new(BIO_s_file());
if BIO_write_filename(PrivateKeyOut, PAnsiChar(fPrivateKeyFile)) <> 0 then Result := - 1; // I get a 1 here meaning failure whit out any useful info
PublicKeyOut := BIO_new(BIO_s_file());
if BIO_write_filename(PublicKeyOut, PAnsiChar(fPublicKeyFile)) <> 0 then Result := ERR_peek_last_error; // ERR_peek_last_error returns 0

PEM_write_bio_RSAPrivateKey(PrivateKeyOut, rsa, enc, nil, 0, nil, PChar(fPassword));
PEM_write_bio_RSAPublicKey(PublicKeyOut, rsa);

if rsa <> nil then RSA_free(rsa);
if PrivateKeyOut <> nil then BIO_free_all(PrivateKeyOut);
if PublicKeyOut <> nil then BIO_free_all(PublicKeyOut);
end;

这是名为C的文件的内容

我的问题如何解决此问题，或者是否有任何有关我可以阅读的方法的文档。

来自Indy服务器的

OpenSSL版本1.0.2。

旁注：：我提交了功能请求（System.Cryptography），对此有兴趣为其投票的人

Answer 1

我通常使用PEM_write_bio_ * API分别创建公用密钥和专用密钥来创建TByte。一旦拥有公用密钥和专用密钥的字节，就可以在System.IOUtils单元中使用Delphi的TFile.WriteAllBytes（）将字节保存到文件中。

function CreateCertificate_PKCS(out APublicKey, APrivateKey: TBytes): Boolean;
var
  Bignum: PBIGNUM;
  RSA: PRSA;
  PrivateKey, PublicKey: PBIO;
  KeyLength: Integer;
begin
  Result := False;
  Bignum := BN_new();
  try
    if BN_set_word(Bignum, RSA_F4) = 1 then
    begin
      RSA := RSA_new;
      try
        if RSA_generate_key_ex(RSA, 2048, Bignum, nil) = 1 then
        begin
          { Write the public key }
          PublicKey := BIO_new(BIO_s_mem);
          try
            PEM_write_bio_RSAPublicKey(PublicKey, RSA);
            KeyLength := BIO_pending(PublicKey);
            SetLength(APublicKey, KeyLength);
            BIO_read(PublicKey, @APublicKey[0], KeyLength);
          finally
            BIO_free(PublicKey);
          end;

          { Write the private key }
          PrivateKey := BIO_new(BIO_s_mem);
          try
            PEM_write_bio_RSAPrivateKey(PrivateKey, RSA, nil, nil, 0, nil, nil);
            KeyLength := BIO_pending(PrivateKey);
            SetLength(APrivateKey, KeyLength);
            BIO_read(PrivateKey, @APrivateKey[0], KeyLength);
          finally
            BIO_free(PrivateKey);
          end;

          Result := True;
        end;
      finally
        RSA_free(RSA);
      end;
    end;
  finally
    BN_free(Bignum);
  end;
end;

Answer 2

这是我对有关问题的解决方案

问题：生成RSA密钥对（公共/私有），然后从文件，流甚至TBytes缓冲区中读取它们。

找到的解决方案：

您可以找到（google）的第一件事是Delphi的Turbo Pack LockBox，但问题是它不支持大于1048位的密钥大小（在撰写本文时），该大小远低于当前的最小密钥大小密钥大小（在撰写本文时为2048），因此您可以从可能的解决方案中忽略它（尽管它具有我所需要的本机实现）。
CryptoAPI的包装。这个想法很漂亮，因为您有机会使用Microsoft自己的Crypto Library，这将使部署变得更容易（因为它是在操作系统本身中内置的）。但是，对Pascal（用C ++编写）的支持很少，并且需要大量工作来支持和维护，并且它不是跨平台的。
OpenSSl的包装。现在，这是一个很棒的想法，因为该库已经被伟大的开放源代码项目Indy所使用，而搜索其他开放源代码项目则更有可能获得成功
1. zizzo81/delphiopenssl拥有自己的OpenSSL包装程序和出色的演示程序，但正如问题所指出的那样，该源代码中存在一两个问题，由于一个很好的原因，我无法在GitHub上发布问题，因此该项目未得到维护而且只是从旧站点导入的版本。
2. lminuti/Delphi-OpenSSL基于Indy Wrappers IdSSLOpenSSLHeaders.pas 并提供了解决此问题的基本功能（加密/解密但不生成）。

最终解决方案：

最后，我需要在lminuti/Delphi-OpenSSL上添加一些内容才能完成它，感谢allen-drennan对这个问题的回答，这非常容易。

我也forked lminuti/Delphi-OpenSSL来介绍此问题所涉及的更改（fork包含了有关该问题的即用教程）

我发现并修复的错误，基础项目中的当前包装器使用PEM_read_bio_PubKey读取传统PEM格式（不再是标准格式）的公钥文件，也使用{{ 3}}也已弃用（我暂时没有解决此问题）

我发现有用的参考文献：

一个PEM_write_bio_RSAPrivateKey，其中包含有关OpenSSL的旧文档。
Linux page，我仍然说这是在书面和维护中。
OpenSSL docs用c ++实现中的代码解释了键的不同格式
This answer by jww
Reading Public Private key from memory with OpenSSl
我过去从其他资源中获得的有关密码学的一般信息

使用OpenSSL生成密钥对

2 个答案: