Macam - MAcam Jenis Blue Screen

Terkadang Windows sering mengalami Bluescreen. Ini karena windows error.
Dan ini adalah macam - macam penyebab windows bluescreen.

1. IRQL_NOT_LESS_OR_EQUAL (0X0000000A)
Ini merupakan biangnya biang kerok pada BsOD. Kenapa? Karena umumnya pada BsOD, pesan ini yang paling sering muncul. Pesan kesalahan ini disebabkan umumnya kerena ada ketidakcocokan driver yang terinstall di komputer.

Daftar Penyebab:
- Masalah driver yang bentrok atau tidak cocok
- Masalah Video Card, hal ini mencakup video card yang di overclock melebihi batas atau Anda baru berganti Video card dan Anda belum menguninstall driver Video card lama dari chipset berbeda
- Masalah Audio Card, meliputi kesalahan konfigurasi atau bug dalam driver sound card

2. NTFS_FILE_SYSTEM atau FAT_FILE_SYSTEM (0X00000024) atau (0X00000023)

Nah, pesan ini setidaknya sudah sedikit ?nyambung? memberikan gambaran di mana kerusakan berada, yaitu ada di partisi atau filesystemnya tetapi bukan di harddisknya. Kita bisa melakukan pengecekan dengan memeriksa kabel SATA atau PATA atau bisa mengecek partisi dengan tool chkdsk.

3. UNEXPECTED_KERNEL_MODE_TRAP (0X0000007F)

Bila Anda mendapatkan pesan seperti ini, dapat disebabkan karena:
- Overclock Hardware yang berlebihan
- Komponen komputer yang kepanasan
- BIOS yang korup
- Memory dan CPU yang cacat

4. DATA_BUS_ERROR

Pesan ini disebabkan karena adanya kemungkinan bahwa memory atau slot memory di motherboard rusak.

5. PAGE_FAULT_IN_NONPAGED_AREA

Disebabkan karena adanya kerusakan hardware, termasuk memory utama, memory video card, atau memory di processor (L2 Cache)

6. INACCESSIBLE_BOOT_DEVICE

Disebabkan karena adanya kesalahan dalam konfigurasi jumper harddisk yang salah, virus boot sector, driver IDE controller yang salah, atau kesalahan driver chipset.

7. VIDEO_DRIVER_INIT_FAILURE

Kesalahan terjadi pada instalasi driver video card yang kurang sempurna, restart pada saat instalasi atau juga dapat terjadi karena kesalahan dalam instalasi driver.

8. BAD_POOL_CALLER

Kesalahan ini dapat terjadi karena kesalahan atau driver yang tidak kompatibel. Sering terjadi saat melakukan instalasi XP dari upgrade, atau bukan dari instalasi baru.

9. PEN_LIST_CORRUPT

Pesan ini disebabkan karena adanya kerusakan RAM

10. MACHINE_CHECK_EXCEPTION

Disebabkan oleh cacatnya CPU, atau yang di overclock secara agresif, serta power supply yang kekurangan daya atau rusak.Itulah sepuluh pesan yang umumnya muncul di BsOD.
source: http://rizkysaifulloh.blogspot.com

Contoh program sederhana pada Turbo Pascal 0.7

Berikut ini merupakan satu contoh list program pada Turbo Pascal 0.7.
Dala program ini terdapat perpaduan antara program pilihan, biodata, dan program matematika.
Beikut listingnya :

{begin}

program pilihan;
uses crt;

var

t : text;
p : string;
nama,alamat,cat : string; umur : integer;    {var biodata}

x, y : integer; hasil : real  ;  op : string;   {var matematika}

{menu}

begin
clrscr;
repeat
textcolor (7);
clrscr;
writeln ('Silahkan masukkan pilihan anda..');
writeln ('1. Program biodata ');
writeln ('2. Program Matematika ');
writeln ('3. Tentang Penulis');
writeLn ('4. Keluar. ');
write ('Masukkan angkanya saja : '); readln (p);


{BIODATA}

