<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" Debug="true" %>
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")
'Banka tarafından mağazaya verilen iş yeri numarası
Dim oid As String = Session("NextOrderId").ToString.Substring(0,7) ' //Sipariş numarası 81.215.218.117
'ssl olmadan
Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemedenizbank.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/3dodemedenizbank.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
okUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemedenizbank.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/3dodemedenizbank.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 storekey As String = Session("Key3D") ' //işyeri anahtarı
Dim storetype As String = "3d"
Dim txnType As String = "Auth"
Dim installementCount As String = Session("Taksit")
Dim hashstr As String = clientId & oid & amount & okUrl & failUrl & txnType & installementCount & rnd & storekey
Dim sha As System.Security.Cryptography.SHA1 = New System.Security.Cryptography.SHA1CryptoServiceProvider()
Dim bytes As Byte() = System.Text.Encoding.GetEncoding("ISO-8859-9").GetBytes(hashstr)
Dim hashingbytes As Byte() = sha.ComputeHash(bytes)
Dim hash As [String] = Convert.ToBase64String(hashingbytes)
%>