<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
'If Not Me.FindControl("head1") Is Nothing Then
' Dim head As Control = Me.FindControl("head1")
' Dim l As New Literal
' l.Text = ""
' head.Controls.Add(l)
'End If
'Dim bnkId As String = Session("bankId")
'tmpOrder.BankInfo.Bank3dGetWayAddress = ChkNullString(dr("Bank3dGetWayAddress"))
'tmpOrder.BankInfo.Key3D = ChkNullString(dr("Key3D"))
'tmpOrder.BankInfo.GetwayId = ChkNullString(dr("GetwayId"))
'Dim version = "2.0"
Dim purchAmount As String = Format(Session("amount"), "0000000000.00").Replace(",", "")
Dim exponent As String = "2" ' 2 - test için 0
Dim currency As String = "949" ' 949 - test için 792
Dim merchantID As String = Session("GetwayPosNo")
Dim posturl As String = Session("Bank3dGetWayAddress")
'Banka tarafından mağazaya verilen iş yeri numarası
Dim description As String = Session("NextOrderId") ' //Sipariş numarası 81.215.218.117
'Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemebkm.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/3dodemebkm.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/3dodemebkm.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/3dodemebkm.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/3dodemebkm.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/3dodemebkm.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 = Convert.ToBase64String(CByte(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 = "3d"
'Dim hashstr As String = clientId & oid & amount & okUrl & failUrl & 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 myByteArray As Byte()
Dim a As New System.Text.ASCIIEncoding()
myByteArray = a.GetBytes(Session("NextOrderId"))
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.)
xid = System.Convert.ToBase64String(myByteArray, 0, myByteArray.Length)
'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 ********************************/
%>