用lisp读取U盘的引导扇区数据
本帖最后由 baitang36 于 2021-12-30 18:45 编辑获取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是写二进制文件
今天 测试了一下，很好用
;;解密
(defun C:a6 (/ FILE FN1 FN2 STR1)
(setq file (findfile "d:\\0000\\99E11-1.txt"))
(setq fn1 (open file "r"))
(setq file "d:\\0000\\99E11-1.pdf")
(setq fn2 (open file "w"))
(setq str1 (syz-read-bin 64000000 fn1))
(syz-write-bin str1 fn2)
(close fn1)
(close fn2)
(princ)
)
;;加密
(defun C:a7(/ FILE FN1 FN2 STR1)
(setq file (findfile "d:\\0000\\99E11-1.pdf"))
(setq fn1 (open file "r"))
(setq file "d:\\0000\\99E11-1.txt")
(setq fn2 (open file "w"))
(setq str1 (syz-read-bin 64000000 fn1))
(syz-write-bin str1 fn2)
(close fn1)
(close fn2)
(princ)
) 隽轩2013 发表于 2022-6-24 10:42
我也遇到类似情况 老板bsdx
bsdx 不是东西？ 用lisp读取U盘的引导扇区数据
厉害lisp 也可以读取U盘了 f4800 发表于 2021-12-30 20:06
用lisp读取U盘的引导扇区数据
厉害lisp 也可以读取U盘了
如果有管理员权限,lisp也可以读硬盘 u盘的序列号，可以进行修改不？ 前人栽树，后人乘凉 qinleilei 发表于 2021-12-31 06:33
u盘的序列号，可以进行修改不？
序列号有两种，一种是硬件序列号，是U盘量产的时候写入的，可以用量产工具来改写。
还有一种是软序列号，是windows的格式化程序在格式化时写入的，可以用winhex随意修改。序列号在引导扇区中的位置不同的U盘可能不同，如fat32的 ntfs的 ，你自己找资料研究吧。 测试可用，特别强大 不得了，今晚一雨试试 lisp 可以格式化硬盘吗？
(if (not 辞工后老板发清工资) (list-format-hdisk "c:")) mokson 发表于 2022-2-19 17:17
lisp 可以格式化硬盘吗？
(if (not 辞工后老板发清工资) (list-format-hdisk "c:"))
如果有权限，当然可以。想删库跑路？
页:
[1]
2