明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2678|回复: 18

[经验] 用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

评分

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

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2022-9-12 14:52 | 显示全部楼层
今天 测试了一下,很好用
  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.   (setq file "d:\\0000\\99E11-1.pdf")
  6.   (setq fn2 (open file "w"))

  7.   (setq str1 (syz-read-bin 64000000 fn1))
  8.   (syz-write-bin str1 fn2)

  9.   (close fn1)
  10.   (close fn2)

  11.   (princ)
  12. )
  13. ;;加密
  14. (defun C:a7(/ FILE FN1 FN2 STR1)
  15.   (setq file (findfile "d:\\0000\\99E11-1.pdf"))
  16.   (setq fn1 (open file "r"))

  17.   (setq file "d:\\0000\\99E11-1.txt")
  18.   (setq fn2 (open file "w"))

  19.   (setq str1 (syz-read-bin 64000000 fn1))
  20.   (syz-write-bin str1 fn2)

  21.   (close fn1)
  22.   (close fn2)

  23.   (princ)
  24. )
回复 支持 0 反对 1

使用道具 举报

 楼主| 发表于 2022-6-24 11:13 | 显示全部楼层
隽轩2013 发表于 2022-6-24 10:42
我也遇到类似情况 老板bsdx

bsdx 不是东西?
回复 支持 1 反对 0

使用道具 举报

发表于 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-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:28 , Processed in 0.390970 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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