<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
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 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/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
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
okUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodeme.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/3dodeme.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
End If
Dim rnd As String = DateTime.Now.ToString() ' //Güvenlik ve kontrol amaçlı tarih yada sürekli değişen bir değer
Dim islemtipi As String = "Auth"
Dim storekey As String = Session("Key3D") ' //işyeri anahtarı
Dim storetype As String = "3d_pay"
Dim installementCount As String = IIf(Session("Taksit") = 0, "", Session("Taksit"))
Dim hashstr As String = clientId & oid & amount & okUrl & failUrl & islemtipi & installementCount & 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 ********************************/
%>