java paypal 按月扣款api

PAYPAL API说明

 

既然是Core Programmer,那么其他话就不说了,单表API,此PAYPAL的API是WEB Service,用来编程解决自定义购物车的解决方案.但其文档洋洋洒洒6,7个80大页的PDF,然而不幸的是关于需要的步骤/工具,尤其是最最需要SAMPLE CODE实在是语焉不详,真正让人头痛不已.少不得查资料,看英文.味同嚼蜡.现测试成功,不免将其记录一二.

这东西国内的朋友用的肯定很少,想想既然中文站开通,以后也许会用上也说不定.且立此存照,最少留给自己当备忘.Soap封包及XML解析的部分看代码了,不详细说了.

 

 

1.       申请PAYPAL帐户

2.       激活帐户,需要

a.       确认email地址

b.       添加信用卡资料

c.       添加开户行资料

 

3.       申请Paypal Payment Pro

a.       填写相关资料

b.       申请数字证书API Certificate Request (注意记录好API NAME,类似于xxx_api1.domain.name以及Password)

c.       下载数字证书

4.  转换为.p12证书文件

a.       下载的数字证书应该名为cert_key_pem.txt

b.       将其用NOTEPAD打开,将-----BEGIN RSA PRIVATE KEY-----到-----END RSA PRIVATE KEY-----拷贝出来另存为一个文件,例如yourdomain_key.pem

c.       将其用NOTEPAD打开,将-----BEGIN CERTIFICATE----到-----END CERTIFICATE-----拷贝出来另存为一个文件,例如yourdomain_cer.pem

d.       到http://www.paypaltech.com/tools/pem2p12.php转换为.p12文件. 也可用OpenSSL的命令行程序完成,不过太过复杂,恐怕没有人有耐心看完,就不介绍了.

 

 

5.  安装.p12证书文件

    a.  找到winhttpcertcfg实用程序,可用search,因为OS的不同,位置可能会有不同.

        我的OS是win2003是在C:/Program Files/Windows Resource Kit/tools下.

        若不同,应在Inetpub/wwwroot/Certificate/下

    b.  有两种不同的安装方法.建议用第一种

  

 

 

第一种:命令行

winhttpcertcfg -g -c LOCAL_MACHINE/My -s xxxxxxxxxx_api1.xxxxxxxxx.com -a Everyone 

执行完命令后,会看到如下信息,这就说明安装正确了.

Microsoft® WinHTTP Certificate Configuration Tool
Copyright® Microsoft Corporation 2001.

Matching Certificate:
C=xx
S=xx
L=xxxxxxxxx
OU=xxxxxxxx
O=xxxxxxx
CN= xxxxxxxxxx_api1.xxxxxxxxx.com
 
第二种:命令行WinHttpCertCfg -i AccountName.p12 -p Export Password -c 
LOCAL_MACHINE/my -a aspnet 
注意: 这个 Export Password 是生成.p12文件时所需要的密码.看到上面信息说明安装正确.
 
6.生成一个ASP文件.
本来这种WEB Service是用JAVA/.NET访问有成熟的工具的类库.
ASP使用VBScript来用的话,只好用变通的方法.
需要MS XML 4.0 +Sp2
我的是MS XML 3.0，也能用.
直接把代码放在下面.

 
<%
'/
' THIS CODE WILL NOT WORK IF YOU DID NOT GRANT THE IUSR_MACHINENAME AND IWAM_MACHINENAME ACCOUNT ACCESS PERMISSION TO THE PAYPAL API SSL CERT, BECAUSE THOSE ARE THE ACCOUNTS THAT EXECUTE ASP3 CODE (NOT THE ASPNET ACCOUNT). WORKS LIKE A CHARM 
' IF YOU READ THE DIRECTIONS GOOD LUCK
'/

 
username = "xxxx_api1.vtecom.com"
password = "yourpassword"

 
Dim objXMLDOC
Dim objXMLDOM
Dim objXSLDOM
Dim SoapStr

 
SoapStr = "<?xml version='1.0' encoding='UTF-8'?>"
SoapStr = SoapStr & "<SOAP-ENV:Envelope "
SoapStr = SoapStr & "xmlnssd='http://www.w3.org/1999/XMLSchema '"
SoapStr = SoapStr & "xmlnssi='http://www.w3.org/1999/XMLSchema-instance' "
SoapStr = SoapStr & "xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/' "
SoapStr = SoapStr & "xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' "
SoapStr = SoapStr & "SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'>"
SoapStr = SoapStr & "<SOAP-ENV:Header>"
SoapStr = SoapStr & "<RequesterCredentials "
SoapStr = SoapStr & "xmlns='urn:ebay:api:PayPalAPI' "
SoapStr = SoapStr & "SOAP-ENV:mustUnderstand='1'>"
SoapStr = SoapStr & "<Credentials xmlns='urn:ebay:apis:eBLBaseComponents'>"
SoapStr = SoapStr & "<Username>"&username &"</Username>"
SoapStr = SoapStr & "<Password>"&password &"</Password>"
SoapStr = SoapStr & "<Subject></Subject>"
SoapStr = SoapStr & "</Credentials>"
SoapStr = SoapStr & "</RequesterCredentials>"
SoapStr = SoapStr & "</SOAP-ENV:Header>"
SoapStr = SoapStr & "<SOAP-ENV:Body>"

 
' Actions Below Here
SoapStr = SoapStr & "<DoDirectPaymentReq xmlns='urn:ebay:api:PayPalAPI'>"
SoapStr = SoapStr & "<DoDirectPaymentRequest xsi:type='nsoDirectPaymentRequestType'>"
SoapStr = SoapStr & "<Version xmlns='urn:ebay:apis:eBLBaseComponents' xsi:type='xsd:string'>1.0</Version>"
SoapStr = SoapStr & "<DoDirectPaymentRequestDetails xmlns='urn:ebay:apis:eBLBaseComponents'>"
SoapStr = SoapStr & "<PaymentAction> 
     
     
       Sale 
      
    </PaymentAction>"
