怎么把CPU序列号替换硬盘序列号！

9701519

2. (defun UseLimit  (/ FIND_SERIALNUMBER regNumber num regnum reg_path *error*)
   
3.   (defun *error* (msg / ent count)
   
4.     (princ)
   
5.   )
   
6.   (defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)
   
7.     (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
   
8.     ;;(vlax-dump-object FILSYS t)
   
9.     (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))
   
10.     ;;(vlax-dump-object VAL t)
    
11.     (setq VAL (vl-catch-all-apply
    
12.     'vlax-get
    
13.     (list VAL "SerialNumber")
    
14.         )
    
15.     )
    
16.     (vlax-release-object FILSYS)
    
17.     (if  (vl-catch-all-error-p VAL)
    
18.       (setq VAL NIL)
    
19.       VAL
    
20.     )
    
21.   )
    
22. 
    
23.   (setq reg_path "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp")
    
24.   (setq regNumber (vl-registry-read reg_path "注册码"))
    
25.   (if (/= regNumber
    
26.    (itoa
    
27.         (/ (atoi (rtos (atoi (rtos (FIND_SERIALNUMBER "C:"))))) 3);;;注册码=申请码/2
    
28.    )
    
29.       )
    
30.     (progn
    
31.       (alert
    
32.   (strcat
    
33.     "请注册！")
    
34.       )
    
35.       (setq num (rtos (FIND_SERIALNUMBER "C:")))
    
36.       (setq regnum (itoa (/ (atoi (rtos (atoi num))) 3)));;;注册码=申请码/2
    
37.       (textscr)
    
38.       (princ
    
39.   (strcat "您的申请码为: " num)
    
40.       )
    
41.       (setq regNumber (getstring "\n请输入注册码:"))
    
42.       (if (/= regNumber regnum)
    
43.   (progn
    
44.     (alert "注册码无效!")
    
45.     (exit)
    
46.   )
    
47.   (progn
    
48.     (vl-registry-write reg_path "注册码" regnum)
    
49.     (alert "您已成功注册!")
    
50.   )
    
51.       )
    
52.       T
    
53.     )
    
54.   )
    
55.   (princ)
    
56. )
    
57. 
    
58. 
    
59. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
60. ;;;(vl-load-com)
    
61. ;;;(vl-load-all "Register")
    
62. ;;;(UseLimit)
    
63. 
    
64. ;;;请在任何LSP文件中加入以上三行即可，注意一定要放在最前面！！！
    
65. ;;;只支持AutoCAD2000及以上的版本
    
66. ;;;Register.fas文件必须放在AutoCAD的支持路径下
    
67. ;;;如Register.fas文件不在AutoCAD支持路径，请自行指定路径
    
68. ;;;如(vl-load-all "C:/Program Files/AutoCAD 2004/Support/Register")
    
69. ;;;现在的加密方式为
    
70. ;;;获取物理磁盘C的序列号进行除2取整运算
    
71. ;;;所以注册码=取整(申请码/2)
    
72. ;;;如申请码为1550011861，则注册码=1550011861/2=775005930.5，去掉小数
    
73. ;;;注册码则为775005930，即可注册成功

