谁能把这段java解密的代码翻译成VB，万分感谢

[pauljan]

public static byte[] xEncode(String str, String secret) {
if (str == null || secret == null) return null;
byte bytes[] = str.getBytes();
byte xors[] = secret.getBytes();
for (int i=0;i<bytes.length;i++) {
byte b = (byte) ( (bytes[i]-1) ^ xors[ i % xors.length ] );
bytes[i] = (b == 0 ? (byte)255 :b);
}
return bytes;
}

[舉杯邀明月]

感觉3楼的代码可行.

• 打赏
• 举报

回复 赞

[Albert韩]

我也支持一下三楼的

• 打赏
• 举报

回复 赞

[luxingchang_2008]

我也支持一下三楼的
这样是可以的

• 打赏
• 举报

回复 赞

[jadeluo]

Java中String类的getBytes()方法不带参数的话, 好象返回的是Unicode编码的字节数组。

• 打赏
• 举报

回复 赞

[东方之珠]

up

• 打赏
• 举报

回复 赞

[lqq7072000]

是不是两个字符串表达式按位异或运算？

• 打赏
• 举报

回复 赞

[智能卡_Snooper]

Public Function xEncode(ByVal strsrc As String, ByVal secret As String) As Byte()
    
    Dim bs() As Byte
    Dim xs() As Byte
    bs = StrConv(strsrc, vbFromUnicode)
    xs = StrConv(secret, vbFromUnicode)
    
    Dim l As Long
    Dim xl As Long
    l = UBound(bs)
    xl = UBound(xs)
    
    If l = 0 Or xl = 0 Then
        xEncode = vbNullString
        Exit Function
    End If
    
    Dim i As Long
    Dim b As Byte
    For i = 0 To l - 1
        b = (bs(i) - 1) Xor xs(i Mod xl)
        bs(i) = IIf(b = 0, 255, b)
    Next i
    
    xEncode = bs
End Function

• 打赏
• 举报

回复 赞

[lqq7072000]

'写一个函数对两个字符串进行按字节异或
private function dostrxor(str1 as string, str2 as string) as string
dim i as integer
dim b1, b2, rtval as string

for i = 1 to len(str1)
b1 = mid(str1, i, 1)
b2 = mid(str2, i, 1)
rtval = rtval & chr(asc(b1) xor asc(b2))
next
dostrxor = rtval
end function

• 打赏
• 举报

回复 赞

[meiZiNick]

有点难度哦

• 打赏
• 举报

回复 赞