• Home
 · 
• String Manipulation
 · 
• It encrypts and decrypts given string using simple logic.

It encrypts and decrypts given string using simple logic.

It encrypts and decrypts given string using simple logic.

Rate It encrypts and decrypts given string using simple logic.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

// This code works depending on the ascii value of the character


Private Sub cmddecrypt_Click()
Dim str1 As String
Dim strencrypt As String

Dim str1len As Integer
Dim chr1 As String
Dim i As Integer
Dim ascii As Integer

strencrypt = ""

str1 = cb.List(cb.ListIndex)

Debug.Print str1
str1len = Len(str1)
If str1len <> 0 Then
For i = 1 To str1len
chr1 = Mid(str1, i, 1)
ascii = Asc(chr1)
If ascii < 150 And ascii > 40 Then
ascii = ascii - 10
End If
strencrypt = strencrypt & Chr(ascii)
Next i
MsgBox "Decrypted string " & strencrypt, vbInformation + vbOKOnly, "Decrypt"
Else
MsgBox "Select a string to decrypt", vbInformation + vbOKOnly
End If


End Sub

Private Sub cmdencrypt_Click()
Dim str1 As String
Dim strencrypt As String

Dim str1len As Integer
Dim chr1 As String
Dim i As Integer
Dim ascii As Integer

strencrypt = ""
str = Trim(InputBox("Enter a string", "Encrypt"))
str1 = str
str1len = Len(str1)
If str1len <> 0 Then
For i = 1 To str1len
chr1 = Mid(str1, i, 1)
ascii = Asc(chr1)
If ascii < 150 And ascii > 40 Then
ascii = ascii + 10
End If
strencrypt = strencrypt & Chr(ascii)
Next i
cb.AddItem strencrypt
MsgBox "String Encrypted successfully!", vbInformation + vbOKOnly, "Encrypt"
Else
MsgBox "Enter a string", vbInformation + vbOKOnly
End If
End Sub

Private Sub Form_Load()
cmdencrypt.Caption = "Encrypt"
cmddecrypt.Caption = "Decrypt"
End Sub