请懂Java的高手把Java代码转换成VB代码（代码不超过15行）

[马行空牛耕田]

Java代码如下
String strResult = "";
String s;
int nch;

char[] chrArrs = strMsg.toCharArray();

for (int i=0; i<chrArrs.length; i++) {
// XOR ascii value of character with random number
nch = chrArrs[i] ^ randstr[i % 64];
s = Integer.toHexString(nch);
if (s.length() < 2) s = "0" + s;
strResult += s;
}

其中randstr是一个全局的64个元素的数组

[马行空牛耕田]

viena(维也纳nn-实心木头人)，多谢啦!
但是StrConv这个function我好像没有，所以编译不过，请帮帮忙！

cobrastudio(老汉我),呵呵，我也是试着改写过的，但是不成功，主要是因为对VB的这些函数不大了解，所以才求助的。

[viena]

StrConv是VB里的函数，不可能没有的

[马行空牛耕田]

sorry,是我搞错了，没问题的。StrConv是VB函数来的，我肯定是别的地方搞错了，现在改好了，谢谢各位，结贴了！

[viena]

Dim strResult As String, s As String
strResult = ""
Dim nch As Long

Dim byteArrs() As Byte'VB中没有字符数组，chrArrs改成字节数组
'VB中没有字符数组，原chrArrs改成字节数组byteArrs
byteArrs = strMsg.toCharArray

Dim i As Long
For i = 0 To UBound(byteArrs)
nch = byteArrs(i) Xor randstr(i Mod 64)
s = Hex(nch)
If Len(s) < 2 Then s = "0" & s
strResult = strResult & s
Next

[老汉]

连这都翻译不了？不知道楼主把代码的意思看明白了没有？如果看明白了的话，我想翻译不是什么难事吧。
这里的人都懒的替人写代码，偶也不例外。

[viena]

//这里的人都懒的替人写代码，偶也不例外
是啊是啊，不过既然这么简单，恰好不忙，我就破一回例~

[viena]

sorry，这一句不对
byteArrs = strMsg.toCharArray
应该是
byteArrs = StrConv(strMsg，vbFromUnicode)