Siapkan 3 Textbox dengan nama masing-masing
- txtAwal
- txtEncrypt
- txtDecrypt
Siapkan 2 commandButton dengan nama masing-masing
- cmdEncrypt
- cmdDecrypt
Llau masukkan kode-kode dibawah ini :
Public Function Encrypt(ByVal Teks As String) As String
Dim Panjang_Teks As Integer
Dim Teks_Baru As String
'===================================================================
'perhitungan untuk mengkategorikan apakah anda termasuk gemuk/kurus
'berdasarkan satuan internasional BODY MASS INDEX (BMI)
'ni code nya agak ngelantur dikit...dicoba ja yach
'===================================================================
Private Sub Form_Load()
'=============================
'ini fungsi WinAPI nya...
'ditulis di bagian Declaration
'=============================
Private declare Function GetTickCount& Lib "kernel32" ()
'===============================================================
'otomatis menampilkan message box (pesan) ketika form di-load
aku beri source code av tolong kembangin sendiri. ne qu hanya bisa ampe segitu. ini bahasanya mudah di mengerti oleh para programer yang masih newbie ne code simple banget. av ni sudah aq kembangin jadi lebih baik. hasilnya ada di alamat http://codenesia.com/software/knight-av.aspx . antivirus itu aku kembangin dari source code av ini.
Mungkin source code ini sudah ada di buku, tapi alangkah baiknya kalau anda mendownloadnya di sini, tanpa bayar, dan hanya mendownloadnya saja, untuk password minta aja ke kholis.3gp@gmail.com , karena kalau g pakai password namanya illegal, kalau pake password namanya legal dan terjamin asli dari programernya, sc ini q edit sesuai kebutuhan.
