قفل نرم افزاری ویژوال بیسیک

سلام به همگی!

قفل گذاری نرم افزاری معمولا سه مرحله داره

۱- ایجاد کد قفل روی کامپیوتر

۲- فرمول قفل

۳- چکینگ کد در زمان اجرای نرم افزار

مرحله اول توسط یک برنامه انجام میشه که بهش میگن Key Generator. این برنامه رو مینویسیم تا یک کد روی هارد دیسک کامپیوتر ایجاد کنه که بعدا بشه چکش کرد. معمولا این کد با استفاده از مشخصات کامپیوتر مثل شماره سریال هارد دیسک و یا مادربورد و یک فرمول ایجاد میشه.

مثلا این برنامه یک فایل در درایو C ایجاد میکنه که یک کد رو که از سریال نامبر هارد و فرمول دلخواه شما بدست میاد توش مینویسه. خوب این مسلمه که این کد فقط مختص همین کامپیوتره و روی هرکامپیوتر دیگه ای یک عدد دیگه بدست میاد و این کلید قفل گذاری نرم افزاریه!

Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
HDD_Serial = FormatNumber(drv.SerialNumber, 0)

S1=""

For i = 1 To Len(HDD_Serial)
 If Mid(HDD_Serial, i, 1) <> "," Then S1 = S1 + Mid(HDD_Serial, i, 1)
Next i

HDD_Serial = Trim(S1)

Code1 = ( Val(HDD_Serial) * 3 + 1350) / 5

Open "c:\Serial.sn" For Output As #1
 Print #1, Code1
Close #1

عدد Code1 که توی فایل Serial.sn نوشته شده همون کلید شماست برای ورود به نرم افزار. حالا فقط کافیه که موقع اجرای نرم افزار بتونید با همون فرمول این عدد رو چک کنید و بفهمید که keygenerator شما این عدد رو نوشته یا یکی شیطون شده و یه عدد از خودش توی این فایل نوشته!

خوب، بقیه قسمتهای دیگه نرم افزار رو میذارم به عهده خودتون! چون یه کمی هم از ذهنتون کار بکشین بد نیست! (قابل توجه اونایی که درخواست قفل کرده بودن!)