我正在使用delphiopenssl包装器生成.pem格式密钥文件。我正在使用生成RSA密钥示例生成这些密钥。
我需要的
两天前,我希望找到一个简单的方法来生成RSA密钥并将它们用于加密/解密一些字符串或TBytes缓冲区。现在,在搜索了每一个可能的解决方案后,我决定使用OpenSSL来完成这项工作。
我的问题
问题是我无法按照函数中输入的文件名创建文件。但我仍然得到一个名为'C'或'm'(没有扩展名)的文件,其中包含PEM格式的公钥和私钥,更奇怪的是,我给函数提供了两个文件名用于公钥和私钥。
我尝试过的
我有一个问题,如何解决这个问题或者有没有关于这些方法的文档可以阅读。
从Indy服务器获取OpenSSL版本1.0.2。
顺便提一句,我提交了一个功能请求(System.Cryptography),对于有兴趣投票的人来说。
- 我试图查找使用的openssl方法的文档,以便知道如何调试,但没有成功。
- 我尝试使用Openssl.exe命令行来做同样的事情,它可以工作,所以我知道这不是openssl的bug。
- 起初,我无法编译代码,因为出现了
[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),对于有兴趣投票的人来说。
GetCurrentDir + '\mykeys'
看起来像一个正在等待发生意外的事情。例如,如果应用程序对GetCurrentDir
返回的位置具有不足的权限,会发生什么? - MartynA