易语言实现文件夹加密的代码

2024-10-20 22:51:00

加密锁上文件夹

此功能需要加载精易模块5.6

.版本 2
.支持库 shell
.支持库 spec
.支持库 dp1
.程序集 窗口程序集1
.程序集变量 密码, 文本型
.子程序 _按钮_浏览文件_被单击
编辑框_路径.内容 ＝ 浏览文件夹 (“打开你需要加密的文件”, )
.子程序 _按钮_加密_被单击
.局部变量 文件夹名称, 文本型
.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
  提示框 (“已加密”)
.默认
  文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “\”, , 假))
  调试输出 (文件夹名称)
  目录_改名 (编辑框_路径.内容, 文件夹名称 ＋ “[已加密]”)
  编辑框_路径.内容 ＝ 编辑框_路径.内容 ＋ “[已加密]”
  输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码)
  文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密)
  提示框 (“完成”)
.判断结束
.子程序 _按钮_解密_被单击
.局部变量 文件夹名称, 文本型
.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
  编辑框_路径.内容 ＝ 文本_替换 (编辑框_路径.内容, , , , “[已加密]”, “”)
  文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “\”, , 假))
  目录_改名 (编辑框_路径.内容 ＋ “[已加密]”, 文件夹名称)
  输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码)
  文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密)
  提示框 (“完成”)
.默认
  提示框 (“已解密”)
.判断结束
.子程序 子程序_加密
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 路径, 文本型
.局部变量 未加密, 字节集
.局部变量 已加密, 字节集
路径 ＝ 目录 ＋ 文件名
未加密 ＝ 读入文件 (路径)
已加密 ＝ 加密数据 (未加密, 密码, #RC4算法)
写到文件 (路径, 已加密)
.子程序 子程序_解密
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 路径, 文本型
.局部变量 已加密, 字节集
.局部变量 已解密, 字节集
路径 ＝ 目录 ＋ 文件名
已加密 ＝ 读入文件 (路径)
已解密 ＝ 解密数据 (已加密, 密码, #RC4算法)
写到文件 (路径, 已解密)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

易语言制作网截抓包工具的代码

常量数据表 .版本 2 .常量编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型值:"GB2312" 列举各种编码类型全局变量表 .版本 2 .全局变量系统配置路径, 文本型网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集主程序集 .程序集变量服务安装,
易语言利用HOOK注入获取内容的代码

DLL命令表 .版本 2 .DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory" .参数 Destination, 整数型 .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 CreateWindowExA, 整数型 .参数 dwExStyle, 整数型 .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .参数 dwStyle, 整数型 .参数
易语言获取已登录的QQ号码以及名称的方法

取登陆QQ号以及名称的代码此功能需要加载精易模块5.6 .版本 2 .程序集窗口程序集_启动窗口 .程序集变量网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量名称, 文本型显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量＝到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝到文本 (文本_取出中间文本
易语言实现自动发送QQ信息的代码

全局变量表 .版本 2 .全局变量局_句柄, 整数型 .全局变量 b, 整数型 QQ自动发送信息此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集窗口程序集_启动窗口 .程序集变量逻辑, 逻辑型 .子程序 _暂停按钮_被单击时钟1.时钟周期＝ 0 .子程序 _好友按钮_被单击逻辑＝假时钟1.时钟周期＝ 1500 .子程序功能_取句柄, 整数型 .参数名称, 文本型局_句柄＝窗口_取句柄 (, , "TXGuiFoundati
易语言高精度完美延时的源码

DLL命令表 .版本 2 .DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值 .参数 lpPerformanceCount, LARGE_INTEGER .DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency",
易语言修改软件版权信息的工具

DLL命令表 .版本 2 .DLL命令 BeginUpdateResource, 整数型, , "BeginUpdateResourceA" .参数 pFileName, 文本型 .参数 bDeleteExistingResources, 逻辑型 .DLL命令 EndUpdateResource, 逻辑型, , "EndUpdateResourceA" .参数 hUpdate, 整数型 .参数 fDiscard, 逻辑型 .DLL命令 UpdateResource,
易语言获取程序已运行时间的代码

获取程序已运行时间 .版本 2 .支持库 iext .程序集窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec ＝ sec + 1 .如果真 (sec ＝ 60) sec ＝ 0 min ＝ min + 1 .如果真结束 .如果真 (min ＝ 60) min ＝ 0 hr ＝ hr + 1 .如果真结束状态条1.置文本 (0, "已运行:" + 取文本右边 ("
易语言超级编辑框中寻找指定文本并选中的示例

超级编辑框中寻找指定文本并选中 .版本 2 .支持库 iext2 .程序集窗口程序集1 .子程序 __启动窗口_创建完毕 .子程序取字符数, 整数型 .参数文本, 文本型 .局部变量长度, 整数型 .局部变量个数, 整数型 .局部变量字符位置, 整数型长度＝取文本长度 (文本) 个数＝长度字符位置＝ 1 .判断循环首 (字符位置 < 长度) .如果 (取代码 (取文本中间 (文本, 字符位置, 1), ) < 0 或取代码 (取文本中间 (文本, 字符位置, 1),
易语言制作二维码生成器

DLL命令表 .版本 2 .DLL命令二维码_外形设置, , "QRCodeWin32.dll", "QRAppearance" .参数模块尺寸, 双精度小数型 .参数方向, 整数型 .参数边框, 整数型 .DLL命令二维码_编码参数, , "QRCodeWin32.dll", "QRConfigure" .参数版本, 整数型 .参数纠错级别, 整数型 .参数掩膜, 整数型 .DLL命令二维码_默认设置, ,
易语言制作王校长吃热狗游戏的源码

王校长吃热狗游戏 .版本 2 .支持库 iext2 .支持库 OPenGL .支持库 spec .支持库 EThread .程序集窗口程序集_启动窗口 .程序集变量人物标识, 整数型 .程序集变量热狗标识, 整数型, , "0" .程序集变量死亡, 逻辑型 .程序集变量得分, 整数型 .子程序 _开始按钮_被单击动画物体2.图片＝ #人物人物标识＝动画框1.创建物体 (动画物体2, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _

易语言实现文件夹加密的代码

相关推荐

随机推荐