Giúp Mã hóa chuỗi ID của CPU máy tính

[chidung2009]

Với code Sub GetCPUID() khi chạy sẽ hiện thông báo mã ID của CPU máy tính. Giờ mình muốn mã hóa chuỗi ID CPU này làm sao giống như là KEY. (VD: 72D2Y-R2D7F-HG6TM chẳng hạn)
Mình xin chân thành cảm ơn !

Sub GetCPUID()
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
    For Each objItem In colItems
        MsgBox objItem.ProcessorId
      ' MsgBox Hiện chuỗi được mã hóa chuỗi (objItem.ProcessorId) xuất hiện ở MsgBox trên
    Next
End Sub

 

[thnghiachau]

Với code Sub GetCPUID() khi chạy sẽ hiện thông báo mã ID của CPU máy tính. Giờ mình muốn mã hóa chuỗi ID CPU này làm sao giống như là KEY. (VD: 72D2Y-R2D7F-HG6TM chẳng hạn)
Mình xin chân thành cảm ơn !

Sub GetCPUID()
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
    For Each objItem In colItems
        MsgBox objItem.ProcessorId
      ' MsgBox Hiện chuỗi được mã hóa chuỗi (objItem.ProcessorId) xuất hiện ở MsgBox trên
    Next
End Sub

Thì bạn lấy chuỗi objItem.ProcessorId này ngắt ra từng khúc bằng cách chèn thêm ký tự "-" vào thôi

 

[chidung2009]

Thì bạn lấy chuỗi objItem.ProcessorId này ngắt ra từng khúc bằng cách chèn thêm ký tự "-" vào thôi

Mình muốn mã hóa chuỗi này trước khi thêm ký tự "-".
Do mình không biết cách mã hóa chuỗi ký tự

 

[befaint]

mã hóa

Ví dụ



Ứng dụng:

 

[Kiều Mạnh]

đoán là vầy

1/ lấy cái Serial CPU Or main gì đó xong mã hóa nó thành 1 cái tạm keo là Key lưu nó vào file gì đó hay tạm keo là key.dat
2/ khi chạy code check cái File key.dat xem nếu nó đúng với cái mã hóa thì chạy nếu sai thì Msgbox xx chi đó
3/ đại ý nó kiểu như check bản quyền cho sử dụng code Or phần mềm ấy
....
...
Câu trả lời là trên GPE có rồi chịu khó tìm là thấy ... nếu đam mê mò nó mới thú vị

 

[vu_tuan_manh_linh]

Mã hóa nó thế nào là do bạn tự nghĩ ra thôi, bạn muốn chuyển số thành text, text thành số, text này thành text kia, là do bạn. Cách làm là dùng 1 funtion. Bạn có thể tham khảo hàm TCVN3ToUnicode trên diễn dàn này có đấy. Tùy chỉnh các casse theo ý bạn muốn.
Mấy thằng giời đánh chuyển các file thành đuôi .mosk và các thể loại đuôi khác để tống tiền, nó cũng dùng kiểu mã hóa lung tung beng lên để thiên hạ không giải mã được, thế nó mới kiếm được tiền từ việc tống tiền.

 

[Nhattanktnn]

Mấy thằng giời đánh chuyển các file thành đuôi .mosk và các thể loại đuôi khác để tống tiền

Ở công ty em cũng từng phá và bị chú virus kiểu này nhai không sót một thứ gì, file nào có đuôi là bị mã hóa hết kể cả outlook, cài lại máy mất hết dữ liệu đã đành, nó còn lây theo mạng Lan qua nhiều máy khác... nhớ lại đúng là khủng khiếp với chuỗi ngày đen tối