小编JoS*_*Sav的帖子

我正在尝试以vb.net win表单连接服务器.我放了一个按钮和一个文本区域来接收数据.但是我无法在服务器上连接.服务器是开放的,因为我可以ping它.

Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
    Dim PasswordConnection = New PasswordAuthenticationMethod("username", "pass")
    Dim KeyboardInteractive = New KeyboardInteractiveAuthenticationMethod("username")
    Dim ConnectionInfo = New ConnectionInfo("server.com", 22, "username", PasswordConnection, KeyboardInteractive)

    Using client As New SshClient(ConnectionInfo)
        client.Connect()

        Dim cmd As SshCommand
        Dim result As String
        Dim result2 As String

        cmd = client.CreateCommand("who")
        cmd.CommandTimeout = TimeSpan.FromSeconds(10)
        result = cmd.Execute
        result2 = cmd.Error
        MemoEdit1.Text = cmd.ExitStatus

        If String.IsNullOrEmpty(result2) Then
            MemoEdit1.Text = result2
        End If

        MemoEdit1.Text = result

        client.Disconnect()
    End Using
End …

我想比较一个本地数据库中的3个表.

我的问题是我需要知道哪些表具有相同的数据,哪些表缺少数据.

例:

Table A:
IpAddress    |HostName
10.10.01.10  | something
255.255.255.1| something else

Table B:
IpAddress    |HostName
10.10.01.10  |something

Table C:
IpAddress    |HostName
255.255.255.1| something else
1.1.1.1      | blabla

我需要有一个表格向我展示这样的数据

IpAddress\HostName\TableA\TableB\TableC
10.10.01.10\something\1\1\0
255.255.255.1\something else\1\0\1
1.1.1.1\blabla\0\0\1

嘿伙计们,

我正在努力解密哈希我的sha512加密方式.我正在寻找一种方法来解密它.

顺便说一下,这是我加密的方式:

Dim uEncode As New UTF8Encoding()
        Dim bytClearString() As Byte = uEncode.GetBytes("to encrypt")
        Dim sha As New  _
        System.Security.Cryptography.SHA512Managed
        Dim WordEncrypt As String = ""
        Dim hash() As Byte = sha.ComputeHash(bytClearString)
        For Each b As Byte In hash
            WordEncrypt &= b.ToString("x2")
        Next

我现在需要知道如何解密它.