<%@ Page Language="VB" AutoEventWireup="true" %>
<%@ Import Namespace="System.Security.Cryptography.X509Certificates" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Web.UI.WebControls" %>
<%@ Import Namespace="System.Web.UI" %>
<%@ Import Namespace="FastPayApiEncryption" %>
Ödeme Sayfası
3D Ödeme Sayfası
<%
Dim EncryptedResultCode As String = FastPayApiEncryption.AesOperations.Decrypt(Request.QueryString("EncryptedResultCode").Replace(" ", "+"), ConfigurationManager.AppSettings("FastPayPassword"))
Dim EncryptedApproveCode As String = FastPayApiEncryption.AesOperations.Decrypt(Request.QueryString("EncryptedApproveCode").Replace(" ", "+"), ConfigurationManager.AppSettings("FastPayPassword"))
Dim EncryptedErrorMessage As String = FastPayApiEncryption.AesOperations.Decrypt(Request.QueryString("EncryptedErrorMessage").Replace(" ", "+"), ConfigurationManager.AppSettings("FastPayPassword"))
Dim errorcode As String = EncryptedResultCode
Dim errormessage As String = EncryptedErrorMessage
Dim result As Integer = EncryptedResultCode
If result = 0 Then
Session("SonucKodu") = "00"
Else
Session("SonucKodu") = errorcode
Session("SonucAciklamasi") = errormessage
End If
Response.Redirect(BaseUrl & "/store/orderstep3d.aspx?fastpay=" & Session("NextOrderId"))
%>