Đến nội dung


Hình ảnh
- - - - -

Bản quyền VLX


  • Please log in to reply
36 replies to this topic

#1 DuongTrungHuy

DuongTrungHuy

    biết lệnh copy

  • Members
  • PipPipPip
  • 116 Bài viết
Điểm đánh giá: 41 (tàm tạm)

Đã gửi 02 December 2010 - 02:28 PM

Chào các Bạn,
Mình có vấn đề này xin hỏi các Bạn
Mình có 1 phần mềm LSP và dich ra VLX
Mình muốn chương trình VLX đó chỉ chạy được trên máy mà mình đã định. Ví dụ nếu chạy trên máy 1 Mình phải viết thêm trong LSP 1 đoạn chương trình con để sao cho khi dịch ra VLX thì chương trình VLX đó sẽ chạy được trên máy 1. Như vậy nếu có 1 ai đó copy chương trình đó qua máy 2 thì sẽ không chạy được. Muốn chạy được trên máy 2 thì cũng phải sửa lại trên LSP rồi dịch ra VLX. Chắc các Bạn cũng hiểu khi cài đặt chỉ cài file VLX.
Mong các Bạn cho ý kiến và giải pháp!
  • 0

#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 02 December 2010 - 03:47 PM

Chào các Bạn,
Mình có vấn đề này xin hỏi các Bạn
Mình có 1 phần mềm LSP và dich ra VLX
Mình muốn chương trình VLX đó chỉ chạy được trên máy mà mình đã định. Ví dụ nếu chạy trên máy 1 Mình phải viết thêm trong LSP 1 đoạn chương trình con để sao cho khi dịch ra VLX thì chương trình VLX đó sẽ chạy được trên máy 1. Như vậy nếu có 1 ai đó copy chương trình đó qua máy 2 thì sẽ không chạy được. Muốn chạy được trên máy 2 thì cũng phải sửa lại trên LSP rồi dịch ra VLX. Chắc các Bạn cũng hiểu khi cài đặt chỉ cài file VLX.
Mong các Bạn cho ý kiến và giải pháp!

Chào bác DuongTrungHuy!
Theo em thì có thể giải quyết bài toán của bác như sau:
1. Bác có thể dùng hàm getenv để lấy biến hệ thống nào đó mà chỉ có máy bác mới có rồi kiểm tra xem nếu đúng thì cho nó chạy lisp còn sai thì thôi.
2. Hoặc Bác có thể ghi vào registry một chuỗi string nào đó chỉ mình bác biết rồi kiểm tra xem nếu đúng thì chạy.
Nói chung là có nhiều cách nhưng cách này em hay dùng.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 DuongTrungHuy

DuongTrungHuy

    biết lệnh copy

  • Members
  • PipPipPip
  • 116 Bài viết
Điểm đánh giá: 41 (tàm tạm)

Đã gửi 02 December 2010 - 04:36 PM

Chào bác DuongTrungHuy!
Theo em thì có thể giải quyết bài toán của bác như sau:
...

Cám ơn Bạn, quả là có nhiều cách, Mình chỉ muốn tìm cho có 1 cách tối ưu nhất đó. Cách bạn viết vào registry cũng là hay, Mình chưa áp dụng, nếu được Bạn có thể bày cho cách để Mình viết vào và đọc ra từ registry nhé!
  • 0

#4 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 02 December 2010 - 04:49 PM

Cám ơn Bạn, quả là có nhiều cách, Mình chỉ muốn tìm cho có 1 cách tối ưu nhất đó. Cách bạn viết vào registry cũng là hay, Mình chưa áp dụng, nếu được Bạn có thể bày cho cách để Mình viết vào và đọc ra từ registry nhé!

Bác tham khảo cái này trong help. Nếu có gì chưa hiểu thì bác post lên để mọi người giúp Bác.
(vl-registry-read reg-key [val-name])
Arguments

reg-key

A string specifying a Windows registry key.

val-name

A string containing the value of a registry entry.

