Help!!!

[Torahteen]

Hehe, well I thought I'd go on moneo's post earlier with the XOR thing. Please don't think I'm taking over your topic, I thought this was enough on topic to post...

Code:

Dim plaintxt As String
Dim pass As Integer
Dim xorchar As Integer
Dim encrypted As String
Dim ciphered As String

Input "Text to encrypt: ", plaintxt
Input "Password (numeric): ", pass

Randomize pass

For i = 1 To Len(plaintxt)
    xorchar = Int(Rnd(1) * 255 + 1)
    encrypted += chr$(asc(mid$(plaintxt,i,1)) xor pass)
Next i

Print encrypted

'Try unencrypting

Input "Text to cipher: ", encrypted
Input "Password (numeric): ", pass

Randomize pass

For i = 1 To Len(encrypted)
    xorchar = Int(Rnd(1) * 255 + 1)
    ciphered += chr$(asc(mid$(encrypted, i, 1)) xor pass)
Next i

Print ciphered
sleep

Just made the pass a bit different. Be careful what kind of password you choose, it can be quite difficult to cipher. I don't know if this made it any more difficult to cipher or not.