用lisp读取U盘的引导扇区数据

baitang36

获取U盘的序列号,可以通过直接读取引导扇区来实现,读出来的数据多,用来做注册码可选范围更广.
可以用winhex直接编辑U盘的扇区,然后把它当key盘来用.
不啰嗦了,上源码:
(load "c:/03/syz-bin.fas")
(defun syz-read-disk-boot-sector (drive / aa fi)
  (setq fi (open (strcat "\\\\.\\" drive) "r"))
  (if fi
    (progn
      (setq aa (syz-read-bin 512 fi))
      (close fi)
      (setq aa (vl-string->list aa))
    )
    (progn
      (princ "usage: (syz-read-disk-boot-sector \"D:\")")
      (princ "\n")
      (setq aa nil)
    )
  )
)

;加载syz-bin.fas 是提供读写二进制文件的保留函数，里面有两个函数，syz-read-bin是读二进制文件，syz-write-bin是写二进制文件

自贡黄明儒

今天 测试了一下，很好用

1. ;;解密
   
2. (defun C:a6 (/ FILE FN1 FN2 STR1)
   
3.   (setq file (findfile "d:\\0000\\99E11-1.txt"))
   
4.   (setq fn1 (open file "r"))
   
5. 
   
6.   (setq file "d:\\0000\\99E11-1.pdf")
   
7.   (setq fn2 (open file "w"))
   
8. 
   
9.   (setq str1 (syz-read-bin 64000000 fn1))
   
10.   (syz-write-bin str1 fn2)
    
11. 
    
12.   (close fn1)
    
13.   (close fn2)
    
14. 
    
15.   (princ)
    
16. )
    
17. ;;加密
    
18. (defun C:a7(/ FILE FN1 FN2 STR1)
    
19.   (setq file (findfile "d:\\0000\\99E11-1.pdf"))
    
20.   (setq fn1 (open file "r"))
    
21. 
    
22.   (setq file "d:\\0000\\99E11-1.txt")
    
23.   (setq fn2 (open file "w"))
    
24. 
    
25.   (setq str1 (syz-read-bin 64000000 fn1))
    
26.   (syz-write-bin str1 fn2)
    
27. 
    
28.   (close fn1)
    
29.   (close fn2)
    
30. 
    
31.   (princ)
    
32. )

;;解密<br /> (defun C:a6 (/ FILE FN1 FN2 STR1)<br />   (setq file (findfile "d:\\0000\\99E11-1.txt"))<br />   (setq fn1 (open file "r"))<br /> <br />   (setq file "d:\\0000\\99E11-1.pdf")<br />   (setq fn2 (open file "w"))<br /> <br />   (setq str1 (syz-read-bin 64000000 fn1))<br />   (syz-write-bin str1 fn2)<br /> <br />   (close fn1)<br />   (close fn2)<br /> <br />   (princ)<br /> )<br /> ;;加密<br /> (defun C:a7(/ FILE FN1 FN2 STR1)<br />   (setq file (findfile "d:\\0000\\99E11-1.pdf"))<br />   (setq fn1 (open file "r"))<br /> <br />   (setq file "d:\\0000\\99E11-1.txt")<br />   (setq fn2 (open file "w"))<br /> <br />   (setq str1 (syz-read-bin 64000000 fn1))<br />   (syz-write-bin str1 fn2)<br /> <br />   (close fn1)<br />   (close fn2)<br /> <br />   (princ)<br /> )

baitang36

隽轩2013 发表于 2022-6-24 10:42
我也遇到类似情况 老板bsdx

bsdx 不是东西？

f4800

用lisp读取U盘的引导扇区数据

厉害  lisp 也可以读取U盘了

baitang36

f4800 发表于 2021-12-30 20:06
用lisp读取U盘的引导扇区数据

厉害  lisp 也可以读取U盘了

如果有管理员权限,lisp也可以读硬盘

qinleilei

u盘的序列号，可以进行修改不？

流浪的军刀

前人栽树，后人乘凉

baitang36

qinleilei 发表于 2021-12-31 06:33
u盘的序列号，可以进行修改不？

序列号有两种，一种是硬件序列号，是U盘量产的时候写入的，可以用量产工具来改写。
还有一种是软序列号，是windows的格式化程序在格式化时写入的，可以用winhex随意修改。序列号在引导扇区中的位置不同的U盘可能不同，如fat32的 ntfs的 ，你自己找资料研究吧。

tryhi

测试可用，特别强大

tanjurun

不得了，今晚一雨试试

mokson

lisp 可以格式化硬盘吗？

(if (not 辞工后老板发清工资) (list-format-hdisk "c:"))

baitang36

mokson 发表于 2022-2-19 17:17
lisp 可以格式化硬盘吗？

(if (not 辞工后老板发清工资) (list-format-hdisk "c:"))

如果有权限，当然可以。想删库跑路？