高手请进

Question

Function Encrypt(encryptstr)
dim EFileName,Epath,SumE,Encrypti
EFilename=str2bin(encryptstr)
SumE=0
for Encrypti = 1 to len(EFilename)
SumE=SumE+mid(EFilename,Encrypti,1)
next
SumE = SumE mod 7
Encrypt=SumE&EFilename
End FunctionFunction str2bin(varstr)
dim varlow,varhigh,int1,int2
str2bin=""
dim Encryptj,Encrypti,varchar,varasc
Encryptj=0
For Encrypti=1 To Len(varstr)
Encryptj=Encryptj+1
varchar=mid(varstr,Encrypti,1)
varasc = Asc(varchar)
If varasc<0 Then
varasc = varasc + 65535
End If
If varasc>255 Then
varlow = Left(Hex(Asc(varchar)),2)
varhigh = right(Hex(Asc(varchar)),2)
int1=Get16(left(varlow,1))*16 + Get16(right(varlow,1))
int2=Get16(left(varhigh,1))*16 + Get16(right(varhigh,1))
str2bin = str2bin & getchar(int1,Encryptj) & getchar(int2,Encryptj+1)
Encryptj=Encryptj+1
Else
str2bin = str2bin & getchar(varasc,Encryptj)
End If
Next
End FunctionFunction Get16(str16)
Select case str16
Case "0"
Get16=0
Case "1"
Get16=1
Case "2"
Get16=2
Case "3"
Get16=3
Case "4"
Get16=4
Case "5"
Get16=5
Case "6"
Get16=6
Case "7"
Get16=7
Case "8"
Get16=8
Case "9"
Get16=9
Case "A"
Get16=10
Case "B"
Get16=11
Case "C"
Get16=12
Case "D"
Get16=13
Case "E"
Get16=14
Case "F"
Get16=15
End Select
End FunctionFunction getchar(charint,thepass)
dim int10,int19
int10= thepass mod 10
int19= thepass mod 19
if int(int10) = 0 then int10 = 10
if int(int19) = 0 then int19 = 19
getchar=charint * int10 + 17 * int19
getchar="0000"&getchar
getchar=right(getchar,4)
End Function不懂vb,哪位大哥帮忙翻译成c#,谢谢