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:

• Cơ sở dữ liệu Access nhiều người người dùng
• Xin hỏi cách tạo combobox lồng nhau
• Thêm ảnh chân dung cho từng ID.
• tìm kiếm trong ComboBox trên chứng từ phiếu chi
• combo box ở access ???
• Kiểm tra dùm mình hàm DLookup() nhe
• Đóng gói access
• Tắt mục
• xuất dữ liệu ra máy in qua cổng com (sử dụng winsock)
• keycode phím # là thế nào vậy ạ?

[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), ...