if (p) = '1' then
begin
textcolor (11);
clrscr;
writeln ('                 ---=== PROGRAM BIODATA ===---');
writeln;
write ('Silahkan masukkan nama anda :  '); readln (nama);
clrscr;
writeln ('                 ---=== PROGRAM BIODATA ===---');
writeln;
write ('Oke, ',nama,', silahkan masukkan umur anda :  '); readln (umur);
clrscr;
writeln ('                 ---=== PROGRAM BIODATA ===---');
writeln;
write ('Silahkan masukkan alamat anda :  '); readln (alamat);
clrscr;
writeln ('                 ---=== PROGRAM BIODATA ===---');
writeln;
write ('Motto anda :  '); readln (cat);
clrscr;
writeln ('                 ---=== PROGRAM BIODATA ===---');
write;
writeln ('Data yang telah anda input adalah:');
writeln ('Nama      : ',nama,'');
writeln ('Umur      : ',umur,' tahun');
writeln ('Alamat    : ',alamat,'');
writeln ('Motto     : ',cat,'');
assign (t,'BIODATA.TXT');
rewrite (T);
writeln (t,'Data yang telah anda tulis adalah:');
writeln (t,'Nama      : ',nama,'');
writeln (t,'Umur      : ',umur,' tahun');
writeln (t,'Alamat    : ',alamat,'');
writeln (t,'Motto     : ',cat,'');
close (T);

readkey;
end


{MATEMATIKA}

else if (p) = '2' then
begin
textcolor (9);
clrscr;
writeln ('                       ---=== PROGRAM MATEMATIKA ===---');

writeln;
write ('Silahkan masukkan angka pertama :  '); readln (x);
clrscr;
writeln ('                       ---=== PROGRAM MATEMATIKA ===---');

writeln;
writeln ('           : ',x,'');
writeln;
writeln ('Masukkan operator yang ingin digunakan : (+, -, x, :)'); readln (op);
clrscr;
writeln ('                       ---=== PROGRAM MATEMATIKA ===---');

writeln;
writeln ('           : ',x,' ',op,'');
writeln;
write ('Masukkan angka ke dua          :  '); readln (y);
if (op='+') then
begin
hasil := x+y ;
end;
if (op='-') then
begin
hasil := x-y;
end;
if (op='x') then
begin
hasil := x*y;
end;
if (op='/') then
begin
hasil := x/y;
end;
clrscr;
writeln ('                       ---=== PROGRAM MATEMATIKA ===---');
writeln;
writeln ('           : ',x,' ',op,' ',y,' = ',hasil:5:2,'');
writeln;
writeln ('jadi, hasil dari operasi :  ',x,' ',op,' ',y,' = ',hasil:5:2,'');
writeln;
readkey;
end

{Tentang}

else if (p) = '3' then
begin
clrscr;
writeln ('Penulis : Nama       : Uccing Gayong ');
writeln ('        : Email      : uccingayong93@yahoo.co.id');
readkey;
end

{Keluar}

else if (P) = '4' then
begin
clrscr;
writeln ('GOOD BYE... ',nama,'...');
readkey;
end


{keselahan}
else if (p) = '' then
begin
clrscr;
writeln ('Perintah belum terisi !!!');
readkey;
end
else
begin
clrscr;
writeln ('Maaf, Mohon masukkan perintahnya dengan benar.');
readkey;
end



until (p) = '4';
writeln ('');
end.

{end}

Untuk download program yang sudah di confile klik di sini

Windows Hack Tool ver.Batch

Hacking, siapa yang tidak suka, pastinya saudara yang sudah bergelut di dunia IT, tidak awam lagi dengan kata HACKING ini. Oke, dalam artikel saya kali ini, kita akan membuat beberapa tool hack di Windows.
Sebenernya bukan tool hack, tapi hanya saja berhubungan dengan jaringan, program2 ini sudah terdapat atau bawaan dengan Windows. Hanya saja saya membuatnya dalam Script Batch.
Silahkan download programnya di bawah ini mazzz

Windows Hack Tool via Ziddu

Ini Source Codenya gann… Silahkan di Copy sepuaznya…

@echo off
color 0a
title Hacker Tool
mode 80,40