If val-name is supplied and is not nil, the specified value will be read from the registry. If val-name is absent or nil,the function reads the specified key and all of its values.

Return Values

A string containing registry data, if successful; otherwise nil.

Examples

_$ (vl-registry-read "HKEY_CURRENT_USER\\Test")
nil
_$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data")
"test data"
_$ (vl-registry-read "HKEY_CURRENT_USER\\Test")
"test data"

  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#5 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 02 December 2010 - 05:21 PM

Theo e nghĩ thì nên dùng HDD serial ^^
HDD
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#6 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 02 December 2010 - 08:26 PM

Theo e nghĩ thì nên dùng HDD serial ^^
HDD

Nên dùng HDD serial kết hợp với registry

Lúc đăng ký
Get HDD Serial -> convert sang một số bí mật (bằng hàm 1 chiều) -> ghi vào registry

Lúc kiểm tra:
Get HDD Serial -> convert sang một số bí mật -> so sánh với số đã ghi vào registry
  • 1

#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 03 January 2011 - 09:34 AM

Nên dùng HDD serial kết hợp với registry

Lúc đăng ký
Get HDD Serial -> convert sang một số bí mật (bằng hàm 1 chiều) -> ghi vào registry

Lúc kiểm tra:
Get HDD Serial -> convert sang một số bí mật -> so sánh với số đã ghi vào registry

Anh Hoành có thể nói rõ hơn một chút chổ này không?
Mỗi một ổ đĩa cứng có 1 số Serial khác nhau -> Rồi convert sang một số bí mật (bằng hàm 1 chiều) bằng cách nào ạ?
Thực sự là em chưa hiểu lắm.
Rất mong anh giải đáp.
Cảm ơn anh nhiều. :D
  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 03 January 2011 - 10:34 AM

Nếu dùng VBA thì e thường lấy mã ổ cứng,chứ k phải serial của phân vùng ^^.
CÒn nếu dùng phân vùng thì theo e hầu hết máy nào cũng có ổ C,ta cứ check ổ C là đẹp rồi.
Ý bác Hoành theo e hiểu là làm 1 giải thuật encrypt nào đó thật khoai từ HDD serial để ra chuỗi kết quả (vid dụ trộn với 1 đoạn pass dài vài chục ký tự ^^) -> ghi vào Registry.CHuyển sang máy khác thì cũng làm tương tự và so sánh 2 chuỗi kết quả, chứ không cần tìm cách Decrypt nữa
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#9 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 03 January 2011 - 10:46 AM

Get HDD Serial -> convert sang một số bí mật (bằng hàm 1 chiều) -> ghi vào registry
theo em hiểu thì hàm 1 chiều mà bác Hoành nói ở đây là 1 hàm thay thế ký tự của 1 chuỗi. đây là cách mã hóa đơn giản nhất trong các thuật toán mã hóa. người viết code mã hóa có thể thay thế 1 ký tự hay "1 chuỗi ký tự có tính chất tương đồng bằng" 1 ký tự hoặc 1 chuỗi ký tự khác.
  • 2

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#10 DuongTrungHuy

DuongTrungHuy

    biết lệnh copy

  • Members
  • PipPipPip
  • 116 Bài viết
Điểm đánh giá: 41 (tàm tạm)

Đã gửi 03 January 2011 - 11:26 AM

Bác tham khảo cái này trong help. Nếu có gì chưa hiểu thì bác post lên để mọi người giúp Bác.

Cám ơn Bạn phamngoctukts. Mình không ngờ Bạn trả lời ngay sau bài của Mình ít phút. Chờ mãi không thấy tưởng không ai hưởng ứng... Mình biết thêm được 1 kiểu.

