【50分】请问怎样才能把这个C#代码移植到JAVASCRIPT及VB5.0？

请问怎样才能把这个C#代码移植到JAVASCRIPT或VB5.0？ 
我在网上找到了一段C#的代码，可是我没学过C#，请高手帮我把它转成网页用的JAVASCRIPT脚本及VB代码。谢谢！ 
需要移植的C#代码如下： 
    string str1 = string.Empty; 
    string str2 = "s45d6dfs45656612564fdsaf546315321"; 
    string txt = "022476355363"; 
    for (int i = 0; i < txt.Length; i++) 
    { 
        int num2 = i % str2.Length; 
        char ch = str2[num2]; 
        byte[] bytes = Encoding.ASCII.GetBytes(ch.ToString()); 
        ch = txt[i]; 
        byte[] buffer2 = Encoding.ASCII.GetBytes(ch.ToString()); 
        BitArray array = new BitArray(bytes); 
        BitArray array2 = new BitArray(buffer2); 
        array2.Xor(array); 
        array2.CopyTo(buffer2, 0); 
        str1 = str1 + ((buffer2[0] % 10)).ToString(); 
    }

解决方案 »

  1.   


        '这是VB.net的写法
        dim str1 as string = string.Empty
        dim str2 as string = "s45d6dfs45656612564fdsaf546315321"
        dim txt as string = "022476355363"
        dim i as integer
        for i  = 0 to txt.Length
            dim num2 as integer = i % str2.Length
            dim ch as char = str2[num2]
            dim bytes() as byte = Encoding.ASCII.GetBytes(ch.ToString())
            ch = txt(i)
            dim buffer2() as byte = Encoding.ASCII.GetBytes(ch.ToString())
            dim array as BitArray  = new BitArray(bytes)
            dim array2 as BitArray  = new BitArray(buffer2)
            array2.Xor(array)
            array2.CopyTo(buffer2, 0)
            str1 = str1 & ((buffer2[0] % 10)).ToString()
        next
      

  2.   

    我要的不是.NET语言的代码。
    我想要的是javascript脚本和VB 5.0代码。不过我自己已经把javascript脚本的实现了。
      

  3.   

    dim str1 as string
    str1=""
    dim str2 as string
    str2="s45d6dfs45656612564fdsaf546315321"
    dim txt as string
    txt="022476355363"
    dim i as long    for i=0 to txt.Length-1 step 1     
            dim num2 as long
            num2 = i mod len(str2); 
            dim ch as byte
            ch = asc(str2.mid(num2,1))
            dim bytes(0) as byte
            bytes(0)=ch
            ch = asc(txt.mid(i,1)); 
            dim buffer2(0) as byte
            buffer2(0)=ch
            dim xorVal as byte
            xorval=bytes(0) xor buffer(0)        
            str1 = str1 + chr(xorval mod 10); 
        next凑合看吧，我没测试，大致就是这些函数了。不好意思
      

  4.   

    for 后面的txt.length改成len(txt)
      

  5.   

    C#代码移植到JAVASCRIPT好象C# BUILD就有这个能力