易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

监控smtp和反编译获取程序内邮件密码、发送信息达到反钓鱼的目的

反邮箱钓鱼程序源码

.版本 2
.支持库 EThread
.支持库 eAPI
.支持库 xplib
.支持库 edroptarget
.支持库 pop3
.支持库 iext
.程序集 窗口程序集1
.程序集变量 服务器, 文本型
.程序集变量 帐号, 文本型
.程序集变量 密码, 文本型
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 钓鱼软件, 字节集
.局部变量 邮箱位置, 整数型
.局部变量 空白文本, 整数型
.局部变量 跳过, 整数型
.局部变量 邮箱, 字节集, , "0"
.局部变量 扩展名, 文本型
.局部变量 服务器验证, 文本型, , "0"
扩展名 = 取文本右边 (接收到的文件路径, 3)
扩展名 = 到小写 (扩展名)
.如果 (扩展名 = “exe”)
  钓鱼软件 = 读入文件 (接收到的文件路径)
  邮箱位置 = 寻找字节集 (钓鱼软件, 到字节集 (“smtp.”), )
  跳过 = 倒找字节集 (钓鱼软件, { 0 }, 邮箱位置)
  跳过 = 倒找字节集 (钓鱼软件, { 0 }, 跳过 - 1)
  跳过 = 倒找字节集 (钓鱼软件, { 0 }, 跳过 - 1)
  空白文本 = 寻找字节集 (钓鱼软件, { 0 }, 邮箱位置)
  钓鱼软件 = 取字节集中间 (钓鱼软件, 跳过, 空白文本 - 跳过)
  邮箱 = 分割字节集 (钓鱼软件, { 0 }, )
  删除成员 (邮箱, 1, 1)
  重定义数组 (邮箱, 真, 取数组成员数 (邮箱))
  .如果真 (取数组成员数 (邮箱) = 3)
    报表.加入文本 (“服务器:” + 到文本 (邮箱 [3]) + “ 帐号:” + 到文本 (邮箱 [2]) + “ 密码:” + 到文本 (邮箱 [1]) + #换行符 + #换行符)
    服务器验证 = 分割文本 (到文本 (邮箱 [3]), “.”, )
    .判断开始 (服务器验证 [2] = “QQ”)
      服务器 = “pop.qq.com”
    .默认
    .判断结束
    .判断开始 (服务器验证 [2] = “163”)
      服务器 = “pop.163.com”
    .默认
    .判断结束
    帐号 = 到文本 (邮箱 [2])
    密码 = 到文本 (邮箱 [1])
    启动线程 (&获取信息, , )
  .如果真结束
  钓鱼软件 = { }
  清除数组 (邮箱)
.否则
  .如果 (扩展名 = “lnk”)
    接收到的文件路径 = 取快捷方式目标 (接收到的文件路径, , , , , , , )
    钓鱼软件 = 读入文件 (接收到的文件路径)
    邮箱位置 = 寻找字节集 (钓鱼软件, 到字节集 (“smtp.”), )
    跳过 = 倒找字节集 (钓鱼软件, { 0 }, 邮箱位置)
    跳过 = 倒找字节集 (钓鱼软件, { 0 }, 跳过 - 1)
    跳过 = 倒找字节集 (钓鱼软件, { 0 }, 跳过 - 1)
    空白文本 = 寻找字节集 (钓鱼软件, { 0 }, 邮箱位置)
    钓鱼软件 = 取字节集中间 (钓鱼软件, 跳过, 空白文本 - 跳过)
    邮箱 = 分割字节集 (钓鱼软件, { 0 }, )
    删除成员 (邮箱, 1, 1)
    重定义数组 (邮箱, 真, 取数组成员数 (邮箱))
    .如果真 (取数组成员数 (邮箱) = 3)
      报表.加入文本 (“服务器:” + 到文本 (邮箱 [3]) + “ 帐号:” + 到文本 (邮箱 [2]) + “ 密码:” + 到文本 (邮箱 [1]) + #换行符 + #换行符)
      服务器验证 = 分割文本 (到文本 (邮箱 [3]), “.”, )
      .判断开始 (服务器验证 [2] = “QQ”)
        服务器 = “pop.qq.com”
      .默认
      .判断结束
      .判断开始 (服务器验证 [2] = “163”)
        服务器 = “pop.163.com”
      .默认
      .判断结束
      帐号 = 到文本 (邮箱 [2])
      密码 = 到文本 (邮箱 [1])
      启动线程 (&获取信息, , )
    .如果真结束
    钓鱼软件 = { }
    清除数组 (邮箱)
  .否则
    报表.加入文本 (“非可执行文件无法获取” + #换行符)
  .如果结束
.如果结束
.子程序 __启动窗口_创建完毕
XP风格 (1)
拖放对象1.注册拖放控件 (取窗口句柄 ())
.子程序 获取信息
.局部变量 邮件个数, 整数型
.局部变量 邮件大小, 整数型
.局部变量 n1, 整数型
.局部变量 邮件信息, 邮件信息
超级列表框1.全部删除 ()
.如果 (连接收信服务器 (服务器, 110, 帐号, 密码, 30000, 3) = 真)
  获取邮件信息 (邮件个数, 邮件大小)
  .计次循环首 (邮件个数, n1)
    邮件信息 = 接收邮件 (n1)
    超级列表框1.插入表项 (n1 - 1, 到文本 (n1), , , , )
    超级列表框1.置标题 (n1 - 1, 1, 邮件信息.取主题 ())
    超级列表框1.置标题 (n1 - 1, 2, 邮件信息.取文本内容 ())
    超级列表框1.置标题 (n1 - 1, 3, 到文本 (邮件信息.取日期 ()))
  .计次循环尾 ()
.否则
.如果结束
.子程序 _超级列表框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (菜单, , )
.子程序 _查看详情_被选择
报表.加入文本 (“标题:” + 超级列表框1.取标题 (超级列表框1.现行选中项, 1) + #换行符 + 超级列表框1.取标题 (超级列表框1.现行选中项, 2) + #换行符 + 超级列表框1.取标题 (超级列表框1.现行选中项, 3) + #换行符)
.子程序 _删除邮件_被选择
.判断开始 (删除邮件 (超级列表框1.现行选中项 + 1) = 真)
  超级列表框1.删除表项 (超级列表框1.现行选中项)
.默认
.判断结束

运行结果:

总结

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

(0)

相关推荐

  • 详解易语言IDE配置及编译输出

    易语言IDE 易语言(全称易语言·飞扬)公司垄断了易语言的版权,我们使用的IDE如果不出意外就是市面上唯一的一款易语言IDE(有不同的版本号) 支持库.程序.属性 『支持库』.『程序』.『属性』这三个按钮默认位于IDE的左下角 支持库:提供默认的代码库支持,可以通过工具->支持库配置选择增加新的支持库 程序:主要菜单,编写代码的地方 属性,在可视化状态下点击组件图片会显示相应的属性,可以直接在属性区域对组件进行简单设置(如标题.内容等) 快捷键 编写代码时使用Ctrl+Tab键在菜单间来回切换

  • 如何编译下载的易语言源码

    很多刚刚接触易语言的网友不知道怎么使用易语言源码,其实易语言的源码也不过是一个加密的文本,里面只有易语言代码,要想使用需要使用易语言打开并编译为exe文件才能使用 1.易语言的源码是以 .e 为后缀的文件,如果下载后的源码是这样的就说明你电脑上已经安装了易语言程序:如果是未知格式就说明电脑没有安装易语言,需要先安装易语言 1.登录易语言官网后,可以点击下载进入易语言下载页面 2.下载并安装易语言 1.安装完易语言后可以双击源码打开 2.也可以用右键点击选择打开方式,再选择使用易语言打开 1.如果

  • 实现让易语言编译的32位程序在64位Windows7系统非管理员帐户中执行

    昨天有易语言开发者向我求助,说他用易语言编译的32位程序软件,发布给64位操作系统Win 7用户使用,因为该用户确定没有管理员权限,而程序启动时又要求必须输入管理员密码,如此陷入困境. 目标企业用户管理严格,要求为普通用户分配管理员权限是不切实际的,只能开发人员从软件开发的角度在技术上解决. 我听到这个问题后,第一感觉是微软用户帐户控制(UAC)引发的,估计通过给 exe 添加特定的 manifest 资源应该可以解决.于是我给了他一段代码,让他用 ResHacker 之类的软件添加到软件里面去

  • 总结易语言几种编译的区别

    几种不同的编译 编译: 将程序进行普通的编译,必须附带相关支持库才能运行,最好是对方电脑装有易语言,一般极少用到(我个人从未使用),但是如果程序是模块文件,则点击这个进行编译. 独立编译: 将程序编译为一个单一的exe文件,在运行的时候会自动把有关的支持文件自动释放到系统临时目录,我觉得也可以把它叫做半独立编译(我也从来不用). 编译生成安装软件: 将程序文件打包成一个安装软件的形式,在别的电脑运行的时候感觉就像安装软件一样,很正式(我从来不用). 编译为易包: 较新的易语言版本新加入的功能,会

  • 易语言编译失败的解决办法

    有些朋友在使用易语言编写程序后,编译时出现编译失败的字样,那该怎么办呢?往下看步骤. 1.首先,我们正常编译,看到了出错了吧!看图 2.其次我们找到易语言的运行目录,打开VC98linker文件夹,再打开link.e 3.打开后,如图.运行. 4.运行后,如图所示,单击修改,确定. 5.再次编译一下试试.看!是不是成功了?!

  • 易语言静态编译的两种方法总结

    许多刚接触易语言的朋友在画上几个小时的时间写好代码准备编译的时候,或多或少碰到过易语言提示无法定位连接器的问题,导致辛辛苦苦制作的软件无法编译发布,今天小编就来教大家两种解决易语言无法静态编译的方法,大家一定要耐心看完哦,最好能够够跟着教程一步一步操作. 1.首先,打开易语言安装目录,找到"VC98linker"文件夹进入(PS:如果找不到此目录,说明您下载的易语言并非破解版本,请先自行百度搜索下载安装易语言5.11破解版). 2.找到"link.e"文件,打开.(

  • 易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

    监控smtp和反编译获取程序内邮件密码.发送信息达到反钓鱼的目的 反邮箱钓鱼程序源码 .版本 2 .支持库 EThread .支持库 eAPI .支持库 xplib .支持库 edroptarget .支持库 pop3 .支持库 iext .程序集 窗口程序集1 .程序集变量 服务器, 文本型 .程序集变量 帐号, 文本型 .程序集变量 密码, 文本型 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 钓鱼软件, 字节集 .局部变量 邮箱位置, 整数型 .局部变量

  • 零基础易语言入门教程(三)之了解控制台程序

    易语言简介: 易语言是一门以中文作为程序代码编程语言.以"易"著称.创始人为吴涛.早期版本的名字为E语言.易语言最早的版本的发布可追溯至2000年9月11日.创造易语言的初衷是进行用中文来编写程序的实践.从2000年至今,易语言已经发展到一定的规模,功能上.用户数量上都十分可观. 易语言和其它编程语言一样都有后台程序,它也不一定必须是窗口程序的了,下面小编带大家了解易语言的控制台程序. 方法和步骤如下所示: 1.延时命令: 首先学习一个第一个命令,该命令可将其脚本界面延时.1000毫秒

  • 易语言通过解密微博图片地址获取发布者微博地址的代码

    常量数据表 .版本 2 .常量 常量1, "<文本长度: 399>", , 'js脚本 返回 origin_number 微博图片获取发布者的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集1 .子程序 _文本提取按钮_被单击 .局部变量 文本_提取, 文本型 .局部变量 文本_转换, 文本型 .局部变量 文本_结果, 文本型 .局部变量 文本_判断, 文本型 文本_提取 = 文本_倒取出中间文本 (图片地址编辑框

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

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

  • 易语言高级表格选择任意行列获取内容的代码示例

    高级表格取选择任意行列的内容 .版本 2 .支持库 eGrid .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 高级表格1.置数据 (1, 1, #表格常量.文本型, "我") 高级表格1.置数据 (1, 2, #表格常量.文本型, "爱") 高级表格1.置数据 (1, 3, #表格常量.文本型, "你") 高级表格1.置数据 (1, 4, #表格常量.文本型, "你") 高级表格1.置数据 (1, 5, #表格常量

  • 易语言调用api实现文件拖放获取路径的代码

    拖放文件支持任意版本Windows系统 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 文件拖放类, 文件拖放 .子程序 __启动窗口_创建完毕 .局部变量 拖放处理, 子程序指针 文件拖放类.注册拖放 (_启动窗口.取窗口句柄 (), &拖放处理) proc_FilterMsg () .子程序 拖放处理 .参数 总文件数量, 整数型 .参数 当前是第几个文件, 整数型 .参数 当前的文件名, 文本型 .参数 当前的文件类型, 文本型

  • 易语言调用ESPI11.dll实现禁止指定程序访问网络的代码

    拦截指定程序联网的代码 .版本 2 .支持库 eNetIntercept .支持库 eAPI .程序集 拦截指定进程联网 .程序集变量 被拦截进程名, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 a, 网络服务安装 .局部变量 b, 系统信息 被拦截进程名 = "被拦截.EXE" ' 要拦截的程序 .如果真 (a.是否已安装 () = 假) 取系统信息 (b) 写到文件 (b.系统目录 + "\ESPI11.dll", #服务文件) a.安装 (b.系统目

  • 易语言SMTP验证帐号、密码教程

    易语言通过SMTP验证帐号.密码 1.打开易语言>>>>新建一个窗口程序打开易语言>>>>新建一个窗口程序 2.一次添加两个标签.两个编辑框.一个按钮 3.用到的两个编辑框,一个作为帐号编辑框,一个作为密码编辑框.用到的两个编辑框,一个作为帐号编辑框,一个作为密码编辑框. 4.输入代码: .版本 2 .支持库 internet .程序集 窗口程序集1 .子程序 _按钮1_被单击 .判断开始 (连接发信服务器 ("smtp.163.com"

  • Android APK反编译图文教程

    在学习Android开发的过程你,你往往会去借鉴别人的应用是怎么开发的,那些漂亮的动画和精致的布局可能会让你爱不释手,作为一个开发者,你可能会很想知道这些效果界面是怎么去实现的,这时,你便可以对改应用的APK进行反编译查看.下面是我参考了一些文章后简单的教程详解. (注:反编译不是让各位开发者去对一个应用破解搞重装什么的,主要目的是为了促进开发者学习,借鉴好的代码,提升自我开发水平.) 测试环境: win 7 使用工具: 我们下载地址: apktool (资源文件获取)  下载        

  • Pyinstaller加密打包成反编译可执行文件

    目录 前言 PYD 打包 说明 前言 了解 Python 的都知道 Pyinstaller 可以将 .py 文件打包成 windows 下可执行的 .exe 文件, 但是在我们不想让他人反编译获取源码的时候就显得无能为力, 此时我们可以了解 .pdy 文件. PYD pyc 是二进制文件, 是由 Python 编译器进行编译后生成的文件, 加载速度快.pyo 是优化编译后的二进制文件, 可以通过 python -O file.py 生成.pyd 则是 Python 的动态链接库, 由其他语言编写

随机推荐