Nou virus fals nu afecteaza pc

On Error Resume Next

Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")
set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
set objShell = CreateObject("WScript.Shell")

StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show

objPeter.Play "Announce"


Wsh.Run "Notepad.exe", 1
wscript.sleep 1200
wshshell.sendkeys "(Salut este hackerit )"
wscript.sleep 1200
wshshell.sendkeys "~(stiu nu as vrea sa fiu in locul tau acum.....)"
wscript.sleep 1200
objPeter.Play "DoMagic1"
wshshell.sendkeys "~(si ghici ce!!!!)"
wscript.sleep 1200
wshshell.sendkeys "~(ghici ce urmeaza!)"
wscript.sleep 2000
wshshell.sendkeys "~(nu poti face nimic sa ma opresti!)"
wscript.sleep 2000
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
objPeter.Play "DoMagic2"
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50































ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Buna eu sunt LightxD/Alyn sunt pe cale sa iti distrug calculatorul")
ObjPeter.MoveTo 300,100
ObjPeter.Show
ObjPeter.Speak("pentru inceput am de gand sa caut cateva file de system32 sa vad ce gasesc...")
Wscript.Sleep 1000
ObjPeter.MoveTo 300,100
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("stai putin am de gand sa sterg cateva fisiere de system... pa pa windows!")
Wscript.Sleep 1000
ObjPeter.MoveTo 100,50
Wscript.Sleep 1000
ObjPeter.MoveTo 600,50
ObjPeter.MoveTo 200,500
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("dap au disparut toate.. schimbarile vor aparea dupa restart")
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("te gandesti ca nu vei da niciodata restart? lasama sa te ajut!")
ObjPeter.Speak("Pa pa")

objPeter.Play "Wave"


Set objAction= objPeter.Hide
Do While objPeter.Visible = True
loop

wsh.run "shutdown.exe -s -t 100"
Wscript.Sleep 8000
Wsh.Run "%SystemRoot%\system32\cmd.exe"
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
strIpConfig = objScriptExec.StdOut.ReadAll
objShell.SendKeys "Exit"
objShell.SendKeys "{Enter}"
Wscript.Sleep 1000

lol=msgbox("warning an unknown virus has been detected please reformat c drive to prevent damage to your computer",16, "error")
lol=msgbox("now click ok to see what to do",16, "error")
lol=msgbox("you have clicked ok, click ok to continue ",16, "error")

Dim box, yes, no

box = MsgBox("would you like to delete the virus?",52,"error")

If box =6 Then
yes = MsgBox("Virus cannot be deleted",48,"error")
End if

If box =7 Then
no = msgbox("why the hell would you click no? are you retarded???",32,"RETARD!!!")

End If

lol=msgbox("windows is working on virus ",16, "error")
lol=msgbox("processing... ",16, "error")
lol=msgbox("processing... ",16, "error")
lol=msgbox("near completion... ",16, "error")
lol=msgbox("windows has failed to detain the virus ",16, "error")
lol=msgbox("the virus is over riding windows and taking command of this box ",16, "major error")
lol=msgbox("hahaha!!Sunt hackerul am preluat controlul asupra calculatorului tau! ",16, "hacker response:")
lol=msgbox("nu ai cum sa scapi de mine ",16, "hacker response:")
lol=msgbox("ti-am distrus firewoll-ul si ti-am distrus windowsul ",16, "hacker response:")
lol=msgbox("cand voi termina calculatorul tau va fi istorie! ",16, "hacker response:")
lol=msgbox("stai??? ce dracu? ",16, "hacker response:")
lol=msgbox("ce dracu imi faci la calculator? ",16, "hacker response:")
lol=msgbox("windows is fighting the hacker, please be patient... ",48, "windows anti error")
lol=msgbox("windows has taken control of hackers computer... ",48, "windows anti error")
lol=msgbox("windows has notified police of the hackers location... ",48, "windows anti error")
lol=msgbox("windows has kicked the hackers ass ",48, "windows anti error")
lol=msgbox("hacker destroyed ",48, "windows anti error")
lol=msgbox("your computer has been restored fully ",64, "windows anti error")
lol=msgbox("thank you for your time and on behalf of windows we apologize for this event ",64, "windows anti error")
lol=msgbox("you may now go about your business ",64, "windows anti error")
lol=msgbox("sincerely, windows antivirus team ",64, "no error")

lol=msgbox("Ha ha ha totul a fost doar o gluma sper ca nu te-ai suparat")

lol=msgbox("Program creat de LightxD/Alyn",64, "PROGRAMMED BY~")