VB6 Code - Encrypt Decrypt String Yang Disertai Password

Contoh fungsi encrypt- decrypt string yang disertai dengan password menggunakan VB6.

'Fungsi untuk meng-encrypt string
Public Function EncryptText(strText As String, ByVal strPwd As String)
    Dim i As Integer, c As Integer
    Dim strBuff As String
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    EncryptText = strBuff
End Function

'Fungsi untuk men-decrypt string 
Public Function DecryptText(strText As String, ByVal strPwd As String)
    Dim i As Integer, c As Integer
    Dim strBuff As String
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    DecryptText = strBuff
End Function

READ MORE - VB6 Code - Encrypt Decrypt String Yang Disertai Password

VB Fungsi API - Memilih Seluruh Item ListBox

Contoh fungsi API untuk memilih (select all/deselect all) item pada ListBox.

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_SETSEL = &H185

Private Sub Command1_Click()
    If List1.SelCount Then
        SendMessage List1.hwnd, LB_SETSEL, False, ByVal True
    End If
End Sub

Private Sub Command2_Click()
    SendMessage List1.hwnd, LB_SETSEL, True, ByVal True
End Sub

Private Sub Form_Load()
    'populate listbox
    Dim i As Long
    Me.Show
    List1.Visible = False
    Me.Refresh
    For i = 1 To 10000
        List1.AddItem i
    Next
    List1.Visible = True
End Sub

READ MORE - VB Fungsi API - Memilih Seluruh Item ListBox

Everything - Search Engine Yang Cepat Untuk Windows

Apa yang dimaksud dengan everything?

Everything merupakan software mesin pencari untuk windows. Everything dapat mencari file atau folder dengan cepat tanpa harus menunggu.

Mengapa everything berbeda dengan mesin pencari yang lain?

1. File instalasi kecil
2. Interface yang sederhana dan mudah digunakan
3. Peng-index-an file yang sangat cepat
4. Pencarian file yang sangat cepat (bahkan sampai jutaan file sekalipun)
5. Loading yang cepat
6. Penggunaan resource yang minimal
7. Database (hasil peng-index-an) yang tersimpan pada hardisk berukuran sangat kecil
8. Update secara real time (apabila komputer Anda terhubung ke internet)

Gambar: Everything search engine software

Everything merupakan software yang bersifat freeware. Software everything dapat digunakan untuk Windows 2000, XP, 2003, Vista, 2008 and Windows 7. Jika Anda tertarik ingin mencoba software everything, silakan kunjungi tautan di samping: Everything Search Engine.

READ MORE - Everything - Search Engine Yang Cepat Untuk Windows

Software Kamus Besar Bahasa Indonesia - KBBI Offline 1.4

Ini merupakan software yang sangat bermanfaat, digunakan untuk mencari kosakata yang terdapat dalam Kamus Besar Bahasa Indonesia dengan mudah. Pada saat posting ini dibuat software KBBI telah sampai pada versi 1.4. Kamus Besar Bahasa Indonesia versi software ini dibuat oleh Ebta Setiawan pemilik situs: http://ebsoft.web.id. Software Kamus Besar Bahasa Indonesia ini bersifat opensource, dibuat dengan menggunakan bahasa pemrograman delphi.
Adapun fitur-fitur yang terdapat pada KBBI 1.4, diantaranya:

• Pencarian kata/kalimat dari arti/definisi
• Opsi pengaturan penggunaan auto search (bawaan tidak aktif)
• Opsi pengaturan jumlah halaman kata hasil pencarian
• Penjelasan tentang arti singkatan (jenis kata, istilah dll)
• Icon baru
• Tersedia versi installer dan portable
• Lisensi menjadi Freeware & Open Source
• Perbaikan pencarian kata yg ada tanda - didepannya
• Perbaikan penebalan nomor/urutan arti kata
• Perbaikan beberapa kata yang belum masuk (bising, durian, uang, sarasehan dan romantisisme)
• Perbaikan hasil pencarian lainnya
• Fitur pencarian otomatis tidak aktif secara bawaan (penambahan tombol cari)
• Perbaikan tampilan font yang mengecil di Windows 8

Untuk download dan lain sebagainya bisa kunjungi link di samping: KBBI Offline 1.4 

 

Keywords: kbbi, offline, 1.4, software, kamus, besar, bahasa, indonesia, v1.5, online, istilah, arab, windows, 7, inggris, download, on, line, pemrograman, (kbbi), versi, kosakata

READ MORE - Software Kamus Besar Bahasa Indonesia - KBBI Offline 1.4