kunci folder dengan notepad

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Anda memiliki file atau folder penting yang tidak boleh diakses atau di buka oleh orang lain. Apakah anda ingin mengunci file atau folder tersebut? didalam sistem operasi windows kita dapat menggunakan beberapa cara untuk mengunci file atau folder yang kita inginkan. Salah satu cara yang paling mudah adalah dengan menggunakan sofware utility pengunci file dan folder. Namun kendalanya kita harus memiliki program tersebut. Memang ada yang open source, tapi ada satu cara yang dapat kita gunakan tanpa memerlukan atau menginstal terlebih dahulu software tambahan kedalam windows kita. Berikut langkah-langkah yang dapat kita gunakan untuk mengunci file atau folder tanpa software tambahan.

1. Pastikan file yang akan kita proteksi atau kunci kita masukan kedalam satu folder terlebih dahulu.
2. buka program notepad pada komputer anda dengan cara Klik star -> All Programs -> Accesories -> notepad.
3. Copy dan paste script berikut ini

klik show untuk melihat script

ls
@ECHO OFF
title Folder Locker
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Are you sure u want to Lock the folder(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 Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock folder
set/p "pass=>"
if NOT %pass%==type your password here goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End

4. Simpan file notepad ini dengan nama locker.bat
5. Tutup dan kemudian buka lagi file tersebut, dan akan tertera perintah untuk memasukkan password (Enter Password) untuk membuka kunci folder
6. Ketikan password yang anda inginkan
6. Klik lagi, dan akan tertampil perintah "Do you want to lock the file Y/N".
7. Ketikkan “Y” dan tekan Enter.
8. Selesai

Selamat mencoba dan semoga bermanfaat.

Melihat Serial Number Windows Menggunakan Notepad

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Notepad yang sepele ternyata bisa digunakan untuk mengintip serial number/produk key dari windows seseorang, tidak hanya windows namun juga bisa dimanfaatkan untuk mengintip Serial Number dari aplikasi microsoft office 2007, nah penasaran kan…??

Ketikan script yang panjang dan melelahkan berikut ini…(gak papa itung-itung sambil latihan ngetik script…)

CONST HKEY_LOCAL_MACHINE = &H80000002

 CONST SEARCH_KEY = "DigitalProductID"

 Dim arrSubKeys(4,1)

 Dim foundKeys

 Dim iValues, arrDPID

 foundKeys = Array()

 iValues = Array()

 arrSubKeys(0,0) = "Microsoft Windows Product Key"

 arrSubKeys(0,1) = "SOFTWAREMicrosoftWindows NTCurrentVersion"

 arrSubKeys(2,0) = "Microsoft Office XP"

 arrSubKeys(2,1) = "SOFTWAREMicrosoftOffice10.0Registration"

 arrSubKeys(1,0) = "Microsoft Office 2003"

 arrSubKeys(1,1) = "SOFTWAREMicrosoftOffice11.0Registration"

 arrSubKeys(3,0) = "Microsoft Office 2007"

 arrSubKeys(3,1) = "SOFTWAREMicrosoftOffice12.0Registration"

 arrSubKeys(4,0) = "Microsoft Exchange Product Key"

 arrSubKeys(4,1) = "SOFTWAREMicrosoftExchangeSetup"

 strComputer = "."

 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootdefault:StdRegProv")

 For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)

 oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes

 If Not IsNull(arrDPIDBytes) Then

 call decodeKey(arrDPIDBytes, arrSubKeys(x,0))

 Else

 oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys

 If Not IsNull(arrGUIDKeys) Then

 For Each GUIDKey In arrGUIDKeys

 oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "" & GUIDKey, SEARCH_KEY, arrDPIDBytes

 If Not IsNull(arrDPIDBytes) Then

 call decodeKey(arrDPIDBytes, arrSubKeys(x,0))

 End If

 Next

 End If

 End If

 Next

 MsgBox("Selesai")

 Function decodeKey(iValues, strProduct)

 Dim arrDPID

 arrDPID = Array()

 For i = 52 to 66

 ReDim Preserve arrDPID( UBound(arrDPID) + 1 )

 arrDPID( UBound(arrDPID) ) = iValues(i)

 Next

 Dim arrChars

 arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

 For i = 24 To 0 Step -1

 k = 0

 For j = 14 To 0 Step -1

 k = k * 256 Xor arrDPID(j)

 arrDPID(j) = Int(k / 24)

 k = k Mod 24

 Next

 strProductKey = arrChars(k) & strProductKey

 If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey

 Next

 ReDim Preserve foundKeys( UBound(foundKeys) + 1 )

 foundKeys( UBound(foundKeys) ) = strProductKey

 strKey = UBound(foundKeys)

 MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey)

 End Function

jika sudah selesai mengetikan code/script diatas simpan file dengan format .vbs, untuk namanya terserah anda saja, bisa ngintip.vbs atau kudoingintip.vbs terserah anda deh, yang penting formatnya .vbs, dan jangan lupa untuk file typenya pillih All Files ya….

Jika sudah copy file .vbs yang baru saja anda buat tadi kedalam flash disk, lalu beranjaklah untuk mencari komputer yang akan anda intip serial numbernya, atau bisa juga komputer anda sendiri untuk latihan, double klik file tersebut