易語言監控smtp和反編譯怎么獲取程序內郵件密碼發送信息達到反釣魚的目的

這篇文章主要介紹了易語言監控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.現行選中項)
.默認
.判斷結束

運行結果：

感謝你能夠認真閱讀完這篇文章，希望小編分享的“易語言監控smtp和反編譯怎么獲取程序內郵件密碼發送信息達到反釣魚的目的”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!