1180746Sdes#!/bin/sh
2204861Sdes#	$OpenBSD: ssh2putty.sh,v 1.2 2009/10/06 23:51:49 dtucker Exp $
3180746Sdes
4180746Sdesif test "x$1" = "x" -o "x$2" = "x" -o "x$3" = "x" ; then
5180746Sdes	echo "Usage: ssh2putty hostname port ssh-private-key"
6180746Sdes	exit 1
7180746Sdesfi
8180746Sdes
9180746SdesHOST=$1
10180746SdesPORT=$2
11180746SdesKEYFILE=$3
12180746Sdes
13180746Sdes# XXX - support DSA keys too
14180746Sdesif grep "BEGIN RSA PRIVATE KEY" $KEYFILE >/dev/null 2>&1 ; then
15180746Sdes	:
16180746Sdeselse
17180746Sdes	echo "Unsupported private key format"
18180746Sdes	exit 1
19180746Sdesfi
20180746Sdes
21180746Sdespublic_exponent=`
22180746Sdes	openssl rsa -noout -text -in $KEYFILE | grep ^publicExponent | 
23180746Sdes	sed 's/.*(//;s/).*//'
24180746Sdes`
25180746Sdestest $? -ne 0 && exit 1
26180746Sdes
27180746Sdesmodulus=`
28180746Sdes	openssl rsa -noout -modulus -in $KEYFILE | grep ^Modulus= | 
29180746Sdes	sed 's/^Modulus=/0x/' | tr A-Z a-z
30180746Sdes`
31180746Sdestest $? -ne 0 && exit 1
32180746Sdes
33180746Sdesecho "rsa2@$PORT:$HOST $public_exponent,$modulus"
34180746Sdes
35