Binaryworld - Very simple Encryption/Decryption code using VB ... [ VB -> Cryptography ]

This code will show you how to encrypt/decrypt a string.

Copy/Paste the following code in your VB form and press F5 to run.

Click here to copy the following block

Const ENCRYPTION_KEY = "MySecreteKey123"

Private Sub Form_Load()
  Dim txt As String, enctxt As String

  txt = "Your password is : asd$223"

  enctxt = EncryptText(txt, ENCRYPTION_KEY)
  MsgBox "Encrypted text >> " & enctxt
  MsgBox "Decrypted text >> " & DecryptText(enctxt, ENCRYPTION_KEY)
End Sub

'Encrypt text
Private Function EncryptText(strText As String, ByVal strPwd As String)
  Dim i As Integer, c As Integer
  Dim strBuff As String

  'Encrypt 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

'Decrypt text encrypted with EncryptText
Private Function DecryptText(strText As String, ByVal strPwd As String)
  Dim i As Integer, c As Integer
  Dim strBuff As String

  'Decrypt 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