(AutoIt) Generate DSA SSH Key

Generates a DSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

$oKey = ObjCreate("Chilkat.SshKey")

Local $bSuccess

Local $iNumBits

; numBits should be a minimum of 1024 and
; a multiple of 64.  Typical values are
; 1024 or 2048. 
$iNumBits = 2048
$bSuccess = $oKey.GenerateDsaKey($iNumBits)
If ($bSuccess <> True) Then
    ConsoleWrite("Invalid numBits passed to DSA key generation method." & @CRLF)
    Exit
EndIf

; Note: Generating a public/private key pair is CPU intensive
; and may take a short amount of time (more than few seconds,
; but less than a minute).

Local $sExportedKey
Local $bExportEncrypted

; Export the DSA private key to OpenSSH, PuTTY, and XML and save. 
$bExportEncrypted = False
$sExportedKey = $oKey.ToOpenSshPrivateKey($bExportEncrypted)
; Chilkat provides a SaveText method for convenience...
$bSuccess = $oKey.SaveText($sExportedKey,"privkey_openssh_unencrypted.pem")

; Export with encryption to OpenSSH private key format:
$oKey.Password = "secret"
$bExportEncrypted = True
$sExportedKey = $oKey.ToOpenSshPrivateKey($bExportEncrypted)
$bSuccess = $oKey.SaveText($sExportedKey,"privkey_openssh_encrypted.pem")

; Export the DSA private key to unencrypted PuTTY format:
$bExportEncrypted = False
$sExportedKey = $oKey.ToPuttyPrivateKey($bExportEncrypted)
$bSuccess = $oKey.SaveText($sExportedKey,"privkey_putty_unencrypted.ppk")

; Export the DSA private key to encrypted PuTTY format:
$oKey.Password = "secret"
$bExportEncrypted = True
$sExportedKey = $oKey.ToPuttyPrivateKey($bExportEncrypted)
$bSuccess = $oKey.SaveText($sExportedKey,"privkey_putty_encrypted.ppk")

; Export private key to XML:
$sExportedKey = $oKey.ToXml()
$bSuccess = $oKey.SaveText($sExportedKey,"privkey.xml")

; ----------------------------------------------------
; Now for the public key....
; ----------------------------------------------------

; The Secure Shell (SSH) Public Key File Format
; is documented in RFC 4716.
$sExportedKey = $oKey.ToRfc4716PublicKey()
$bSuccess = $oKey.SaveText($sExportedKey,"pubkey_rfc4716.pub")

; OpenSSH has a separate public-key file format, which 
; is also supported by Chilkat SshKey:
$sExportedKey = $oKey.ToOpenSshPublicKey()
$bSuccess = $oKey.SaveText($sExportedKey,"pubkey_openSsh.pub")

ConsoleWrite("Finished." & @CRLF)