رفتن به مطلب
  • 0

مشکل خطا هک در درون پرداخت


berayan

سوال

سلام و با احترام

دوستان گرامی بنده از یکی از روش های بچه های انجمن استفاده کردم برای ضد هک کردن درون پرداخت .

ولی یه مشکل وجود داره 

در بعضی از گوشی ها به صفحه بازار میره و عملیات خرید انجام میشه 

و در بعضی گوشی ها پیام هک میده و به صفحه بازار نمیره در صورتی که هیچ هکی انجام نمیشه

کد رامیزارم یه نگا بندازید . البنته کدا رو ویرایش کردم . قبلا که ویرایش نبود همین مشکلو داشتم. کلا کار کردش یکی هست

دوستان کسی میدونه لطفا راهنمایی کنه ...

با تشکر

 

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: false
#End Region
'_____________________________________________________________________________________
Sub Process_Globals        
    Dim oBillingManager As BillingManager3
    Private key As String = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBt6lNUNdOvHEgChr2vfM9Q0CAwEAAQ=="
    Dim adad As Int=10
    Private tm As Timer
    
End Sub
'_____________________________________________________________________________________
Sub Globals
    Dim bIsBillingSuppoted As Boolean = False
    Private Button1 As Button
    Private Label2 As Label

    
    Dim l As List
    Dim app As PackageManager
    
    Dim chk As String
End Sub
'_____________________________________________________________________________________
Sub Activity_Create(FirstTime As Boolean)

  
    oBillingManager.Initialize("BM" , key)
    Activity.LoadLayout("Buy")
    oBillingManager.DebugLogging = True 
End Sub
'_____________________________________________________________________________________
Sub Activity_Resume
    If bIsBillingSuppoted = True Then 
        Check_Products
    End If 
End Sub
'_____________________________________________________________________________________
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'_____________________________________________________________________________________ مشکل تو این قسمت اما کجاش نمیدنم _____
Sub e33bazarcheck As Boolean
  Dim ActMan As JavaObject
  Dim R As Reflector
  R.Target=R.GetContext
    ActMan = R.RunMethod2("getSystemService","activity","java.lang.String")
    Dim TaskInfo As JavaObject = ActMan.RunMethod("getRunningTasks",Array As Object(1))
    Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity")
    Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null)
   If PackageName.CompareTo("com.farsitel.bazaar")=0 Then Return True
  Msgbox(PackageName.CompareTo("com.farsitel.bazaar"),"")
    Return False
End Sub
'__________________________________________________________________________________________________
Sub Button1_Click

      Button1.Enabled=False
      Button1.Text="بارگذاری"
    If bIsBillingSuppoted = True Then
        oBillingManager.RequestPayment( "notepadplannerlock2" , "inapp" , "b44b88x9912" )
    End If
    tm.Initialize("tm",1000)
    tm.Enabled=True

End Sub
'_____________________________________________________________________________________
Sub tm_tick
    adad = adad-1
    Button1.Text=adad
    If adad=0 Then
    Button1.Enabled=True
    Button1.Text="درگاه بازار"
    tm.Enabled=False
    adad=10
    End If
End Sub
'_____________________________________________________________________________________
Sub BM_BillingSupported (Supported As Boolean, Message As String)
    If Supported = True Then 
        Log("AZ : BM IS READY")
    Else     
        Log("AZ : BM NOT READY ! ! ! ")
    End If 
    bIsBillingSuppoted = Supported
End Sub
'_____________________________________________________________________________________
Sub Check_Products
    oBillingManager.GetOwnedProducts
End Sub 
'_____________________________________________________________________________________
Sub BM_PurchaseCompleted(Success As Boolean, Product As Purchase)

    If e33bazarcheck Then
         Dim p As Purchase
        p = Product
        If Success = True Then
        If  p.ProductId ="notepadplannerlock2"  Then'AND p.DeveloperPayload = "b44b88x9912" Then        
            
            Save_IsFullVaserion("n50")
    If File.Exists(File.DirInternal , "full44ds55gff887dg" )=True Then                 
        If    File.ReadString(File.DirInternal , "full44ds55gff887dg") = "n50" Then
           ToastMessageShow("از خرید شما سپاسگزاریم",False)
           Activity.Finish
           StartActivity(dasteh)
        Else
            ToastMessageShow("دوباره امتحان کنید",False)
        End If
    Else
        ToastMessageShow("لایسنس برنامه موجود نیست",False)
    End If
           Else        
            ToastMessageShow("نا موفق بود",False)
            Label2.Text = "نا موفق بود"
            Save_IsFullVaserion("m80")
           End If 
        Else
          Log("AZ : No product ! ! ! ")
           ToastMessageShow("موفقیت آمیز نبود دوباره امتحان کنید",False)
           Save_IsFullVaserion("m80")
        End If
Else
ToastMessageShow("کاربر گرامی، لطفا حق ناشر برنامه را محفوظ نگه داشته و از هک کردن برنامه بپرهیزید. با تشکر",True)
End If
   
End Sub
      '_____________________________________________________________________________________

Sub BM_ProductConsumed(Success As Boolean, Product As Purchase)
    Log("Product ( " & Product.ProductId & " ) Consume : " & Success )
End Sub

Sub Save_IsFullVaserion(bStatus As String)
    File.WriteString( File.DirInternal , "full44ds55gff887dg" , bStatus)
End Sub
'_____________________________________________________________________________________

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

خب عزیز جان این روش توی اندروید 6 دیگه جواب نمیده 

و بیاید با چک کردن ورژن اس دی کا بگین که برای بالای Api 23 از پرداخت معمولی استفاده بکنید

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام و تشکر

اما دوست عزیز من که هرچی تو انجمن گشتم کدی در این رابطه پیدا نکردم .

اگر ممکنه لطفا کد گرفتن نسخه api رو بنویسید .

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 9 دقیقه قبل، berayan گفته است :

سلام و تشکر

اما دوست عزیز من که هرچی تو انجمن گشتم کدی در این رابطه پیدا نکردم .

اگر ممکنه لطفا کد گرفتن نسخه api رو بنویسید .

سلام، کتابخانه phone رو فعال کنید

dim p as phone

با این دستور هم چک کنید:

if p.sdkversion= 23 then

end if

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 1 ساعت قبل، HS2002 گفته است :

سلام، کتابخانه phone رو فعال کنید

dim p as phone

با این دستور هم چک کنید:

if p.sdkversion= 23 then

end if

sdk > 22 یا sdk >= 23

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...