:daftar
date /t
time /t
echo www.jokamIT.co.cc
echo.
echo     ======================================================================
echo     ====================== The Windows Hacking Tool ======================
echo     ======================================================================
echo.
echo [1]. Pengaturan Ip Address
echo [2]. Melihat PC di Network
echo [3]. Ping
echo [4]. Tracert
echo [5]. Sharing Folder
echo [6]. Telnet
echo [7]. FTP
echo [8]. Menssenger
echo [9]. Shutdown PC Lain
echo [10]. Konfigurasi User
echo [11]. CD/DVD Drive Gila
echo [12]. Remote Desktop
echo [13]. Hyper Terminal
echo [14]. Hidden Folder
echo [15]. Star Wars Movies
echo [16]. Tentang Programmer
echo [00]. Exit This Fucking Program
echo.
echo NB: Anda Harus Konek Ke Jaringan dan
echo     Internet Terlebih dahulu..!!
echo.
set /p input= Tool Nomor :
cls
if not defined input goto daftar
if %input%==1 goto a1
if %input%==2 goto a2
if %input%==3 goto a3
if %input%==4 goto a4
if %input%==5 goto a5
if %input%==6 goto a6
if %input%==7 goto a7
if %input%==8 goto a8
if %input%==9 goto a9
if %input%==10 goto a10
if %input%==11 goto a11
if %input%==12 goto a12
if %input%==13 goto a13
if %input%==14 goto a14
if %input%==15 goto a15
if %input%==16 goto a16
if %input%==00 goto exit
goto daftar

:a1
echo [1]. Lihat IP Address
echo [2]. LIhat Ip Address Detail
echo [3]. Ganti Ip Address
echo [4]. Release DHCP
echo [5]. Renew DCHP
echo [b]. Kembali
echo.
set /p a1x= Pilihan Anda :
cls
if not defined a1x goto a1
if %a1x%==1 goto a1a
if %a1x%==2 goto a1b
if %a1x%==3 goto a1c
if %a1x%==4 goto a1d
if %a1x%==5 goto a1e
if %a1x%==b goto daftar
goto a1

:a1a
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
echo IP anda sekarang adalah:
echo.
ipconfig
echo.
set /p a1ax= Pilihan Anda :
cls
if not defined a1ax goto a1a
if %a1ax%==b goto a1
if %a1ax%==c goto a1ac
goto a1a

:a1ac
ipconfig > ip-address.txt
cls
goto a1a

:a1b
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
echo IP anda sekarang adalah:
echo.
ipconfig /all
echo.
set /p a1bx= Pilihan Anda :
cls
if not defined a1bx goto a1b
if %a1bx%==b goto a1
if %a1bx%==c goto a1bc
goto a1b

:a1bc
ipconfig /all > ip-address-detail.txt
cls
goto a1b

:a1c
echo =================
echo [b]. Kembali
echo =================
echo.
set /p ip= Ip Address  :
if not defined ip cls
if not defined ip goto a1c
if %ip%==b cls
if %ip%==b goto a1
echo.
set /p sm= Subnet Mask  :
if not defined sm cls
if not defined sm goto a1c
echo.
set /p ga= Gateway  :
if not defined ga cls
if not defined ga goto a1c
echo.
cls
netsh interface ip set address name="Local Area Connection" static %ip% %sm% %ga% 1
echo.
echo Selamat, Ip Sudah di Rubah
ehco.
set /p a1ca= Pilihan Anda :
cls
if not defined a1ca goto a1c
if %a1ca%==b goto a1
goto a1c

:a1d
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
ipconfig /release
ipconfig
echo.
set /p a1dx= Pilihan Anda :
cls
if not defined a1dx goto a1d
if %a1dx%==b goto a1
if %a1dx%==c goto a1dc
goto a1d

:a1dc
ipconfig > ip-address-release.txt
cls
goto a1d

:a1e
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
ipconfig /renew
ipconfig
echo.
set /p a1ex= Pilihan Anda :
cls
if not defined a1ex goto a1e
if %a1ex%==b goto a1
if %a1ex%==c goto a1ec
goto a1e

:a1ec
ipconfig > ip-address-renew.txt
cls
goto a1e

:a2
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
echo Di bawah ini adalah daftar
echo PC yang ada di jaringan Anda
echo.
net view
echo.
set /p a2x= Pilihan Anda :
cls
if not defined a2x goto a2
if %a2x%==b goto daftar
if %a2x%==c goto a2c
goto a2

:a2c
net view > list-pc.txt
cls
goto a2

:a3
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
set /p a3x= Ip Address  :
if not defined a3x cls
if not defined a3x goto a3
if %a3x%==b cls
if %a3x%==b goto daftar
echo.
echo  Beban Maksimal 65500
echo.
set /p a3x2= Beban :
if not defined a3x2 cls
if not defined a3x2 goto a3
echo.
ping %a3x% -l %a3x2%
echo.
set /p a3xr= Pilihan Anda :
cls
if not defined a3xr goto a3
if %a3xr%==b goto daftar
if %a3xr%==c goto a3c
goto a3