SoapStr = SoapStr & "<PaymentDetails>"
SoapStr = SoapStr & "<OrderTotal currencyID='USD'>60</OrderTotal>"
SoapStr = SoapStr & "</PaymentDetails>"
SoapStr = SoapStr & "<CreditCard>"
SoapStr = SoapStr & "<CreditCardType>Visa</CreditCardType>"
SoapStr = SoapStr & "<CreditCardNumber>4250614840518960</CreditCardNumber>"
SoapStr = SoapStr & "<ExpMonth>05</ExpMonth>"
SoapStr = SoapStr & "<ExpYear>2008</ExpYear>"
SoapStr = SoapStr & "<CardOwner>"
SoapStr = SoapStr & "<PayerName>"
SoapStr = SoapStr & "<FirstName>Joe</FirstName>"
SoapStr = SoapStr & "<LastName>Smith</LastName>"
SoapStr = SoapStr & "</PayerName>"
SoapStr = SoapStr & "<Address>"
SoapStr = SoapStr & "<Street1> 
    
 
1 Main St 
</Street1>" 
SoapStr = SoapStr & "<CityName> 
     
     
       San Jose 
      
    </CityName>"
SoapStr = SoapStr & "<StateOrProvince>CA</StateOrProvince>"
SoapStr = SoapStr & "<Country> 
     
     
       US 
      
    </Country>"
SoapStr = SoapStr & "<PostalCode>95131</PostalCode>"
SoapStr = SoapStr & "</Address>"
SoapStr = SoapStr & "</CardOwner>"
SoapStr = SoapStr & "</CreditCard>"
SoapStr = SoapStr & "<IPAddress>123.123.123.123</IPAddress>"
SoapStr = SoapStr & "</DoDirectPaymentRequestDetails>"
SoapStr = SoapStr & "</DoDirectPaymentRequest>"
SoapStr = SoapStr & "</DoDirectPaymentReq>"

 
SoapStr = SoapStr & "</SOAP-ENV:Body>"
SoapStr = SoapStr & "</SOAP-ENV:Envelope>"

 

 
Set objXMLDOC = Server.CreateObject("Msxml2.ServerXMLHTTP")
Set objXMLDOM = Server.CreateObject("Msxml2.DomDocument")

 
objXMLDOC.setOption 3, "LOCAL_MACHINE/MY/" &username
objXMLDOC.SetOption 2, 13056
objXMLDOC.setTimeouts 10 * 100, 10 * 100, 10 * 100, 10 * 100

 
objXMLDOC.open "POST", "https://api.paypal.com/2.0/", False
objXMLDOC.setRequestHeader "Content-Type", "text/xml"
objXMLDOC.send (SoapStr)
objXMLDOM.async=false

 
objXMLDOM.loadXML objXMLDOC.responseText

 
Response.Write objXMLDOC.responseText

 
Set objXMLDOC = Nothing
Set objXMLDOM = Nothing
%>

 

 

7.如果仅仅需要测试的话,使用PAYPAL的沙箱(SandBox)即可.同PAYPAL的差不多.

上述代码除了修改USERNAME和PASSWORD以外,需要改https://api.paypal.com/2.0/为"https://api.sandbox.paypal.com/2.0/"