<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
Dim MbrId As String = "0"
'Banka tarafından verilen kurum numarası
Dim purchaseAmount As String = Format(Session("amount"), "0.00").Replace(",", ".")
'İşlem tutarı
Dim posturl As String = Session("Bank3dGetWayAddress")
Dim currency As String = "949"
' Kur Bilgisi - 949 TL
Dim orderId As String = ""
'Sipariş Numarası
Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemeodeabank.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/3dodemeodeabank.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/3dodemeodeabank.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/3dodemeodeabank.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()
'Her işlemde değişen bir değer olmalıdır
Dim userCode As String = Session("GetwayUserName")
'Api Kullanici Adi
Dim userPass As String = Session("GetwayPassword")
'Api Parolasi
Dim installmentCount As String = "0"
'Taksit sayısı
Dim txnType As String = "Auth"
' İşlem tipi
Dim merchantPass As String = Session("GetwayPosNo")
'İş yeri anahtarı
Dim str As String = MbrId & orderId & purchaseAmount & okUrl & failUrl & txnType & installmentCount & rnd & merchantPass
Dim merchantID As String = Session("GetwayId")
Dim sha As System.Security.Cryptography.SHA1 = New System.Security.Cryptography.SHA1CryptoServiceProvider()
Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(str)
Dim hashingbytes As Byte() = sha.ComputeHash(bytes)
Dim hash As String = Convert.ToBase64String(hashingbytes)
' merchantpass açık şekilde gönderilmez. Hash değerine eklenerek sunucunun hash i kontrol etmesi sağlanır
Dim cstIp As String = Request.ServerVariables("REMOTE_ADDR")
%>