所有的分一次给完吧?难呀!!!!!!!!!!!!!!

以下是我的程序
谁能用C#得写出来?'解密子程序
Function Mod_Decipher(ByVal Password As String, ByVal From_Text As String) As String
    Const MIN_ASC = 32  ' Space.
    Const MAX_ASC = 126 ' ~.
    Const NUM_ASC = MAX_ASC - MIN_ASC + 1    Dim offset As Long
    Dim Str_Len As Integer
    Dim i As Integer
    Dim ch As Integer    offset = Fun_NumericPassword(Password)
    Rnd -1
    Randomize offset    Str_Len = Len(From_Text)
    For i = 1 To Str_Len
        ch = Asc(Mid$(From_Text, i, 1))
        If ch >= MIN_ASC And ch <= MAX_ASC Then
            ch = ch - MIN_ASC
            offset = Int((NUM_ASC + 1) * Rnd)
            ch = ((ch - offset) Mod NUM_ASC)
            If ch < 0 Then ch = ch + NUM_ASC
            ch = ch + MIN_ASC
            Mod_Decipher = Mod_Decipher & Chr$(ch)
        End If
    Next i
End Function