<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="3dform_ipara_api.aspx.vb"
Inherits="._3dform_ipara_api" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<%
Dim tarih As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
Dim privatekey As String = Session("GetwayUserName")
Dim publicKey As String = Session("GetwayId")
Dim oid As String = Session("NextOrderId")
Dim amount As String = [String].Format("{0:0.00}", Session("amount")).Replace(",", "")
Dim Installment As String = IIf(Session("Taksit") = 0, 1, Session("Taksit"))
Dim Mode As String = "P"
If ConfigurationManager.AppSettings("IsTest") = "True" Then
Mode = "T"
End If
Dim CardOwnerName As String = Session("CardHolderName")
Dim CardNumber As String = Session("CardNumber")
Dim CardExpireMonth As String = Session("ExpMonth")
Dim CardExpireYear As String = Session("ExpYear")
Dim Cvc As String = Session("CvcNumber")
Dim successUrl As String = BaseUrl & "/store/banks3d/3dodeme_ipara_api.aspx"
Dim failureUrl As String = BaseUrl & "/store/banks3d/3dodeme_ipara_api.aspx"
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
successUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodeme_ipara_api.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
failureUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodeme_ipara_api.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
End If
Dim tmpOrder As New TempOrder
Dim UserId As String = ""
Dim UserName As String = ""
If HttpContext.Current.User.Identity.IsAuthenticated() Then
UserId = Context.User.Identity.Name.Split("|")(0)
If IsNumeric(UserId) Then
Dim ua As New ASPNetPortal.UsersDB
Dim dr As SqlDataReader
dr = ua.GetUserIndirim(UserId)
dr.Read()
UserName = ChkNullString(dr(3))
dr.Close()
End If
End If
If Session("TempOrder") Is Nothing Then 'Or MyList.Items.Count < 1 Then
Dim usr As New UsersDB
Dim dr As SqlDataReader = usr.GetSingleUser(CInt(UserId))
dr.Read()
tmpOrder.ShippingInfo.Mail = ChkNullString(dr("Email"))
tmpOrder.BillingInfo.MobilePhone = ChkNullString(dr("MobilePhone"))
tmpOrder.BillingInfo.TaxNo = ChkNullString(dr("CompanyVdNo"))
tmpOrder.BillingInfo.Address = ChkNullString(dr("Addres"))
tmpOrder.BillingInfo.CityName = ChkNullString(dr("CityId"))
tmpOrder.BillingInfo.TaxOffice = ChkNullString(dr("CompanyVd"))
tmpOrder.BillingInfo.CompanyName = IIf(ChkNullString(dr("CompanyName"), UserName) = "", UserName, ChkNullString(dr("CompanyName"), UserName))
tmpOrder.BillingInfo.PhoneNo = ChkNullString(dr("Phone1"))
tmpOrder.ShippingInfo.Address = ChkNullString(dr("Addres"))
tmpOrder.ShippingInfo.CityName = ChkNullString(dr("CityId"))
tmpOrder.ShippingInfo.CountryName = ChkNullString(dr("CountryID"))
tmpOrder.ShippingInfo.PhoneNo = ChkNullString(dr("Phone1"))
Else
tmpOrder = Session("TempOrder")
End If
Dim Name, SurName As String
Dim mail As String = turkce(tmpOrder.ShippingInfo.Mail)
If mail = "" Then
mail = "admin@siteniz.com"
End If
Name = turkce(tmpOrder.BillingInfo.CompanyName)
SurName = turkce(tmpOrder.BillingInfo.CompanyName)
Dim hashText As String = Convert.ToString(privatekey + oid + amount + Mode + CardOwnerName + CardNumber + CardExpireMonth + CardExpireYear + Cvc + Name + SurName + mail) & tarih
Dim sha As SHA1 = New SHA1CryptoServiceProvider()
Dim hashbytes As Byte() = System.Text.Encoding.UTF8.GetBytes(hashText)
Dim inputbytes As Byte() = sha.ComputeHash(hashbytes)
Dim token As String = publicKey + ":" + Convert.ToBase64String(inputbytes)
Dim builder As New StringBuilder()
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append((Convert.ToString("")
builder.Append((Convert.ToString("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("")
builder.Append("