支付宝扫码支付（当面付）开发之 RSAWithSHA1 / How to integrate scanning user Alipay paycode to get payment about RSAWithSHA1?

上一篇 支付宝扫码支付（当面付）开发流程 / How to integrate scanning user Alipay paycode to get payment?

我描述一下流程，在实现过程中，发现一个问题，就是如果你用得不是阿里官方支持的开发语言（C#, Java, PHP），那么你需要自己使用处理 HTTP 请求，其中最麻烦的一步是  商户请求参数的签名串，详见签名 ，当前这里只支持 RSAWithSHA1，我这次用的是 Delphi，在网上找了一代码，比如 

 http://bbs.csdn.net/topics/391854462 

这段代码很奇怪，有时候签出来的了符不对，所以我直接用 VC2010 写了一个 DLL 直接 link OpenSSL 的 libary (这个 library 在 secret_key_tools_RSA_win 自带

int __stdcall sign_data(

        const void *buf,    /* input data: byte array */

        size_t buf_len, 

        void *pkey,         /* input private key: byte array of the PEM representation */

        size_t pkey_len,

        void *out_sig,     /* output signature block, allocated in the function */

        size_t out_sig_len) 

{

    int status = EXIT_SUCCESS;

    int rc = 1;

    SHA_CTX sha_ctx = { 0 };

    unsigned char digest[SHA_DIGEST_LENGTH];

    rc = SHA1_Init(&sha_ctx);

//if (1 != rc) { status = EXIT_FAILURE; goto end; }

    rc = SHA1_Update(&sha_ctx, buf, buf_len);

//if (1 != rc) { status = EXIT_FAILURE; goto end; }

    rc = SHA1_Final(digest, &sha_ctx);

//if (1 != rc) { status = EXIT_FAILURE; goto end; }

BIO *b = NULL;

    RSA *r = NULL;

    b = BIO_new_mem_buf(pkey, pkey_len);

    r = PEM_read_bio_RSAPrivateKey(b, NULL, NULL, NULL);

unsigned char *sig = NULL;

    unsigned int sig_len = 0;

int s = RSA_size(r);

sig = (unsigned char *)malloc(s);

//if (NULL == sig) {status = EXIT_FAILURE; goto end; }

rc = RSA_sign(NID_sha1, digest, sizeof digest, sig, &sig_len, r);

//if (1 != rc) {status = EXIT_FAILURE; goto end; }

base64_encode((char *)sig, sig_len, (char *)out_sig, out_sig_len);

return status;

}

Delphi 里

声明：

function sign_data(

  buf: PChar;

  buf_len: integer;

  pkey: PChar;

  pkey_len: integer;

  out_sig: PChar;

  out_sign_len: integer): integer;

  external 'RSAWithSHA1DLL.dll';