请懂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个元素的数组