تولید کد فعالسازی به روشی ساده

[مجید آرتا 5,874]

به نام خدا

سلام

امیدوارم عزیزان بنده خوب و خوش و سلامت باشن

از اینکه کم ایفای نقش می کنم یک عذر خواهی به دوستان گل بدهکارم

خب بنده اینجا می خوام یک ذهنیتی برای شما در راستای کد فعالساری ایجاد کنم و کدها و پروژه رو در اختیارتون میزارم

هدف از ایجاد کد فعالسازی فروش اون نرم افزار به چندین نفر و عدم استفاده رایگان برنامه

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

در اینجا بنده کد مهم و نادری رو ننوشتم و فقط قصدم از این پست ایجاد یک ذهنیتی واسه شماست

عکسی از برنامه :

و کدهای برنامه به صورت زیر است(پروژه رو به صورت کامل پیوست کردم و میتونبد دانلود کنبد) :

Sub Globals


Dim Reg_Word As Object : Reg_Word="Basic4Android.Org"
   Private reg_txt As EditText
   Private ac_txt1 As EditText
   Private ac_txt2 As EditText
   Private ac_txt3 As EditText
   Dim MyBool As Boolean : MyBool=False
   Dim counter As Int : counter=0
   Dim put As Int
End Sub


Sub Activity_Create(FirstTime As Boolean)


   Activity.LoadLayout("Active")

End Sub





Sub Active_Create1(text1 As EditText)
Dim ch(5) As Char
Dim str As String
For j=1 To 5
Dim char1 As Char=Chr(Rnd(33,127))
ch= Array As Char(char1)
   For k=0 To ch.Length -1
       str= str & ch(k)
       text1.Text=str
   Next
Next
End Sub
Sub Active_Create2(text1 As EditText)
Dim ch(5) As Char
Dim str As String
For j=1 To 5
Dim char1 As Char=Chr(Rnd(33,127))
ch= Array As Char(char1)
   For k=0 To ch.Length -1
       str= str & ch(k)
       text1.Text=str
   Next
Next
End Sub
Sub Active_Create3(text1 As EditText)
Dim ch(5) As Char
Dim str As String
For j=1 To 5
Dim char1 As Char=Chr(Rnd(33,127))
ch= Array As Char(char1)
   For k=0 To ch.Length -1
       str= str & ch(k)
       text1.Text=str
   Next
Next
End Sub
Sub reg_btn_Click
   If reg_txt.Text=Reg_Word Then
      MyBool=True
      Msgbox("فعالسازی با موفقیت انجام شد","فعالسازی")
   Else
       If put<3 Then
           counter = counter + 1
           put=counter
           Msgbox("کد فعالسازی صحیح نمی باشد","بروز خطا")
       Else
           Msgbox("به دلیل وارد کردن کد فعالسازی نا درست برنامه مسدود می شود","بروز خطا")
           ExitApplication
       End If
   End If
End Sub
Sub ac_btn_Click
Try
   If MyBool=True Then
   Active_Create1(ac_txt1)
   Active_Create2(ac_txt2)
   Active_Create3(ac_txt3)
   Else
   ac_txt1.Text=""
   ac_txt2.Text=""
   ac_txt3.Text=""
   reg_txt.RequestFocus
   End If
Catch
Log("خطا")
End Try
End Sub

به کدها توجه کنید هیچ کد مشکل و سختی وجود نداره،فقط میاد بعد از 3بار اشتباه وارد کردن برنامه رو می بنده و پیغام مسدود شدن میده

شما با یکم تلاشو خلاقیت می تونید این کدو قوی و توی برنامه هاتون استفاده کنید.برنامه تا زمانی که رجیستر نشه کد فعالسازی تولید نمیکنه یعنی باید MyBool برابر بشه با True تا کد تولید بشه

خب اگه کمی کاستی وجود داره ببخشید دیگه

رمز فایل : basic4android.org

موفق باشید

Active Code.rar

[ارمین رمضانی دلیجانی 381]

مجید جان عالیه اما سورس رو 2 بار توش گذاشتی حجم فایل شد 2 مگابایت

[kh11 22]

داداش دستت درد نکنه

فقط میشه یه توضیح بدی که چطوری باید براش کد فعال کنید و .... من اجراش کردم راستیتش ازش سر در نیاوردم یه توضیح کامل بده که چطوری کدو تولید کنیم و در برنامه بذاریمش مرسی

[hamid 30]

با توجه به امنیت جاوا و ریسورس شدن آن کرکش ساده است

[mohammad-alone 564]

خوب میتونید تو فرآیند تولید کد از الگوریتمهای موجود استفاده کنید دوست خوبم.

این فقط یه شروعه

[199069 12]

چه کد خوبی دست درد نکنه

[jeqele 563]

به نظرم بهترین حالت فعال سازی اینه که شما تو دیتابیس هاستینگتون یه tabel کد فعالسازی بسازی که از گوشی بتونی با وارد کردن کد تو tabel چکش کنی و در صورت صحیح بودن با استفاده از سریال گوشی نرم افزارو رجیستر کنی.... فقط باید تو دیتابیس برای هر سریال یا کد یه کد hash هم بسازی که با php سمت سرور امکان پذیره... با httputils, jason و mysql برای سمت سرور آشنا باشین خوبه نمونه کارو هم میتونید تو نرم افزار gps ای که تو نرم افزارا گذاشتم ببینید.