Decrypt from INI file

[smart_phil_dude1]

what's wrong with the following:

Public Function Decrypt(text As String)
Dim Text2
Text2 = Split(text)
text = ""
For i = 1 To UBound(Text2)
    text = text & Chr(Sqr((Text2(i) - 18) / (i + 3)))
Next i
Decrypt = text
End Function

It says tht line 6 has a problem... but the thing is, tht it worked before.. and now it doesn't...

[RhinoBull]

Besides other issues Text2 = Split(text) means that text will splited on a " " (space) character - so are you sure there are spaces in the text argument ???

[Black__Knight]

Hi,

I assume that the passed argument: text is filled with space delimited numbers. If that is the case I also assume that they are greater than 18 to avoid having a negative result which Chr$() can't convert to a character.

You could try something like this:

If Val(Text2(i)) >= 18 Then
        text = text & Chr(Sqr((Val(Text2(i)) - 18) / (i + 3)))
    Else
        text = text & ""  'unknown number to decrypt
End If

Have a good one!
BK

[smart_phil_dude1]

Besides other issues Text2 = Split(text) means that text will splited on a " " (space) character - so are you sure there are spaces in the text argument ???

YES, i am sure...

Hi,

I assume that the passed argument: text is filled with space delimited numbers. If that is the case I also assume that they are greater than 18 to avoid having a negative result which Chr$() can't convert to a character.

You could try something like this:

If Val(Text2(i)) >= 18 Then
        text = text & Chr(Sqr((Val(Text2(i)) - 18) / (i + 3)))
    Else
        text = text & ""  'unknown number to decrypt
End If

Have a good one!
BK

Well, this doesn't work... it says tht "Text2" has a problem of some kind...

and this is supposed to decrypt a coding from an INI file...

[dglienna]

Post the code that you are using to encrypt the data. Is it a string, or is it numeric data? It's hard to tell from looking at the code.

[smart_phil_dude1]

to encrypt:

Public Function Encrypt(text As String)
Dim Text2 As String
Text2 = ""
For i = 1 To Len(text)
    Text2 = Text2 & " " & Asc(Mid(text, i, 1)) * (i + 3) * Asc(Mid(text, i, 1)) + 18
Next i
Encrypt = Text2
End Function