开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 194|回复: 3
收起左侧

[易语言] 如何计次循环获得 打开的文件名

[复制链接]
结帖率:86% (76/88)
发表于 2024-10-23 14:28:25 | 显示全部楼层 |阅读模式   贵州省贵阳市
5精币
  
子程序名返回值类型公开备 注
NEWCreateFileA整数型 这里还原API
参数名类 型参考可空数组备 注
打开文件名文本型要打开的文件的名字
访问权限整数型如果为 GENERIC_READ 表示允许对设备进行读访问;如果为 GENERIC_WRITE 表示允许对设备进行写访问(可组合使用);如果为零,表示只允许获取与一个设备有关的信息
共享方式整数型零表示不共享; FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
安全特性整数型SECURITY_ATTRIBUTES,指向一个SECURITY_ATTRIBUTES结构的指针,定义了文件的安全特性(如果操作系统支持的话)
创建方式整数型下述常数之一:;CREATE_NEW:创建文件;如文件存在则会出错;CREATE_ALWAYS:创建文件,会改写前一个文件;OPEN_EXISTING:文件必须已经存在。由设备提出要求;OPEN_ALWAYS:如文件不存在则创建它;TRUNCATE_EXISTING:讲现有文件缩短为零长度
文件属性整数型一个或多个下述常数;FILE_ATTRIBUTE_ARCHIVE:标记归档属性;FILE_ATTRIBUTE_COMPRESSED:将文件标记为已压缩,或者标记为文件在目录中的默认压缩方式;FILE_ATTRIBUTE_NORMAL:默认属性;FILE_ATTRIBUTE_HIDDEN:隐藏文件或目录;FILE_ATTRIBUTE_READONLY:文件为只读;FILE_ATTRIBUTE_SYSTEM:文件为系统文件;FILE_FLAG_WRITE_THROUGH:操作系统不得推迟对文件的写操作;FILE_FLAG_OVERLAPPED:允许对文件进行重叠操作;FILE_FLAG_NO_BUFFERING:禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块;FILE_FLAG_RANDOM_ACCESS:针对随机访问对文件缓冲进行优化;FILE_FLAG_SEQUENTIAL_SCAN:针对连续访问对文件缓冲进行优化;FILE_FLAG_DELETE_ON_CLOSE:关闭了上一次打开的句柄后,将文件删除。特别适合临时文件也可在Windows NT下组合使用下述常数标记:SECURITY_ANONYMOUS, SECURITY_IDENTIFICATION, SECURITY_IMPERSONATION, SECURITY_DELEGATION, SECURITY_CONTEXT_TRACKING, SECURITY_EFFECTIVE_ONLY
从文件复制文件属性整数型如果不为零,则指定一个文件句柄。新文件将从这个文件中复制扩展属性;
变量名类 型静态数组备 注
字节集 
句柄整数型 
截获数据字节集 
所有文件文本型 
计数整数型0
记录变量整数型 
如果真 (取字节集长度 (原始CreateFileA) > 0)
写到内存 (原始CreateFileA, 拦截CreateFileA, )
如果 (到小写 (取文本右边 (打开文件名, 15)) = “channellist.csv”)
计次循环首 (计数, 记录变量)
所有文件 = 计数          这里怎么才能获得所有  打开的文件名
计次循环尾 ()
开始解密 = 真
开始解密 = 假
句柄 = 创建文件1_ (打开文件名, 访问权限, 共享方式, 安全特性, 创建方式, 文件属性, 从文件复制文件属性)
值 = { 184 }
写到内存 (值 + 到字节集 (&NEWCreateFileA){ 255, 224 }, 拦截CreateFileA, 8)
返回 (句柄)





回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳

结帖率:100% (18/18)

签到天数: 27 天

发表于 2024-10-23 15:34:38 | 显示全部楼层   福建省泉州市
不明白你想知道什么
建议详细描述你的目标和代码的关系
回复

使用道具 举报

结帖率:86% (76/88)

签到天数: 9 天

 楼主| 发表于 2024-10-23 15:52:36 | 显示全部楼层   贵州省贵阳市
Suky 发表于 2024-10-23 15:34
不明白你想知道什么
建议详细描述你的目标和代码的关系
  
窗口程序集名保 留  保 留备 注
程序集_解密   
变量名类 型数组备 注
原始CreateFileA字节集  
OldCreateFileA整数型  
原始ReadFile字节集  
OldReadFile整数型  
开始解密逻辑型  

