易语言通过枚举密码进行破解rar压缩包文件的代码

rar密码破解源码

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

.版本 2
.支持库 xplib
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_数组1, 文本型, , "0"
.程序集变量 程序集_数组2, 文本型, , "0"
.程序集变量 程序集_数组3, 文本型, , "0"
.程序集变量 程序集_数组4, 文本型, , "0"
.程序集变量 程序集_数组5, 文本型, , "0"
.程序集变量 程序集_数组_文本汇总, 文本型, , "0"
.程序集变量 程序集_数组_标点汇总, 文本型, , "0"
.程序集变量 程序集_破解字典, 整数型
.子程序 __启动窗口_创建完毕
XP风格 (1)
.子程序 _按钮_打开_被单击
通用对话框.初始目录 = 取当前目录 ()
通用对话框.打开 ()
编辑框_文件路径.内容 = 通用对话框.文件名
.子程序 _选择框_小写字母_被单击
.如果真 (选择框_小写字母.选中 = 真)
  程序集_数组1 = { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
.如果真结束
.如果真 (选择框_小写字母.选中 = 假)
  清除数组 (程序集_数组1)
.如果真结束
.子程序 _选择框_大写字母_被单击
.如果真 (选择框_大写字母.选中 = 真)
  程序集_数组2 = { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
.如果真结束
.如果真 (选择框_大写字母.选中 = 假)
  清除数组 (程序集_数组2)
.如果真结束
.子程序 _选择框_数字_被单击
.如果真 (选择框_数字.选中 = 真)
  程序集_数组3 = { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9” }
.如果真结束
.如果真 (选择框_数字.选中 = 假)
  清除数组 (程序集_数组3)
.如果真结束
.子程序 _选择框_英文标点_被单击
.如果真 (选择框_英文标点.选中 = 真)
  程序集_数组4 = { “`”, “~”, “!”, “@”, “#”, “$”, “%”, “^”, “&”, “*”, “(”, “)”, “-”, “_”, “=”, “+”, “\”, “|”, “[”, “]”, “{”, “}”, “;”, “:”, “'”, #左引号, #右引号, “,”, “<”, “>”, “.”, “/”, “?” }
.如果真结束
.如果真 (选择框_英文标点.选中 = 假)
  清除数组 (程序集_数组4)
.如果真结束
.子程序 _选择框_中文标点_被单击
.如果真 (选择框_中文标点.选中 = 真)
  程序集_数组5 = { “·”, “!”, “¥”, “……”, “(”, “)”, “——”, “、”, “【”, “】”, “;”, “:”, “‘”, “,”, “《”, “》”, “。”, “、”, “?” }
.如果真结束
.如果真 (选择框_中文标点.选中 = 假)
  清除数组 (程序集_数组5)
.如果真结束
.子程序 _按钮_开始_被单击
.局部变量 局部_文件后缀名, 文本型
.如果 (选择框_小写字母.选中 = 假 且 选择框_大写字母.选中 = 假 且 选择框_数字.选中 = 假)
  程序集_破解字典 = 0
.否则
  程序集_破解字典 = 1
.如果结束
局部_文件后缀名 = 取文本右边 (编辑框_文件路径.内容, 3)
.判断开始 (编辑框_文件路径.内容 = “”)
  信息框 (“请打开一个RAR文件!”, 0, “提醒”, )
  按钮_打开.获取焦点 ()
  返回 ()
.判断 (程序集_破解字典 = 0)
  信息框 (“请选择一个密码字典选项!”, 0, “提醒”, )
  返回 ()
.判断 (局部_文件后缀名 ≠ “rar”)
  信息框 (“请选择一个后缀名是RAR文件!”, 0, “错误”, )
  按钮_打开.获取焦点 ()
  返回 ()
.判断 (到数值 (编辑框_最小长度.内容) > 到数值 (编辑框_最大长度.内容))
  信息框 (“密码最大长度不能小于最小长度!”, 0, “错误”, )
  编辑框_最大长度.获取焦点 ()
  返回 ()
.默认
.判断结束
清除数组 (程序集_数组_文本汇总)
清除数组 (程序集_数组_标点汇总)
.如果真 (取数组成员数 (程序集_数组1) > 0)
  加入成员 (程序集_数组_文本汇总, 程序集_数组1)
.如果真结束
.如果真 (取数组成员数 (程序集_数组2) > 0)
  加入成员 (程序集_数组_文本汇总, 程序集_数组2)
.如果真结束
.如果真 (取数组成员数 (程序集_数组3) > 0)
  加入成员 (程序集_数组_文本汇总, 程序集_数组3)
.如果真结束
.如果真 (取数组成员数 (程序集_数组4) > 0)
  加入成员 (程序集_数组_标点汇总, 程序集_数组4)
.如果真结束
.如果真 (取数组成员数 (程序集_数组5) > 0)
  加入成员 (程序集_数组_标点汇总, 程序集_数组5)
.如果真结束
穷举密码 ()
.子程序 穷举密码
.局部变量 局部_文本, 文本型
.局部变量 局部_密码, 文本型
.局部变量 局部_取密码数组, 整数型, , "0"
.局部变量 局部_密码位数, 整数型
.局部变量 局部_循环位置, 整数型
.局部变量 局部_跳出循环, 整数型
.局部变量 局部_结果, 逻辑型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
局部_密码位数 = 到数值 (编辑框_最小长度.内容) - 1
.变量循环首 (到数值 (编辑框_最小长度.内容), 到数值 (编辑框_最大长度.内容), 1, a)
  局部_跳出循环 = 0
  局部_密码位数 = 局部_密码位数 + 1
  清除数组 (局部_取密码数组)
  .计次循环首 (局部_密码位数, )
    加入成员 (局部_取密码数组, 1)
  .计次循环尾 ()
  局部_循环位置 = 取数组成员数 (局部_取密码数组)
  .循环判断首 ()
    局部_文本 = “”
    .如果真 (取数组成员数 (局部_取密码数组) > 1)
      .计次循环首 (取数组成员数 (局部_取密码数组), c)
        局部_文本 = 局部_文本 + 程序集_数组_文本汇总 [局部_取密码数组 [c]]
      .计次循环尾 ()
      .如果 (取数组成员数 (程序集_数组_标点汇总) > 0)
        .计次循环首 (取数组成员数 (程序集_数组_标点汇总), b)
          .计次循环首 (取文本长度 (局部_文本), c)
            局部_密码 = 取文本左边 (局部_文本, c) + 程序集_数组_标点汇总 [b] + 取文本右边 (局部_文本, 取文本长度 (局部_文本) - c)
            局部_结果 = 尝试密码 (局部_密码)
            .如果真 (局部_结果 = 真)
              返回 ()
            .如果真结束
            处理事件 ()
          .计次循环尾 ()
        .计次循环尾 ()
      .否则
        局部_密码 = 局部_文本
      .如果结束
      局部_结果 = 尝试密码 (局部_密码)
      .如果真 (局部_结果 = 真)
        返回 ()
      .如果真结束
      处理事件 ()
    .如果真结束
    .如果真 (取数组成员数 (局部_取密码数组) = 1)
      .计次循环首 (取数组成员数 (程序集_数组_文本汇总), b)
        局部_文本 = 程序集_数组_文本汇总 [b]
        .如果 (取数组成员数 (程序集_数组_标点汇总) > 0)
          .计次循环首 (取数组成员数 (程序集_数组_标点汇总), b)
            局部_密码 = 局部_文本 + 程序集_数组_标点汇总 [b]
            局部_结果 = 尝试密码 (局部_密码)
            .如果真 (局部_结果 = 真)
              返回 ()
            .如果真结束
            处理事件 ()
          .计次循环尾 ()
        .否则
          局部_密码 = 局部_文本
          局部_结果 = 尝试密码 (局部_密码)
          .如果真 (局部_结果 = 真)
            返回 ()
          .如果真结束
          处理事件 ()
        .如果结束
      .计次循环尾 ()
    .如果真结束
    .如果 (取数组成员数 (局部_取密码数组) > 1)
      .如果 (局部_取密码数组 [局部_循环位置] + 1 > 取数组成员数 (程序集_数组_文本汇总))
        .判断循环首 (真)
          局部_取密码数组 [局部_循环位置] = 1
          局部_循环位置 = 局部_循环位置 - 1
          .如果真 (局部_循环位置 < 1)
            局部_跳出循环 = 1
            跳出循环 ()
          .如果真结束
          .如果 (局部_取密码数组 [局部_循环位置] + 1 > 取数组成员数 (程序集_数组_文本汇总))
            到循环尾 ()
          .否则
            局部_取密码数组 [局部_循环位置] = 局部_取密码数组 [局部_循环位置] + 1
            跳出循环 ()
          .如果结束
        .判断循环尾 ()
        局部_循环位置 = 取数组成员数 (局部_取密码数组)
      .否则
        局部_取密码数组 [局部_循环位置] = 局部_取密码数组 [局部_循环位置] + 1
      .如果结束
    .否则
      跳出循环 ()
    .如果结束
    .如果真 (局部_跳出循环 = 1)
      跳出循环 ()
    .如果真结束
  .循环判断尾 (真)
.变量循环尾 ()
标签_显示.标题 = “字典跑完啦,没有找到正确的密码!”
返回 ()
.子程序 尝试密码, 逻辑型
.参数 参数_穷举密码, 文本型
.局部变量 局部_密码, 文本型
.局部变量 局部_文本, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
局部_密码 = 参数_穷举密码
.如果真 (编辑框_自定义开头.内容 ≠ “”)
  局部_密码 = 删首尾空 (编辑框_自定义开头.内容) + 局部_密码
.如果真结束
.如果真 (编辑框_自定义结尾.内容 ≠ “”)
  局部_密码 = 局部_密码 + 删首尾空 (编辑框_自定义结尾.内容)
.如果真结束
.如果 (RAR_解压文件 (编辑框_文件路径.内容, 局部_密码, 取当前目录 () + “\”) = 真)
  标签_显示.标题 = “”
  标签_显示.标题 = “文件密码是:” + 局部_密码
  返回 (真)
.否则
  标签_显示.标题 = “”
  标签_显示.标题 = “正在尝试密码:” + 局部_密码
  返回 (假)
.如果结束
.子程序 _按钮_退出_被单击
结束 ()

运行结果:

总结

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

(0)

相关推荐

  • 易语言破解WPS的VIP模版下载地址

    DLL命令表 .版本 2 .DLL命令 API下载文件, 整数型, "urlmon", "URLDownloadToFileA", , -下载文件 .参数 pcaller, 整数型 .参数 szurl, 文本型 .参数 szfilename, 文本型 .参数 dwreserved, 整数型 .参数 lpfncb, 整数型 常量数据表 .版本 2 .常量 id, "<文本长度: 21>", , "big":[{&qu

  • 易语言5.6完美破解步骤教学

    易语言有许多版本,每个版本都有自己的优点,但最新版总会有新的东西,今天我来教大家如何破解易语言5.6版本 1.易语言 5.6 完美破解版 免费绿色版(附破解补丁) 2.我们下载好了打开压缩包,点击第二个文件,然后安装即可. 3.安装后对桌面的易语言5.6右键点击属性打开文件所在位置 4.将下载好的补丁文件全部复制替换之前打开易语言的所在文件 5.点击易语言,打开静态编译转换器. 6.打开后点击上面的运行 7.点击运行后随便点那个连接不过最好点VC6链接. 8.点了后,恭喜你破解成功了,不信你打开

  • 易语言通过解析破解艾奇学院的收费视频的代码

    常量数据表 .版本 2 .常量 常量1, "<文本长度: 51>", , href="/home.php?m=Order&a=subCourseConfirm&id=.*?" rel="external nofollow" 艾奇学院收费视频破解的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 iext .支持库 HtmlView .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 vid, 文本

  • 易语言word密码暴力破解器简易版

    DLL代码 .版本 2 .DLL命令 CreateThread, 整数型, , "CreateThread", , CreateThread .参数 lpThreadAttributes, 整数型 .参数 dwStackSize, 整数型 .参数 lpStartAddress, 子程序指针 .参数 lpParameter, 整数型 .参数 dwCreationFlags, 整数型 .参数 lpThreadId, 整数型, 传址 .DLL命令 TerminateThread, 整数型,

  • 易语言破解软件时的按钮断点事件处理方法

    按钮事件断点时 断在时钟的处理方法,新人看看比较好,按钮事件断点断在时钟是很常见的事情.(主要针对易语言程序来讲解) 1.首先载入程序 2.按ALT+M,搜索FF 55 FC 5F 5E 89 5D F4(这个是易语言按钮事件特征码) 3.会弹出这个 4.然后按这个搜索418E5D 5. 在这下段,3秒内会断在时钟,然后在堆栈窗口向上翻,出现"时钟",在时钟后面第二个那里按"反汇编窗口中跟随", 6.反汇编窗口就会来到这里,然后把开头第一行给retn了,如图所示 7

  • 易语言程序破解浅析

    易语言程序用PEID查壳显示的是 Visual C++ 6.0[overlay]   ,其中包含有ecode区段,这基本就是易语言程序是不会错了,应为易语言底层也是用的C++的编译系统所以也是Visual C++ 6.0, overlay(附加数据)是什么意思呢?这是易语言独有的特性:程序在库中运行,就像加了可一样所以说它带有附加数据. 如果你拿到一个易语言的程序载入 OD后就直接查找字符串之类的是无果的,就像前面所说的,易语言程序就像被加了壳一样,所以你必须在壳把程序完全解压释放出来你才能查看

  • 易语言通过枚举密码进行破解rar压缩包文件的代码

    rar密码破解源码 此功能需要加载精易模块5.6 .版本 2 .支持库 xplib .程序集 窗口程序集_启动窗口 .程序集变量 程序集_数组1, 文本型, , "0" .程序集变量 程序集_数组2, 文本型, , "0" .程序集变量 程序集_数组3, 文本型, , "0" .程序集变量 程序集_数组4, 文本型, , "0" .程序集变量 程序集_数组5, 文本型, , "0" .程序集变量 程序集_数

  • php解压缩zip和rar压缩包文件的方法

    项目涉及文档处理,用户上传的包括 zip 和 rar 压缩包,需要先将压缩包解压后再作处理.对于 zip 压缩包,由于 php 自带 zip 扩展,可以直接解压. 解压zip压缩包: $file = "/opt/data/upload/testfile.zip"; $outPath = "/opt/data/upload/testfile"; $zip = new ZipArchive(); $openRes = $zip->open($file); if (

  • 举例说明易语言中枚举常量的使用方法

    枚举 枚举(enum)是定义一组命名常量的机制,用这种方式定义的常量被称作枚举常量 注:枚举常量的数据类型是整数 使用方法: 下面我们以文本语音转换为例子,说明一下枚举常量的使用方法. 首先我们在窗体上放入语音识别控件,按钮,通用对话框这些基本控件,来制作一个简单的语音文本朗读程序. 1 如果您使用过语音识别控件,就应该知道,使用这个控件的第一步就是先创建它,而创建命令的两个参数就是枚举常量,我们可以看一下,以下代码是如何使用枚举常量的. 2 同样在机读文本的时候,我们也需要使用这些枚举常量.

  • 易语言抓包获得地址实现TP路由器登陆的代码

    常量数据表 .版本 2 .常量 协议头, "<文本长度: 310>", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-En

  • 易语言调用TTS语音模块实现文字转换语音功能的代码

    DLL命令表 .版本 2 .DLL命令 CoInitialize, 整数型, "ole32.dll", "CoInitialize" .参数 pvReserved, 整数型 .DLL命令 CoUninitialize, , "Ole32.dll", "CoUninitialize", , 在当前线程,关闭COM库,卸载所有加载的DLL的线程,释放线程保持的任何其他资源,并强制关闭所有的线程上的RPC连接. 利用系统自带的TTS

  • 易语言调用墨迹天气实现自动定位获取天气情况的代码

    常量数据表 .版本 2 .常量 实况头, "<文本长度: 9>" .常量 实况尾, "<文本长度: 2>" .常量 更新时间头, "<文本长度: 28>" .常量 更新时间尾, "<文本长度: 9>" .常量 温度头, "<文本长度: 28>" .常量 温度尾, "<文本长度: 5>" .常量 空气质量头, &quo

  • 易语言解析音悦台MV提供超清下载地址的代码

    音悦台MV地址解析 此功能需要加载精易模块5.6 .版本 2 .支持库 exui .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 标清, 文本型 .程序集变量 高清, 文本型 .程序集变量 超清, 文本型 .子程序 _按钮EX1_左键单击 按钮EX2.可视EX = 假 按钮EX3.可视EX = 假 按钮EX4.可视EX = 假 .判断开始 (编辑框EX1.内容 = "") 信息框EX (, "告警 :", , "先输入MV地址才能解

  • 易语言超级列表框点击表头进行排序的代码

    超级列表框排序模块源码 .版本 2 .支持库 iext .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中. 注意不要修改本子程序的名称.参数及返回值类型. .子程序 超级列表框排序, 整数型

  • 易语言免费领取ofo小黄车三个月骑乘卡的代码

    免费领取ofo小黄车三个月骑乘卡的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 cookies, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 返回, 文本型 .子程序 _发送按钮_被单击 启动线程 (&发送, , ) .子程序 发送 .局部变量 返回, 文本型 返回 = 编码_URL解码 (到文本 (网页_访问_对象 ("https://san.ofo.so/ofo/Api/activity/monthC

  • 易语言调用whois实现域名批量查询与注册的代码

    域名批量查询注册与whois查询的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .程序集 窗口程序集_启动窗口 .子程序 _批量查询_被单击 启动线程 (&查询是否可以注册, , ) .子程序 查询是否可以注册 .局部变量 xml, 文本型 .局部变量 域名数组, 文本型, , "0" .局部变量 计次, 整数型 批量查询.禁止 = 真 批量查询.标题 = "正在查询..." 域名数组 = 分割文本 (删首尾空 (批量域名.内容)

随机推荐