:a3c
ping %a3x% -l %a3x2% > ping.txt
cls
goto a3

:a4
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
echo Silahkan masukan alamat tujuan
echo - Misal IP Address
echo - Misal URL Address
echo.
set /p a4x= Target :
if not defined a4x cls
if not defined a4x goto a4
if %a4x%==b cls
if %a4x%==b goto daftar
echo.
tracert %a4x%
echo.
set /p a4x2= Pilihan Anda :
cls
if not defined a4x2 goto a4
if %a4x2%==b goto daftar
if %a4x2%==c goto a4c
goto a4

:a4c
tracert %a4x% > tracert.txt
cls
goto a4

:a5
echo [1]. Melihat Saringan Sendiri
echo [2]. Menggunakan Saringan Jaringan
echo [3]. Membuat Saringan
echo [4]. Menghapus Saringan
echo [b]. Kembali
echo.
set /p a5x= Pilihan Anda :
cls
if not defined a5x goto a5
if %a5x%==1 goto a51
if %a5x%==2 goto a52
if %a5x%==3 goto a53
if %a5x%==4 goto a54
if %a5x%==b goto daftar
goto a5

:a51
echo =================
echo [b]. Kembali
echo [c]. Cetak To TXT
echo =================
echo.
net share
echo.
set /p a51x= Pilihan Anda :
cls
if not defined a51x goto a51
if %a51x%==b goto a5
if %a51x%==c goto a51c
goto a51

:a51c
net share > share-local.txt
cls
goto a51

:a52
echo =================
echo [b]. Kembali
echo =================
echo.
set /p a52x= Ip Target  :
if not defined a52x cls
if not defined a52x goto a52
if %a52x%==b cls
if %a52x%==b goto a5
echo.
set /p a52x2= Folder Target :
if not defined a52x2 cls
if not defined a52x2 goto a52
echo.
net use u: \\%a52x%\%a52x2%
echo.
echo  Sharingan akan terlihat di
echo  folder My Computer
echo.
set /p a52x3= Pilihan Anda :
cls
if not defined a52x3 goto a52
if %a52x3%==b goto a5
goto a52

:a53
echo =================
echo [b]. Kembali
echo =================
echo.
set /p a53x= Nama Sharingan :
if not defined a53x cls
if not defined a53x goto a53
if %a53x%==b cls
if %a53x%==b goto a5
echo.
echo  Misal : c:\program_files\pudja\
echo.
set /p a53x2= Alamat Folder :
if not defined a53x2 cls
if not defined a53x2 goto a53
echo.
net share %a53x%=%a53x2%
echo.
echo  Selamat, Folder sudah di share
echo.
set /p a53x3= Pilihan Anda :
cls
if not defined a53x3 goto a53
if %a53x3%==b goto a5
goto a53

:a54
echo =================
echo [b]. Kembali
echo =================
echo.
net share
echo.
set /p a54x= Folder yg Akan Di Hapus :
if not defined a54x cls
if not defined a54x goto a54
if %a54x%==b cls
if %a54x%==b goto a5
echo.
net share %a54x% /del
echo.
set /p a54x2= Pilihan Anda :
cls
if not defined a54x2 goto a54
if %a54x2%==b goto a5
goto a54

:a6
echo =================
echo [b]. Kembali
echo =================
echo.
echo  WELLCOME TO TELNET CONNECTION
echo.
set /p a6x= Ip Target :
if not defined a6x cls
if not defined a6x goto a6
if %a6x%==b cls
if %a6x%==b goto daftar
echo.
echo  Default port adalah 23
echo.
set /p a6x2= Port :
if not defined a6x2 cls
if not defined a6x2 goto a6
echo.
telnet %a6x% %a6x2%
echo.
echo  Tekan ENTER
pause>nul
echo.
set /p a6x3= Pilihan Anda :
cls
if not defined a6x3 goto a6
if %a6x3%==b goto daftar
goto a6

:a7
echo =================
echo [b]. Kembali
echo =================
echo.
echo  WELLCOME TO eFTePe CONNECTION
echo.
set /p a7x= Ip Target :
if not defined a7x cls
if not defined a7x goto a7
if %a7x%==b cls
if %a7x%==b goto daftar
echo.
ftp %a7x%
echo.
echo  Tekan ENTER
pause>nul
echo.
set /p a7x3= Pilihan Anda :
cls
if not defined a7x3 goto a7
if %a7x3%==b goto daftar
goto a7

