为了帮助网友解决“请教Sha1WithRSA签名的问题,急”相关的问题,中国学网通过互联网对“请教Sha1WithRSA签名的问题,急”相关的解决方案进行了整理,用户详细问题包括:我使用的是D2010,openssl是1.0.0.7(其他版本也试过),libeay32.pas是从网上下载的0.9.6b
按照百度搜索的文章所说,在libeay32.pas中添加
procedure EVP_MD_CTX_init(ctx: pEVP_MD_CTX); cdecl;
procedure EVP_MD_CTX_cleanup(ctx: pEVP_MD_CTX); cdecl;
function RSA_sign(rsatype: integer; m: PCharacter; m_length: integer;
sigbuf: PCharacter; siglen: Cardinal; rsa: pRSA): integer; cdecl;
procedure EVP_MD_CTX_init; external LIBEAY_DLL_NAME;
procedure EVP_MD_CTX_cleanup; external LIBEAY_DLL_NAME;
function RSA_sign; external LIBEAY_DLL_NAME;
key文件是用openssl工具生成的,可是签名却总是报内存错误
以下是详细代码,请做过的给指点以下,
uses
libeay32, EncdDecd;
function LoadPrivateKey(filename: AnsiString): PEVP_PKEY;
var
bp: PBIO;
A, pkey: PEVP_PKEY;
begin
A := nil;
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, PAnsiChar(filename));
pkey := PEM_read_bio_PrivateKey(bp, A, nil, NIL);
BIO_free(bp);
Result := pkey;
end;
function Sign(filename, msg: AnsiString): string;
var
ctx: EVP_MD_CTX;
buf_in: PAnsiChar;
m_len, outl: cardinal;
pkey: PEVP_PKEY;
m, buf_out: array [0 .. 1024] of AnsiChar;
p: array [0 .. 255] of AnsiChar;
i: Integer;
begin
buf_out := '';
if filename = '' then
begin
Result := '';
Exit;
end;
ZeroMemory(@m, SizeOf(m));
ZeroMemory(@buf_out, SizeOf(buf_out));
pkey := LoadPrivateKey(filename);
buf_in := PAnsiChar(msg);
EVP_MD_CTX_init(@ctx); // 初始化
EVP_SignInit(@ctx, EVP_sha1());
EVP_SignUpdate(@ctx, buf_in, Length(buf_in));
EVP_DigestFinal(@ctx, m, m_len);
RSA_sign(EVP_sha1()._type, m, m_len, buf_out, outl, pkey.pkey.rsa); //<---------------此处报错
{
---------------------------
Project1
---------------------------
Access violation at address 67A93071 in module 'libeay32.dll'. Read of address EF96BD97.
---------------------------
确定
---------------------------
}
EVP_MD_CTX_cleanup(@ctx);
Result := EncodeString(StrPas(buf_out));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenSSL_add_all_algorithms;
Sign('d:\rsa_private_key.pem', '123456');
end;,具体解决方案如下:
解决方案1:
我也弄了2个星期才搞定!首先感谢star1010 提供的2个函数!
第一步:下载indy9 支持ssllib 的2个DLL。CSDN有!
第二步:网上百度libeay32.pas
第三步:修改libeay32.pas,自己添加 procedure EVP_MD_CTX_init(ctx: pEVP_MD_CTX); cdecl;
procedure EVP_MD_CTX_cleanup(ctx: pEVP_MD_CTX); cdecl;
function RSA_sign(len:integer;_m:PCharacter;_m_length:integer; from: PCharacter; _to: pointer; rsa: pRSA): integer; cdecl;
第四步:就是DELPHI代码了:
function LoadPrivateKey(filename:string ): PEVP_PKEY;
var
bp : PBIO ;
A,pkey :PEVP_PKEY ;
begin
a:=nil;
bp := BIO_new(BIO_s_file()) ;
BIO_read_filename(bp, PChar(filename));
pkey := PEM_read_bio_PrivateKey(bp, a, nil,NIL);
BIO_free(bp);
Result:= pkey;
end;
function Sign(filename,msg : String):string;
var
ctx : EVP_MD_CTX ;
buf_in:Pchar;
m_len,outl :cardinal;
pKey : PEVP_PKEY;
m,buf_out:array [0..1024] of char;
p:array [0..255] of char;
i:Integer;
begin
buf_out:='';
if filename='' then
begin
Result:='';
Exit;
end;
pKey := LoadPrivateKey(filename);
buf_in := PChar(msg);
EVP_MD_CTX_init(@ctx); //初始化
EVP_SignInit(@ctx,EVP_sha1()); //将需要使用的摘要算法存入ctxl中
EVP_SignUpdate(@ctx,buf_in,Length(buf_in));//存入编码值
EVP_DigestFinal(@ctx,m,m_len); //求取编码的长度为m_len摘要值存入m中
rSA_sign(EVP_sha1()._type,m,m_len,buf_out,@outl,pkey.pkey.rsa); //64为SHA1的NID
EVP_MD_CTX_cleanup(@ctx);
Result:=EncodeString(StrPas(buf_out)) ;
出来的结果和淘宝提供的签名工具一致!
一开始我也是报错!你用的是indy几?我用的是9,要下载特定的2个库
解决方案2:
原来是跟openssl动态库有关,换了好多dll,终于找着一个0.9.8的能用,浪费我这么多时间。
非常感谢shadowpj!!