Delphi有个很大的问题就是,厂商的不作为(没有封装标准的Cipher类库),让大家自己造轮子。
今天的轮子就是RSA签名,由于Delphi没有封装Cipher类库,所以只的自己写了。
因为要在Firemokey中实现RSA算法,用于手机端,心里有二个方案:
1. 实现RSA算法
2. 通过Java封装一个实现了RSA的包,通过Delphi来调用
当然结果通过了1实现,参考了网上的资源,实现方式其实就是调用SSL库来实现RSA Sign, 解决的难点在于密钥的格式,及SSL库的Delphi封装(需要引用libeay32.dll, 已经有人封装了libeay32.pas)。我自己是通过Indy的源码来实现了这个方法。
网上比较有指导性的网址:http://blog.csdn.net/star1010/article/details/47809449, 关键代码如下
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)) ;
end;
如果有疑问,可以找我:13498714