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;
调用有问题,一直返回空,不知道哪里的问题。。解密有内容后直接就崩溃。