用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是写二进制文件

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:"))

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