<%@ Page Language="vb" SmartNavigation="false" AutoEventWireup="true" ValidateRequest="false" EnableViewStateMac="false" EnableViewState="false" CodeBehind="3dformpaynetapi.aspx.vb" Inherits="._3dformpaynetapi" %>
3D Ödeme Sayfası
<%
'Session("amount") = 500 / 2
Dim currency As String = "949" ' 949 - test için 792
Dim amount As String = Format(Session("amount"), "0.00").Replace(",", ".")
Dim clientId As String = Session("GetwayId")
Dim CvcNumber As String = Session("CvcNumber")
Dim cardNumber As String = Session("CardNumber")
Dim cardHolderName As String = Session("CardHolderName")
Dim ExpYear As String = Session("ExpYear")
Dim ExpMonth As String = Session("ExpMonth")
Dim clientName As String = Session("GetwayUserName")
Dim clientPass As String = Session("GetwayPassword")
Dim posturl As String = Session("Bank3dGetWayAddress")
Dim Section As Integer = Session("Section")
'Banka tarafından mağazaya verilen iş yeri numarası
Dim oid As String = Session("NextOrderId") ' //Sipariş numarası 81.215.218.117
'Dim okUrl As String = BaseUrl & "/store/banks3d/3dodeme.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
'Dim failUrl As String = BaseUrl & "/store/banks3d/3dodeme.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
'ssl olmadan
Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemepaynetapi.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
Dim failUrl As String = BaseUrl & "/store/banks3d/3dodemepaynetapi.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
'ssl
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
okUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemepaynetapi.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
failUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemepaynetapi.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
End If
Dim instalment As String = IIf(Session("Taksit") = "0", "", Session("Taksit"))
Dim rnd As String = DateTime.Now.ToString() ' //Güvenlik ve kontrol amaçlı tarih yada sürekli değişen bir değer
Dim storekey As String = Session("Key3D") ' //işyeri anahtarı
Dim storetype As String = IIf(Session("GetwayXcip") = "", "3d", "3d_pay")
Dim hashstr As String = clientId & oid & amount & okUrl & failUrl & "Auth" & instalment & rnd & storekey
Dim sha As System.Security.Cryptography.SHA1 = New System.Security.Cryptography.SHA1CryptoServiceProvider()
Dim hashbytes As Byte() = System.Text.Encoding.GetEncoding("ISO-8859-9").GetBytes(hashstr)
Dim inputbytes As Byte() = sha.ComputeHash(hashbytes)
Dim hash As String = Convert.ToBase64String(inputbytes) ' //Günvelik amaçlı oluşturulan hash
'/****************** GEREKLİ PARAMETRELER *********************/
'/*************** ISTEĞE BAĞLI ALANLAR *********************************/
Dim description As String = "" '//Açıklama
Dim xid As String = "" '//İşlem takip numarası 3D için XID i mağaza üretirse o kullanir, yoksa sistem üretiyor. (3D secure işlemleri için işlem takip numarası 20 bytelik bilgi 28 karaktere base64 olarak kodlanmalı, geçersiz yada boş ise sistem tarafından üretilir.)
Dim lang As String = "" ' //gösterim dili boş ise Türkçe (tr), İngilizce için (en)
Dim email As String = "" ' //email adresi
Dim userid As String = "" '//Kullanıcı takibi için id
'/*************** ISTEĞE BAĞLI ALANLAR ********************************/
%>