请问这段js代码，我想转成vb.net，能行吗？

屡败屡战数马援 2002-11-14 09:17:25

//----------加密的---------
function Encrypt(theText)
{
output = new String;
Temp = new Array();
Temp2 = new Array();
TextSize = theText.length;
for (i = 0; i < TextSize; i++)
{
rnd = Math.round(Math.random() * 122) + 68;
Temp[i] = theText.charCodeAt(i) + rnd;
Temp2[i] = rnd;
}
for (i = 0; i < TextSize; i++)
{
output += String.fromCharCode(Temp[i], Temp2[i]);
}
return output;
}

//------------------解密的------
unction unEncrypt(theText)
{
output = new String;
Temp = new Array();
Temp2 = new Array();
TextSize = theText.length;
for (i = 0; i < TextSize; i++)
{
Temp[i] = theText.charCodeAt(i);
Temp2[i] = theText.charCodeAt(i + 1);
}
for (i = 0; i < TextSize; i = i+2)
{
output += String.fromCharCode(Temp[i] - Temp2[i]);
}
return output;
}
------------------
这段代码我一点都看不懂，请高手说明一下，我希望转成vb.net代码。
小弟是编程新手，请大家多多帮忙！

...全文

49 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

qiushuiwuhen 2002-11-14

打赏
举报

<html>
<script language="VB" runat="server">

Private Sub onDecrypt(ByVal sender As Object, ByVal e As EventArgs)
Response.Write(Decrypt(test.value))
End Sub

Private Function Decrypt(str)
Dim chrArr as char()=str.ToCharArray()
dim i as Integer
Dim ret as String=""
For i=0 to test.value.length-1 step 2
ret=ret & ChrW(AscW(chrArr(i))-AscW(chrArr(i+1)))
Next
Decrypt=ret
End Function
</script>
</head>
<body>
<form runat="server">
<input type=text id=test value=中文Abc runat="server">
<input type=submit runat="server" onclick="test.value=Encrypt(test.value)" onserverclick="onDecrypt">
</form>
<script>
function Encrypt(theText)
{
output = new String;
Temp = new Array();
Temp2 = new Array();
TextSize = theText.length;
for (i = 0; i < TextSize; i++)
{
rnd = Math.round(Math.random() * 122) + 68;
Temp[i] = theText.charCodeAt(i) + rnd;
Temp2[i] = rnd;
}
for (i = 0; i < TextSize; i++)
{
output += String.fromCharCode(Temp[i], Temp2[i]);
}
return output;
}
</script>
</body>
</html>

屡败屡战数马援 2002-11-14