gamefreak23
Gebruiker
- Lid geworden
- 5 jan 2013
- Berichten
- 543
Goedemiddag help-mijers,
Ik heb een eigengemaakt script gemaakt (vbs) die de CD-ROM opent , een piepje geeft , "Ghost Typing" doet en wat msgbox's laat zien.
Nou wou mijn vriend het hebben op zijn computer proberen. Dus ik heb het via Skype door gestuurd en hij opent het op zijn computer.
Dan krijgt hij van zijn Anti Virus (Avira) een virus detectie van VBS/BadJoke.H. Terwijl ik ZEKER weet dat dat echt niet waar is.
Mijn virusscanner (MSE en G Data) zeggen er niks over.
Mijn vraag is dus , heb ik nou iets fout gedaan in het script?
Ik weet niet of het mag maar hier is het script:
Groeten , gamefreak23
*scan van Virustotal*
Ik heb een eigengemaakt script gemaakt (vbs) die de CD-ROM opent , een piepje geeft , "Ghost Typing" doet en wat msgbox's laat zien.
Nou wou mijn vriend het hebben op zijn computer proberen. Dus ik heb het via Skype door gestuurd en hij opent het op zijn computer.
Dan krijgt hij van zijn Anti Virus (Avira) een virus detectie van VBS/BadJoke.H. Terwijl ik ZEKER weet dat dat echt niet waar is.
Mijn virusscanner (MSE en G Data) zeggen er niks over.
Mijn vraag is dus , heb ik nou iets fout gedaan in het script?
Ik weet niet of het mag maar hier is het script:
PHP:
msgbox"Hacked by *naam*"
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "HA"
WScript.Sleep 70
WshShell.SendKeys "CK"
WScript.Sleep 70
WshShell.SendKeys "ED"
WScript.Sleep 50
WshShell.SendKeys " "
WScript.Sleep 70
WshShell.SendKeys "BY"
WScript.Sleep 70
WshShell.SendKeys "*naam*"
WScript.Sleep 70
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
msgbox"Lol , you scared yet?"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
msgbox"Lolz"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
Set vo = CreateObject("SAPI.SpVoice")
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
x = msgbox("Are you scared yet?",vbYesNo,"Error")
If (x) = VbYes Then msgbox "Okay i'll stop , have a nice day."
If (x) = VBYes Then Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Have a good day sir."
If (x) = VbNo Then msgbox "No , well I'll just continue!"
If (x) = VBNo Then Set vo = CreateObject("SAPI.SpVoice")
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
Groeten , gamefreak23
*scan van Virustotal*
Laatst bewerkt: