payreturn.vb

C#语言制作asp.net网上商店的

                            text10 = (text10 & "&sign=" & text7)
                            Dim text11 As String = ("http://www.allbuy.cn/merchant/checkfeedback.asp?" & text10)
                            Dim reader1 As StreamReader = Nothing
                            Dim response1 As HttpWebResponse = Nothing
                            Try 
                                Dim request1 As HttpWebRequest = DirectCast(WebRequest.Create(text11), HttpWebRequest)
                                response1 = DirectCast(request1.GetResponse, HttpWebResponse)
                                Dim encoding1 As Encoding = Encoding.GetEncoding("gb2312")
                                reader1 = New StreamReader(response1.GetResponseStream, encoding1)
                                Dim text12 As String = reader1.ReadToEnd
                                If (Not text12 Is "1") Then
                                    Me.message = (Me.message & "url:" & text11)
                                    Me.message = (Me.message & ChrW(36820) & ChrW(22238) & ChrW(20449) & ChrW(24687) & ":" & text12)
                                End If
                            Catch exception1 As  Exception
                                MyBase.Response.Write((ChrW(22312) & ChrW(21040) & ChrW(26381) & ChrW(21153) & ChrW(22120) & ChrW(31471) & ChrW(39564) & ChrW(35777) & ChrW(20013) & ChrW(20986) & ChrW(29616) & ChrW(20102) & ChrW(20197) & ChrW(19979) & ChrW(38169) & ChrW(35823) & ":" & exception1.Message))
                            Finally
                                If (Not response1 Is Nothing) Then
                                    response1.Close
                                End If
                                If (Not reader1 Is Nothing) Then
                                    reader1.Close
                                End If
                            End Try
                        Else
                            Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                        End If
                    Else
                        Me.message = (ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133) & ChrW(65292) & ChrW(31995) & ChrW(32479) & ChrW(25552) & ChrW(31034) & ChrW(20026) & ChrW(65306) & MyBase.Request.Item("v_pstring"))
                    End If
                Else
                    Me.message = ChrW(26657) & ChrW(39564) & ChrW(31614) & ChrW(21517) & ChrW(38169) & ChrW(35823) & "!"
                End If
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & "AllBuy" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
            End If
        End Sub

        Private Sub chinaebank()
            Dim text1 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=11 and visible=1")
            If (Not text1 Is "err") Then
                text1 = Me.mycheck.hishoppass_creatDNPASS(text1)
                Dim text2 As String = MyBase.Request.Item("v_oid")
                Dim text3 As String = MyBase.Request.Item("v_pstatus")
                Dim text4 As String = MyBase.Request.Item("v_pstring")
                Dim text5 As String = MyBase.Request.Item("v_pmode")
                Dim text6 As String = MyBase.Request.Item("v_amount")
                Dim text7 As String = MyBase.Request.Item("v_moneytype")
                Dim text8 As String = MyBase.Request.Item("v_md5")
                Dim text9 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(String.Concat(New String() { text2, text3, text6, text7, text1 }), "md5")
                If (text8 Is text9) Then
                    If (Not text3 Is "30") Then
                        Dim textArray1 As String() = text2.Split(New Char() { "-"c })
                        Me.orderid = textArray1(2)
                        Dim obj1 As Object = Me.myshop.fantionGetvalue_object(("select state from hishop_order where id=" & Me.orderid))
                        Dim num1 As Double = 0
                        If ((Not obj1 Is DBNull.Value) AndAlso (Not obj1 Is Nothing)) Then
                            num1 = CDbl(obj1)
                        End If
                        If ((num1 = 0) OrElse (num1 = 1)) Then
                            If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text6)) Then
                                Try 
                                    Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                                    Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                                Catch obj2 As  Object
                                    Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                                End Try
                            Else
                                Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                            End If
                        Else
                            Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151)
                        End If
                    Else
                        Me.message = ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133)
                    End If
                Else
                    Me.message = ChrW(26816) & ChrW(39564) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                End If
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & ChrW(32593) & ChrW(38134) & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488)
            End If
        End Sub

        Private Sub cncard()
            Dim text1 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=16 and visible=1")
            If (Not text1 Is "err") Then
                text1 = Me.mycheck.hishoppass_creatDNPASS(text1)
                Dim text2 As String = MyBase.Request.Item("c_mid")
                Dim text3 As String = MyBase.Request.Item("c_order")
                Dim text4 As String = MyBase.Request.Item("c_orderamount")
                Dim text5 As String = MyBase.Request.Item("c_ymd")
                Dim text6 As String = MyBase.Request.Item("c_moneytype")
                Dim text7 As String = MyBase.Request.Item("C_transnum")
                Dim text8 As String = MyBase.Request.Item("C_succmark")
                Dim text9 As String = MyBase.Request.Item("C_cause")
                Dim text10 As String = MyBase.Request.Item("c_signstr")
                Dim text11 As String = MyBase.Request.Item("c_memo1")
                Dim text12 As String = MyBase.Request.Item("c_memo2")
                Dim text13 As String = String.Concat(New String() { text2, text3, text4, text5, text7, text8, text6, text11, text12, text1 })
                Dim text14 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text13, "md5").ToLower
                If (text10 Is text14) Then
                    If (text8 Is "Y") Then
                        Me.orderid = text3
                        If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text4)) Then
                            Try 
                                Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                                Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                            Catch obj1 As  Object
                                Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                            End Try
                        Else
                            Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                        End If
                    Else
                        Me.message = (ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133) & ChrW(65292) & ChrW(31995) & ChrW(32479) & ChrW(25552) & ChrW(31034) & ChrW(20026) & ChrW(65306) & text9)
                    End If
                Else
                    Me.message = ChrW(26657) & ChrW(39564) & ChrW(31614) & ChrW(21517) & ChrW(38169) & ChrW(35823) & "!"
                End If
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & ChrW(20113) & ChrW(32593) & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
            End If
        End Sub

        Private Sub InitializeComponent()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Page_Load)
        End Sub

        Private Sub ipay()
            Dim encoding1 As Encoding = Encoding.GetEncoding("gb2312")
            Dim buffer1 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_mid"))
            Dim buffer2 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_oid"))
            Dim buffer3 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_pamount"))
            Dim buffer4 As Byte() = Convert.FromBase64String(MyBase.Request.Item("v_base64_pmode"))
            Dim buffer5 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_pstatus"))
            Dim buffer6 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_pstring"))
            Dim buffer7 As Byte() = Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_pdate"))
            Dim text1 As String = encoding1.GetString(buffer1)
            Dim text2 As String = encoding1.GetString(buffer2)
            Dim text3 As String = encoding1.GetString(buffer3)
            Dim text4 As String = encoding1.GetString(buffer4)
            Dim text5 As String = encoding1.GetString(buffer5)
            Dim text6 As String = encoding1.GetString(buffer6)
            Dim text7 As String = encoding1.GetString(buffer7)
            Dim text8 As String = encoding1.GetString(Convert.FromBase64String(MyBase.Request.Form.Item("v_base64_phpmd5")))
            Dim text9 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=6 and visible=1")
            If (Not text9 Is "err") Then
                Dim hishopcheck1 As New hishopcheck
                Dim text10 As String = String.Concat(New String() { text1, text2, text4, text5, text6, text3, text7, text9 })
                Dim text11 As String = hishopcheck1.hishopconver_string2MD5(Encoding.GetEncoding("gb2312").GetBytes(text10))
                If (text8 Is text11) Then
                    If (text5 Is "20") Then
                        Me.orderid = (Me.myshop.fantionGetvalue("select top 1 id from hishop_order order by id desc").Substring(0, 2) & text2)
                        Try 
                            Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                            Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                        Catch obj1 As  Object
                            Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                        End Try
                    Else
                        Me.message = (ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133) & ChrW(65292) & ChrW(31995) & ChrW(32479) & ChrW(25552) & ChrW(31034) & ChrW(20026) & ChrW(65306) & text6)
                    End If
                Else
                    Me.message = ChrW(26657) & ChrW(39564) & ChrW(31614) & ChrW(21517) & ChrW(38169) & ChrW(35823) & "!"
                End If
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & "IPAY" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
            End If
        End Sub

        Private Sub ipay_V301()
            Dim text1 As String = MyBase.Request.Form.Item("v_mid")
            Dim text2 As String = MyBase.Request.Form.Item("v_oid")
            Dim text3 As String = MyBase.Request.Form.Item("v_amount")
            Dim text5 As String = MyBase.Request.Form.Item("v_status")
            Dim text7 As String = MyBase.Request.Form.Item("v_date")
            Dim text8 As String = MyBase.Request.Form.Item("v_md5")
            Dim text9 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=6 and visible=1")
            If (Not text9 Is "err") Then
                text9 = Me.mycheck.hishoppass_creatDNPASS(text9)
                Dim text10 As String = String.Concat(New String() { text7, text1, text2, text3, text5, text9 })
                Dim text11 As String = Me.mycheck.hishopconver_string2MD5(Encoding.GetEncoding("gb2312").GetBytes(text10))
                If (text8 Is text11) Then
                    If (text5 Is "00") Then
                        Me.orderid = text2
                        If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text3)) Then
                            Try 
                                Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                                Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                            Catch obj2 As  Object
                                Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                            End Try