°ÑVBº¯Êýת»»ÎªC#ÖеÄÎÊÌâ

VB code:
Function passEncode(byval strPass,byval strKey)
Dim priI,passLen,keyLen,numPos,chrT,aryPass()
passLen=Len(strPass)
keyLen=Len(strKey)
ReDim aryPass(passLen-1)
for priI=1 to passLen
aryPass(priI-1)=Mid(strPass,priI,1)
next
for priI=1 to passLen - 1
numPos=Asc(Mid(strKey,(priI mod keyLen)+1,1)) Mod (passLen-priI) + priI
chrT=aryPass(priI-1)
aryPass(priI-1)=aryPass(numPos)
aryPass(numPos)=chrT
next
passEncode=join(aryPass,"")
End Function

ÕâÊǸøÒѾ­MD5¼ÓÃܹýµÄÃÜÂë½øÐÐÔÙ¼ÓÃܵĺ¯Êý£¬ÎÒÓÃC#д³öÀ´ÊÇÏÂÃæÕâÑù£¬¿ÉÊÇÓдíÎó£¬Çë´óÏÀÃÇ°ï°ïæ¿´¿´¸ÃÔõô¸Ä£¿
C# code:
public static string pwdEncode(string pwd, string key)
{
int passLen = pwd.Length;
int keyLen = key.Length;
string[] aryPass = new string[passLen + 1];
for (int i = 1; i < passLen + 1; i++)
{
aryPass[i - 1] = pwd.Substring(i, 1);
}
for (int i = 1; i < passLen; i++)
{
int numPos = Convert.ToInt32(pwd.Substring((i % keyLen) + 1, 1)[0]) % (passLen - i) + i;
string chrT = aryPass[i - 1];
aryPass[i - 1] = aryPass[numPos];
aryPass[numP