Tutorial dan Contoh Sederhana Enkripsi dan Dekripsi Dengan VB 6.0

saya mau bagi sedikit tutorial contoh mengubah kata. seperti mengenskripsi. tapi disini saya hanya memberi contoh sederhana saja ini menggunakan microsoft VB 6.0 bagi kalian pengen mencobanya berikut source codenya :

'created by Mickey

Private Sub Command1_Click()
  Dim text1aja As String
  Dim pos As Integer

  text1aja = Text1
  For pos = 1 To Len(text1aja)
    Mid(text1aja, pos, 1) = Chr(((Asc(Mid(text1aja, pos, 1)) * 2) \ 1) + 2)
  Next pos
  Text2 = text1aja
End Sub


Private Sub Command2_Click()
  Dim text1aja As String
  Dim pos As Integer

  text1aja = Text2
  For pos = 1 To Len(text1aja)
    Mid(text1aja, pos, 1) = Chr((Asc(Mid(text1aja, pos, 1)) - 2) \ 2)
  Next pos
  Text1 = text1aja
End Sub


atau anda bisa download contoh jadinya bisa didownload disini.

terimakasih :D slamat mencoba dan berkarya :D