**All work done in asp.net vb
Key= CB "SECRET KEY"**
* **Read Clickbank ipn**
* **Get "key", item, customer name, receipt**
* **? Verify "key" Example key with CB= "TOMCAT"**
* **Open page only if "secret key" is the same**
* **Redirect if invalid**
* **Write to browswer "Variable customer name", Thanks for purchasing (Variable item)."**
* **insert-write (cbrept) to asp.net textbox (txtcbrept) in read only**
* **insert-write (cbrept) to asp.net textbox (txtcbrept) in read only**
* **insert-write (cbrept) to asp.net textbox (txtcbrept) in read only**
**Read code structure in detail**
## Deliverables
Clickbank HTTP sent to this page
This is how the header looks: (This page intential not working, example only)
<[login to view URL]>
With every transaction ClickBank passes nine query string parameters to your Thank You Page. The nine are listed below. You can use this data to personalize the messaging on your Thank You Page. For example, you could say "Welcome [Customer's Name]." Personalizing data on the thank you page can enhance customer satisfaction by creating a heightened sense of security about the purchase.
ClickBank receipt number (cbreceipt)
Epoch time of the order (time & seconds)
ClickBank item number (item)
ClickBank proof of purchase (cbpop)
Customer name (cname)
Customer e-mail (cemail)
Customer zip (czip) **New!**
Customer country (ccountry) **New!**
Affiliate nickname (cbaffi)
Vendor variables (up to 128 characters)
Clickbank (CB) ASP.NET IPN code:
**VB.NET SOURCE:**
Public Function cbValid(ByVal receipt As String, ByVal time As String, ByVal item As String, ByVal cbpop As String) As Boolean
? ? ? Dim key As String = "YOUR SECRET KEY"
? ? ? Dim sha As New SHA1CryptoServiceProvider()
? ? ? Dim mash As String = key & "|" & receipt & "|" & time & "|" & item
? ? ? Dim result() As Byte = [login to view URL](New [login to view URL]().GetBytes(mash))
? ? ? Dim xxpop As String = [login to view URL](result).Replace("-", "").ToUpper().Substring(0, 8)
? ? ? Return [login to view URL](xxpop)
End Function
? ? ? ?