(Tcl) Load PuTTY Private Key

Loads a PuTTY private key into an SSH key object.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set sb [new_CkStringBuilder]

set bCrlf 1
CkStringBuilder_AppendLine $sb "PuTTY-User-Key-File-2: ssh-rsa" $bCrlf
CkStringBuilder_AppendLine $sb "Encryption: aes256-cbc" $bCrlf
CkStringBuilder_AppendLine $sb "Comment: rsa-key-20161121" $bCrlf
CkStringBuilder_AppendLine $sb "Public-Lines: 6" $bCrlf
CkStringBuilder_AppendLine $sb "AAAAB3NzaC1yc2EAAAABJQAAAQEArIVxZTGYjqqNegJeMqgZzXKuX3YtxmD4DPnQ" $bCrlf
CkStringBuilder_AppendLine $sb "K01SXoR9UA4wl6RJK5FGonI5spVnddr6HJny0eY5/RmV1dyL0fNdH2pfnHHoTd9B" $bCrlf
CkStringBuilder_AppendLine $sb "uXG0PcTn4BqJFlybC6NNaGaByqpNPaOgjJIMHXTaeCuDuzwP02f3UKSfLAFdvUNP" $bCrlf
CkStringBuilder_AppendLine $sb "fX3yrMRabjVcHJpgUn535Y9Y3ZphSFssiElLpp1vo6QLsdiAl0wgU4HLw9Dfg8sh" $bCrlf
CkStringBuilder_AppendLine $sb "p3zgAufYUUIx2HChITJ7OO/PH5GEbPvJFbYH4Wx33GEe56JCF9QxxDCqNxsPMrvu" $bCrlf
CkStringBuilder_AppendLine $sb "mqkSIPIELFl5zVYSFD9PiL8RZQcPJGq5zbF9+szsS/6DSH8biw==" $bCrlf
CkStringBuilder_AppendLine $sb "Private-Lines: 14" $bCrlf
CkStringBuilder_AppendLine $sb "SVqUm9zBUN6zaAaUY6TLnIXAhxqv4s1UhzukcN7Ns0Fs1EqdDP4nVMKgmiDxHaAj" $bCrlf
CkStringBuilder_AppendLine $sb "ucb1PLv7uj2eGt69E+HKH4AC2LtJZNH4qLw+p8QKqdN79oRAMHwtS4cU88eeQ91t" $bCrlf
CkStringBuilder_AppendLine $sb "2W3wzmTzvYFlE6VbUr3bNl3f68OCQHz+7YJuL8g0eclNuveHB/VmBqnek1LL/cRY" $bCrlf
CkStringBuilder_AppendLine $sb "wmk8wyzHRl7X8fyjGX0PiOPyVwXBDJFNjjKAdrRCRS0Cc4PWAb/18qrA9ApArQVk" $bCrlf
CkStringBuilder_AppendLine $sb "a5miOMfrXFF2Vg3JyNgfdDilNKkry9x5oTtfueZkFgu/6pofP5qrTstr+BmB16mu" $bCrlf
CkStringBuilder_AppendLine $sb "MxcDRF+jOm9XvU1OnrzQ9rBzuaHEfhSHqlKyMGTDuzRtNyxlDBgK4DaZ2z1FJQGF" $bCrlf
CkStringBuilder_AppendLine $sb "63p36KgVqx571PUJ8P/28VUb6s/OtXcjhxxvhC8Eo0wrTdjzDiX+IovdjOhWgn4v" $bCrlf
CkStringBuilder_AppendLine $sb "xugaYocotTbhqq+O1w9xYtmG8fP921+TIpHzCkE8QTJzLJ40pemKZ+TAOmhb0OUQ" $bCrlf
CkStringBuilder_AppendLine $sb "jemqmRohcxx7NEoZ0TsoAe6i+GQJ2cEE7LcNcSX3V66AkyTsTieqk1nSxyHyoF+l" $bCrlf
CkStringBuilder_AppendLine $sb "rTaVOhFM5H8Etzv94SP3c1if3Qa9cmZaEmfaqrS94bzX+OY/zRIFweT0BeMo3Uac" $bCrlf
CkStringBuilder_AppendLine $sb "fP6gBDBiLYZeRURcx0mYRdNYlssaKoYLA6c7F3ggo34VfgD6LP+ZYnG8yAXGXSPr" $bCrlf
CkStringBuilder_AppendLine $sb "lgrfdg/szqSsOKVdkoGTkVy+BgrhITnFIs8TLZsrtSEPmXjEa+QvdP6FPsyN5u6P" $bCrlf
CkStringBuilder_AppendLine $sb "8s0i8EC0KT0YA77Ps29DEU3fxsXVSc9Xd9qdiWfJ0ce2hOsTwxL1gxtXUKP4xCzm" $bCrlf
CkStringBuilder_AppendLine $sb "oXaWLFajiws2EjgBbwREj12v0I2N4xrpf/PeJq22EvWLYm9H94DdFrkm0b4p6Kmu" $bCrlf
CkStringBuilder_AppendLine $sb "Private-MAC: ef04289f158f498b8050e19f1630b4764fe64ab9" $bCrlf

set sshKey [new_CkSshKey]

# Must specify a password for this PuTTY private key because it is encrypted.
CkSshKey_put_Password $sshKey "secret"

set success [CkSshKey_FromPuttyPrivateKey $sshKey [CkStringBuilder_getAsString $sb]]
if {$success != 1} then {
    puts [CkSshKey_lastErrorText $sshKey]
    puts "Failed."
}

puts "success = $success"

delete_CkStringBuilder $sb
delete_CkSshKey $sshKey