berayan 90 ارسال شده در 5 آبان، ۱۳۹۵ اشتراک گذاری ارسال شده در 5 آبان، ۱۳۹۵ سلام و با احترام دوستان گرامی بنده از یکی از روش های بچه های انجمن استفاده کردم برای ضد هک کردن درون پرداخت . ولی یه مشکل وجود داره در بعضی از گوشی ها به صفحه بازار میره و عملیات خرید انجام میشه و در بعضی گوشی ها پیام هک میده و به صفحه بازار نمیره در صورتی که هیچ هکی انجام نمیشه کد رامیزارم یه نگا بندازید . البنته کدا رو ویرایش کردم . قبلا که ویرایش نبود همین مشکلو داشتم. کلا کار کردش یکی هست دوستان کسی میدونه لطفا راهنمایی کنه ... با تشکر #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 '_____________________________________________________________________________________ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Negan 1,300 ارسال شده در 5 آبان، ۱۳۹۵ اشتراک گذاری ارسال شده در 5 آبان، ۱۳۹۵ خب عزیز جان این روش توی اندروید 6 دیگه جواب نمیده و بیاید با چک کردن ورژن اس دی کا بگین که برای بالای Api 23 از پرداخت معمولی استفاده بکنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
berayan 90 ارسال شده در 5 آبان، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 5 آبان، ۱۳۹۵ سلام و تشکر اما دوست عزیز من که هرچی تو انجمن گشتم کدی در این رابطه پیدا نکردم . اگر ممکنه لطفا کد گرفتن نسخه api رو بنویسید . لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
HS71 78 ارسال شده در 5 آبان، ۱۳۹۵ اشتراک گذاری ارسال شده در 5 آبان، ۱۳۹۵ در 9 دقیقه قبل، berayan گفته است : سلام و تشکر اما دوست عزیز من که هرچی تو انجمن گشتم کدی در این رابطه پیدا نکردم . اگر ممکنه لطفا کد گرفتن نسخه api رو بنویسید . سلام، کتابخانه phone رو فعال کنید dim p as phone با این دستور هم چک کنید: if p.sdkversion= 23 then end if لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امین پوراباذری 1,045 ارسال شده در 5 آبان، ۱۳۹۵ اشتراک گذاری ارسال شده در 5 آبان، ۱۳۹۵ در 1 ساعت قبل، HS2002 گفته است : سلام، کتابخانه phone رو فعال کنید dim p as phone با این دستور هم چک کنید: if p.sdkversion= 23 then end if sdk > 22 یا sdk >= 23 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
berayan 90
سلام و با احترام
دوستان گرامی بنده از یکی از روش های بچه های انجمن استفاده کردم برای ضد هک کردن درون پرداخت .
ولی یه مشکل وجود داره
در بعضی از گوشی ها به صفحه بازار میره و عملیات خرید انجام میشه
و در بعضی گوشی ها پیام هک میده و به صفحه بازار نمیره در صورتی که هیچ هکی انجام نمیشه
کد رامیزارم یه نگا بندازید . البنته کدا رو ویرایش کردم . قبلا که ویرایش نبود همین مشکلو داشتم. کلا کار کردش یکی هست
دوستان کسی میدونه لطفا راهنمایی کنه ...
با تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.