麻烦帮我看下这个函数转换是不是正确的C#---->VB.NET

hobby666 2006-02-27 11:14:16
麻烦帮我看下这个函数转换是不是正确的C#---->VB.NET

//=============C#中的加密函数================

private string JiaMi(string inputStr,string key)
{
string outputStr="";
int ch=0;
string xOrMask=" ";
int xOr=0;
int counter=0;
int z;
char ch1;
if(key=="")
return inputStr;
for(z=0;z<inputStr.Length;z++)
{
xOr=char.Parse(key.Substring(counter,1));
xOrMask=xOr.ToString().Substring(0,1);
xOr=int.Parse(xOrMask);
ch=char.Parse(inputStr.Substring(z,1));
ch^=xOr;
ch1=(char)ch;
outputStr=outputStr +ch1;
counter+=1;
if(counter>key.Length-1)
counter=0;
}



VB.NET中的 加密函数



''' <summary>
''' 加密函数
''' </summary>
''' <param name="inputStr">输入内容</param>
''' <param name="key">密钥</param>
''' <returns></returns>
Public Function JiaMi(ByVal inputStr As String, ByVal key As String) As String '开始用Private定义
If key Is Nothing OrElse key.Length = 0 Then Return inputStr

Dim outputStr As String = String.Empty
Dim ch As Integer = 0
Dim xOrMask As String = " "
Dim [xOr], counter As Integer
Dim ch1 As Char

For z As Integer = 0 To inputStr.Length - 1
[xOr] = AscW(Char.Parse(key.Substring(counter, 1)))
xOrMask = [xOr].ToString().Substring(0, 1)
[xOr] = Integer.Parse(xOrMask)
ch = AscW(Char.Parse(inputStr.Substring(z, 1)))
ch = ch Xor [xOr]
ch1 = ChrW(ch)
outputStr = outputStr & ch1
counter += 1
If counter > key.Length - 1 Then counter = 0
Next

Return outputStr
End Function

...全文
55 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
分析与设计
创建于2007-09-28

1.3w+

社区成员

.NET技术 分析与设计
申请成为版主
帖子事件
创建了帖子
2006-02-27 11:14
社区公告
暂无公告