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

qicai

支持，

liyuext01

谢谢楼主

alanshu

需要回一个看看。

99777777

谢谢分享

yunjin9856

感谢楼主

FeiXJ168

谢谢分享

yunjin9856

怎么我所在的用户组无法查看附件呢？

volcanol

为了看这个，我设置了安全中心4个东东

无敌小喵喵

好东西 求下载

冷暖人生路

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. 
    
27. UrlDownloadToFile, https://nod32.buzzdope.com/, key1.txt
    
28. Loop
    
29. {
    
30. FileReadLine, line2, key1.txt, %A_Index%
    
31. if ErrorLevel
    
32. break
    
33. RegExMatch(line2, "TRIA(.+)</tr",URL1)
    
34. if (StrLen(URL1)<>0)
    
35. URLs1=%URLs1%%URL1%`n
    
36. }
    
37. FileAppend , %URLs1%, j1.txt
    
38. Loop
    
39. {
    
40. FileReadLine, line3, j1.txt, %A_Index%
    
41. if ErrorLevel
    
42. break
    
43. NewStr1 := SubStr(line3, 1,16)
    
44. NewStr2 := SubStr(line3,26,10)
    
45. 
    
46. NewStrq1=%NewStrq1%用户名：%NewStr1%密码：%NewStr2%`n
    
47. }
    
48. FileAppend , %NewStrq1%, 用户名及密码.txt
    
49. Filedelete , key1.txt
    
50. Filedelete , j1.txt
    
51. 
    
52. 
    
53. 
    
54. UrlDownloadToFile, http://down.lansedongli.com/zt/eset_nod32_key.html, key2.txt
    
55. Loop
    
56. {
    
57. FileReadLine, line5, key2.txt, %A_Index%
    
58. if ErrorLevel
    
59. break
    
60. RegExMatch(line5, "用户名：TRIAL(.+)<",URL2)
    
61. if (StrLen(URL2)<>0)
    
62. URLs2=%URLs2%%URL2%`n
    
63. }
    
64. FileAppend , %URLs2%, j3.txt
    
65. Loop
    
66. {
    
67. FileReadLine, line6, j3.txt, %A_Index%
    
68. if ErrorLevel
    
69. break
    
70. NewStr3 := SubStr(line6, 1,40)
    
71. NewStrq2=%NewStrq2%%NewStr3%`n
    
72. }
    
73. FileAppend , %NewStrq2%, 用户名及密码.txt
    
74. Filedelete , j3.txt
    
75. Filedelete , key2.txt
    

复制代码

早就放弃ahk了 等于开源的