Function passwordEncrypt(origPassword)
Dim Stemp, I, L, X, Y
Randomize( hour(time()) * minute(time()) * second(time()) )
Stemp = Trim(origPassword)
L = Len(Stemp)
If L > 15 Or L = 0 Then
passwordEncrypt = Stemp
Else
passwordEncrypt = Chr(100 + L)
For I = 2 To (16 - L)
passwordEncrypt = passwordEncrypt & Chr(Fix(24 * Rnd(1)) + 98)
Next
For I = (16 - L + 1) To 16
X = Asc(Mid(Stemp, (I + L - 16), 1))
If X >= 48 And X <= 57 Or X >= 113 And X <= 122 Then
Y = 170 - X
ElseIf X >= 65 And X <= 80 Or X >= 97 And X <= 112 Then
Y = 177 - X
Else
Y = 171 - X
End If
passwordEncrypt = passwordEncrypt & Chr(Y)
Next
End If
End Function 我是asp.net C#的,有人可以帮我把上面那个涵数改成C#吗?谢谢了 对应的解密程序为 private string passwordDeEncrypt(string XPassword)
{
string passwordDeEncrypt = "";
int L = XPassword.Length;
int X, Y;
if (L != 16)
{
return XPassword;
}
else
{
L = (int)XPassword[0] - 100;
for (int I = (16 - L + 1); I < 17; I++)
{
X = (int)XPassword[I - 1];
if ((X >= 48 && X <= 57) || (X >= 113 && X <= 122))
{
Y = 170 - X;
}
else if ((X >= 65 && X <= 80) || (X >= 97 && X <= 112))
{
Y = 177 - X;
}
else
{
Y = 171 - X;
}
passwordDeEncrypt = passwordDeEncrypt + ((char)Y).ToString();
} }
return passwordDeEncrypt;
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货