Find Jobs
Hire Freelancers

cbverify

$30-100 USD

Closed
Posted about 15 years ago

$30-100 USD

Paid on delivery
**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 ? ? ? ?
Project ID: 3890093

About the project

Remote project
Active 15 yrs ago

Looking to make some money?

Benefits of bidding on Freelancer

Set your budget and timeframe
Get paid for your work
Outline your proposal
It's free to sign up and bid on jobs

About the client

Flag of
0.0
0
Member since May 11, 2009

Client Verification

Other jobs from this client

318798 Clickbanb ipn ez1hour
N/A
Thanks! We’ve emailed you a link to claim your free credit.
Something went wrong while sending your email. Please try again.
Registered Users Total Jobs Posted
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Loading preview
Permission granted for Geolocation.
Your login session has expired and you have been logged out. Please log in again.