精睿(vc52).网络安全

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
楼主: 魔影

[原创] 2017年8月4日新鲜出炉的用户名及密码获取工具

    [复制链接]
发表于 2017-8-5 12:12 | 显示全部楼层
支持,
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:18 | 显示全部楼层
谢谢楼主
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:28 | 显示全部楼层
需要回一个看看。
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:32 | 显示全部楼层
谢谢分享
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:40 | 显示全部楼层
感谢楼主
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:41 | 显示全部楼层
谢谢分享
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:41 | 显示全部楼层
怎么我所在的用户组无法查看附件呢?
回复 支持 反对

使用道具 举报

发表于 2017-8-5 12:52 | 显示全部楼层
为了看这个,我设置了安全中心4个东东
回复 支持 反对

使用道具 举报

发表于 2017-8-5 13:18 | 显示全部楼层
好东西 求下载
回复 支持 反对

使用道具 举报

发表于 2017-8-5 13:32 | 显示全部楼层
本帖最后由 冷暖人生路 于 2017-8-5 13:37 编辑
  1. ; <COMPILER: v1.0.47.6>
  2. MsgBox ,0, 魔影小试, ESET用户名及密码下载`n5秒后自动确认下载, 5
  3. TrayTip , 请稍侯, 正在努力下载用户名及密码, 5, 1]
  4. UrlDownloadToFile, http://www.nod32jihuoma.com/, key.txt
  5. Loop
  6. {
  7. FileReadLine, line, key.txt, %A_Index%
  8. if ErrorLevel
  9. break
  10. RegExMatch(line, "用户名:(.+) 用",URL)
  11. if (StrLen(URL)<>0)
  12. URLs=%URLs%%URL%`n
  13. }
  14. FileAppend , %URLs%, j.txt
  15. Loop
  16. {
  17. FileReadLine, line1, j.txt, %A_Index%
  18. if ErrorLevel
  19. break
  20. NewStr := SubStr(line1, 1,42)
  21. NewStrq=%NewStrq%%NewStr%`n
  22. }
  23. FileAppend , %NewStrq%, 用户名及密码.txt
  24. Filedelete , j.txt
  25. Filedelete , key.txt

  26. UrlDownloadToFile, https://nod32.buzzdope.com/, key1.txt
  27. Loop
  28. {
  29. FileReadLine, line2, key1.txt, %A_Index%
  30. if ErrorLevel
  31. break
  32. RegExMatch(line2, "TRIA(.+)</tr",URL1)
  33. if (StrLen(URL1)<>0)
  34. URLs1=%URLs1%%URL1%`n
  35. }
  36. FileAppend , %URLs1%, j1.txt
  37. Loop
  38. {
  39. FileReadLine, line3, j1.txt, %A_Index%
  40. if ErrorLevel
  41. break
  42. NewStr1 := SubStr(line3, 1,16)
  43. NewStr2 := SubStr(line3,26,10)

  44. NewStrq1=%NewStrq1%用户名:%NewStr1%密码:%NewStr2%`n
  45. }
  46. FileAppend , %NewStrq1%, 用户名及密码.txt
  47. Filedelete , key1.txt
  48. Filedelete , j1.txt



  49. UrlDownloadToFile, http://down.lansedongli.com/zt/eset_nod32_key.html, key2.txt
  50. Loop
  51. {
  52. FileReadLine, line5, key2.txt, %A_Index%
  53. if ErrorLevel
  54. break
  55. RegExMatch(line5, "用户名:TRIAL(.+)<",URL2)
  56. if (StrLen(URL2)<>0)
  57. URLs2=%URLs2%%URL2%`n
  58. }
  59. FileAppend , %URLs2%, j3.txt
  60. Loop
  61. {
  62. FileReadLine, line6, j3.txt, %A_Index%
  63. if ErrorLevel
  64. break
  65. NewStr3 := SubStr(line6, 1,40)
  66. NewStrq2=%NewStrq2%%NewStr3%`n
  67. }
  68. FileAppend , %NewStrq2%, 用户名及密码.txt
  69. Filedelete , j3.txt
  70. Filedelete , key2.txt
复制代码
早就放弃ahk了 等于开源的

点评

老大,你动手修改一下呀,直接弄个自动更换ID  详情 回复 发表于 2017-8-5 14:01
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|文字版|RSS|站长邮件|精睿.网络安全 ( 鄂ICP备07005250号 )

GMT+8, 2017-9-20 19:09 , Processed in 0.096122 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表