Computing

Menambahkan password pada File Zip
Oleh: nazar


Lintau.com - WinZip merupakan salah satu program kompresi yang terbaik saat ini. Bagi Anda yang belum familiar, mungkin pertanyaannya adalah mengapa harus memakai program kompresi? Dengan program kompresi maka Anda dapat memperkecil ukuran dari suatu file. Misalnya jika Anda punya file dokumen MS Word yang besarnya , misalnya 300 KB, dengan program kompresi ukuran file tersebut bisa menjadi 50 KB (tidak pasti!/relatif). Besarnya tingkat kompresi sangat tergantung pada isi dan jenis filenya.



Dengan menggunakan program yang dapat didownload di www.winzip.com tersebut Anda dapat menambahkan password pada file yang dikompres (file ZIP). Dengan demikian tingkat keamanan data Anda dapat lebih ditingkatkan. Di bawah ini merupakann langkah-langkah untuk menambahkan password pada file ZIP.

1. Pilih menu File - New Archive. Arahkan ke folder di mana Anda akan menyimpan archive (file ZIP). Setelah Anda mengisi nama file zip (yang akan dibuat), klik tombol OK. Pada contoh ini, nama filenya adalah "Data Penting-Ku.zip".



2. Pilih file-file (bisa satu atau beberapa file sekaligus) yang akan dimasukkan pada file zip.



3. Klik pada tombol Password. Pada kotak dialog yang muncul, isi dengan password yang Anda inginkan. Klik OK.

4. Akan muncul kotak dialog konfirmasi password. Masukkan password yang sama dan klik OK.



5. Klik tombol Add. Jika berhasil, maka saat file zip tersebut dibuka maka terdapat tanda "+" (plus) di sebelah kanan file yang diproteksi dengan password.



Sumber : Klik-kanan.com

Lintau.com Artikel singkat kali ini akan membahas mengenai operasi membuka dan menutup CD-ROM drive. Kita akan menggunakan Windows Multimedia API mciSendString untuk melakukan operasi ini. Sebelum kita masuk ke acara utama silakan simak dulu pesan-pesan berikut.



Tulisan ini bersifat terbuka dan Anda bisa menyebarluaskan sebagian atau seluruh tulisan ini selama Anda menyebutkan sumber aslinya. Anda bisa memberi komentar terhadap tulisan ini melalui sony-ak@sony-ak.com. Penulis tidak bertanggung jawab atas segala sesuatu yang diakibatkan oleh tulisan ini dan semata-mata hanya untuk tujuan pendidikan.

OK, mari kita langsung saja step-by-step demo ini.
Buka Visual Basic Anda dan buatlah project baru (Standard EXE)
Tambahkan module pada project dan copy paste code di bawah ini:

Option Explicit

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias & " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, 0&)
OpenCDDoor = retval
End Function

Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString, 0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
CloseCDDoor = retval
End Function

Tambahkan dua buah button pada Form1, satu sebagai button untuk membuka CD-ROM drive dan satu lagi untuk menutup CD-ROM drive.
Copy paste code di bawah ini pada bagian deklarasi umum di Form1.

Option Explicit

Private Sub Command1_Click()
OpenCDDoor "E"
End Sub

Private Sub Command2_Click()
CloseCDDoor "E"
End Sub

Jalankan project di atas dengan menekan F5.

OK, inti dari demo di atas adalah pada method OpenCDDoor dan CloseCDDoor pada module. Kedua method tersebut memiliki parameter CD-ROM drive yang bertipe string. Anda tinggal memasukkan drive CD-ROM ke dalam parameter tersebut dan melakukan operasi buka atau tutup CD-ROM drive.

Sekian dulu tips kali ini dan semoga bermanfaat bagi Anda semua. Jika ada komentar atau kritik bisa dikirim melalui sony-ak@sony-ak.com.

Thanks for all readers around Indonesia

http://lintau.com/modules.php?name=News&file=article&sid=623