Manipulating String (Resolved)

VB Code:

Dim strRecievedMessage as String
For i = 1 To Len(strMessage)
    strRecievedMessage = strRecievedMessage & (Chr(Asc(Mid(strMessage, i, 1)) - 10))
Next i

This gives me runtime error '5', Invalid Procedure Call or Argument. It just moves the ASCII value down 10, what is the problem?

Hmmm...

If the character's ASCii is below 10 it'd error, thus you'd have an invalid Call, because the argument would be invalid.

When it's below 10 should i have it loop back up to the top of the ASCII chart, and have it come down to 10 when it's about 128 or whatever?

if strMeassge contains anything less than Chr(10), you'll get that error because the result would be a negative and of course that's not valid.

can you post the values of the variables when it crashed?

strMessage = ""

That might be the problem.

impossible...you'd never get inside the for loop

VB Code:

sckMain.GetData strMessage                              'recieves the sent data
MsgBox strMessage
'Decrypts
For i = 1 To Len(strMessage)
    strRecievedMessage = strRecievedMessage & (Chr(Asc(Mid(strMessage, i, 1)) - 10))
Next i

The message box shows nothing, however, when I debug, and mouse over strMessage, it shows me boxes, that are probably for illegal characters.

Worst encryption ever.

Anyway...

Set the ASC of the char to say: x

If x < 10 then x = 255 + x
'do your thing with x

Conversely:

If x > 245 then x = x - 255
'do your thing with x

What, you don't like my little ASCII encryption? I really didn't feel like doing RC4 or something nice.

Let me try this code.

Okay, so, it appears as if my buddy and I were trying to connect to something else. We had the wrong IP. (we're using port 1337 for kicks, so we're gonna get someone to send something to us.)

I guess this is resolved. Thanks DigitalError and everyone else.