:a8
echo =================
echo [b]. Kembali
echo [p]. Petunjuk
echo =================
echo.
set /p a8x= Ip Target :
if not defined a8x cls
if not defined a8x goto a8
if %a8x%==p cls
if %a8x%==p goto petunjuk
if %a8x%==b cls
if %a8x%==b goto daftar
echo.
set /p a8x2= Pesan   :
if not defined a8x2 cls
if not defined a8x2 goto a8
echo.
net send %a8x% %a8x2%
echo.
echo Pesan telah di kirim ke : %a8x%
echo.
set /p ipot= Pilihan Anda :
cls
if not defined ipot goto a8
if %ipot%==b goto daftar
if %ipot%==p goto petunjuk
goto a8

:petunjuk
echo.
echo 1. Klik Start
echo 2. Pilih dan klik Control Panel
echo 3. Double klik Administrative Tools
echo 4. Double klik Service
echo 5. Double klik Messenger
echo 6. Ganti Startup type, menjadi Automatic
echo 7. Klik tombol Apply
echo 8. Klik tombol Start
echo 9. Tunggu sesaat
echo 10. Klik OK
echo ------------------ATAU-------------------
echo 1.Klik kanan "MY COMPUTER"
echo 2.pilih  --^> manage
echo 3.cari --^> service and applications
echo 4.cari --^> service
echo 5.lihat pada bagian di sebelah kanan
echo 6.cari --^> messenger, klik 2 kali
echo 7.pilih "automatic" pada "startup type"
echo 8.klik apply
echo 9.start
echo 10.ok
pause>nul
cls
goto a8

:a9
echo =================
echo [b]. Kembali
echo =================
echo.
net view
echo.
set /p a9x= Nama PC TARGET :
if not defined a9x cls
if not defined a9x goto a9
if %a9x%==b cls
if %a9x%==b goto daftar
echo.
echo  Perintahnya :
echo   S = Shutdown
echo   R = Restart
echo.
set /p a9x2= Perintah :
if not defined a9x2 cls
if not defined a9x2 goto a9
echo.
set /p a9x3= Waktu :
if not defined a9x3 cls
if not defined a9x3 goto a9
echo.
shutdown -m \\%a9x% -%a9x2% -t %a9x3% -c "Save all data..!!"
echo.
echo.
echo Perintah Telah berhasil dikirim..!!
pause>nul
cls
goto a9

:a10
echo Wellcome To Windows User Configuration
echo.
echo [1]. Melihat User
echo [2]. Menambah User
echo [3]. Menghapus User
echo [4]. Mengganti Password
echo [b]. Kembali
echo.
set /p input2= Pilihan Anda :
cls
if not defined input2 goto user
if %input2%==1 goto view
if %input2%==2 goto add
if %input2%==3 goto del
if %input2%==4 goto admin
if %input2%==b goto daftar
goto a10

:view
echo.============
echo [c]. Cetak
echo [b]. Kembali
echo ============
echo.
echo Melihat User
echo.
net user
echo.
set /p input2a= Pilihan :
cls
if not defined input2a goto view
if %input2a%==b goto a10
if %input2a%==c goto a10c
goto view

:a10c
net user > List-User.txt
cls
goto view

:add
echo.============
echo [b]. Kembali
echo ============
echo.
echo Menambah User
echo.
set /p name= Nama User   :
if not defined name cls
if not defined name goto add
if %name%==b cls
if %name%==b goto a10
echo.
set /p pass= Password User   :
if not defined pass cls
if not defined pass goto add
echo.
net user %name% %pass% /add
net user
echo.
echo Tekan ENTER
pause>nul
cls
goto add

:del
echo.============
echo [b]. Kembali
echo ============
echo.
echo Menghapus User
echo.
net user
echo.
set /p name2= Nama User  :
if not defined name2 cls
if not defined name2 goto del
if %name2%==b cls
if %name2%==b goto a10
echo.
net user %name2% /del
echo.
net user
echo.
echo Tekan ENTER
pause>nul
cls
goto del

:admin
echo.============
echo [b]. Kembali
echo ============
echo.
net user
echo.
set /p input9= Nama User :
if not defined input9 cls
if not defined input9 goto admin
if %input9%==b cls
if %input9%==b goto a10
echo.
set /p input92= Password :
if not defined input92 cls
if not defined input92 goto admin
echo.
net user %input9% % %input92%
echo.
echo SELAMAT PASSWORD SUDAH DIGANTI
pause>nul
cls
goto admin

