易语言 删除文件增强版 保密文件的填充随机数据擦除 以防止数据恢复找回 (返回逻辑型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 置随机数种子 ()
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
14. 信息框 (删除文件_防止恢复 (“file.txt”), 0, , )
    
15. 
    
16. .子程序 删除文件_防止恢复, 逻辑型, 公开, 删除前填充随机数据擦除文件 防止数据恢复软件找回文件数据 (成功返回真,失败返回假)
    
17. .参数 欲删除的文件名, 文本型, , 适用于保密文件删除
    
18. .参数 文件擦除次数, 字节型, 可空, 擦除次数:1~255 0:不擦除，留空默认为1
    
19. .参数 缓存容量, 整数型, 可空, 一次处理多少字节，留空默认1Mb
    
20. .局部变量 文件号, 整数型
    
21. .局部变量 长度, 整数型
    
22. 
    
23. .如果真 (置文件属性 (欲删除的文件名, #隐藏文件) ＝ 假)
    
24.     返回 (假)
    
25. .如果真结束
    
26. .如果真 (缓存容量 ≤ 0)
    
27.     缓存容量 ＝ 1048576
    
28. .如果真结束
    
29. .如果真 (是否为空 (文件擦除次数))
    
30.     文件擦除次数 ＝ 1
    
31. .如果真结束
    
32. .如果真 (文件擦除次数 ＞ 0)
    
33.     文件号 ＝ 打开文件 (欲删除的文件名, #读写, #禁止读写)
    
34.     .如果真 (文件号 ＝ 0)
    
35.         返回 (假)
    
36.     .如果真结束
    
37.     .计次循环首 (文件擦除次数, )
    
38.         .如果真 (移动读写位置 (文件号, #文件首, 0) ＝ 假)
    
39.             返回 (假)
    
40.         .如果真结束
    
41.         .循环判断首 ()
    
42.             长度 ＝ 取字节集长度 (读入字节集 (文件号, 缓存容量))
    
43.             .判断开始 (长度 ＝ 0)
    
44.                 跳出循环 ()
    
45.             .判断 (移动读写位置 (文件号, #现行位置, －长度) ＝ 假)
    
46.                 跳出循环 ()
    
47.             .判断 (写出字节集 (文件号, 取随机字节集 (长度)) ＝ 假)
    
48.                 跳出循环 ()
    
49.             .默认
    
50. 
    
51.             .判断结束
    
52. 
    
53.         .循环判断尾 (真)
    
54.     .计次循环尾 ()
    
55.     关闭文件 (文件号)
    
56. .如果真结束
    
57. 返回 (删除文件 (欲删除的文件名))
    
58. 
    
59. .子程序 取随机字节集, 字节集
    
60. .参数 长度, 整数型
    
61. .局部变量 字节集, 字节集
    
62. .局部变量 计数, 整数型
    
63. 
    
64. 字节集 ＝ 取空白字节集 (长度)
    
65. .计次循环首 (长度, 计数)
    
66.     字节集 [计数] ＝ 取随机数 (0, 255)
    
67. .计次循环尾 ()
    
68. 返回 (字节集)
    

复制代码