Visual Basic

    Imports System.Data.SqlClient

    Public Class Form1
    Dim dsShiftLog As DataSet = New DataSet("ShiftLog")

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Shift_PrintersTableAdapter.Fill(Me.LazerMaintenanceDataSet.Shift_Printers)
        Me.Shift_LogTableAdapter.Fill(Me.LazerMaintenanceDataSet.Shift_Log)

        Backup_data(tbShift_Key.Text)

   End sub

Private Sub Backup_data(ShiftKey As Integer)

        Dim table1 As DataTable = New DataTable("shiftlog")
        Dim strSql As String = "SELECT * FROM Shift_Log WHERE Shift_Log.Shift_Key = '" & ShiftKey & "';"
        'Dim dtb As New DataTable
        Using SqlConn As New SqlConnection(My.Settings.LazerMaintenanceConnectionString)
            SqlConn.Open()
            Using da As New SqlDataAdapter(strSql, SqlConn)
                da.Fill(table1)
            End Using
            SqlConn.Close()
        End Using

        Dim table2 As DataTable = New DataTable("shiftprinters")
        strSql = "SELECT * FROM Shift_Printers WHERE Shift_Printers.Shift_Key = '" & ShiftKey & "';"
        'Dim dtb As New DataTable
        Using SqlConn As New SqlConnection(My.Settings.LazerMaintenanceConnectionString)
            SqlConn.Open()
            Using da2 As New SqlDataAdapter(strSql, SqlConn)
                da2.Fill(table2)
            End Using
            SqlConn.Close()
        End Using

        dsShiftLog.Tables.Add(table1)
        dsShiftLog.Tables.Add(table2)


    End Sub

Hello, I still use VB.Net once. I have a college project assignment to make cryptography. but I have experienced an error in the program. Please help me.

***program code that displays an error


    'Pembentukan Kunci
    Public Sub GetIDEAKey(ByVal pstrKey As String)
        Dim strKunci As String = ""
        Dim nRound = 1, nKey As Integer = 0
        'Dim K(9, 6) As String
        'Dim KD(9, 6) As String
        Dim i As Integer
        Dim j As Integer


        'Biner kunci - 128 bit
        strKunci = StringtoBinary(pstrKey)



        '---- Pembentukan Key Enkripsi ----
   
        For i = 1 To 7
            'Kelompokkan ke 8 buah subkey (pjg 16 bit)
            For j = 1 To 128 Step 16

                'Tambah nKey
                nKey = nKey + 1
                If nKey = 7 Then
                    'Tambah Round
                    nRound = nRound + 1

                    'Reset nilai nKey
                    nKey = 1
                End If

                If (nRound & nKey) < 95 Then
                    'Kunci per round
                    KE(nRound - 1, nKey - 1) = strKunci.Substring(j - 1, j - 1 +16)***  
                End If
            Next

            'Untuk putaran terakhir tidak usah rotasi kiri
            If i <> 7 Then
                strKunci = FRotateLeftShift(strKunci, 25)
            End If
        Next

Public Class HotKey
        ' Windows API functions and constants
        Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
        Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
        Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Short
        Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Short) As Short

