请问这段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代码。
小弟是编程新手,请大家多多帮忙!
...全文
46 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>
  • 打赏
  • 举报
回复
5~~
这段代码出错:
Dim chrArr as char()
Char类型最大值只能是65535
如果我放入好多中文字符,那么出现溢出错误~~!

87,902

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