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ách tạo mã số và lọc các mặt hàng theo mã số ấy!
• Kiểm tra dùm mình hàm DLookup() nhe
• Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
• giúp em sử dụng đoạn code này với!!!
• xin hỏi cách tìm record giống nhau giữa hai table
• Giúp mình mở file database này với?
• Kiểm tra trùng lặp khóa chinh trong Access
• Cho mình hỏi về OLE quái vật !
• Lỗi Run-time error '3011'
• cần giúp đở gấp ( liên kết 2 máy trong mạng LAN)

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