Đặc biệt là kiểu HDD serial của ketxu!thấy nói là lúc trả về - I am receiving "142782703", but this is not the correct SerNum of HDD - Nhưng có lẽ không quan trọng gì cũng được miễn là mỗi máy có 1 số riêng là được. Mình cũng có 1 chương trình VBA đọc số đó nhưng kết hợp với LISP hơi khó khăn nên không ngon lắm. Cái này có vẻ ngon hơn.Cám ơn Bạn ketxu cung như Bạn Nguyen Hoanh. Theo Mình nghĩ chỉ cần số "142782703" đó là được, đúng thì chạy không thì nghỉ có phải không các Bạn nhỉ?

Nếu có ý gì hay các Bạn cứ tiếp tục nhé thấy dùng kiểu
(setq bbb (vlax-get-property (vlax-invoke (vlax-create-object "Scripting.FileSystemObject") 'Getdrive "c:") "SerialNumber" ))
là gọn nhất nhỉ...
  • 0

#11 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 03 January 2011 - 12:29 PM

Anh Hoành có thể nói rõ hơn một chút chổ này không?
Mỗi một ổ đĩa cứng có 1 số Serial khác nhau -> Rồi convert sang một số bí mật (bằng hàm 1 chiều) bằng cách nào ạ?
Thực sự là em chưa hiểu lắm.
Rất mong anh giải đáp.
Cảm ơn anh nhiều. :D


Cái này bạn có thể mặc định số serial trên qua kiểu string hoặc là số
Bạn có thể tham khảo bài viết này để hiểu thêm của bác tu
http://www.cadviet.c...mp;#entry111374
....
bạn tự hiểu nhé
hehe
dễ thôi mà
:D
Qua đây, tôi muốn hỏi 1 chút là Autolisp có đoạn mã nào đọc số liệu của RAm bao nhiêu GHZ, mainboard ... hay không?
Và cách nào chống GHOST hiệu quả nhất (vì tôi bị trường hợp này nhiều rrồi ==> đau cái điền)
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#12 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 04 January 2011 - 04:11 PM

Ai biết chỉ giùm với
Ti muốn hỏi 1 chút là Autolisp có đoạn mã nào đọc số liệu của RAm bao nhiêu GHZ, tên mainboard là Intel jj đấy ... (như cái thằng CPU-Z – Kiểm tra thông tin chipset) hay không?
Và cách nào chống GHOST hiệu quả nhất (vì tôi bị trường hợp này nhiều rrồi ==> đau cái điền)
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#13 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 05 January 2011 - 07:33 AM

Ai biết chỉ giùm với
..........
Và cách nào chống GHOST hiệu quả nhất (vì tôi bị trường hợp này nhiều rrồi ==> đau cái điền)

Hi VUVUZELA!
Cách chống GHOST hiệu quả nhất là : đặt thùng máy trong ... két sắt. :D
  • 0

#14 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 05 January 2011 - 09:07 AM

Hi VUVUZELA!
Cách chống GHOST hiệu quả nhất là : đặt thùng máy trong ... két sắt. :D


hehe
bác giabach này tếu thật nhưng theo tôi thì có 2 cách chống GHOST :
1. Chính quy : Mua khoá cứng dạng USB như thằng Nova, HS có khoá mới chạy được chương trình thì GHOST thua (nhưng thua thằng HACKER)
2. Giang hồ tý : Đem mấy thằng IT nào dạng HACKER xử bắn hết như bác giabach bày ở trên : :D HACKER nè ==> :s_big:
:D
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#15 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 05 January 2011 - 09:32 AM

Ai biết chỉ giùm với
Ti muốn hỏi 1 chút là Autolisp có đoạn mã nào đọc số liệu của RAm bao nhiêu GHZ, tên mainboard là Intel jj đấy ... (như cái thằng CPU-Z – Kiểm tra thông tin chipset) hay không?
Và cách nào chống GHOST hiệu quả nhất (vì tôi bị trường hợp này nhiều rrồi ==> đau cái điền)


Đọc số liệu trực tiếp thì e chưa biết,n theo e bác có thể nhẹ nhàng lấy thông tin từ Registry về
Ví dụ của Vista máy em là trong
[HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor]
[HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\1]


[HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\ControlSet001]
Cũng không hay vì a e hay vọc vào đổi đi nhưng tạm thời thì cứ thế, rồi nghiên cứu cách khác sau bác ạ

.Chống ghost hiệu quả nhất là không bao giờ cắm máy :">
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#16 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 05 January 2011 - 10:50 AM

hehe
bác giabach này tếu thật nhưng theo tôi thì có 2 cách chống GHOST :
1. Chính quy : Mua khoá cứng dạng USB như thằng Nova, HS có khoá mới chạy được chương trình thì GHOST thua (nhưng thua thằng HACKER)
2. Giang hồ tý : Đem mấy thằng IT nào dạng HACKER xử bắn hết như bác giabach bày ở trên : :D HACKER nè ==> :D
:s_big:

Có sự nhầm lẫn ở đây.
Tui chỉ nghĩ đơn giản cách chống GHOST là "cách chống GHOST".
Nhưng với VUVUZELA cách chống GHOST là "cách chống GHOST" sao cho không bẻ khóa đuợc.

Vấn đề của bạn là cách tạo khóa(KEY).
Nếu bạn lấy Serial Number của HDD, MainBoard hay CPU thì GHOST làm sao bẻ khóa đuợc.
(Vì Serial Number của mỗi thiết bị là duy nhất)

If (Get_Serial_Number = ****)
Run AutoLisp
Then
Exit.

  • 0

#17 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 05 January 2011 - 11:13 AM

Em cũng tưởng bác ý hỏi chống Ghost là không cho Ghost lại ổ cứng, hóa ra là chống Crack hả bác ^^.Vậy ngoài tạo key,khóa cứng ra thì cách chống tốt nhất là không cop cho ai hết >:D
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#18 hdt4151

hdt4151

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 05 January 2011 - 11:27 AM

Vấn đề này cũng hay, nhưng có vẻ ngược với tiêu chí của forum (free share) ^^'

@gia_bach: bạn thử viết 1 chương trình đơn giản cho mình tham khảo với : lấy serial của HDD (dùng được với Xp, Vista..) mà chưa cần mã hóa số serial đó (cái này mỗi người sẽ có 1 cách riêng khác nhau)
  • 0

#19 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 05 January 2011 - 11:31 AM

Vâng, đúng ý tôi rồi đó ==> chống Crack
Tại tôi có đợt trước cài phần mềm cho 1 máy ở 1 công ty
nhưng do công ty mới nên mua 5 máy cấu hình như nhau (main,ổ cứng, ram ...) ==> mình cài 1 máy ==> nó GHOST xài chùa 5 máy
:D
pó tay.com
Bởi vậy ý tui muốn hỏi các bác là có đặc điểm nào khác không để chống CRACK hiệu quả nhất í mà
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#20 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 January 2011 - 11:56 AM

Có sự nhầm lẫn ở đây.
Tui chỉ nghĩ đơn giản cách chống GHOST là "cách chống GHOST".
Nhưng với VUVUZELA cách chống GHOST là "cách chống GHOST" sao cho không bẻ khóa đuợc.

Vấn đề của bạn là cách tạo khóa(KEY).
Nếu bạn lấy Serial Number của HDD, MainBoard hay CPU thì GHOST làm sao bẻ khóa đuợc.
(Vì Serial Number của mỗi thiết bị là duy nhất)

If (Get_Serial_Number = ****)
Run AutoLisp
Then
Exit.

có lẽ là vuvuzela cung cấp phần mềm cho ai đó dùng thử nhưng giới hạn số lần sử dụng thì mới cần bày trò này bác ợ. còn cách của bác thì chỉ có tác dụng xác định chính xác 1 người dùng duy nhất được phép sử dụng chương trình.
@Vuvuzela: bạn có nói fét không vậy? các máy cấu hình có giống nhau đi nữa thì các số Serial Number của HDD, MainBoard hay CPU hoàn toàn khác nhau. trừ khi cty bạn xài hàng Tung Của (kể cả trong trường hợp này mình cũng chưa gặp trường hợp trùng nhau)
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD