Visual Basic 6.0

Initiate an SSH Key Re-Exchange

Demonstrates the Chilkat Ssh.ReKey method, which initiates an SSH key re-exchange and waits for it to complete. It takes no arguments. Either the client or the server may trigger rekeying at any time.

Background: Rekeying periodically replaces the session keys to limit how much data is protected by any single key. RFC 4253 recommends it after roughly one gigabyte of transfer or one hour, whichever comes first. In practice servers initiate this automatically and Chilkat handles it transparently, so calling ReKey explicitly is rarely necessary.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Ssh.ReKey method, which initiates an SSH key re-exchange and waits for it to
'  complete.  It takes no arguments.  In normal use the server initiates rekeying as needed and
'  Chilkat handles it transparently.

Dim ssh As New ChilkatSsh

'  Connect to the SSH server.  Port 22 is the usual SSH port.
Dim sshPort As Long
sshPort = 22
success = ssh.Connect("ssh.example.com",sshPort)
If (success = 0) Then
    Debug.Print ssh.LastErrorText
    Exit Sub
End If

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
Dim password As String
password = "mySshPassword"

success = ssh.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    Debug.Print ssh.LastErrorText
    Exit Sub
End If

'  Explicitly initiate a key re-exchange on the live connection.
success = ssh.ReKey()
If (success = 0) Then
    Debug.Print ssh.LastErrorText
    Exit Sub
End If

Debug.Print "Key re-exchange complete."

ssh.Disconnect