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:

• Giúp mình bị lỗi phóng to chữ trong Form của Access !
• Đăng nhập sai 5 lần chờ 15 phút
• Thiết kế CSDL quản lý bán hàng tại cửa hàng di động?
• Giao trình hệ quản trị CSDL MS.Acess
• Lấy dữ liệu từ một form sang form khác
• Làm thế nào để biết được User hiện hành là ai ?
• Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
• Lỗi lọc dữ liệu
• Hiển thị thông tin từ table lên form
• 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), ...