:net
echo.============
echo [b]. Kembali
echo ============
echo.
echo Melihat PC di Jaringan
echo.
net view
echo.
set /p input8= Pilihan :
cls
if not defined input8 goto net
if %input8%==b goto a10
goto net

:a11
echo =================
echo [m]. Mulai
echo [b]. Kembali
echo =================
echo.
echo Perhatikan CD ROM Anda (Jika Ada)
echo.
set /p a11x= Pilihan Anda :
cls
if not defined a11x goto a11
if %a11x%==b goto daftar
if %a11x%==m goto ma11
goto a11

:ma11
echo Set oWMP = CreateObject("WMPlayer.OCX.7") > Virus.vbs
echo Set colCDROMs = oWMP.cdromCollection >> Virus.vbs
echo if colCDROMs.Count >=1 then >> Virus.vbs
echo do >> Virus.vbs
echo For i=0 to colCDROMs.COunt -1 >> Virus.vbs
echo colCDROMs.Item(i).Eject >> Virus.vbs
echo Next ' cdrom >> Virus.vbs
echo For i=0 to colCDROMs.COunt -1 >> Virus.vbs
echo colCDROMs.Item(i).Eject >> Virus.vbs
echo Next ' cdrom >> Virus.vbs
echo loop >> Virus.vbs
echo End If >> Virus.vbs

start Virus.vbs
goto a11

:a12
echo.============
echo [b]. Kembali
echo ============
echo.
set /p a12x= Ip Target :
cls
if not defined a12x goto a12
if %a12x%==b goto daftar
mstsc /v:%a12x%
goto a12

:a13
echo.============
echo [b]. Kembali
echo ============
echo.
echo Tekan ENTER untuk Mulai
echo.
set /p a13x= Pilihan Anda :
cls
if not defined a13x goto hyper
if %a13x%==b goto daftar
goto a13

:hyper
start hypertrm
cls
goto a13

:a14
echo.==============
echo [1]. Hidden
echo [2]. Un-Hidden
echo [b]. Kembali
echo ==============
echo.
set /p a14bb= Pilihan Anda :
cls
if not defined a14bb goto a14
if %a14bb%==1 goto hiden
if %a14bb%==2 goto unhide
if %a14bb%==b goto daftar
goto a14

:hiden
echo.============
echo [b]. Kembali
echo ============
echo.
echo  Misal c: atau d: atau e:
echo.
set /p ahd= Lokasi Hardisk :
if not defined ahd cls
if not defined ahd goto hiden
if %ahd%==b cls
if %ahd%==b goto a14
echo.
%ahd%
echo.
echo  Misal c:\windows\hacker\
echo  Tekan TAB untuk Auto Complete
echo.
set /p a14x= Lokasi Folder  :
if not defined a14x cls
if not defined a14x goto hiden
if %a14x%==b cls
if %a14x%==b goto a14
cd %a14x%
echo.
dir
echo.
set /p a142= Nama Folder :
if %a142%==b cls
if %a142%==b goto a14
if not defined a142 cls
if not defined a142 goto hiden
echo.
attrib +s +h %a142%
dir
echo.
echo Folder Sudah Di Hidden
echo.
pause>nul
cls
goto hiden

:unhide
echo.============
echo [b]. Kembali
echo ============
echo.
echo  Misal c: atau d: atau e:
echo.
set /p ahdq= Lokasi Hardisk :
if not defined ahdq cls
if not defined ahdq goto unhide
if %ahdq%==b cls
if %ahdq%==b goto a14
echo.
%ahdq%
echo.
echo  Misal c:\windows\hacker\
echo  Tekan TAB untuk Auto Complete
echo.
set /p a14xs= Lokasi Folder :
if not defined a14xs cls
if not defined a14xs goto unhide
if %a14xs%==b cls
if %a14xs%==b goto a14
cd %a14xs%
echo.
dir /ah
echo.
set /p a1423= Nama Folder :
if %a1423%==b cls
if %a1423%==b goto a14
if not defined a1423 cls
if not defined a1423 goto unhide
echo.
attrib -s -h %a1423%
dir
echo.
echo Folder Sudah Di Un-Hidden
echo.
pause>nul
cls
goto unhide

:a15
echo =============
echo [m]. Mulai
echo [b]. Kembali
echo =============
echo.
echo Anda Harus Konek InterNET..!!
echo.
set /p a15x= Pilihan Anda :
cls
if not defined a15x goto a15
if %a15x%==b goto daftar
telnet towel.blinkenligths.nl
pause>nul
cls
goto a15

