• Home
 · 
• String Manipulation
 · 
• Encrypt & Decrypt using a key value...

Encrypt & Decrypt using a key value...

Encrypt & Decrypt using a key value...

API Declarations


for eg.
Text2.Text = Encrypt(Text1.Text, 127) 'Encrypts Text1 contents.
Text3.Text = Encrypt(Text2.Text, 127, True) 'DeCrypts Text2 contents and places into Text3.



Rate Encrypt & Decrypt using a key value...

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Dim str1, Result As String
str1 = EncryptString
For i = 1 To Len(str1)
    Select Case Decrypt
        Case False
            Result = Result & Chr(Asc(Mid(str1, i, 1)) + Key)
        Case True
            Result = Result & Chr(Asc(Mid(str1, i, 1)) - Key)
    End Select
Next
Encrypt = Result
End Function