<pre>
    Public Const MOD_ALT As Integer = 1
    Public Const MOD_CONTROL As Integer = 2
    Public Const MOD_SHIFT As Integer = 4
    Public Const MOD_WIN As Integer = 8
    Private f As Form
    Public Enum EKeyModifier
        Neutral
        Alt
        Control
        Control_Alt
        Shift
        Shift_Alt
        Shift_Control
        Shift_Alt_Control
        Windows
        Win_Alt
        Win_Control
        Win_Control_Alt
        Win_Shift
        Win_Shift_Alt
        Win_Shift_Control
        Win_Shift_Alt_Control
        Norepeat = &H4000
    End Enum
    Private _Modifier As EKeyModifier
    Private _Key As System.Windows.Forms.Keys        ' the id for the hotkey
    Dim hotkeyID As Short
    Sub SDummy()
        MsgBox("Dummy routine ShortKey")
    End Sub
    Public Property Key() As System.Windows.Forms.Keys
        Get
            Return _Key
        End Get
        Set(ByVal value As System.Windows.Forms.Keys)
            UnregisterGlobalHotKey()
            RegisterGlobalHotKey(value, _Modifier, f)
            _Key = value
        End Set
    End Property
    Public Property Modifier() As EKeyModifier
        Get
            Return _Modifier
        End Get
        Set(ByVal value As EKeyModifier)
            UnregisterGlobalHotKey()
            RegisterGlobalHotKey(_Key, value, f)
            _Modifier = value
        End Set
    End Property

    ' register a global hot key
    Function RegisterGlobalHotKey(ByVal hotkey As EKeyModifier, ByVal modifiers As Integer, ByVal frm As Form) As Boolean
        Try
            f = frm
            ' use the GlobalAddAtom API to get a unique ID (as suggested by MSDN docs)
            'adapted code(obsolete)
            'Dim atomName As String = AppDomain.GetCurrentThreadId.ToString("X8") & Me.Name
            Dim th As New Threading.Thread(AddressOf SDummy)
            Dim value As Integer
            value = th.ManagedThreadId
            'end adapted
            Dim atomName As String = CStr(value) & "_HotKey"
            hotkeyID = GlobalAddAtom(atomName)
            If hotkeyID = 0 Then
                Throw New Exception("Unable to generate unique hotkey ID. Error code: " &
            System.Runtime.InteropServices.Marshal.GetLastWin32Error().ToString)
            End If
            _Key = hotkey
            _Modifier = modifiers
            ' register the hotkey, throw if any error

            If RegisterHotKey(frm.Handle, hotkeyID, modifiers, hotkey) = 0 Then
                Dim LastError As String = System.Runtime.InteropServices.Marshal.GetLastWin32Error.ToString
                Throw New Exception("Unable to register hotkey. Error code: " & LastError)
            End If
            Return True
        Catch ex As Exception
            ' clean up if hotkey registration failed
            UnregisterGlobalHotKey()
            Return False
        End Try
    End Function

    ' unregister a global hotkey
    Sub UnregisterGlobalHotKey()
        If hotkeyID <> 0 Then
            Try
                UnregisterHotKey(f.Handle, hotkeyID)
            Catch ex As Exception
            End Try
            ' clean up the atom list
            GlobalDeleteAtom(hotkeyID)
            hotkeyID = 0
        End If
    End Sub

    Protected Overrides Sub Finalize()
        UnregisterGlobalHotKey()
        MyBase.Finalize()
    End Sub
End Class</pre>

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Hotkey = New Classes.HotKey
        If Not Hotkey.RegisterGlobalHotKey(Keys.F5, Classes.HotKey.EKeyModifier.Win_Alt, Me) Then
            MsgBox("Close key not registered")
        End If
    End Sub

<pre>
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    ' let the base class process the message
    MyBase.WndProc(m)

    ' if this is a WM_HOTKEY message, notify the parent object
    Const WM_HOTKEY As Integer = &H312
    If m.Msg = WM_HOTKEY Then
        ' do whatever you wish to do when the hotkey is pressed

        Dim key As Keys = ((m.LParam.ToInt64 >> 16) And &HFFFF) 'the charKey
        Dim modifier As Classes.HotKey.eKeyModifier = (m.LParam.ToInt64 And &HFFFF) 'Shift Alt Control and/or Windows key
        Select Case key.ToString
            Case "F5"
                EndToolStripMenuItem.PerformClick()
        End Select
    End If
End Sub</pre>

I'm connecting to an EPP server via TCPclient and it's protected by SSL certificate authentication. The company that provides the EPP server said I needed to get a certificate (not self-signed), upload the CRT file into my user account, and then combine the CRT and KEY files into one (I choose PFX) that I will need to pass with each message in order to invoke an authorization / certificate combination. I've upload the CRT and created the PFX files fine.

I've tested this several ways (SSLstream, NetworkStream, StreamWriter/StreamReader) and none of them have been able to produce me with a readable response. At the same time, neither method produces any exceptions. From my testing it appears that I connect to the server okay, convert my string and write okay, but then either get a blank response or a jibberish response that looks like it might be encrypted? Below are two ways I've tried to do this (SSLstream & NetworkStream). You can see my code, plus a screenshot of the response.

