openssl qt 生成秘钥_delphi - 使用OpenSSL生成密钥对 - 堆栈内存溢出

我正在使用delphiopenssl包装器生成.pem格式的密钥文件。 我正在使用“ 生成RSA密钥”示例来生成这些密钥。

我需要的

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

我的问题

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

我尝试了什么

我寻找了使用的openssl方法的文档，因此我知道如何调试此方法，但没有成功。

我尝试使用Openssl.exe命令行执行相同的操作，并且它起作用了，所以我知道它不是openssl中的错误。

起初，由于[dcc32 Error] CryptoUtils.pas(399): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar' ，我无法编译代码，我的解决方案是在需要的地方将类型[dcc32 Error] CryptoUtils.pas(399): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'为PAnsiChar ，并确保所有输入为ansistring，因此我可以尝试非Unicode测试，但没有成功。

当我调试此文件时，文件名一直到函数调用为止，结果我得到0(在模糊文档中0表示成功)，但是我总是得到相同的结果(输出目录中的C或M文件名) 。

我试图通过文档寻找其他语言的其他实现，但是没有一个真正的解决方案，每个人都神奇地解决了这个问题

这是负责的代码

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的文件的内容

-----BEGIN RSA PUBLIC KEY-----

MIIBBgKB/gC1aSSL+rlH/owIISeoNNO9mVmlPfWVsnRloFUHlYQMZyVovcTHZZhd

CvweTjMlwRHTqNAnX3CpFSwjcf5FVyiB7qoWQHDXlTSLD4kFQzUfGVTorwuB1jii

Su3tt3GCJE//xE5RWrsAIETuxIk2ZSkf4T0htAu44gBbup7CT4cSOaUeTr6/D9WL

xl+jGCi9d4oG+JkVJ21VHl1O5/UG4HRKiKx+PfNrBZvR4COVzYV6clXv7fd2EZo7

Gbz/d3yUG9jVMuQmbSDA0Ew3vE9iYTIpXeGSM1aZKgkOWqehO7b8yIqhmUbW2Yl5

sydL/xx7WEsQuTqvPST1lkpfdyIpAgMBAAE=

-----END RSA PUBLIC KEY-----

xng1PPL79FUIjo1i3Fjg1qagYELOy023nnekp9ZzgPrVsuZT4fnXTaqFHoOjhTr

IqhHVMsaUIxG0OOdmkDZzWbHjlJbA3BpNvB0NqSlb8vQrg+d9Tq4wh4heKNl/Wim

IocSUi3qULEC29H2rA2VnutilcpDTcc4fiKwWlAnYGOQieVHMnNGP+RrCqjIzurN

M4aTK7mRna3OGYOZBl89xDd9elmYtToFrb/aVEgE2FY3190AosRyb/9bjR+ol39Y

XrtXKAPOwGum6O9Vc5jTAw6wC6OTpCTZXw6NuIm6WST0u5Aknvc0mGEx/w8yYxil

fJvavRADkWIBYLvWj5tzm2pOeT3C1SoCqtEwmpK4eZpR+TeODsje4blaGIeIMtOl

BOnGZSy8KLk36kH2mT6pO3/QHNK7yZEhyd9uw7Hol8pFk8ZrCPu25vju8UnC0/k6

djExrjl2+V/EGeO8k79W2kpHjIIcY5SG+hNI909j/OIwJH8UJCmQrSPaxSloUquy

upQPhPhaz1UKrZJw/u7oKHzeYPFI9NmWBbz18Iax52wsmHaw/mqwt8h96wUujVB2

CWG0IfW+LF7r6rZ6wREW72ldMLiKpGAucbaGBpGKbMLpbai9BTmkpdtpi/PH7yOG

8/gS2Av6VvD2wzdNt94Zqqlz+qN3K/t4qIjOIBHSpCcm7DJLQWK452xheZpiYlP0

hBAX7V9WvnQcuhfiX0zm097dmqcjySzpKL53T7dk3dNoHsbPPzKrS/WDMvGZLMwF

4hifva+O3lnI/DlBZymcPNlPNwTTztDDWxFwv2Y9jq20yXbJLjEP1Qjpk+oS9dVh

HTTun0ZkrfzVaXcfcWggKWrpiTIen2jCqqVSMyS0xe4h9v+/gjkMA54OzN+zPyIH

zpgRmHxVIXYQ+AuK1zEf6lZaeeUiKWG4ywpgML3X4Ln5SWNZA0iLYQKr98XDn3VJ

WoVA1sVqsi2cuq+9Td2Z9TbD4FCxZlrrOZCN5x+YaMjp+KzFA5m+7rEvS96Z+Kit

Pw1mZkrQ2QioXOmkDiqypFk08Z8BiPIb+hklXrrD7Vkp3VdMO9UQpKppfZFMQ0mG

6OGcf51kBKtfEPcHEBkQM/sPw5H4zC+pRaxBseL/5Fzcq/B5ywPzEjMfQc4sjpTi

uFZFA9rVzikCOEv1R8MPrdiFKzrBv7xR1SjA+W8DeTJaeXmHRTzT75rovvH2GUvP

RUMyGKfp1MXIFzyU5FA4xgPVPve2K/+P

-----END RSA PRIVATE KEY-----

我的问题是如何解决这个问题 ，或者有关于这些方法的文档可以阅读吗？

Indy服务器的OpenSSL版本1.0.2。

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