Saya lupa function yang pastinya, tapi metodenya memanfaatkan kode ascii. A = 65, Z= 90. total = 155.
Misal: (asumsi text password diambil dari textbox txtpass) Password = txtpass.text ==> mengambil text password yang akan diencrypt atau decrypt Encryption ="" ==> memberi nilai awal untuk hasil encrypt/decrypt Huruf="" ==> yang ini boleh tidak digunakan For I = 1 to len(password) do ==> pengulangan untuk membaca huruf demi huruf Huruf = mid(password,I,1) ==> membaca huruf mulai dari posisi yang ke-I sebanyak 1 buah Kodeascii = ascii(huruf) ==> function untuk menghasilkan kode ascii Encription = encription & char(155-kodeascii) ==> menggabungkan kembali huruf yang sudah diencrypt/decrypt. Function char() untuk mendapatkan huruf dari kode ascii Next I Function ascii() dan char(), kalau salah silahkan diperbaiki. Yang pasti gak akan jauh dari bunyi 'aski' dan 'car'. Salam, edi ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Janu Kuki Sent: Monday, June 18, 2007 8:24 PM To: [email protected] Subject: [indoprog-vb] Replace A menjadi Z Salam teman² Saya bikin program kecil untuk menjelaskan cara kerja encrypt,,, kira² cara kerja program itu gini : user menginput ke form : misal ABCDE ,,, nah dibawahnya ada tombol ENCRYPT dan DECRYPT.... nah saat user klik tombol ENCRYPT tulisan ABCDE itu tergantikan dengan ZYXWV ( say mau huru A jadi Z, B jadi Y , dst .... ) lalu saat user klik tonbol DECRYPT tulisan ZYXWV terganti lagi seperti semula... Skrip kodenya gimana ya ? untuk tombol² tersebut... Mohon bantuan teman² yah... terima kasih xnukey --------------------------------- Luggage? GPS? Comic books? Check out fitting gifts for grads at Yahoo! Search. [Non-text portions of this message have been removed] NOTICE - This message and any attached files may contain information that is confidential and intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error and that any dissemination, copying or use of this message or attachment is strictly forbidden, as is the disclosure of the information therein. If you have received this message in error please notify the sender immediately and delete the message. [Non-text portions of this message have been removed]
