1180746Sdes#!/bin/sh
2295367Sdes#	$OpenBSD: ssh2putty.sh,v 1.3 2015/05/08 07:26:13 djm 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=`
22295367Sdes	openssl rsa -noout -text -in $KEYFILE | grep ^publicExponent |
23180746Sdes	sed 's/.*(//;s/).*//'
24180746Sdes`
25180746Sdestest $? -ne 0 && exit 1
26180746Sdes
27180746Sdesmodulus=`
28295367Sdes	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