I have a program here, for encrypting text using caesar cipher....except, I don't know how to get it to input the encrypted text back into my input text box! Here's what i have so far:
Any help appreciated, I'm sure it's only a minor thing but when I was getting help this morning I forgot to ask before my tutorial ended!
Private Sub cmdEn_Click() Dim key As Integer, plain As String, cipher As String key = Val(txtKey.Text) plain = txtInput.Text If key >= 0 And key <= 25 Then cipher = Encrypt(plain, key) txtInput.Text = cipher Else txtInput.Text = "The key must be between 0 and 25, thanks." End If End Sub Private Sub cmdExit_Click() End End Sub Private Function Encrypt(plaintext As String, code As Integer) Dim i As Integer Dim char As String Dim temp As String Dim temp_asc As Integer For i = 1 To Len(plaintext) char = Mid(plaintext, i, 1) If asc_char >= 97 And asc_char <= 122 Then temp_asc = Asc(char) + code If temp_asc > 122 Then temp_asc = 96 + (temp_asc - 122) End If temp = temp & Chr(temp_asc) Else temp = temp + char End If Next i Encrypt = temp End Function