*RESOLVED* Error with Xor in VB.Net

Hi folks,

I've made a cypher class in VB.Net, but every time i run the project i get the following error. What is wrong here???

Quote:

---

An unhandled exception of type 'System.ArgimentException' occured in Microsoft.Visualbasic.dll

Additional information: Procedure call or argument is not valid.

---

On the line self (bold) i get te following description:

Quote:

---

This code has called into another function. When that function is finisched, this is the next statement that will be executed.

---

Class:

Quote:

---

Private Sub DoXor()
dim lngC as integer
dim intB as integer
dim lngN as integer

for lngN = 0 to mvarText.length
lngC = Asc(Mid(mvarText, lngN,1))
intB = Int(Rnd * 256)
>>>Mid(mvarText, lngN,1) = Chr(lngC Xor intB)
Next
End sub

Public Function Decrypt(byval vData as String) as String
DoXor()
Decrypt = mvarText
End Function

---

Can please someone help me.

Thanxxx

I'm not sure if this would help you out but you better see this little demo that uses Xor function .
http://www.experts-exchange.com/Prog..._20462872.html

Quote:

---

Originally posted by Pirate
I'm not sure if this would help you out but you better see this little demo that uses Xor function .

---

I took a look at it but it seems a whole other approach. Can you help me to implement my functionalities in that of the example?

Thanxxx

Is there nobody that can help me?
All the examples that i find can't give me the same result as i use in my own.

My only question is to look what's wrong with my code.

Lots of greets
Ismail

Do you have to use Xor, or can you use an equiv logic stmt

such as

a xor b = (a or b) and not (a and b)

db

I've attached the file, to let you see my intention. probably it's self-explaining.

:-)

Why do you post VB6 code here ?? If you still insist to use it though , then I dunno , otherwise , I have Encryption/Decryption routines . They work well . If you want them let me know (but they don't use XOR) .

Or you may look into using Cryptography class in .NET .