Substitute for openssl command

[Rui Francisco]

Hi,

I'm trying to implement the following code to substitute the following
openssl command

openssl dgst -sha1 -sign myKey.pem something.txt | openssl enc -base64

I'm using Delphi and the Opensll lib developed by Marco Ferrante
(http://www.disi.unige.it/person/FerranteM/delphiopenssl/)

The code is producing the hash '6676627A363352673862555A4D69464432376969'

instead of

Am1K5+CP4LDNVDZYvcLYGpnu8/1b+WWkzgoe8sbZhvk6QFzFvNN77Zsq+cHNm52jCVSEDgWLGHgPS1wcT8ZG7w6KgVq+2/VgOU+xKNt0lcC3gouyarZvcZpZclIReDgLh6m3nv8DYYHKAOQc+eCi/BQ4LqUnuJrca+7emgb/kpU=

Does anybody have any suggestions on what i am doing wrong ?

Thank you
Rui Francisco

var
mdLength, b64Length: integer;
Len: cardinal;
mdctx: EVP_MD_CTX;
inbuf, outbuf: array [0..1023] of char;
memout, b64: pBIO;
mdValue: array [0..EVP_MAX_MD_SIZE] of byte;

key: pEVP_PKEY;
msg : String;
begin
msg:='2010-05-18;2010-05-18T11:22:19;FAC 001/14;3.12; ';
StrPCopy(inbuf, msg);
InitOpenSSL;
key:=ReadPrivateKey('private_key.txt','');
EVP_DigestInit(@mdctx, EVP_sha1());
EVP_DigestUpdate(@mdctx, @inbuf, StrLen(inbuf));
EVP_DigestFinal(@mdctx, @outbuf, Len);

b64 := BIO_new(BIO_f_base64);
memout := BIO_new(BIO_s_mem);
b64 := BIO_push(b64, memout);
BIO_write(b64, @outbuf, Len);
BIO_flush(b64);
b64Length := BIO_read(memout, @outbuf, 1024);
outbuf[b64Length-1] := #0;

FreeOpenSSL;

BinToHex(outbuf, inbuf,Len);
inbuf[2*Len]:=#0;
result:= StrPas(inbuf);

end;

--
Rui Francisco - black...@gmail.com
São João dos Montes - Portugal
Tel: +351 934162200
-----------------------------------------------------

______________________________________________________________________
OpenSSL Project http://www.openssl.org
Development Mailing List opens...@openssl.org
Automated List Manager majo...@openssl.org