服务器之家

服务器之家 > 正文

易语言抓包获得地址实现TP路由器登陆的代码

时间:2022-02-23 15:32     来源/作者:易语言源码教程

常量数据表

?
1
2
3
.版本 2
.常量 协议头, "<文本长度: 310>", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-Encoding: gzip, deflate Connection: Keep-Alive DNT: 1 Host: 192.168.1.1 Authorization: Basic 帐号密码
.常量 获取ip, "<文本长度: 64>", , var wanPara = new Array\([\s\S]*?"(.*?)", "(\d+\.\d+\.\d+\.\d+)"

TP路由器登录拨号重启功能

此功能需要加载精易模块5.6

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
.版本 2
.程序集 窗口程序集1
.程序集变量 协议头, 文本型
.程序集变量 返回文本, 文本型
.程序集变量 正则, 正则表达式类
.子程序 _按钮_登录_被单击
协议头 = 文本_替换 (#协议头, 1, , , “地址”, 编辑框_地址.内容, “帐号密码”, 编码_BASE64编码 (到字节集 (编辑框_帐号.内容 + “:” + 编辑框_密码.内容)), , , , , , )
返回文本 = 网页_访问S (“http://” + 编辑框_地址.内容 + “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , )
.判断开始 (寻找文本 (返回文本, “登录失败”, , 假) ≠ -1)
  标签_状态.标题 = “登录失败。”
  返回 ()
.默认
  标签_状态.标题 = “登录成功。”
.判断结束
正则.创建 (#获取ip, 返回文本, , )
标签_状态.标题 = 标签_状态.标题 + #换行符 + #换行符 + “MAC 地址:” + 正则.取子匹配文本 (1, 1) + #换行符 + #换行符 + “IP地址:” + 正则.取子匹配文本 (1, 2) + #换行符 + #换行符 + “其他信息可以自己写正则获取。”
.子程序 _按钮_断开_被单击
.如果真 (协议头 = “”)
  标签_状态.标题 = “未登录”
  返回 ()
.如果真结束
标签_状态.标题 = “”
.判断开始 (按钮_断开.标题 = “断开”)
  按钮_断开.标题 = “连接”
  返回文本 = 网页_访问S (“http://” + 编辑框_地址.内容 + “/userRpm/StatusRpm.htm?Disconnect=断 线&wan=1”, 0, , , , 协议头, , , , , )
  正则.创建 (#获取ip, 返回文本, , )
.默认
  按钮_断开.标题 = “断开”
  返回文本 = 网页_访问S (“http://” + 编辑框_地址.内容 + “/userRpm/StatusRpm.htm?Connect=连 接&wan=1”, 0, , , , 协议头, , , , , )
  .如果真 (正则.取子匹配文本 (1, 2) = “0.0.0.0”)
    .判断循环首 (正则.取子匹配文本 (1, 2) = “0.0.0.0”)
      返回文本 = 网页_访问S (“http://” + 编辑框_地址.内容 + “/userRpm/StatusRpm.htm”, 0, , , , 协议头, , , , , )
      正则.创建 (#获取ip, 返回文本, , )
    .判断循环尾 ()
  .如果真结束
.判断结束
标签_状态.标题 = 标签_状态.标题 + #换行符 + #换行符 + “MAC 地址:” + 正则.取子匹配文本 (1, 1) + #换行符 + #换行符 + “IP地址:” + 正则.取子匹配文本 (1, 2) + #换行符 + #换行符 + “其他信息可以自己写正则获取。”
.子程序 _按钮_重启_被单击
.如果真 (协议头 = “”)
  标签_状态.标题 = “未登录”
  返回 ()
.如果真结束
标签_状态.标题 = “正在重新启动”
返回文本 = 网页_访问S (“http://” + 编辑框_地址.内容 + “/userRpm/SysRebootRpm.htm?Reboot=%D6%D8%C6%F4%C2%B7%D3%C9%C6%F7”, 0, , , , 协议头, , , , , )

运行结果:

易语言抓包获得地址实现TP路由器登陆的代码

总结

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

相关文章

热门资讯

蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
2022年最旺的微信头像大全 微信头像2022年最新版图片
2022年最旺的微信头像大全 微信头像2022年最新版图片 2022-01-10
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
返回顶部