[VB.NET] วิธีการสร้างชุดลงทะเบียนโปรแกรม (Registration)

thongkorn

สำหรับบทความนี้จะเป็นวิธีการง่ายๆในการทำชุดลงทะเบียนโปรแกรม ซึ่งแอดมินได้สร้างโปรเจค 2 ชุดไว้ในโซลูชั่นเดียวกัน ชุดแรกก็จะเป็นเหมือนกับโปรแกรมให้ลูกค้าใช้งาน อีกส่วนคือการสร้างรหัสลงทะเบียน (เป็นโปรเจคหลัก ต้องเข้าไปเปิด Solution ในโฟลเดอร์ RegisterProgram) เวลานำไปใช้งานจริงเราต้องแยกออกจากกันน่ะครับ ...

ขั้นตอนวิธีการคิดในการเข้ารหัส ...
[1] อ่านซีเรียลนัมเบอร์ของดิสต์ อันนี้เพื่อให้ได้โค้ดง่ายๆเข้าใจไม่ยาก แอดมินให้อ่านซีเรียลนัมเบอร์แบบ Logical Disk หรือ Volume Disk ซึ่งค่านี้จะเปลี่ยนใหม่ทุกครั้งที่มีการฟอร์แมต และที่สำคัญคือสามารถเปลี่ยนค่าได้ ... ดังนั้นในการนำไปใช้งานจริงจึงไม่ปลอดภัย แอดมินแนะนำให้อ่านซีเรียลนัมเบอร์จาก Physical Disk แทน ซึ่งโค้ดในการอ่านก็อยู่ในเว็บบอร์ดแห่งนี้แหละขอรับกระผม

[2] สร้างชุดกุญแจขึ้นมา 1 ชุด

[3] นำ 1 กับ 2 มาทำการเข้ารหัส แน่นอนว่าแอดมินใช้วิธีการเข้ารหัสแบบง่ายๆ ท่านต้องไปศึกษาค้นคว้าเพิ่มเติมเองล่ะกันครับผม

สำหรับชุดโปรแกรมที่ให้ลูกค้า หรือยูสเซอร์ใช้งาน จะต้องทำการอ่านสถานะการลงทะเบียนทุกๆครั้งที่เปิดโปรแกรมขึ้นมา โดยอ่านค่าตัวแรกคือซีเรียลนัมเบอร์ของดิสต์ (ป้องกันการเปลี่ยนแปลงค่าจากผู้ใช้) จากนั้นไปอ่านค่า Product Key หรือรหัสลงทะเบียนที่ได้ทำการ Registry เอาไว้ใน RegEdit หากไม่เจอค่าใดๆ แสดงว่ายังไม่มีการลงทะเบียน ก็ระบุ blnDemo = True หรือยังเป็นชุดทดลองอยู่นั่นเอง แต่หากมีค่า Product Key ก็เอามาทำการเข้ารหัส (เหมือนข้อ 3 ด้านบน) ด้วยซีเรียลนัมเบอร์ฮาร์ดดิสต์กับกุญแจที่กำหนดไว้ แล้วนำมาเปรียบเทียบค่า Product Key ที่ได้ก็เป็นอันจบ ...

การเลือกโปรเจคที่จะให้ทำงานเริ่มต้น (StartUp Project)


การ Registry ค่าต่างๆ การที่แอดมินนำไปไว้ที่ HKEY_CURRENT_USER ก็เพราะว่า Windows 10 มันมีการป้องกันสูง หากนำไปไว้ที่ LOCAL MACHINE มักมีปัญหาในการเขียนค่าลงไป


มาดูโค้ดในส่วนของการสร้างรหัสลงทะเบียน ... (RegisterProgram) ...

1. Public Class frmGenKeyMaker
   
2.     '// เลขชุดเหมือนกุญแจที่ต้องนำมาเข้ารหัสต้องตั้งค่าให้ตรงกัน
   
3.     Dim ProgramID As UInt32 = 1234567890
   
4. 
   
5.     Private Sub btnGenKey_Click(sender As System.Object, e As System.EventArgs) Handles btnGenKey.Click
   
