Tạo CDKey cho sản phẩm hoàn thành

[tmvsaigonvenus]

Chào các bác.
Em mới viết xong 1 tool nhỏ phục vụ cho cơ quan. nay em muốn tạo ra CDKey cho sản phẩm của mình thì viết code như thế nào ạ.
Nhờ các bác giúp em với!

View more random threads:

• Xin các Thầy và các bạn giúp mình chỉnh sửa file đính kèm
• Thư viện runtime cho access !
• Chạy một đoạn code được lưu trong biến biến
• Xin hỏi cách truy vấn SQL do63 dữ liệu vào trong Litstbox
• Giúp đở về listbox và textbox . help !
• xin giúp đỡ về VBA
• Chọn 1 record trong listbox để insert vào textbox trong 1 form khác
• Bắt sự kiện Report được in ra máy in?
• Cho mình hỏi về OLE quái vật !
• Khái niệm đầu tiên về lập trình trên Access

[adviser]

Ðề: Tạo CDKey cho sản phẩm hoàn thành

Bạn tạo 1 form với 1textbox (txtKey) và 1 commanbutton (cmdOK)
Sau đó viết code cho cmdOK như sau:
Dim ktKey as String
ktKey = … (Bạn tự cho, VD: admin123)
If txtKey = ktKey then
Docmd.OpenForm “frmDangNhap”
Else
MsgBox “Bạn chưa đăng ký để sử dụng chương trình này.”, vbOKOnly, “Thông Báo”
End If
Chúc bạn thành công

[jutom123]

Ðề: Tạo CDKey cho sản phẩm hoàn thành

Bạn tạo 1 form với 1textbox (txtKey) và 1 commanbutton (cmdOK)
Sau đó viết code cho cmdOK như sau:
Dim ktKey as String
ktKey = … (Bạn tự cho, VD: admin123)
If txtKey = ktKey then
Docmd.OpenForm “frmDangNhap”
Else
MsgBox “Bạn chưa đăng ký để sử dụng chương trình này.”, vbOKOnly, “Thông Báo”
End If
Chúc bạn thành công

Bạn nói là Code như day:

[COLOR=#000000]
Dim ktKey [/COLOR][COLOR=#007700]as [/COLOR][COLOR=#0000BB]StringktKey [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]… [/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Bạn tự cho[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]VD[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]admin123[/COLOR][COLOR=#007700])If [/COLOR][COLOR=#0000BB]txtKey [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ktKey thenDocmd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenForm “frmDangNhap”[/COLOR][COLOR=#007700]Else[/COLOR][COLOR=#0000BB]MsgBox “Bạn chưa đăng ký để sử dụng chương trình này[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]”[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbOKOnly[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]“Thông Báo”End [/COLOR][COLOR=#007700]If[/COLOR] 

Té ra là đặt pass cho sản phẩm rồi chư còn CD key gì nũa.

[vthao93hp]

Ðề: Tạo CDKey cho sản phẩm hoàn thành

Chào các bác.
Em mới viết xong 1 tool nhỏ phục vụ cho cơ quan. nay em muốn tạo ra CDKey cho sản phẩm của mình thì viết code như thế nào ạ.
Nhờ các bác giúp em với!

Bạn lấy Serial của CPU rồi lấy đó làm khóa đi.

Set objWMIService = GetObject("winmgmts:-/\.
oot\cimv2")
'tìm các CPU dang chạy của máy
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
'lặp hiển thị ID của từng CPU, nếu muốn chỉ lấy ID 1 CPU thì khỏi lặp
For Each objItem In colItems
MsgBox "Processor Id: " & objItem.ProcessorId
Next

[nguyenanhthuoc]

Ðề: Tạo CDKey cho sản phẩm hoàn thành

Để làm một cái deploy cho một sản phẩm, thường đâu có "dễ dãi" như vậy đâu?

Với các sản phẩm thương mại, người ta có cả một công cụ để tạo ra product key cho sản phẩm đó. Đó là chưa kể một số kỹ thuật riêng để nhằm hạn chế mức thấp nhất việc sao chép.

Thông thường hiện nay người ta đều làm động tác là khi bán sản phẩm, người ta kèm theo một product key (CD key), khi nhập vào sẽ trả về một chuỗi đăng ký. Gửi chuỗi đăng ký này về nhà cung cấp, nhà cung cấp căn cứ các thông tin đăng ký, họ sẽ chứng nhận là sản phẩm được sử dụng hợp pháp.

Với sản phẩm "nho nhỏ" như bạn nói thì có cần phải làm CD key không? Nếu bạn làm tool đó bằng Access thì việc tạo CD key có vẻ không tác dụng lắm.

Thông thường với Access, người ta muốn bảo vệ cái soft thì người ta sẽ thiết lập quyền qua các thiết lập Workgroup Administrator, hoặc dịch file sang dạng thực thi (mde hoặc ade), ...