📄 payreturn.vb
字号:
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)
Select Case text5
Case "01"
Me.message = (Me.message & ChrW(26597) & ChrW(35810) & ChrW(21457) & ChrW(21345) & ChrW(26041))
Return
Case "03"
Me.message = (Me.message & ChrW(26080) & ChrW(25928) & ChrW(21830) & ChrW(25143))
Return
Case "04"
Me.message = (Me.message & ChrW(20027) & ChrW(26426) & ChrW(36229) & ChrW(26102))
Return
Case "05"
Me.message = (Me.message & "TPK" & ChrW(25110) & "TAK" & ChrW(38169) & ChrW(35823))
Return
Case "12"
Me.message = (Me.message & ChrW(20132) & ChrW(26131) & ChrW(26080) & ChrW(25928))
Return
Case "13"
Me.message = (Me.message & ChrW(26080) & ChrW(25928) & ChrW(37329) & ChrW(39069))
Return
Case "14"
Me.message = (Me.message & ChrW(26080) & ChrW(27492) & ChrW(21345) & ChrW(21495))
Return
Case "15"
Me.message = (Me.message & ChrW(21345) & ChrW(21495) & ChrW(19981) & ChrW(27491) & ChrW(30830))
Return
Case "20"
Me.message = (Me.message & ChrW(21382) & ChrW(21490) & ChrW(20132) & ChrW(26131) & ChrW(25104) & ChrW(21151))
Return
Case "23"
Me.message = (Me.message & ChrW(20313) & ChrW(39069) & ChrW(19981) & ChrW(36275))
Return
Case "25"
Me.message = (Me.message & ChrW(35843) & ChrW(24080) & ChrW(26597) & ChrW(19981) & ChrW(21040) & ChrW(21407) & ChrW(20132) & ChrW(26131))
Return
Case "29"
Me.message = (Me.message & ChrW(20132) & ChrW(26131) & ChrW(26085) & ChrW(24535) & ChrW(35760) & ChrW(24405) & ChrW(38169))
Return
Case "31"
Me.message = (Me.message & ChrW(38750) & ChrW(26412) & ChrW(31995) & ChrW(32479) & ChrW(21345))
Return
Case "33"
Me.message = (Me.message & ChrW(36807) & ChrW(26399) & ChrW(21345) & ChrW(65292) & ChrW(35201) & ChrW(27714) & ChrW(22238) & ChrW(25910))
Return
Case "34"
Me.message = (Me.message & ChrW(33310) & ChrW(24330) & ChrW(21345) & ChrW(65292) & ChrW(27809) & ChrW(25910))
Return
Case "40"
Me.message = (Me.message & ChrW(26080) & ChrW(27492) & ChrW(20132) & ChrW(26131))
Return
Case "41"
Me.message = (Me.message & ChrW(40657) & ChrW(21517) & ChrW(21333) & ChrW(21345))
Return
Case "44"
Me.message = (Me.message & ChrW(27492) & ChrW(21345) & ChrW(19981) & ChrW(25903) & ChrW(25345) & ChrW(22810) & ChrW(24080) & ChrW(25143))
Return
Case "51"
Me.message = (Me.message & ChrW(20313) & ChrW(39069) & ChrW(19981) & ChrW(36275))
Return
Case "52"
Me.message = (Me.message & ChrW(26412) & ChrW(21345) & ChrW(19981) & ChrW(25903) & ChrW(25345) & ChrW(24080) & ChrW(25143) & ChrW(36873) & ChrW(25321))
Return
Case "54"
Me.message = (Me.message & ChrW(26377) & ChrW(25928) & ChrW(26399) & ChrW(24049) & ChrW(36807))
Return
Case "55"
Me.message = (Me.message & ChrW(23494) & ChrW(30721) & ChrW(19981) & ChrW(31526))
Return
Case "56"
Me.message = (Me.message & ChrW(24314) & ChrW(34892) & ChrW(38750) & ChrW(36890) & ChrW(23384) & ChrW(36890) & ChrW(20817) & ChrW(24080) & ChrW(25143))
Return
Case "57"
Me.message = (Me.message & ChrW(19981) & ChrW(20801) & ChrW(35768) & ChrW(25345) & ChrW(21345) & ChrW(20154) & ChrW(36827) & ChrW(34892) & ChrW(30340) & ChrW(20132) & ChrW(26131))
Return
Case "61"
Me.message = (Me.message & ChrW(36229) & ChrW(20132) & ChrW(26131) & ChrW(38480) & ChrW(39069))
Return
Case "63"
Me.message = (Me.message & ChrW(36523) & ChrW(20221) & ChrW(35777) & ChrW(21495) & ChrW(30721) & ChrW(38169) & ChrW(35823))
Return
Case "65"
Me.message = (Me.message & ChrW(36229) & ChrW(25928) & ChrW(26131) & ChrW(27425) & ChrW(25968))
Return
Case "67"
Me.message = (Me.message & ChrW(20914) & ChrW(27491) & ChrW(21407) & ChrW(20132) & ChrW(26131) & ChrW(37325) & ChrW(22797))
Return
Case "76"
Me.message = (Me.message & ChrW(27492) & ChrW(21345) & ChrW(26080) & ChrW(23494) & ChrW(30721))
Return
Case "77"
Me.message = (Me.message & ChrW(27492) & ChrW(21345) & ChrW(38656) & ChrW(23494) & ChrW(30721))
Return
Case "78"
Me.message = (Me.message & ChrW(26080) & ChrW(25928) & ChrW(32456) & ChrW(31471))
Return
Case "79"
Me.message = (Me.message & ChrW(32456) & ChrW(31471) & ChrW(34987) & ChrW(20851) & ChrW(38381))
Return
Case "80"
Me.message = (Me.message & ChrW(32456) & ChrW(31471) & ChrW(26410) & ChrW(30331) & ChrW(38470))
Return
Case "91"
Me.message = (Me.message & ChrW(20195) & ChrW(29702) & ChrW(26041) & ChrW(32447) & ChrW(36335) & ChrW(20851) & ChrW(38381))
Return
Case "92"
Me.message = (Me.message & ChrW(21345) & ChrW(20013) & ChrW(24515) & ChrW(32447) & ChrW(36335) & ChrW(20256) & ChrW(36755) & ChrW(25925) & ChrW(38556))
Return
Case "95"
Me.message = (Me.message & ChrW(23494) & ChrW(30721) & ChrW(19981) & ChrW(31526))
Return
Case "96"
Me.message = (Me.message & ChrW(31995) & ChrW(32479) & ChrW(25925) & ChrW(38556) & "(" & ChrW(26080) & ChrW(27861) & ChrW(29983) & ChrW(25104) & ChrW(31995) & ChrW(32479) & ChrW(21442) & ChrW(32771) & ChrW(21495) & ")")
Return
Case "98"
Me.message = (Me.message & ChrW(23494) & ChrW(30721) & ChrW(35797) & ChrW(25506) & ChrW(65292) & ChrW(35831) & ChrW(20013) & ChrW(27490) & ChrW(20132) & ChrW(26131) & " ")
Return
Case "99"
Me.message = (Me.message & ChrW(20132) & ChrW(26131) & ChrW(22788) & ChrW(29702) & ChrW(20013))
Return
End Select
Me.message = (Me.message & ChrW(25903) & ChrW(20184) & ChrW(32593) & ChrW(20851) & ChrW(31995) & ChrW(32479) & ChrW(25925) & ChrW(38556))
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 IPS()
Dim text1 As String = MyBase.Request.Item("mercode")
Dim text2 As String = MyBase.Request.Item("billno")
Dim text3 As String = MyBase.Request.Item("amount")
Dim text4 As String = MyBase.Request.Item("date")
Dim text5 As String = MyBase.Request.Item("ipsbillno")
Dim text6 As String = MyBase.Request.Item("succ")
Dim text7 As String = MyBase.Request.Item("retencodetype")
Dim text8 As String = MyBase.Request.Item("msg")
Dim text9 As String = MyBase.Request.Item("Currency_type")
Dim text10 As String = MyBase.Request.Item("attach")
Dim text11 As String = MyBase.Request.Item("signature")
If ((((text2 Is Nothing) OrElse (text3 Is Nothing)) OrElse ((text4 Is Nothing) OrElse (text5 Is Nothing))) OrElse (((text6 Is Nothing) OrElse (text7 Is Nothing)) OrElse ((text9 Is Nothing) OrElse (text11 Is Nothing)))) Then
Me.message = ChrW(25903) & ChrW(20184) & ChrW(20449) & ChrW(24687) & ChrW(26377) & ChrW(35823) & " !"
ElseIf (Not text6 Is "Y") Then
Me.message = ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133)
Else
Dim text12 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=21 and visible=1")
If (Not text12 Is "err") Then
Dim text13 As String = Me.myshop.fantionGetvalue("select top 1 id from hishop_order order by id desc")
If (text13 Is "err") Then
text13 = "10"
Else
text13 = text13.Substring(0, 2)
End If
Me.orderid = (text13 & text2.Substring(6, 6))
Dim text14 As String = Me.mycheck.hishoppass_creatDNPASS(text12)
Dim text15 As String = String.Concat(New String() { text2, text3, text4, text6, text5, text9, text14 })
Dim text17 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text15, "MD5").ToLower
If (Not text17 Is text11) Then
Me.message = ChrW(31614) & ChrW(21517) & ChrW(39564) & ChrW(35777) & ChrW(22833) & ChrW(36133) & " !"
ElseIf 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 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(30340) & ChrW(26657) & ChrW(39564) & ChrW(22833) & ChrW(36133)
End If
Else
Me.message = ChrW(26410) & ChrW(25214) & ChrW(21040) & ChrW(29615) & ChrW(36805) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
End If
End If
End Sub
Private Function MD51(ByVal _source As String) As String
Dim provider1 As New MD5CryptoServiceProvider
Return BitConverter.ToString(provider1.ComputeHash(Encoding.Default.GetBytes(_source))).Replace("-", "").ToLower
End Function
Private Sub oips()
Me.orderid = MyBase.Request.Item("billno")
Dim text1 As String = MyBase.Request.Item("amount")
Dim text2 As String = MyBase.Request.Item("pdate")
Dim text3 As String = MyBase.Request.Item("succ")
Dim text4 As String = MyBase.Request.Item("msg")
Dim text5 As String = MyBase.Request.Item("attach")
Dim text6 As String = MyBase.Request.Item("signature")
If (text3 Is "Y") Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -