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

隽轩2013

baitang36 发表于 2022-2-19 17:33
如果有权限，当然可以。想删库跑路？

我也遇到类似情况 老板bsdx

baitang36

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

bsdx 不是东西？

隽轩2013

baitang36 发表于 2022-6-24 11:13
bsdx 不是东西？

是的 请问怎么把给别人用的小工具 自动删除掉 大家不要笑 也不要骂 比我可恶的人太多 只是想收回自己的东西

baitang36

隽轩2013 发表于 2022-6-24 16:58
是的 请问怎么把给别人用的小工具 自动删除掉 大家不要笑 也不要骂 比我可恶的人太多 只是想收回自己的东 ...

升级一下，新版本查找老版本，找到后删除。新版本设定使用期限，到期自杀。

xuningxu

牛逼立体，这也可以

Bdj

LZ您好：我这边测试了，感觉不行呢，有空的话，可以帮忙解答一下吗？

baitang36

Bdj 发表于 2022-8-20 23:10
LZ您好：我这边测试了，感觉不行呢，有空的话，可以帮忙解答一下吗？

盘符要带着冒号

Bdj

baitang36 发表于 2022-8-21 14:25
盘符要带着冒号

嗯嗯，你治好了我的眼疾

自贡黄明儒

今天 测试了一下，很好用

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 /> )