File Protector/Encryptor

[iago]

Yeah.  Bruting 8 bites is a pretty insignificant task.

Do you mean bits or bytes? It's hard to tell

[Quik]

Yeah. Bruting 8 bites is a pretty insignificant task.

Do you mean bits or bytes? It's hard to tell

See my post.

Also: (16:25:34) Quik: There's a bit, and a byte, but bites are new to me

[iago]

Yeah. Bruting 8 bites is a pretty insignificant task.

Do you mean bits or bytes? It's hard to tell

See my post.

Also: (16:25:34) Quik: There's a bit, and a byte, but bites are new to me

The question still wasn't answered. 

[Koga73]

Ok, i made a simple exe in qbasic that contains a single word. Then, i encrypted the program with my program. So, lets see some bruting! If you crack it and get the answer.exe to work, just reply with the word in the program. Heres a url to downlad the answer.exe and the encryptor:

http://mercury.walagata.com/w/koga73/Crack_Me.zip

[Quik]

Ok, i made a simple exe in qbasic that contains a single word. Then, i encrypted the program with my program. So, lets see some bruting! If you crack it and get the answer.exe to work, just reply with the word in the program. Heres a url to downlad the answer.exe and the encryptor:

http://mercury.walagata.com/w/koga73/Crack_Me.zip

Oh, if only zorm visited these forums.

[Koga73]

hmm, well even if u dont crack it, could u at least respond sayin u tried?

[iago]

Sorry it took me so long.  The word is "Deliquesce".  The encryption key was "102", and the speed was "2". 

I can't believe how slllooooow your program is.  I write an implementation in C that encrypts your 16kb file, at speed 1, in milliseconds. :-P

[Joe]

wrote*?

Sidoh, thanks man! Much better than my old integral division encoding.

EDIT -
Heres my code. By no means secure, due to having the key right in it, but you go right ahead and do what you think is best with it. =)

Code: [Select]

Option Explicit

Public Function Decode(S As String) As String
    Dim Ret As String, Key As Byte, Char As Byte, I As Byte
    Key = Asc(Mid(S, 1, 1))
    For I = 2 To Len(S)
        Char = Asc(Mid(S, I, 1))
        Char = Char Xor Key
        Ret = Ret & Chr(Char)
    Next I
    Decode = Ret
End Function

Public Function Encode(S As String) As String
    Dim Ret As String, Key As Byte, Char As Byte, I As Byte
    Randomize: Key = Int(Rnd * &HFF) + 1
    Ret = Chr(Key)
    For I = 1 To Len(S)
        Char = Asc(Mid(S, I, 1))
        Char = Char Xor Key
        Ret = Ret & Chr(Char)
    Next I
    Encode = Ret
End Function

[Sidoh]

wrote*?

Sidoh, thanks man! Much better than my old integral division encoding.

Haha, sure.

Sorry it took me so long. The word is "Deliquesce". The encryption key was "102", and the speed was "2".

I can't believe how slllooooow your program is. I write an implementation in C that encrypts your 16kb file, at speed 1, in milliseconds. :-P

Lmao

[iago]

hmm, well even if u dont crack it, could u at least respond sayin u tried?

Well, are you going to admit that I rock or what?

[Joe]

iago rocks. (Please approve me. =p)