a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) '32byte
'MD5 = LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
End Function
%>
2.send.asp
<!--#include file="md5.asp"-->
<%
'''''''''
' @Description: 快钱网关接口范例
' @Copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
merchant_id = request("cid") '''商户编号
merchant_key = request("mykey") '''商户密钥
orderid = request("orderid") '''订单编号
amount = request("totalmoney") '''订单金额
curr = "1" '''货币类型,1为人民币
isSupportDES = "2" '''是否安全校验,2为必校验,推荐
merchant_url = "" '''支付结果返回地址
pname = request("pname") '''支付人姓名
commodity_info = "" '''商品信息
merchant_param = "" '''商户私有参数
pemail="" '''传递email到快钱网关页面
pid="" '''代理/合作伙伴商户编号
'''生成加密串,注意顺序
ScrtStr="merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&merchant_url=" & merchant_url & "&merchant_key=" & merchant_key
mac=ucase(md5(ScrtStr))
%>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en" >
<html>
<head>
<title>快钱99bill</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312" >
</head>
<BODY onLoad="javascript:document.frm.submit()">
<form name="frm" method="post" action="https://www.99bill.com/webapp/receiveMerchantInfoAction.do">
<input name="merchant_id" type="hidden" value="<%=merchant_id%>">
<input name="orderid" type="hidden" value="<%=orderid%>">
<input name="amount" type="hidden" value="<%=amount%>">
<input name="currency" type="hidden" value="<%=curr%>">
<input name="isSupportDES" type="hidden" value="<%=isSupportDES%>">
<input name="mac" type="hidden" value="<%=mac%>">
