ASP Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CUnicode C++Unicode CMFCDelphi DLLDelphi ActiveXFoxProJavaPerlPHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

ASP Examples

ASP String
ASP Byte Array
Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar
ASP Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
DH Key Exchange
DSA
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

 

 

 

 

 

 

Convert PuTTY Private Key (ppk) to OpenSSH (pem)

Convert a PuTTY format private key file (.ppk) to OpenSSH (.pem).

Download Chilkat 32-bit SSH / SFTP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set key = Server.CreateObject("Chilkat.SshKey")

'  Load an unencrypted or encrypted PuTTY private key.

'  If  your PuTTY private key is encrypted, set the Password
'  property before calling FromPuttyPrivateKey.
'  If your PuTTY private key is not encrypted, it makes no diffference
'  if Password is set or not set.
key.Password = "secret"

'  First load the .ppk file into a string:

keyStr = key.LoadText("putty_private_key.ppk")

'  Import into the SSH key object:
success = key.FromPuttyPrivateKey(keyStr)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(key.LastErrorText) & "</pre>"

End If

'  Convert to an encrypted or unencrypted OpenSSH key.

'  First demonstrate converting to an unencrypted OpenSSH key

bEncrypt = 0
unencryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(unencryptedKeyStr,"unencrypted_openssh.pem")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(key.LastErrorText) & "</pre>"

End If

'  Save to an encrypted OpenSSH PEM file:

bEncrypt = 1
key.Password = "myPassword"
encryptedKeyStr = key.ToOpenSshPrivateKey(bEncrypt)
success = key.SaveText(encryptedKeyStr,"encrypted_openssh.pem")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(key.LastErrorText) & "</pre>"

End If

Response.Write "<pre>" & Server.HTMLEncode("Done!") & "</pre>"


%>
</body>
</html>

 

© 2000-2013 Chilkat Software, Inc. All Rights Reserved.