Monday, 23 September 2013
Langsung pada inti pembahasannya saja cara Ngerjain Komputer Milik
Orang Lain dengan Membuat Virus Sendiri. Agak sedikit jail, ya ? Tapi
gapapa deh ini untuk sekedar hiburan semata (ngheheheh :D).
Dalam postingan ini saya tidak mengajarkan Anda untuk berbuat jail, saya hanya berbagi ilmu saja ^_^
Membuat virus sendiri ini tak membutuhkan software-software lain, hanya NOTEPAD saja.
CD / DVD ROM buka tutup dengan sendirinya.
Di NOTEPAD mengetik dengan sendirinya.
Cara save nya sama kayak yang di atas.
Mengetikkan kalimat dengan sendirinya.
Tombol ENTER otomatis.
Tombol BACKSPACE otomatis
Cara save-nya sama kayak yang di atas. EH, ganti noh kata Balik lagi ah...saltik di atas sesuai kehendak.
Ingat, Saya tidak mengajarkan Anda untuk berbuat jail, saya hanya berbagi ilmu. ^_^
Bye, bye~
Dalam postingan ini saya tidak mengajarkan Anda untuk berbuat jail, saya hanya berbagi ilmu saja ^_^
Membuat virus sendiri ini tak membutuhkan software-software lain, hanya NOTEPAD saja.
CD / DVD ROM buka tutup dengan sendirinya.
Set oWMP = CreateObject("WMPlayer.OCX.7")Kalau sudah, simpan file tadi dengan nama apapun asalkan ekstensinya harus *.vbs. Contoh namafile.vbs
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
Di NOTEPAD mengetik dengan sendirinya.
WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "L"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "G"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "e"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
wscript.sleep 5000
loop
Cara save nya sama kayak yang di atas.
Mengetikkan kalimat dengan sendirinya.
Set wshShell = wscript.CreateObject("WScript.Ganti kalimat Selamat! Komputer Anda Berhasil di infeksi. dengan kata-kata keinginan Anda sendiri, lalu save dengan format *.vbs kayak yang di atas.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Selamat! Komputer Anda Berhasil di infeksi."
loop
Tombol ENTER otomatis.
Cara save nya kayak yang di atas.
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Tombol BACKSPACE otomatis
MsgBox "Balik lagi ah...saltik"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Cara save-nya sama kayak yang di atas. EH, ganti noh kata Balik lagi ah...saltik di atas sesuai kehendak.
Ingat, Saya tidak mengajarkan Anda untuk berbuat jail, saya hanya berbagi ilmu. ^_^
Bye, bye~
