Rảnh rỗi sinh ra chuyện tào lao
Hôm nay hướng dẫn các bạn một cách tạo Key bản quyền đơn giản. Cũng nói luôn là hướng dẫn tào lao nhé. Ai thích thì đọc và vận dụng. Ai không thích thì bỏ qua
Về Mã hóa và Giải mã các bạn tìm đọc trên Internet
Tạo một Modul và chép hai cái hàm Mã Hóa và Giải Mã này vào chương trình của bạn
Mã:
Option Compare Database
Option Explicit
Const Nguon = "0123456789ABCDEFGHIJKLMNOPQRSTUVW"
Const Dich = "91234567801234567890MNOPQRSTUVWABCDEFGHIJKLMNOPQRSTUVWABCDEFGHIJKL"
Public Function MaHoa(strData As String) As String
Dim i As Integer, j As Integer
MaHoa = ""
For i = 1 To Len(strData)
For j = 1 To Len(Nguon)
If Mid(strData, i, 1) = Mid(Nguon, j, 1) Then
MaHoa = MaHoa & Mid(Dich, j * 2 - 1, 2)
End If
Next
Next
End Function
Public Function GiaiMa(strData As String) As String
Dim i As Integer, j As Integer
GiaiMa = ""
For i = 1 To Len(strData) Step 2
For j = 1 To Len(Dich) Step 2
If Mid(strData, i, 2) = Mid(Dich, j, 2) Then
GiaiMa = GiaiMa & Mid(Nguon, (j + 1) / 2, 1)
End If
Next
Next
End Function
Khỏi cần giải thích hàm nhé. Cái Nguon thì không thể thay thế. Có thể thay thế cái Dich theo ý chủ quan của bạn nhưng phải chú ý đến hàm GiaiMa nếu không sẽ không thể giải mã được đâu
Cách dùng :
Khi mở chương trình yêu cầu người sử dụng cung cấp một mã số định danh. Mã này có thể là ID CPU, ID Ổ cứng… hoặc một mã số bất kỳ do người sử dụng nghĩ ra. Mã số này chỉ bao gồm các ký tự là số và các chữ cái viết hoa. Sau khi đã có thông tin từ người sử dụng bạn dùng hàm MaHoa trên đây để tạo ra một KeyCode cho người dùng để người dùng đăng ký bản quyền
Ví dụ : Thông tin cung cấp của người dùng là : 75J1C0R3T
KeyCode của bạn sẽ là : 5612HI23QR91AB67EF
Cả hai thông tin Mã số định danh và KeyCode đều được lưu bằng File txt, table của chính chương trinh… trong máy người sử dụng
Cách kiểm tra Key
Đọc thông tin từ máy lấy ra giá trị của Số định danh và KeyCode
1/ Dùng hàm MaHoa để mã hóa Số định danh rồi đem so sánh với KeyCode. Nếu trùng khớp thì cho mở chương trình không thì Quit
2/ Dùng hàm GiaiMa để giải mã KeyCode rồi đem so sánh với Số định danh. Nếu trùng khớp thì cho mở chương trình không thì Quit
Nói vui nhưng nói thật là với cách tạo Key như thế này người ta cũng dễ bẻ lắm đó
Với tôi thì hay dùng
1/ Yêu cầu người sử dụng cung cấp hai thông tin : Số định danh và Tên Người Dùng (không trùng với tên người dùng của máy tính)
2/ Khi cấp KeyCode, nếu là phần mềm dùng thử thì thêm hạn sử dụng vào trong KeyCode còn không thì thôi
Bộ KeyCode của tôi có dạng : XXXXX-XXXXX-XXXXX-XXXXX-XXXXX-XXXXT
Nó là một Key gồm 6 nhóm cách nhau dấu -, mỗi nhóm có 5 ký tự bao gồm cả số và chữ, chữ cuối cùng luôn là chữ T, đây là bản quyền cũa người tạo KeyCode
Bản DeMo :
https://thuthuataccess.com/forum/thread-10782.html