(defun UseLimit  (/ FIND_SERIALNUMBER regNumber num regnum reg_path *error*)<br />   (defun *error* (msg / ent count)<br />     (princ)<br />   )<br />   (defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)<br />     (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))<br />     ;;(vlax-dump-object FILSYS t)<br />     (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))<br />     ;;(vlax-dump-object VAL t)<br />     (setq VAL (vl-catch-all-apply<br />     'vlax-get<br />     (list VAL "SerialNumber")<br />         )<br />     )<br />     (vlax-release-object FILSYS)<br />     (if  (vl-catch-all-error-p VAL)<br />       (setq VAL NIL)<br />       VAL<br />     )<br />   )<br /> <br />   (setq reg_path "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp")<br />   (setq regNumber (vl-registry-read reg_path "注册码"))<br />   (if (/= regNumber<br />    (itoa<br />         (/ (atoi (rtos (atoi (rtos (FIND_SERIALNUMBER "C:"))))) 3);;;注册码=申请码/2<br />    )<br />       )<br />     (progn<br />       (alert<br />   (strcat<br />     "请注册！")<br />       )<br />       (setq num (rtos (FIND_SERIALNUMBER "C:")))<br />       (setq regnum (itoa (/ (atoi (rtos (atoi num))) 3)));;;注册码=申请码/2<br />       (textscr)<br />       (princ<br />   (strcat "您的申请码为: " num)<br />       )<br />       (setq regNumber (getstring "\n请输入注册码:"))<br />       (if (/= regNumber regnum)<br />   (progn<br />     (alert "注册码无效!")<br />     (exit)<br />   )<br />   (progn<br />     (vl-registry-write reg_path "注册码" regnum)<br />     (alert "您已成功注册!")<br />   )<br />       )<br />       T<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;(vl-load-com)<br /> ;;;(vl-load-all "Register")<br /> ;;;(UseLimit)<br /> <br /> ;;;请在任何LSP文件中加入以上三行即可，注意一定要放在最前面！！！<br /> ;;;只支持<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>2000及以上的版本<br /> ;;;Register.fas文件必须放在AutoCAD的支持路径下<br /> ;;;如Register.fas文件不在AutoCAD支持路径，请自行指定路径<br /> ;;;如(vl-load-all "C:/Program Files/AutoCAD 2004/Support/Register")<br /> ;;;现在的加密方式为<br /> ;;;获取物理磁盘C的序列号进行除2取整运算<br /> ;;;所以注册码=取整(申请码/2)<br /> ;;;如申请码为1550011861，则注册码=1550011861/2=775005930.5，去掉小数<br /> ;;;注册码则为775005930，即可注册成功

CPU序列号代码如下：

2. (defun cpuid (/ str)
   
3.    (setq str
   
4.    "Set objSWbemObject = GetObject("winmgmts:Win32_Processor.DeviceID='cpu0'")
   
5.    ret = objSWbemObject.ProcessorId
   
6.    'msgbox "首枚CPU序列号：" & ret" )
   
7.    (if (not *wsc)(setq *wsc (vlax-create-object "ScriptControl")))
   
8.    (vlax-put *wsc 'language "vbs")
   
9.    (vlax-invoke *wsc 'ExecuteStatement str)
   
10.    (vlax-invoke *wsc 'eval "ret")
    
11.     (vlax-release-object FILSYS)
    
12.     (if  (vl-catch-all-error-p VAL)
    
13.       (setq VAL NIL)
    
14.       VAL
    
15.     )
    
16.   )

(defun cpuid (/ str)<br />    (setq str<br />    "Set objSWbemObject = GetObject("winmgmts:Win32_Processor.DeviceID='cpu0'")<br />    ret = objSWbemObject.ProcessorId<br />    'msgbox "首枚CPU序列号：" & ret" )<br />    (if (not *wsc)(setq *wsc (vlax-create-object "ScriptControl")))<br />    (vlax-put *wsc 'language "vbs")<br />    (vlax-invoke *wsc 'ExecuteStatement str)<br />    (vlax-invoke *wsc 'eval "ret")<br />     (vlax-release-object FILSYS)<br />     (if  (vl-catch-all-error-p VAL)<br />       (setq VAL NIL)<br />       VAL<br />     )<br />   )

该贴已经同步到 9701519的微博

朽木大师

同求，觉得高手可能几分钟

xskfq

顶一下~~~~

ZZXXQQ

不明白到底要干什么。是想将CPU的序列号改成硬盘序列号呢？还是加密程序原来读的是硬盘序列号，想改用读CPU序列号。

m809289064j

CPU的序列号怎么提取呀

mikewolf2k

如果没猜错的话，这个获得的是磁盘序列号而不是硬盘序列号，重新格式化就变了。硬盘或者CPU序列号是硬件级别的信息，LISP没事不会把手伸到硬件领域去吧。