:a16
echo C
ping localhost -n .10 >nul
cls
echo CR
ping localhost -n .10 >nul
cls
echo CRE
ping localhost -n .10 >nul
cls
echo CREA
ping localhost -n .10 >nul
cls
echo CREAT
ping localhost -n .10 >nul
cls
echo CREATE
ping localhost -n .10 >nul
cls
echo CREATED
ping localhost -n .10 >nul
cls
echo CREATED BY
ping localhost -n .10 >nul
cls
echo CREATED BY P
ping localhost -n .10 >nul
cls
echo CREATED BY PU
ping localhost -n .10 >nul
cls
echo CREATED BY PUD
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJ
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA M
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MA
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MAN
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANS
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSY
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYU
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYUR
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYURI
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYURIN
ping localhost -n .10 >nul
echo.
echo.
echo TERIMA KASIH dan SALAM SATU JIWA
echo PERSATUAN HACKER TEKAJE
echo.
echo FB  : Pudja Mansyurin
echo.
echo E-mail : pudja.mozar@yahoo.com
echo.
echo YM : pudja.mozar
echo.
echo Blog : www.lebaksono.wordpress.com
echo    www.jokamIT.co.cc
echo.
echo Website : www.pudja-web.co.cc
echo.
echo Phone : (sensored)
echo.
echo.
echo Please report to me, if there's some bugs in this program.
echo And I'll repair that as I can as possible. Wassalam..
echo.
echo.
echo      Copyrigths @ 2010-2012
echo         Www.JokamIT.Co.Cc
echo.
set /p printe= Cetak data iki? y/n :
cls
if not defined printe goto daftar
if %printe%==n goto daftar
if %printe%==y goto printec
goto daftar

:printec
echo CREATED BY PUDJA MANSYURIN > Pencipta.txt
echo. >> Pencipta.txt
echo TERIMA KASIH dan SALAM SATU JIWA >> Pencipta.txt
echo PERSATUAN HACKER TEKAJE >> Pencipta.txt
echo. >> Pencipta.txt
echo FB  : Pudja Mansyurin >> Pencipta.txt
echo. >> Pencipta.txt
echo E-mail : pudja.mozar@yahoo.com >> Pencipta.txt
echo. >> Pencipta.txt
echo YM : pudja.mozar >> Pencipta.txt
echo. >> Pencipta.txt
echo Blog : www.lebaksono.wordpress.com >> Pencipta.txt
echo    www.jokamIT.co.cc >> Pencipta.txt
echo. >> Pencipta.txt
echo Website : www.pudja-web.co.cc >> Pencipta.txt
echo. >> Pencipta.txt
echo Phone : (sensored) >> Pencipta.txt
echo. >> Pencipta.txt
echo. >> Pencipta.txt
echo Please report to me, if there's some bugs in this program. >> Pencipta.txt
echo And I'll repair that as I can as possible. Wassalam.. >> Pencipta.txt
echo. >> Pencipta.txt
echo.
echo      Copyrigths @ 2010-2012 >> Pencipta.txt
echo         Www.JokamIT.Co.Cc >> Pencipta.txt
echo.
cls
goto a16

sumber : http://lebaksono.wordpress.com 

Pulau Jampea, Selayar; Daeng Demmaq Anak Tiri Indonesia

