encryption

[DiGiTaIErRoR]

I wrote a program a while back that encypts using, to the best of my knowledge, XOR. I lost the source code to the program but i still have the program. I'm wondering if other people using similar XOR encryption/decryption can help we re-write the algo.

It's for a chat program I made, and now I can't make updates because I lost the source.

Here are some examples:

encyption.txt

Uses several chr$(0)'s so the only way to properly view it would be with wordpad, or other editor capable of displaying with richtext.

Thank you,

[eiSecure]

security's my specialty, but why on earth were you using XOR?????

[DiGiTaIErRoR]

Was using, have a much better algo now, *TOP SECRET* hehe. But it doesn't help me with my current problem.

Anyway, do you think you can help me decrypt this?

Thanks for your reply,

[eiSecure]

Acutually, a "Top Secret" algorithm won't be very secure because since the algorithm is not published, it would not be scrutinized by others. Usually, an algorithm is only declared "secure" after at least two years under the spotlight of cryptoanalysts.

Well, I'm not really a cryptoanalyst, so I guess you can try reversing your code and running it in loops with different passwords until you get something readable.

[HAVocINCARNATE29]

just curious what way(s) you'd personally would recommend besides XOR.

thanks

[eiSecure]

I would recommend RC4 or RC5, IDEA or 3DES, or Ecliptic Curve Algorithm.

[DiGiTaIErRoR]

The thing is it isn't a password, it's simple a linear-encryption(by that I mean it isn't based on a user-inputed value) algo. It's to encrypt the text so most people can't decrypt it, and it has done it's job because I can't do it.

Please anyone, help me.

Thanks,

[Nucleus]

By Megatron, encrypt a file:

Sub Encrypt(ByVal sName As String)
    Dim b() As Byte
    Dim nb() As Byte
    n = FileLen(sName)
    ReDim b(n - 1)
    ReDim nb(n - 1)
    Open sName For Binary Access Read As #1
    Get #1, , b()
    Close #1
    Kill sName
    For i = LBound(b) To UBound(b)
        nb(i) = b(i) Xor 5
    Next i

    Open sName For Binary Access Write As #1
    Put #1, , nb()
    Close #1
End Sub