Hi. Im trying decrypt an rsa pkcs1 string with private key

Question

FreePascal & Lazarus

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔

Hi. Im trying decrypt an rsa pkcs1 string with private key

file with openssl unit . But after days not successful to do . Any one have example code ?

#english #lazarus #programming

0

26.02.2024

8 ответов

13 просмотров

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔 Автор вопроса

Elias C. S.
Do you have a C language working example? We can h...

no . but i write code based on c examples . almost all c example was about to read key in bio format and then get rsa key ... . this is the code but im dont know whats the problem of this code program project1; uses Classes, SysUtils, openssl, base64; function DecryptRSA(const EncryptedData: ansistring; const PrivateKey: ansistring): ansistring; var RSAKey: pRSA; Bio: pBIO; DecryptedLen: integer; DecryptedData: array of byte; begin Bio := BIO_new_mem_buf(@PrivateKey[1], Length(PrivateKey)); RSAKey := PEM_read_bio_PrivateKey(Bio, nil, nil, nil); SetLength(DecryptedData, RSA_size(RSAKey)); DecryptedLen := RSA_private_decrypt(Length(EncryptedData), @EncryptedData[1], @DecryptedData[0], RSAKey, RSA_PKCS1_PADDING); Result := ansistring(Copy(ansistring(DecryptedData), 1, DecryptedLen)); end; var EncryptedString, PrivateKey: ansistring; DecryptedString: ansistring; begin EncryptedString := DecodeStringBase64('...'); PrivateKey := '...'; DecryptedString := DecryptRSA(EncryptedString, PrivateKey); WriteLn('Decrypted Data: ', DecryptedString); end.

0

2 месяца назад

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔 Автор вопроса

Elias C. S.
Do you have a C language working example? We can h...

this was c example https://hayageek.com/rsa-encryption-decryption-openssl-c/

0

2 месяца назад

Elias C. S.

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔
this was c example https://hayageek.com/rsa-encryp...

Will take a look and try to help you

0

2 месяца назад

Elias C. S.

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔
no . but i write code based on c examples . almos...

What error are you getting?

0

2 месяца назад

Elias C. S.

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔
this was c example https://hayageek.com/rsa-encryp...

Did you know this example: https://github.com/fpc/FPCSource/blob/main/packages/openssl/examples/genkeypair.lpr

0

2 месяца назад

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔 Автор вопроса

Elias C. S.
Will take a look and try to help you

thank you 🙏 actually i write code that worked and only problem is code working by not the way should be . take look at this topic i created https://forum.lazarus.freepascal.org/index.php?topic=66394.0 the problem is the way that get rsa from EVP_PKEY

0

2 месяца назад

𐇔 𐌁𐌉𐌔𐌂𐌵𐌉𐌕 𐇔 Автор вопроса

Elias C. S.
Did you know this example: https://github.com/fpc...

this example is generate rsa key and assigned to EVP_PKEY we need to do reverse : load key to EVP_PKEY and get its rsa

0

2 месяца назад

Elias C. S. · Accepted Answer

Elias C. S.

Do you have a C language working example? We can help you translate it to Pascal...

0

2 месяца назад

169 похожих чатов

Hi. Im trying decrypt an rsa pkcs1 string with private key

8 ответов

Похожие вопросы