We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

 Cara Membuat Program Encrytion/Decryption

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Theyamahaesa
Moderator
Moderator


Jumlah posting : 51
Join date : 05.04.11

PostSubyek: Cara Membuat Program Encrytion/Decryption   Sat 9 Apr 2011 - 4:41

yg di butuh kan

[You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]

Code:
Sub Rot13()
For I = 1 To Len(txtTeks)
Baca = Asc(Mid(txtTeks, I, 1))
'Secara matematis C = ROT13(M)
Tukar = Chr(Baca + 13)
txtHasil = txtHasil & Tukar
Next
End Sub
Sub DeRot13()
For I = 1 To Len(txtTeks)
Baca = Asc(Mid(txtTeks, I, 1))
'Ekuivalen dengan M = ROT13(ROT13(M))
Tukar = Chr(Baca - 13)
txtHasil = txtHasil & Tukar
Next
End Sub
Private Sub cmdDekrip_Click()
txtHasil = ""
DeRot13
End Sub
Private Sub cmdEnkrip_Click()
txtHasil = ""
Rot13
End Sub

Kembali Ke Atas Go down
 
Cara Membuat Program Encrytion/Decryption
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» (bagaimana) cara membuat peringatan di chatbox?
» Arsip: Cara Membuat Jumlah Posting,Birthday,Join Date,Webs Seperti Ini
» [Tutorial] Cara membuat forum forumotion
» Cara membuat pendataan&list list barang menjadi seperti di sini?
» Solved: Bagaimana cara membuat icon Verified member disamping Nama gmna?

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: