Question

Public Function encrypt(ByVal message As Byte(), ByVal password As String) As Byte()

    Dim passarr As Byte() = System.Text.Encoding.Default.GetBytes(password)

    Randomize()

    Dim rand As Integer = Int((255 - 0 + 1) * Rnd()) + 1
    Dim outarr(message.Length) As Byte
    Dim u As Integer

    For i As Integer = 0 To message.Length - 1
        outarr(i) += (message(i) Xor passarr(u)) Xor rand
        If u = password.Length - 1 Then u = 0 Else u = u + 1
    Next

    outarr(message.Length) = 112 Xor rand
    Return outarr

End Function

我想问的问题:

getbytes( 密码) 其已被宣布为字符串... 您为什么想要获得字节!
这里 message 的作用是什么?
rand 和 outarr 对 message 做了什么?
outar( 消息. Length) = 112 Xor Rand - 我无法理解

Answer 1

函数正在加密字符串。由于它正在对信件进行算术计算,所以您需要一个字节反射(这样您就可以对字节进行算术)。

outar是加密结果的字节数组。加密以随机值rand 为基础,在 0 和 255 之间为整数。

我相信, 112 xor Rand 部分是能够从加密代码中获取随机数字的(通过了解“机密”值112)

友情链接