Tùy chọn
[Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
- [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
-
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
hmhieu > 14-01-21, 09:02 AM
Bác Dân làm ơn cho mình xin bản không khóa với. E mail: hmhieu.cm@gmail.com
Xin đa tạ! -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
ongke0711 > 03-05-21, 08:19 PM
(03-05-20, 11:46 PM)maidinhdan Đã viết: 1. Hàm Tạo ra key kích hoạt: có thuật toán thuận nghịch
Mã PHP:' --------------------------------------------------------------------------------------------------------
...
MaHoaKeyDangky = ""
n = 9
' Nén từ 12 xuống còn 6 ký tự=> 9+6=15
b1 = Left(KeyDangky, n) & GiaiMaFromHex(Left(MatKhau, 6)) & GiaiMaFromHex(Left(ThoihanDungChuongTrinh, 6))
Dân cho hỏi trong code mã hoá KeyDangKy, anh thấy Dân lấy 9 ký tự của số Serial ổ cứng (n=9), vậy có đảm bảo là không trùng S/N ổ cứng không? Sao không lấy toàn bộ cho chắc ăn?
Anh phát hiện thêm một trường hợp ngoại lệ nữa là số serial HDD chỉ có 8 ký tự nên áp vào code giải mã bị sai (đẩy ký tự sau lên cho đủ n=9). Anh xử lý bằng cách thêm vài ký tự "A" vào KeyDangKy để tránh lỗi này.
b1= (Left(KeyDangKy & "AAAA",n) & .... -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
tocuong96ndvn > 08-07-21, 04:42 PM
Anh Dân ơi cho e xin bản không khóa, e tham khảo code với ạ.
Gmail: toxuancuongtxc@gmail.com
Em cám ơn a nhiều ạ . -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
maidinhdan > 09-07-21, 03:05 AM
(03-05-21, 08:19 PM)ongke0711 Đã viết: Dân cho hỏi trong code mã hoá KeyDangKy, anh thấy Dân lấy 9 ký tự của số Serial ổ cứng (n=9), vậy có đảm bảo là không trùng S/N ổ cứng không? Sao không lấy toàn bộ cho chắc ăn?
Anh phát hiện thêm một trường hợp ngoại lệ nữa là số serial HDD chỉ có 8 ký tự nên áp vào code giải mã bị sai (đẩy ký tự sau lên cho đủ n=9). Anh xử lý bằng cách thêm vài ký tự "A" vào KeyDangKy để tránh lỗi này.
b1= (Left(KeyDangKy & "AAAA",n) & ....
Hôm trước em có thấy ảnh hỏi 1 lần rồi, em không trả lời với lý do là: Code này tạo ra nhằm anh em có thể xào nấu, rồi tự phán hiện chỗ được, chỗ không được;
Ahh phát hiện ra là quá hay, là còn đóng góp, chứ người ta lượm về là dùng rồi sửa ngon lên mà không chịu Post cho người khác, dấu dấu dím dím... rồi ngày đẹp trời em tạo ra Demo đó rồi quăng code lên cũng vậy hà.
...Mặt khác em còn chừa lại để ra phần 5, 6, 7, 8 nửa. hihi ( nắm tới ra phần 5) - Tạo ra nhiu bí kíp mà chia sẽ không kịp vì chưa rãnh làm Demo. -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
Linh lê > 12-07-21, 12:25 AM
Cho e xin 1 bản vào mail: mailquanly142@gmail.com. Em xin cảm tạ -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
tracanhtam > 23-07-21, 11:21 AM
Cho tôi xin file demo tạo khóa bản quyền phần 4 (file mdb). Xin cám ơn, email : lngoctrac@gmail.com -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
dotrung > 23-07-21, 11:49 AM
Hôm trước có xin anh Dân nhưng quên để email, có gì anh Dân cho dotrung 1 file để nghiên cứu nhé, thanks anh Dân!
Email : trungpkv@gmail.com -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
levelpro > 03-11-21, 02:41 AM
Em chào anh maidinhdan. Em xin phép dc xin 1 bản ạ. Tiện cho em hỏi thăm anh có nhận làm đóng gói licence phần mềm không ạ, em chân thành cảm ơn a, email : linkknighthood@gmail.com zalo 0335336699 -
RE: [Demo-Phần 4] Tạo khóa bản quyền (Có hạn dùng)
lab30tnd > 10-01-22, 02:12 PM
(03-05-20, 11:46 PM)maidinhdan Đã viết: Tiếp nối phần 2: [Demo-Phần 2] Tạo khóa bản quyền (Có hạn dùng)
Thấy dạo này trên diễn đàn ta hăng say tìm tòi việc tạo khóa hôm nay xin giới thiệu Demo Phần 4-Tạo khóa bản quyền cho phần mềm có thời hạn .
Thế thì tại sao phần 2 tới phần 4, vậy thằng demo phần 3 ở đâu, xin thưa tôi chừa lại vì lỡ đưa thuật toán này vào 01 chương trình khác rồi, nên không chia sẽ được, nay đành chế lấy thằng to bự hơn đỡ bị gạch đó và cũng cho các bạn tùy biến cho dễ.
Cái mới:
1. Hàm ngắn gọn, các bạn dể điều chỉnh lại
2. Có thuật toán thuận nghịch khó mà lần key kích hoạt.... thôi nói chức năng vậy.....tôi sẽ post cả các hàm phía dưới rồi nói sau
Chức năng:
- Tạo ra khóa bằng số cố định theo kiểu: xxxxxx-xxxxx-xxxxx-xxxxx-xxxxx (30 ký tự)
Giải thích:
+ 18 ký tự đầu: đăng ký theo mã ổ cứng ( không bao giờ thay đổi)
+ 06 ký tự tiếp theo đại diện cho Mật khẩu của bạn.
+ 06 ký tự còn lại đại diện cho thời hạn mà người dùng có thể dùng chương trình của bạn ( Thay đổi mỗi lần bạn thay thời gian cũng như Pass của bạn).
+ Với một số đặc điểm chức năng này bạn có thể dùng demo này cho nhiều phần mềm khác nhau bằng cách điền vào ô mật khẩu cho từng cái phần mềm của bạn muốn bảo vệ.
* Hình minh họa:
![[Hình: DemoHinh_TaoKhoaBanQuyenPhan4.png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/DemoHinh_TaoKhoaBanQuyenPhan4.png)
Code như sau: Tổng cộng 8 hàm
1. Hàm Tạo ra key kích hoạt: có thuật toán thuận nghịch
Mã PHP:' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class: modTaoKhoaPhanMem4
' Ten ham/thu tuc : MaHoaKeyDangky2
' Tao tren may PC : HENDANWIN10PRO
' Author/ Tac gia : maidinhdan@gmail.com
' Ngay tao : 01/05/2020 3:52:53 PM
' Parameters/Tham so : 'KeyDangky: la ma o cung cua ban, no se cat lay 9 ky tu de ma hoa
'MatKhau, ThoihanDungChuongTrinh phai co 6 ky tu va chi chap nhan so
' Cu phap/ Purpose :
' Pham vi ap dung : Thuat toan ma hoa Thuan Nghich
' --------------------------------------------------------------------------------------------------------
Function MaHoaKeyDangky(KeyDangky As String, MatKhau As String, ThoihanDungChuongTrinh As String) As String
Dim b1 As String, b2 As String, b3 As String
Dim i As Byte, n As Byte
MaHoaKeyDangky = ""
n = 9
' Nén từ 12 xuống còn 6 ký tự=> 9+6=15
b1 = Left(KeyDangky, n) & GiaiMaFromHex(Left(MatKhau, 6)) & GiaiMaFromHex(Left(ThoihanDungChuongTrinh, 6))
n = Len(b1)
b2 = GiaiMa(Left(b1, n), 1) ' Ma hoa từ 15 - thanh 30 ky tu
'Tach tung ky tu de ma hoa bac 2 : chia thành 5 cấp mã hóa.
For i = 1 To n
b3 = b3 & MahoaToHex(Mahoa(Mahoa(Mahoa(Mahoa(mID(b2, i, 1), 4), 24), 1), 26))
If i = 3 Or i = 6 Or i = 9 Or i = 12 Then ' Dòng này thêm dấu gạch ngang
b3 = b3 & "-"
End If
Next i
MaHoaKeyDangky = b3
End Function
2. Hàm giải mã key kích hoạt: quy trình ngược lại của hàm tạo key
Mã PHP:' Thuoc Modules/Class: modTaoKhoaPhanMem4
' Ten ham/thu tuc : GiaiMaKeyDangky2
' Tao tren may PC : HENDANWIN10PRO
' Author/ Tac gia : maidinhdan@gmail.com
' Ngay tao : 01/05/2020 3:53:47 PM
' Parameters/Tham so : KeyDangkyDaMaHoa: la key sinh ra tu ham MaHoaKeyDangky
' Cu phap/ Purpose :
' Pham vi ap dung : Thuat toan giai ma Thuan Nghich
' --------------------------------------------------------------------------------------------------------
Function GiaiMaKeyDangky(KeyDangkyDaMaHoa As String) As String
Dim b1 As String, b2 As String, b3 As String
Dim i As Byte, n As Byte
b1 = GiaiMaFromHex(Replace(KeyDangkyDaMaHoa, "-", ""))
n = Len(b1)
For i = 1 To n
b2 = b2 & GiaiMa(GiaiMa(GiaiMa(GiaiMa(mID(b1, i, 1), 26), 1), 24), 4)
Next i
b3 = Mahoa(b2, 1)
b3 = Left(b3, 9) & "-" & MahoaToHex(mID(b3, 10, 3)) & "-" & MahoaToHex(Right(b3, 3))
GiaiMaKeyDangky = b3
End Function
3. Hàm kiểm tra Key kích hoạt:
Mã PHP:' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class: modTaoKhoaPhanMem4
' Ten ham/thu tuc : KiemtraKey
' Tao tren may PC : HENDANWIN10PRO
' Author/ Tac gia : maidinhdan@gmail.com
' Ngay tao : 03/05/2020 10:01:46 PM
' Parameters/Tham so :
' Cu phap/ Purpose :
' Pham vi ap dung : Kiem tra khoa con han dung khong
' --------------------------------------------------------------------------------------------------------
Function KiemtraKey(KeyKichHoatTable As String, PassTest As String) As Boolean
On Error GoTo Loi
Dim MatKhau As String, HanDung As String, MaOCung As String, KeyDaGiaiMa As String
Dim HanTest As Date, HanKey As Date
KeyDaGiaiMa = Replace(GiaiMaKeyDangky((KeyKichHoatTable)), "-", "")
MaOCung = Left(KeyDaGiaiMa, 9)
MatKhau = mID(KeyDaGiaiMa, 10, 6)
HanDung = mID(KeyDaGiaiMa, 16, 6)
HanDung = Right(HanDung, 4) & "/" & Val(Left(HanDung, 2)) & "/" & "28"
HanKey = Format(HanDung, "yyyy/mm/dd")
strHamDung = Format(HanKey, "dd/mm/yyyy")
HanTest = Format(Date, "yyyy/mm/dd")
'Test Key kich hoat
If PassTest = MatKhau Then
If MaOCung = Left(DocHDD, 9) Then
If HanKey >= HanTest Then
KiemtraKey = True
' Debug.Print MaOCung, MatKhau, HanDung
End If
End If
End If
Exit Function
Loi:
KiemtraKey = False
End Function
* Các hàm phụ:
Mã PHP:Public strHamDung As String 'Khai bao nay de nay de test hien thi cho cac ban xem thoi
Public Function Mahoa(Data As String, Optional Depth As Integer) As String
Dim TempChar As String, TempAsc As Integer, NewData As String, vChar As Integer
For vChar = 1 To Len(Data)
TempChar = mID$(Data, vChar, 1)
TempAsc = Asc(TempChar)
If Depth = 0 Then Depth = 40
If Depth > 254 Then Depth = 254
TempAsc = TempAsc + Depth
If TempAsc > 255 Then TempAsc = TempAsc - 255
TempChar = Chr(TempAsc)
NewData = NewData & TempChar
Next vChar
Mahoa = NewData
End Function
Public Function GiaiMa(Data As String, Optional Depth As Integer) As String
Dim TempChar As String, TempAsc As Integer, NewData As String, vChar As Integer
For vChar = 1 To Len(Data)
TempChar = mID$(Data, vChar, 1)
TempAsc = Asc(TempChar)
If Depth = 0 Then Depth = 40
If Depth > 254 Then Depth = 254
TempAsc = TempAsc - Depth
If TempAsc < 0 Then TempAsc = TempAsc + 255
TempChar = Chr(TempAsc)
NewData = NewData & TempChar
Next vChar
GiaiMa = NewData
End Function
Function DocHDD()
Dim Disco As Variant, Discos As Variant, abc As String
Set Discos = GetObject("WINMGMTS:").InstancesOf("Win32_PhysicalMedia")
For Each Disco In Discos
abc = Disco.SerialNumber
If Len(Trim(abc)) > 0 Then Exit For
Next
DocHDD = Trim(abc)
End Function
Public Function MahoaToHex(tString As String) As String
Dim i As Integer, S As String
S = ""
For i = 1 To Len(tString)
S = S & Right$("00" & Hex(Asc(mID$(tString, i, 1))), 2)
Next i
MahoaToHex = S
End Function
Function GiaiMaFromHex(strHex As String) As String
Dim lngCount As Long
For lngCount = 1 To Len(strHex) Step 2
GiaiMaFromHex = GiaiMaFromHex & Chr("&h" & mID(strHex, lngCount, 2))
Next
End Function
* Để tất cả hàm ở đây cho các anh dùng, còn ai lười thì để lại email sẽ nhận được bạn mdb.
Nói thêm mấy chú bên VB.net hoặc C... khỏi lượm code này cho đỡ tốn thời gian, vì nó không có tác dụng đâu dù có sửa như thế nào đi nửa.
Thân mến! chúc vui khỏe.
RẤT HAY Ạ. XIN GỬI CHO E BẢN NÀY VÀO EMAIL: lab30tnd.bmt@gmail.com
CHÂN THÀNH CẢM ƠN BÁC RẤT NHIỀU Ạ