'Create a collection and add the certificate
Dim collection = New X509Certificate2Collection()
collection.Import("C:\\Users\\Drew\\Desktop\\testcert\\FIcert.pfx", "password", X509KeyStorageFlags.DefaultKeySet)
Dim store = New X509Store(StoreName.My)
store.Open(OpenFlags.ReadWrite)

Try
    For Each certificate As X509Certificate2 In collection
        store.Add(certificate)
    Next
Finally
    store.Close()
End Try


'Create the Hello EPP request and put it into a String
Dim hello As XElement = <epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
                            <hello/>
                        </epp>


'Create client, convert XML element to string and pass it with certificate collection
Try
    Dim client As New TcpClient(DRShost, 700)
    Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(hello.ToString)
    Dim callback As New RemoteCertificateValidationCallback(AddressOf CertificateValidationCallback)
    Dim sslStream As New Security.SslStream(client.GetStream(), False, callback)
    sslStream.AuthenticateAsClient(DRShost, collection, SslProtocols.[Default], False)

    If sslStream.IsAuthenticated Then
        'All of these return TRUE except the last one
        MsgBox("IsAuthenticated: " & sslStream.IsAuthenticated)
        MsgBox("IsMutuallyAuthenticated: " & sslStream.IsMutuallyAuthenticated)
        MsgBox("IsEncrypted: " & sslStream.IsEncrypted)
        MsgBox("IsSigned: " & sslStream.IsSigned)
        MsgBox("IsServer: " & sslStream.IsServer)
    End If
    sslStream.Write(data, 0, data.Length)
    MsgBox("Sent: " & hello.ToString)
    data = New [Byte](256) {}
    Dim bytes As Integer = sslStream.Read(data, 0, data.Length)
    Dim responseData As String = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
    MsgBox("Received: " & responseData)
Catch ex As AuthenticationException
    MsgBox(ex.Message)
Catch ex As SocketException
    MsgBox(ex.Message)
Catch ex As IOException
    MsgBox(ex.Message)
Finally
    If sslStream IsNot Nothing Then
        sslStream.Close()
    End If
End Try

'Create a collection and add the certificate
Dim collection = New X509Certificate2Collection()
collection.Import("C:\\Users\\Drew\\Desktop\\testcert\\FIcert.pfx", "password", X509KeyStorageFlags.DefaultKeySet)
Dim store = New X509Store(StoreName.My)
store.Open(OpenFlags.ReadWrite)

Try
    For Each certificate As X509Certificate2 In collection
        store.Add(certificate)
    Next
Finally
    store.Close()
End Try


'Create the Hello EPP request and put it into a String
Dim hello As XElement = <epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
                            <hello/>
                        </epp>


'Create client and networkstream, convert XML and write it
Dim client As TcpClient = New TcpClient(DRShost, 700)
Dim tcpNetStream As NetworkStream = client.GetStream()
Dim sslStream As New Security.SslStream(tcpNetStream, False, New RemoteCertificateValidationCallback(AddressOf CertificateValidationCallback), Nothing)
sslStream.AuthenticateAsClient(DRShost, collection, SslProtocols.[Default], False)
Dim encodedBytes As Byte() = ASCIIEncoding.ASCII.GetBytes(hello.ToString)

tcpNetStream.Write(encodedBytes, 0, encodedBytes.Length)

Dim bytesToReceive As Byte() = New Byte(client.ReceiveBufferSize - 1) {}
Dim bytesRead As Integer = tcpNetStream.Read(bytesToReceive, 0, client.ReceiveBufferSize)
MsgBox("Received : " & Encoding.ASCII.GetString(bytesToReceive, 0, bytesRead))
client.Close()

Dim bytesRead As Integer = tcpNetStream.Read(bytesToReceive, 0, client.ReceiveBufferSize)

Dim bytesRead As Integer = sslStream.Read(bytesToReceive, 0, client.ReceiveBufferSize)

Private Sub Combo1_Click()
Dim drs As New ADODB.Recordset
drs.Open "select * from room where roomno=" & CInt(Combo1.Text), con, 3, 2
If (Not drs.EOF Or drs.BOF) Then
Do Until drs.EOF
Me.Text2.Text = drs!price
drs.MoveNext
Loop
End If

End Sub