function RSA_decrypt(var tmp:PAnsiChar):PAnsiChar ; stdcall;
var
rsa: PRSA;
key: PBIO;
pkey: PEVP_PKEY;
keysize :Integer;
ret,P_en:PChar;
begin
key := BIO_new(BIO_s_file());
BIO_read_filename(key,'c:\publickey.txt');
pkey := PEM_read_bio_PUBKEY(key,pkey,nil,nil);
rsa := EVP_PKEY_get1_RSA(pkey);
keysize := RSA_size(rsa);
P_en:=allocmem(keysize+1);
FillMemory(P_en,SizeOf(P_en),0);
//RSA_public_decrypt(keysize,tmp,ret,rsa,RSA_PKCS1_PADDING);
RSA_public_encrypt(keysize,tmp,P_en,rsa,RSA_PKCS1_PADDING);
Result:=P_en;
// RSA_free(rsa);
end;
呼叫有問題，一直回傳空，不知道哪里的問題。。解密有內容后直接就崩潰
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91713.html
標籤：語言基礎/算法/系統設計
上一篇：64位win7旗艦版使用matlab2014a使用mcc指令時報錯Warning: Duplicate directory name:
下一篇：奇怪的情況，我用delphi7和sql2005寫了個程式，長時間放置后，第一次讀不出資料，第二次才行，不知道什么情況？