(PureBasic) Load PuTTY Private Key

Loads a PuTTY private key into an SSH key object.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkSshKey.pb"

Procedure ChilkatExample()

    sb.i = CkStringBuilder::ckCreate()
    If sb.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    sshKey.i = CkSshKey::ckCreate()
    If sshKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Must specify a password for this PuTTY private key because it is encrypted.
    CkSshKey::setCkPassword(sshKey, "secret")

    success.i = CkSshKey::ckFromPuttyPrivateKey(sshKey,CkStringBuilder::ckGetAsString(sb))
    If success <> 1
        Debug CkSshKey::ckLastErrorText(sshKey)
        Debug "Failed."
    EndIf

    Debug "success = " + Str(success)


    CkStringBuilder::ckDispose(sb)
    CkSshKey::ckDispose(sshKey)


    ProcedureReturn
EndProcedure