6.         Try
   
7.             '// ค่านี้ต้องได้รับมาจากลูกค้า
   
8.             Dim ProductNumber As UInt32 = UInt32.Parse(txtProductNumber.Text)
   
9.             txtProductKey.Text = Encrypt(ProgramID, ProductNumber)
   
10.         Catch ex As Exception
    
11.             txtProductKey.Clear()
    
12.             MessageBox.Show(ex.Message)
    
13.         End Try
    
14.     End Sub
    
15. 
    
16.     '/ Simple encryption and decryption.
    
17.     Private Function Encrypt(ByVal seed As UInt32, ByVal value As UInt32) As UInt32
    
18.         Dim rand As New Random(CInt(seed \ 2))
    
19.         Return (value Xor CUInt(UInt32.MaxValue * rand.NextDouble()))
    
20.     End Function
    
21. 
    
22.     Private Sub frmGenKeyMaker_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
23.         txtProductID.Text = ProgramID
    
24.         txtProductNumber.Text = GetDriveVolumeSerialNumber()
    
25.     End Sub
    
26. 
    
27.     Private Function GetDriveVolumeSerialNumber() As String
    
28.         Dim DriveSerial As Long
    
29.         Dim FSO As Object, Drv As Object
    
30.         '/ Create a FileSystemObject object
    
31.         FSO = CreateObject("Scripting.FileSystemObject")
    
