PHP to ASP.NET Migration Assistant Alpha

Re: PHP to VB.NET convertion problem

ps2goat — Mon, 28 Jul 2008 18:21:35 GMT

It isn't the 0 that screws up the code, it's the -1.

As for the PHP question, I'm not totally sure because I'm not a PHP guy (I could be in a day or less if need be, but there is no need). There is another post that can possibly answer your question: http://bytes.com/forum/thread163251.html

Re: PHP to VB.NET convertion problem

nickshawn — Thu, 24 Jul 2008 19:41:38 GMT

Yes, totally understand that it returns zero, but why does it work in PHP. The php code works fine when given the zero, i just don't understand why mine is different. Anyone who can explain this to me will be of much help.

Re: PHP to VB.NET convertion problem

ps2goat — Thu, 24 Jul 2008 19:17:20 GMT

If i = 0, then 0 MOD anything is still zero. Zero - one = -1, thus less than zero.

PHP to VB.NET convertion problem

nickshawn — Thu, 24 Jul 2008 16:48:21 GMT

Here is my php to vb.net

PHP code:

function encrypt($string, $key) {
                        $result = '';
                        for($i=0; $i<strlen($string); $i++) {
                                    $char = substr($string, $i, 1);
                                    $keychar = substr($key, ($i % strlen($key))-1, 1);
                                    $char = chr(ord($char)+ord($keychar));
                                    $result.=$char;
                        }
                        return base64_encode($result);
            }

VB.NET code:

Function crypter(ByVal strPass As String, ByVal key As String)
        Dim result As String = Nothing
        Dim i As Integer
        For i = 0 To strPass.Length - 1
            Dim charPass As Char
            charPass = strPass.Substring(i, 1)
            Dim keychar As Char
            keychar = key.Substring((i Mod key.Length) - 1, 1)
            charPass = Chr(Asc(charPass) + Asc(keychar))
            result += charPass
        Next [i]
        Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(result)
        Return System.Convert.FromBase64String(result)

    End Function

--------------------------------------------

At line keychar = key.Substring((i Mod key.Length) - 1, 1) i get this error: StartIndex cannot be less than zero.

my string is 13 characters and my key is about 34, can someone help with this solution?