子程序名返回值类型公开备 注
拦截打开文件  
变量名类 型静态数组备 注
字节集 
如果真 (拦截CreateFileA = 0)
返回 ()
修改虚拟保护 (拦截CreateFileA, 8, 64, OldCreateFileA)
原始CreateFileA = 指针到字节集 (拦截CreateFileA, 8)
值 = { 184 }
写到内存 (值 + 到字节集 (&NEWCreateFileA){ 255, 224 }, 拦截CreateFileA, 8)
子程序名返回值类型公开备 注
NEWCreateFileA整数型 这里还原API
参数名类 型参考可空数组备 注
打开文件名文本型要打开的文件的名字
访问权限整数型如果为 GENERIC_READ 表示允许对设备进行读访问;如果为 GENERIC_WRITE 表示允许对设备进行写访问(可组合使用);如果为零,表示只允许获取与一个设备有关的信息
共享方式整数型零表示不共享; FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
安全特性整数型SECURITY_ATTRIBUTES,指向一个SECURITY_ATTRIBUTES结构的指针,定义了文件的安全特性(如果操作系统支持的话)
创建方式整数型下述常数之一:;CREATE_NEW:创建文件;如文件存在则会出错;CREATE_ALWAYS:创建文件,会改写前一个文件;OPEN_EXISTING:文件必须已经存在。由设备提出要求;OPEN_ALWAYS:如文件不存在则创建它;TRUNCATE_EXISTING:讲现有文件缩短为零长度
文件属性整数型一个或多个下述常数;FILE_ATTRIBUTE_ARCHIVE:标记归档属性;FILE_ATTRIBUTE_COMPRESSED:将文件标记为已压缩,或者标记为文件在目录中的默认压缩方式;FILE_ATTRIBUTE_NORMAL:默认属性;FILE_ATTRIBUTE_HIDDEN:隐藏文件或目录;FILE_ATTRIBUTE_READONLY:文件为只读;FILE_ATTRIBUTE_SYSTEM:文件为系统文件;FILE_FLAG_WRITE_THROUGH:操作系统不得推迟对文件的写操作;FILE_FLAG_OVERLAPPED:允许对文件进行重叠操作;FILE_FLAG_NO_BUFFERING:禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块;FILE_FLAG_RANDOM_ACCESS:针对随机访问对文件缓冲进行优化;FILE_FLAG_SEQUENTIAL_SCAN:针对连续访问对文件缓冲进行优化;FILE_FLAG_DELETE_ON_CLOSE:关闭了上一次打开的句柄后,将文件删除。特别适合临时文件也可在Windows NT下组合使用下述常数标记:SECURITY_ANONYMOUS, SECURITY_IDENTIFICATION, SECURITY_IMPERSONATION, SECURITY_DELEGATION, SECURITY_CONTEXT_TRACKING, SECURITY_EFFECTIVE_ONLY
从文件复制文件属性整数型如果不为零,则指定一个文件句柄。新文件将从这个文件中复制扩展属性;
变量名类 型静态数组备 注
字节集 
句柄整数型 
截获数据字节集 
所有文件文本型 
计数整数型0
获得数据整数型 
记录变量整数型 
如果真 (取字节集长度 (原始CreateFileA) > 0)
写到内存 (原始CreateFileA, 拦截CreateFileA, )
如果 (到小写 (取文本右边 (打开文件名, 15)) = “channellist.csv”)
开始解密 = 真
开始解密 = 假
句柄 = 创建文件1_ (打开文件名, 访问权限, 共享方式, 安全特性, 创建方式, 文件属性, 从文件复制文件属性)
值 = { 184 }
写到内存 (值 + 到字节集 (&NEWCreateFileA){ 255, 224 }, 拦截CreateFileA, 8)
返回 (句柄)
子程序名返回值类型公开备 注
拦截文件读入  
变量名类 型静态数组备 注
字节集 
如果真 (拦截ReadFile = 0)
返回 ()
修改虚拟保护 (拦截ReadFile, 8, 64, OldReadFile)
原始ReadFile = 指针到字节集 (拦截ReadFile, 8)
值 = { 184 }
写到内存 (值 + 到字节集 (&NEWReadFile){ 255, 224 }, 拦截ReadFile, 8)
子程序名返回值类型公开备 注
NEWReadFile整数型 
参数名类 型参考可空数组备 注
文件句柄整数型文件的句柄
数据缓冲区整数型用于保存读入数据的一个缓冲区
字符数整数型要读入的字符数
实际读入字符数整数型从文件中实际读入的字符数
异步过程整数型OVERLAPPED,如文件打开时指定了FILE_FLAG_OVERLAPPED,那么必须用这个参数引用一个特殊的结构。那个结构定义了一次异步读取操作。否则,应将这个参数设为NULL(将函数声明成ByVal As 并传递零值);
变量名类 型静态数组备 注
字节集 
句柄整数型 
截获数据字节集 
如果真 (取字节集长度 (原始ReadFile) > 0)
写到内存 (原始ReadFile, 拦截ReadFile, )
句柄 = 读入数据_ (文件句柄, 数据缓冲区, 字符数, 实际读入字符数, 异步过程)
如果真 (开始解密 = )
_内存_读字节集内存 (, 数据缓冲区, 截获数据, 字符数)
截获数据 = 解密数据 (截获数据, “123456”, #RC4算法 )
_内存_写字节集内存 (, 数据缓冲区, 截获数据)
' 写出字节集 (文件号, 截获数据)
值 = { 184 }
写到内存 (值 + 到字节集 (&NEWReadFile){ 255, 224 }, 拦截ReadFile, 8)
返回 (句柄)


i支持库列表   支持库注释   
dp1数据操作支持库一



这个只能拦截一个文件 我想要多拦截几个或者更多的文件
回复

使用道具 举报

结帖率:86% (76/88)

签到天数: 9 天

 楼主| 发表于 2024-10-23 21:25:10 | 显示全部楼层   贵州省贵阳市
怎么没人帮忙呢???
回复

使用道具 举报

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

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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