• Home
 · 
• String Manipulation
 · 
• Encrypts text

Encrypts text

Encrypts text

Rate Encrypts text

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    pass$ = Len(password.Text) 'the number you shift Each letter To encrypt
    tmpstr = Len(Text1.Text)


    If tmpstr = "0" Then
        MsgBox ("You must first Type In something To Encrypt") 'You can't encrypt nothing
        Exit Sub
    End If


    For i = 1 To tmpstr
        letter = Mid$(Text1.Text, i, 1) 'takes the ascii value and adds the length of the password To it
        encstr = Asc(letter) + pass$
        newstr = Chr$(encstr) 'changes ascii value To a character
        encrypted$ = encrypted$ & newstr 'puts all the encrypted characters together
    Next i
    Text1.Text = encrypted$ 'puts the encrypted String in text box
End Sub


Private Sub cmdDecrypt_Click()
    pass$ = Len(password.Text) 'this is the exact same For the Encrypt Function
    tmpstr = Len(Text1.Text) 'the only difference is that instead of adding the lenght of password.text
    'it is subtracted


    If tmpstr = "0" Then
        MsgBox ("You must first Type In something To Decrypt")
        Exit Sub
    End If


    For i = 1 To tmpstr
        letter = Mid$(Text1.Text, i, 1)
        encstr = Asc(letter) - pass$
        newstr = Chr$(encstr)
        decrypted$ = decrypted$ & newstr
    Next i
    Text1.Text = decrypted$
End Sub