(Tcl) Load a PuTTY Public Key

Demonstrates how to load a PuTTY public key.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

#  Load a PuTTY public key.
set puttyKey [new_CkSshKey]

set pubKeyText [CkSshKey_loadText $puttyKey "qa_data/ppk/putty_public.pem"]

#  The pubKeyText contains this content:

#  	---- BEGIN SSH2 PUBLIC KEY ----
#  	Comment: "rsa-key-20170126"
#  	AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW
#  	6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8l
#  	fa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4
#  	zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8Vg
#  	bNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hc
#  	bOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==
#  	---- END SSH2 PUBLIC KEY ----

set success [CkSshKey_FromRfc4716PublicKey $puttyKey $pubKeyText]
if {[expr $success != 1]} then {
    puts [CkSshKey_lastErrorText $puttyKey]
    delete_CkSshKey $puttyKey
    exit
}

#  If desired, convert to other public key formats:
set openSshPubKeyStr [CkSshKey_toOpenSshPublicKey $puttyKey]
puts "$openSshPubKeyStr"

#  openSshPubKeyStr contains:
#  ssh-rsa AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w== rsa-key-20170126

#  Convert to an XML format:
set xmlPubKeyStr [CkSshKey_toXml $puttyKey]
puts "$xmlPubKeyStr"

#  xmlPubKeyStr contains:
#  <RSAPublicKey>
#      <Modulus>x+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==</Modulus>
#      <Exponent>JQ==</Exponent>
#  </RSAPublicKey>
# 
# 

delete_CkSshKey $puttyKey