Thread: Reversing this code..

Kinda figured that

You mean like

Code:

        String s = "W/e";
        int i = 0;
        s = s.toLowerCase();
        for(int j = 0; j < s.length(); j++) {
            i = (i % 61 - s.charAt(j)) + 32;
        }

?

you can do it for 1 char

but not for a string

Since i thought it should be posible so i converted the code to vb6,
But i compared the results with those of clienthax and it seems i'm getting the wrong results..

Code:

Public Function encode(str As String) As Double
Dim j As Integer
Dim temp As String
Dim i As Double
temp = UCase(str)
For j = 1 To Len(temp)
i = (i * 61 + Asc(Mid(temp, j, 1))) - 32
DoEvents
Next j
encode = i
End Function

Not sure where i go wrong.
But maybe its useful for somebody else.