如何把这VB代码转为C#?

Question

如何把这VB代码转为C#?
Public Function Encode(ByVal S As String) As String 
On Error GoTo acd
    If Len(S) = 0 Then Exit Function
    Dim Buff() As Byte
    Buff = StrConv(S, vbFromUnicode)
    Dim i As Long
    Dim j As Byte
    Dim k As Byte, m As Byte
    Dim mstr As String
    mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
    Dim outs As String
    i = UBound(Buff) + 1
    outs = Space(2 * i)
    Dim Temps As String
    For i = 0 To UBound(Buff)
        Randomize Time
        j = CByte(5 * (Math.Rnd()) + 0) '最大产生的随机数只能是5，不能再大了,再大的话，就要多用一个字节
        Buff(i) = Buff(i) Xor j
        k = Buff(i) Mod Len(mstr)
        m = Buff(i) \ Len(mstr)
        m = m * 2 ^ 3 + j
        Temps = Mid(mstr, k + 1, 1) + Mid(mstr, m + 1, 1)
        Mid(outs, 2 * i + 1, 2) = Temps
     Next
     Encode = outs
Exit Function
acd:
End FunctionPublic Function Decode(ByVal S As String) As String 
    On Error GoTo acd
    Dim i As Long
    Dim j As Byte
    Dim k As Byte
    Dim m As Byte
    Dim mstr As String
    mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
    Dim t1 As String, t2 As String
    Dim Buff() As Byte
    Dim n As Long
    n = 0
    For i = 1 To Len(S) Step 2
        t1 = Mid(S, i, 1)
        t2 = Mid(S, i + 1, 1)
        k = InStr(1, mstr, t1) - 1
        m = InStr(1, mstr, t2) - 1
        j = m \ 2 ^ 3
        m = m - j * 2 ^ 3
        ReDim Preserve Buff(n)
        Buff(n) = j * Len(mstr) + k
        Buff(n) = Buff(n) Xor m
        n = n + 1
     Next
     Decode = StrConv(Buff, vbUnicode)
     Exit Function
acd:
     Decode = ""
End Function谢了

Answer 1

晕啊各位老大，偶是用VB的，突然要用一下C#,唉，摸不着头啊

Answer 2

http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx
q

Answer 3

我教你一个方法
先编译，然后用Reflector反编译为C#

Answer 4

而且你这里面用了很多VB特有的东西，很难转为C#的~

Answer 5

晕啊，那高手们有没有VB,C＃通用的加密解密代码？
即用VB调用加密代码加密后能用C#代码解密，当然，用VB解密也可以。即通用的有吗？？？？？？？

Answer 6

MSDN上的DES，MD5,RC2加密方法都可以，搜一下有源码的。

Answer 7

留个名，没事时看看，以前做VB的，现在正学C＃，正好拿来练练手

Answer 8

C#-VB语言转换插件
http://www.kamalpatel.net/convertcsharp2vb.aspx
http://www.carlosag.net/tools/codetranslator/default.aspx