Mirage Source

well, obviously i've been away from MS/VB6 for a while, and i wanted to make a quick simple encryption program in VB, which just advanced the ASCII characters by a certain amount. However i have gotten an error.



i get a run-time error 5: invalid procedure call or argument, and highlights this line



thanks,
-Pb

If you have a character whose ASCII code is close to the end, adding numbers to the Chr function might cause it to error. try throwing a check in their to reset Chr() from 0 if it reaches the end of the code list.

_________________

hmph, well i kinda got it to work, it doesn't give me an error anymore, however the displayed text is...not text?

Dont use an if. Use Mod operator:


becomes


(Mod 256) range is 0 - 255

_________________
http://www.blackages.com.br

hmm, i've never seen that before...

tried it, still didn't work, actually kinda made it worse, now i just get one NULL character instead of at least the same amount. :S

Right before a "message =" put msgbox chr(i) just to see what character it's on.

_________________

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"

What are EncryptedMsg and checknum doing in that sub anyway?

_________________

well they had been in there prior for part of the encrypting, however i was doing some debugging and took them out for the time being.

Change to
You should understand that to do from there.

_________________

Actually, make it

And use mod operator, it's just easier.

@Egon:
If you use anything else than the above, you will be subject to errors when decrypting.

_________________
http://www.blackages.com.br

alright, and i just kinda realized why i was only getting 2 different characters in the final string, i was adding/replacing in the same string, so the replace command was replacing characters it had just previously replaced. And now i remember why i had the encryptedmsg in there

edit: hmph, alright i tried it, and it came up with a type mismatch error



at the like with Mod in it, im not sure where the mismatch is, and right now unfortunately i don't have time to look for it :S

Message = Replace$(Message, Chr(i), Chr((i + 2) Mod (255)))
Would be more correct.
And well, you will always get a fucked up string... You can't use the semi-encrypted string to replace, you need a backup, but actually even that will not work. You need to replace each character...
Here is the working function:

_________________
http://www.blackages.com.br

heh, nice i didn't think of that

lol, thanks a bunch!

ok full working program and source for anyway who wants it, albeit it's defenatly not very advanced or anything, it can be kinda fun