<script>
var netpay = new ActiveXObject("chinapay.netpayclient");
var merid = netpay.buildKey("E:\\MY_CODEs\\netpayclient_delphi\\MerPrK808080290000001.key");
alert(merid);
var plain = '808080290000001' + '0020120318104033' + '000000000001' + '156' + '20120318' + '0001' + 'memo';
var check = netpay.sign(plain);
alert(check);
merid = netpay.buildKey("E:\\MY_CODEs\\netpayclient_delphi\\PgPubk.key");
alert(merid);
plain = '808080290000001'+ '0020120317101103'+ '000000000001'+ '156'+ '20120317'+ '0001'+ '1001';
check = '184CD943891106B8B4F4C211BBAC472332D3B77058EC656B53DFE7AA89FBE7E3E535227AEB3B6283A2C0C3FA'+
'54FB5C57D6E0C07258BCCB4C1B6289850EEDE1392D13FAB18231DB4F77B4C0AD762FCD990EBA3FF710475487'+
'BD2391B1EB667272D155170B5B4BAE2F8E1ED8DBE8C9AB5783473F1A4355856CDC2A9D8644DA5889';
if(netpay.verify(plain,check)) alert('yes'); else alert('no');
</script>
chinapay银联电子支付netpayclient签名组件delphi版源码
4星 · 超过85%的资源 需积分: 10 89 浏览量
2012-12-25
10:19:28
上传
评论 3
收藏 555KB ZIP 举报 
netpayclient_delphi.zip （29个子文件） 
netpayclient_delphi 
netpayclient.dcu 11KB ASP.~pas 5KB ChinaPay.dll 444KB test.html.bak 918B ChinaPay_TLB.~pas 7KB Unit_Des.pas 20KB FGInt.pas 74KB ChinaPay_TLB.dcu 4KB FGInt.dcu 56KB ChinaPay.dof 3KB ChinaPay.~dpr 265B ChinaPay.dpr 265B ASP.pas 5KB ChinaPay.~tlb 3KB ASP.dcu 8KB netpayclient.pas 9KB MerPrK808080290000001.key 3KB
netpayclient_delphi.zip 231KB ChinaPay.res 876B FGIntRSA.PAS 24KB Unit_Des.dcu 12KB ChinaPay.cfg 386B FGIntPrimeGeneration.PAS 29KB ChinaPay.tlb 3KB PgPubk.key 1KB ChinaPay_TLB.pas 7KB
test.html 919B regDLL.bat 21B netpayclient.~pas 9KB资源评论
q16526131822014-06-25可以做参考用。
lhwlhw2018-12-06用以学习学习是可以的
