Frequently Asked Question
Load private key from string?
Last Updated 12 years ago
Loading private key from string allows you to keep the key in your application, rather than external file.
Here is example:
Dim key As Keys
Dim KeyData As String
KeyData = "-----BEGIN RSA PRIVATE KEY-----" & vbCrLf & _
"Proc-Type: 4,ENCRYPTED" & vbCrLf & _
"DEK-Info: DES-EDE3-CFB,1430A7BCBCE760DF" & vbCrLf & _
"" & vbCrLf & _
"//evYJWu2DiUMWEnOvhCaBcT2nP76LxsUqpfegdEeu3PFcBIRxC0WW47UMlVu/Ac" & vbCrLf & _
"+A1iw3dCplN6rHW3cjZc7N7KvmcFJ7pXtQ5h5ItnNFu2/dLvq2hLRynHmkomZ9vQ" & vbCrLf & _
"Xo7bX8A7onRPf2c2yygxM+1sOZcN/teTaa+hM2CwoU97lQH4fed6eYMdflmPQZfc" & vbCrLf & _
"F4b9bFdBJo9nq+iBEmaQXewZPzJ0fNXOk/ePrNBxaRbMs3Ky3hynK7M7DyuKzxDJ" & vbCrLf & _
"qXFN8Ule+KnFpFd0EL02r621LFeRiFBB9kfi8FnvWTjx9JPizpOaFKyMFHNNojgO" & vbCrLf & _
"eQF0jn2XSeekbZPKRGmla7nQALb1Sxl7+1KX+gIACGlREAXPhwru2aSdvRXKhmEg" & vbCrLf & _
"ZZCJvEjnkJCBujnrfguYPj1jyY3AI3ySGBlMvJZoU7o48/H904lGnbQNjUJ5WSoI" & vbCrLf & _
"3wYRHXImvA3pywuI/dfLEHW+Zg5ojFu2Cz3S2b2GxZGabppEfIH8dYq2FXe2w5Rg" & vbCrLf & _
"G7qWjQhUrPOytl0NTRwpciGqMZKCiLcq01z4+FtB7Rau8xT3cJqLBPdBZR4nKdm5" & vbCrLf & _
"V/R1XWtxZhrYGEfRfPROanzQ6f2Yd4ISMekNYIDXVDjddWfGw1oDQYZ1KklEjP9i" & vbCrLf & _
"MerH3UM8RpQDNtmDmV0o3Y0sYImpoHhaYJePuei+jRZAUjWKZvFYoClJDUu9PO4x" & vbCrLf & _
"vc0l2NOGK0DVma6FbU5mPuCir5lYsChGEbIDMqD+uVunqwcdDlxlqYzeIOD8ujrF" & vbCrLf & _
"ssnK6vFSCMm5smZZ2i3v2q32EvtJDqpe3b30QZmP" & vbCrLf & _
"-----END RSA PRIVATE KEY-----"
Set key = New Keys
key.Load KeyData, "weonlydo"
Debug.Print key.PublicKeyOpenSSH(RSAkey)
