25-02-2009, 01:05 PM
hmph, i ran that, and remembered that several of the beginning "characters" are NULL, so i changed the for loop variables, and tried it, all i got was "#"#"# repeating for the amount of characters i put in.
so i took out the if, then all i got was €€€€€€€€€€€€€
note: i had put in "abcdefghijklmnopqrstuvwxyz"
[code]Private Sub cmdEncrypt_Click()
Message = txtInput.Text
Dim EncryptedMsg As String
Dim checknum As Long
checknum = Rand(1, 9)
For i = 32 To 126
'If i + 2
so i took out the if, then all i got was €€€€€€€€€€€€€
note: i had put in "abcdefghijklmnopqrstuvwxyz"
[code]Private Sub cmdEncrypt_Click()
Message = txtInput.Text
Dim EncryptedMsg As String
Dim checknum As Long
checknum = Rand(1, 9)
For i = 32 To 126
'If i + 2