PowerBuilder

Load PuTTY Private Key

See more SSH Key Examples

Loads a PuTTY private key into an SSH key object. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Sb
integer li_BCrlf
oleobject loo_SshKey

li_Success = 0

loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_Sb
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_BCrlf = 1
loo_Sb.AppendLine("PuTTY-User-Key-File-2: ssh-rsa",li_BCrlf)
loo_Sb.AppendLine("Encryption: aes256-cbc",li_BCrlf)
loo_Sb.AppendLine("Comment: rsa-key-20161121",li_BCrlf)
loo_Sb.AppendLine("Public-Lines: 6",li_BCrlf)
loo_Sb.AppendLine("AAAAB3NzaC1yc2EAAAABJQAAAQEArIVxZTGYjqqNegJeMqgZzXKuX3YtxmD4DPnQ",li_BCrlf)
loo_Sb.AppendLine("K01SXoR9UA4wl6RJK5FGonI5spVnddr6HJny0eY5/RmV1dyL0fNdH2pfnHHoTd9B",li_BCrlf)
loo_Sb.AppendLine("uXG0PcTn4BqJFlybC6NNaGaByqpNPaOgjJIMHXTaeCuDuzwP02f3UKSfLAFdvUNP",li_BCrlf)
loo_Sb.AppendLine("fX3yrMRabjVcHJpgUn535Y9Y3ZphSFssiElLpp1vo6QLsdiAl0wgU4HLw9Dfg8sh",li_BCrlf)
loo_Sb.AppendLine("p3zgAufYUUIx2HChITJ7OO/PH5GEbPvJFbYH4Wx33GEe56JCF9QxxDCqNxsPMrvu",li_BCrlf)
loo_Sb.AppendLine("mqkSIPIELFl5zVYSFD9PiL8RZQcPJGq5zbF9+szsS/6DSH8biw==",li_BCrlf)
loo_Sb.AppendLine("Private-Lines: 14",li_BCrlf)
loo_Sb.AppendLine("SVqUm9zBUN6zaAaUY6TLnIXAhxqv4s1UhzukcN7Ns0Fs1EqdDP4nVMKgmiDxHaAj",li_BCrlf)
loo_Sb.AppendLine("ucb1PLv7uj2eGt69E+HKH4AC2LtJZNH4qLw+p8QKqdN79oRAMHwtS4cU88eeQ91t",li_BCrlf)
loo_Sb.AppendLine("2W3wzmTzvYFlE6VbUr3bNl3f68OCQHz+7YJuL8g0eclNuveHB/VmBqnek1LL/cRY",li_BCrlf)
loo_Sb.AppendLine("wmk8wyzHRl7X8fyjGX0PiOPyVwXBDJFNjjKAdrRCRS0Cc4PWAb/18qrA9ApArQVk",li_BCrlf)
loo_Sb.AppendLine("a5miOMfrXFF2Vg3JyNgfdDilNKkry9x5oTtfueZkFgu/6pofP5qrTstr+BmB16mu",li_BCrlf)
loo_Sb.AppendLine("MxcDRF+jOm9XvU1OnrzQ9rBzuaHEfhSHqlKyMGTDuzRtNyxlDBgK4DaZ2z1FJQGF",li_BCrlf)
loo_Sb.AppendLine("63p36KgVqx571PUJ8P/28VUb6s/OtXcjhxxvhC8Eo0wrTdjzDiX+IovdjOhWgn4v",li_BCrlf)
loo_Sb.AppendLine("xugaYocotTbhqq+O1w9xYtmG8fP921+TIpHzCkE8QTJzLJ40pemKZ+TAOmhb0OUQ",li_BCrlf)
loo_Sb.AppendLine("jemqmRohcxx7NEoZ0TsoAe6i+GQJ2cEE7LcNcSX3V66AkyTsTieqk1nSxyHyoF+l",li_BCrlf)
loo_Sb.AppendLine("rTaVOhFM5H8Etzv94SP3c1if3Qa9cmZaEmfaqrS94bzX+OY/zRIFweT0BeMo3Uac",li_BCrlf)
loo_Sb.AppendLine("fP6gBDBiLYZeRURcx0mYRdNYlssaKoYLA6c7F3ggo34VfgD6LP+ZYnG8yAXGXSPr",li_BCrlf)
loo_Sb.AppendLine("lgrfdg/szqSsOKVdkoGTkVy+BgrhITnFIs8TLZsrtSEPmXjEa+QvdP6FPsyN5u6P",li_BCrlf)
loo_Sb.AppendLine("8s0i8EC0KT0YA77Ps29DEU3fxsXVSc9Xd9qdiWfJ0ce2hOsTwxL1gxtXUKP4xCzm",li_BCrlf)
loo_Sb.AppendLine("oXaWLFajiws2EjgBbwREj12v0I2N4xrpf/PeJq22EvWLYm9H94DdFrkm0b4p6Kmu",li_BCrlf)
loo_Sb.AppendLine("Private-MAC: ef04289f158f498b8050e19f1630b4764fe64ab9",li_BCrlf)

loo_SshKey = create oleobject
li_rc = loo_SshKey.ConnectToNewObject("Chilkat.SshKey")

// Must specify a password for this PuTTY private key because it is encrypted.
loo_SshKey.Password = "secret"

li_Success = loo_SshKey.FromPuttyPrivateKey(loo_Sb.GetAsString())
if li_Success <> 1 then
    Write-Debug loo_SshKey.LastErrorText
    Write-Debug "Failed."
end if

Write-Debug "success = " + string(li_Success)


destroy loo_Sb
destroy loo_SshKey