明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 927|回复: 9

[经验] 用lisp读取U盘的引导扇区数据

  [复制链接]
发表于 2021-12-30 18:39 | 显示全部楼层 |阅读模式
本帖最后由 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是写二进制文件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 3明经币 +3 收起 理由
yxp + 1 函数语法参数有没有测试
tryhi + 1 首发精品
print1985 + 1 很给力!

查看全部评分

发表于 2021-12-30 20:06 | 显示全部楼层
用lisp读取U盘的引导扇区数据

厉害  lisp 也可以读取U盘了
 楼主| 发表于 2021-12-30 20:19 | 显示全部楼层
f4800 发表于 2021-12-30 20:06
用lisp读取U盘的引导扇区数据

厉害  lisp 也可以读取U盘了

如果有管理员权限,lisp也可以读硬盘
发表于 2021-12-31 06:33 来自手机 | 显示全部楼层
u盘的序列号,可以进行修改不?
发表于 2021-12-31 09:31 | 显示全部楼层
前人栽树,后人乘凉
 楼主| 发表于 2021-12-31 11:24 | 显示全部楼层
qinleilei 发表于 2021-12-31 06:33
u盘的序列号,可以进行修改不?

序列号有两种,一种是硬件序列号,是U盘量产的时候写入的,可以用量产工具来改写。
还有一种是软序列号,是windows的格式化程序在格式化时写入的,可以用winhex随意修改。序列号在引导扇区中的位置不同的U盘可能不同,如fat32的 ntfs的 ,你自己找资料研究吧。
发表于 2021-12-31 17:21 | 显示全部楼层
测试可用,特别强大
发表于 2022-2-18 23:30 | 显示全部楼层
不得了,今晚一雨试试
发表于 2022-2-19 17:17 | 显示全部楼层
lisp 可以格式化硬盘吗?

(if (not 辞工后老板发清工资) (list-format-hdisk "c:"))
 楼主| 发表于 2022-2-19 17:33 | 显示全部楼层
mokson 发表于 2022-2-19 17:17
lisp 可以格式化硬盘吗?

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

如果有权限,当然可以。想删库跑路?

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2022 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2022-5-18 14:14 , Processed in 0.253175 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表