32.         Drv = FSO.GetDrive(FSO.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
    
33.         With Drv
    
34.             If .IsReady Then
    
35.                 DriveSerial = .SerialNumber
    
36.             Else    '"Drive Not Ready!"
    
37.                 DriveSerial = -1
    
38.             End If
    
39.         End With
    
40.         '/ Clean up
    
41.         Drv = Nothing
    
42.         FSO = Nothing
    
43.         GetDriveVolumeSerialNumber = Math.Abs(DriveSerial) 'Hex(Math.Abs(DriveSerial))
    
44.     End Function
    
45. 
    
46. 
    
47. End Class

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดในส่วนของผู้ใช้งานในการลงทะเบียน ... (CustomerProgram) ...

1. Public Class frmCustomerProgram
   
2.     '// กำหนดชื่อ Section
   
3.     Dim SectionName As String = "SampleProgram"
   
4.     '// ตัวอย่างชุดตัวเลขเพื่อทำการเข้ารหัส (เหมือนกุญแจ)
   
5.     Dim ProgramID As UInt32 = 1234567890
   
6.     '// รหัสลงทะเบียนโปรแกรม
   
7.     Dim ProductKey As String
   
8.     '// Volume Disk
   
9.     Dim ProductNumber As String
   
10. 
    
11.     Private Sub frmCustomerProgram_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
12.         Me.Dispose()
    
13.         GC.SuppressFinalize(Me)
    
14.         Application.Exit()
    
15.     End Sub
    
16. 
    
17.     Private Sub frmCustomerProgram_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
18.         Call Register()
    
19.     End Sub
    
20. 
    
21.     Sub Register()
    
22.         '// อ่านค่า Volume Disk ใหม่ เผื่อมีการแก้ไขเปลี่ยนแปลงค่าใน Registry
    
23.         ProductNumber = GetDriveVolumeSerialNumber()
    
24.         '// อ่านรหัสปลดล็อคโปรแกรมจาก Registry
    
25.         ProductKey = ReadAppRegistry(SectionName, "ProductKey", "")
    
26.         '// หากไม่มีค่า ProductKey แสดงว่ายังไม่เคยลงทะเบียนโปรแกรม
    
27.         If IsNothing(ProductKey) Or Len(ProductKey) = 0 Then
    
28.             '// กำหนดให้เป็น DEMO อยู่
    
29.             blnDemo = True
    
30.             '// กรณีที่เกิดการแก้ไขค่า Volumn Disk ต้องใช้ค่าที่เราอ่านได้เอง
    
31.             Call WriteAppRegistry(SectionName, "ProductNumber", ProductNumber)
    
32.             '// ไม่มีการลงทะเบียน
    
33.             Call WriteAppRegistry(SectionName, "ProductKey", "")
    
34.             Me.Text = Application.ProductName & " [Demo Version]"
    
35.             Exit Sub
    
36. 
    
37.             '// แสดงว่ามี ProductKey
    
38.         Else
    
39.             '// เข้ารหัสค่า ProductKey ที่มาจาก Registry โดยมี ProgramID (กุญแจ)
    
40.             Dim ActivateKey As UInt32 = Encrypt(ProgramID, CUInt(ProductNumber))
    
41.             '// หากค่าเท่ากัน แสดงว่าลงทะเบียนโปรแกรมถูกต้อง ไม่ต้องทำการเขียนข้อมูลลง Registry
    
42.             '/ ---------------------------------------------------------------
    
43.             If ActivateKey = ProductKey Then
    
44.                 blnDemo = False
    
45.                 Me.Text = Application.ProductName & " [Version: " & Application.ProductVersion.Substring(0, 4) & "]"
    
46.                 '// อาจจะมีการเปลี่ยนแปลงค่าใน Registry ก็เลยทำให้ค่าที่ได้ไม่เท่ากัน
    
47.             Else
    
48.                 blnDemo = True
    
49.                 '// เขียนข้อมูล Volume Disk กลับลงไปใน Registry อีกครั้ง
    
50.                 Call WriteAppRegistry(SectionName, "ProductNumber", ProductNumber)
    
51.                 '// ให้ค่ารหัสลงทะเบียนเป็นค่าว่างเปล่า
    
52.                 Call WriteAppRegistry(SectionName, "ProductKey", "")
    
53.                 Me.Text = Application.ProductName & " [Demo Version]"
    
54.             End If
    
55.         End If
    
56.     End Sub
    
57. 
    
58.     Private Sub btnRegister_Click(sender As System.Object, e As System.EventArgs) Handles btnRegister.Click
    
59.         frmRegister.ShowDialog()
    
60.     End Sub
    
61. End Class

คัดลอกไปที่คลิปบอร์ด

ฟอร์มในการลงทะเบียนโปรแกรม ...

1. Public Class frmRegister
   
2. 
   
3.     '// กำหนดชื่อ Section
   
4.     Dim SectionName As String = "SampleProgram"
   
5.     '// ตัวอย่างชุดตัวเลขเพื่อทำการเข้ารหัส (เหมือนกุญแจ)
   
6.     Dim ProgramID As UInt32 = 1234567890
   
7.     '// รหัสลงทะเบียนโปรแกรม
   
8.     Dim ProductKey As String
   
9.     '// Volume Disk
   
10.     Dim ProductNumber As String
    
11. 
    
12.     Private Sub frmRegister_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
13.         Me.Dispose()
    
14.         GC.SuppressFinalize(Me)
    
15.     End Sub
    
16. 
    
17.     Private Sub frmRegister_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
18.         '// อ่านค่า Volume Disk อีกรอบ
    
19.         txtProductNumber.Text = GetDriveVolumeSerialNumber()
    
20.         '// โหลดค่ารหัสลงทะเบียนมาเก็บไว้
    
21.         txtProductKey.Text = ReadAppRegistry(SectionName, "ProductKey", "")
    
22.         '// blnDemo จะถูกโหลดตั้งแต่ฟอร์มหลักที่เรียกมา (frmCustomerProgram.vb)
    
23.         If Not blnDemo Then
    
24.             txtProductKey.Enabled = False
    
25.             btnOk.Enabled = False
    
26.             btnCancel.Text = "Close"
    
27.         End If
    
28.     End Sub
    
29. 
    
30.     Private Sub btnCancel_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
    
31.         Me.Close()
    
32.     End Sub
    
33. 
    
34.     Sub Register()
    
35.         ProductNumber = txtProductNumber.Text
    
36.         '// อ่านค่า ProductKey จาก Registry
    
37.         ProductKey = ReadAppRegistry(SectionName, "ProductKey", "")
    
38.         '// ยังไม่ได้ลงทะเบียน
    
39.         If Len(ProductKey) = 0 And txtProductKey.Text.Trim.Length = 0 Then
    
40.             blnDemo = True
    
41.             frmCustomerProgram.Text = Application.ProductName & " [Demo Version]"
    
42.             txtProductKey.Focus()
    
43. 
    
44.             '// ตรวจสอบค่าที่ป้อนเข้ามาใน ProductKey
    
45.         ElseIf txtProductKey.Text.Trim.Length <> 0 Then
    
46.             '// เข้ารหัส ProgramID (กุญแจ) ร่วมกับ ProductNumber (Volume Disk)
    
47.             Dim ActivateKey As UInt32 = Encrypt(ProgramID, CUInt(ProductNumber))
    
48.             '// เปรียบเทียบค่าที่ได้จากการเข้ารหัสใหม่ (ActivateKey) และค่าที่ผู้ใช้ป้อนเข้ามา
    
49.             If ActivateKey = CUInt(txtProductKey.Text) Then
    
50.                 '// ถูกต้อง ...
    
51.                 blnDemo = False
    
52.                 Call WriteAppRegistry(SectionName, "ProductNumber", ProductNumber)
    
53.                 Call WriteAppRegistry(SectionName, "ProductKey", txtProductKey.Text.Trim)
    
54.                 MessageBox.Show("Registration Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
55.                 frmCustomerProgram.Text = Application.ProductName & " [Version: " & Application.ProductVersion.Substring(0, 4) & "]"
    
56.                 Me.Close()
    
57.             Else
    
58.                 '// ลงทะเบียนมั่ว
    
59.                 blnDemo = True
    
60.                 MessageBox.Show("Product Key is not correct.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
61.                 frmCustomerProgram.Text = Application.ProductName & " [Demo Version]"
    
62.                 txtProductKey.Focus()
    
63.             End If
    
64.         End If
    
65.     End Sub
    
66. 
    
67.     Private Sub btnOk_Click(sender As System.Object, e As System.EventArgs) Handles btnOk.Click
    
68.         Call Register()
    
69.     End Sub
    
70. 
    
71. End Class

คัดลอกไปที่คลิปบอร์ด

โมดูลในส่วนของฟังค์ชั่นต่างๆ ...

1. Module modFunction
   
2.     '// กำหนดให้เป็นตัวแปรแบบ Public สามารถมองเห็นได้ทั้งโปรเจค
   
3.     '// เพื่อระบุว่าเป็นการลงทะเบียนหรือไม่
   
4.     '// blnDemo = False ลงทะเบียนเรียบร้อย (ไม่ใช่ชุดทดลอง)
   
5.     '// blnDemo = True ยังไม่ได้ลงทะเบียน (ยังเป็นชุดทดลองอยู่)
   
6.     Public blnDemo As Boolean = True
   
7. 
   
8.     ' / -----------------------------------------------------------------------------------------------
   
9.     ' / Registry with VB.NET function
   
10.     ' / Function read original font style from Registry and return its.
    
11.     Public Function ReadAppRegistry(SectionName As String, _
    
12.         KeyName As String, _
    
13.         KeyValue As String _
    
14.     ) As String
    
15. 
    
16.         ' Application Title ...
    
17.         Dim AppTitle As String = My.Application.Info.Title
    
18.         '// Check exist KeyName, If not have to create new value by default.
    
19.         If GetSetting(AppTitle, SectionName, KeyName) = "" Then _
    
20.             Call SaveSetting(AppTitle, SectionName, KeyName, KeyValue)
    
21. 
    
22.         ' Return Value
    
23.         ReadAppRegistry = GetSetting(AppTitle, SectionName, KeyName)
    
24. 
    
25.     End Function
    
26. 
    
27.     ' / -----------------------------------------------------------------------------------------------
    
28.     ' / Save all font style into Registry, No return The use of sub program.
    
29.     ' / Registry with VB.NET function
    
30.     Public Sub WriteAppRegistry(SectionName As String, _
    
31.         KeyName As String, _
    
32.         KeyValue As String _
    
33.     )
    
34.         ' Application Title ...
    
35.         Dim AppTitle As String = My.Application.Info.Title
    
36.         Call SaveSetting(AppTitle, SectionName, KeyName, KeyValue)
    
37.     End Sub
    
38. 
    
39.     '/ Simple encryption and decryption.
    
40.     Public Function Encrypt(ByVal seed As UInt32, ByVal value As UInt32) As UInt32
    
41.         Dim rand As New Random(CInt(seed \ 2))
    
42.         Return (value Xor CUInt(UInt32.MaxValue * rand.NextDouble()))
    
43.     End Function
    
44. 
    
45.     Public Function GetDriveVolumeSerialNumber() As String
    
46.         Dim DriveSerial As Long
    
47.         Dim FSO As Object, Drv As Object
    
48.         '/ Create a FileSystemObject object
    
49.         FSO = CreateObject("Scripting.FileSystemObject")
    
50.         Drv = FSO.GetDrive(FSO.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
    
51.         With Drv
    
52.             If .IsReady Then
    
53.                 DriveSerial = .SerialNumber
    
54.             Else    '"Drive Not Ready!"
    
55.                 DriveSerial = -1
    
56.             End If
    
57.         End With
    
58.         '/ Clean up
    
59.         Drv = Nothing
    
60.         FSO = Nothing
    
61.         GetDriveVolumeSerialNumber = Math.Abs(DriveSerial) 'Hex(Math.Abs(DriveSerial))
    
62.     End Function
    
63. End Module

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่ ...

prawpun

ขอบคุณคะอาจารย์ ร่ำรวยเงินทองและสุขภาพที่ดีนะคะ

komenservice

ขอบคุณครับ อาจารย์

0x1souce

  ขอบคุณครับ

0x1souce

สอบถามหน่อยครับ กรณีที่ใส่ เลขมั่ว 7777777777  แบบนี้   หลังจากรันแล้ว project error ครับ ต้องแก้ยังไงคับ
แก้ได้แล้วครับ เปลี่ยนจาก CInt เป็น CLng

puklit

ก่อนอื่น ผมต้องขอขอบพระคุณอาจารย์เป็นอย่างสูงที่ได้ถ่ายทอดความรู้ให้แบบฟรี ๆ ไม่มีกั๊ก
สำหรับโปรแกรมด้านล่างนี้ผมได้ศึกษาจากอาจารย์แล้วนำมาต่อยอดในการลงทะเบียนดังนี้ครับ

1. คีย์ Product ID
2. คีย์1
3. คีย2
4. จะเป็น Active LicenseKey ที่ผู้ซื้อโปรแกรมจะต้องส่งข้อมูล Product ID , คีย์1 และ คีย2 กลับมาให้ผู้พัฒนา
    แล้วทางผู้พัฒนาโปรแกรมก็จะส่ง Active LicenseKey กลับไปให้ผู้ซื้อทำการลงทะเบียนต่อไปครับ

รูปตัวอย่าง การลงทะเบียน Active LicenseKey ที่ถูกต้อง


รูปตัวอย่างการลงทะเบียน Active LicenseKey ไม่ถูกต้อง


สำหรับด้านล้างนี้เป็นข้อมูลที่บันทึกการลงทะเบียนโปรแกรมในระบบ Registry ครับ




กรณียังเป็นเวอร์ชั่นทดลองใช้งาน จะแจ้งเตือนวันคงเหลือ ก่อนเข้าสู่หน้าหลัก


กรณีที่หมดวันทดลองใช้งาน ระบบจะแจ้งเตือน ข้อความหลังเข้าสู่ระบบ และจะไม่สามารถเข้าสู่หน้าหลักของโปรแกรมได้


สำหรับรูปด้านล่างนี้เป็นการถอดรหัสจากคีย์ลูกค้า เพื่อสร้าง License key ส่งกลับไปเพื่อให้ลูกค้าลงทะเบียนครับ
(เวอร์ชั่นล่าสุดผมปรับให้เหลือ 2 คีย์ เท่านั้น)