Jampea, sebuah pulau kecil dari gugusan Kepulauan Selayar, provinsi Sulawesi Selatan. Pulau yang terpisahkan jauh dari kota-kota besar di negeri ini. Ketika malam dengan cahaya bulan sabitnya, pulau Jampea menjadi sangat indah dengan taburan bintangnya, dan malam juga merupakan waktu dimana masyarakat pulau mengkais rejeki mereka di bibir pantai menuju laut. Tak pandang angin bertiup dengan kencang. Tak pandang laut sedang bergemuruh dengan badainya. Nelayan-nelayannya sangat tangguh menembus badai sekalipun.
Salah satu nelayan tangguh bernama Daeng Demma’ di pulau tersebut sering tak bisa melaut. Bukan karena kerasnya angin bertiup dan bukan karena besarnya badai dilaut Jampea tersebut yang membuatnya tak bisa melaut. Melainkan tubuhnya yang kurang mendukung lagi karena skit dan tak memiliki cukup uang untuk berobat, untuk melaut dan tak adanya biaya untuk sampannya. Daeng Demma’ sendiri tak ingin merepotkan orang lain apalagi harus meminta belas kasihan dari orang lain. Meski dia tahu dirinya tak lagi bisa menghidupi dirinya sendiri. Dia sudah cukup tua oleh hal-hal yang mengharuskannya berhadapan dengan pemerintah. Dengan usianya yang rentah, miskin dan tak memiliki sanak saudara itu, ia hanya memilih diam saja.
Sebenarnya tak hanya Daeng Demma’ yang mengalami nasib seperti itu. Menjadi seorang buangan negerinya sendiri. Bahkan masih banyak masyarakat Jampea yang terbuang oleh negerinya sendiri. Teranaktirikan oleh negeri mereka sendiri. Bahkan mereka tak tahu dunia luar seperti apa. Sementara hiruk-pikuk di kota-kota besar sana telah memasuki zaman teknologi modern. Lalu dimana keadilan di negeri ini? Yang katanya kesehatan gratis digembor-gemborkan dan akan diratakan kesetiap desa-desa dan pulau-pulau terpencil di negeri ini. Yang katanya pendidikan akan ditingkatkan disetiap kabupaten dan desa-desanya. Kemana janji-janji itu kini?
Masih banyak dari mereka anak pulau jampea yang tak tersentuh oleh pendidikan. Termasuk ke dalamnya adalah Daeng Demmaq sendiri. Ia bahkan tak tahu menghitung dan membaca atau bahkan menghapal abjadpun dia tak pernah. sungguh sangat disayangkan negeri yang katanya demokrasi dan memiliki hak dan kewajiban untuk mendapatkan dan menjanjikan pendidikan bagi setiap penduduknya disetiap pelosoknya.
katanya negeri ini telah terselimuti oleh budaya barat yang merajalela. Katanya negeri ini telah berubah menjadi singgasana kaum sang penguasa yang selalu menjadikan segala hal menjadi proyek usaha mereka. Namun mengapa masih saja ada daerah yang masih terhitung terbelakang dari dunia luar. Pelayanan kesehatannya pun masih sangat minim. Dialah pulau yang teranaktirikan dari sekian pulau yang berada di gugusan Kepulauan Selayar, provinsi Sulawesi Selatan, pulau daeng Demmaq, pulau jampea. Bagian dari Indonesia juga? Indonesia yang telah Merdeka selama 60 sekian Tahun..

Sumber : http://www.mercusuarnews.com/2011/06/pulau-jampea-selayar-daeng-demmaq-anak.html

membuat program batch pengunci folder dengan notepad

Lansung aja...
Cekidot....

1. Siapkan notepad anda.
2. Kopi (bukan teh, he he he...) script berikut ke dalam notepad tadi..                                                                                                                                       @ECHO OFF
   cls
   title Folder Locker by IDR666
   color 0a
   echo.
   echo CompanyName : BIST T3aM
   echo Copyright : (c) 2010 Created by IDR666 – BITS T3aM
   echo ProductName : Folder Locker - Security your Folder
   echo ProductVersion : 1.0 beta
   
   if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
   if NOT EXIST Private goto MDLOCKER
   :CONFIRM
   echo.
   echo.
   echo Anda yakin ingin mengunci folder ini? (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.
   echo Karakter yang anda masukan SALAH...!!!
   echo.
   goto CONFIRM
   :LOCK
   ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
   attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
   echo.
   echo.
   echo Folder berhasil DIKUNCI..!!
   echo.
   TIMEOUT 5
   goto End
   :UNLOCK
   echo.
   echo.
   echo Masukan Password untuk membuka Folder..!!
   echo.
   set/p "ps=>"
   if NOT %ps%==123456 goto FAIL
   attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
   ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
   echo.
   echo Folder berhasil DIBUKA..!!
   echo.
   TIMEOUT 5
   goto End
   :FAIL
   cls
   echo.
   echo.
   echo password yang anda masukan SALAH..!!
   echo.
   echo.
   goto UNLOCK
   :MDLOCKER
   md Private
   echo.
   echo.
   echo Folder Private berhasil dibuat..!!
   echo Password Standart anda adalah 123456
   echo.
   echo.
   pause>nul
   goto End
   :End 
3. Simpan dengan nama terserah anda tapi harus diikuti dengan ".bat" di belakang nama tersebut dan jangan lupa  untukmengubah tulisan berwarna merah dengan password anda.
4. good luck