Manipulating String (Resolved)

[jeb2022]

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?

[DiGiTaIErRoR]

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.

[jeb2022]

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?

[MartinLiss]

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.

[ahara]

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

[jeb2022]

strMessage = ""

That might be the problem.

[ahara]

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

[jeb2022]

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.

[DiGiTaIErRoR]

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

[jeb2022]

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.

[jeb2022]

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.