]> git.lizzy.rs Git - plan9front.git/blob - sys/src/cmd/auth/rsa2pub.c
ndb/dns: remove single-ip-address assuptions
[plan9front.git] / sys / src / cmd / auth / rsa2pub.c
1 #include <u.h>
2 #include <libc.h>
3 #include <auth.h>
4 #include <mp.h>
5 #include <libsec.h>
6 #include "rsa2any.h"
7
8 void
9 usage(void)
10 {
11         fprint(2, "usage: auth/rsa2pub [file]\n");
12         exits("usage");
13 }
14
15 void
16 main(int argc, char **argv)
17 {
18         RSApriv *key;
19         Attr *a;
20         char *s;
21         int n;
22
23         fmtinstall('A', _attrfmt);
24         fmtinstall('B', mpfmt);
25         quotefmtinstall();
26
27         ARGBEGIN{
28         default:
29                 usage();
30         }ARGEND
31
32         if(argc > 1)
33                 usage();
34
35         if((key = getrsakey(argc, argv, 0, &a)) == nil)
36                 sysfatal("%r");
37
38         if((s = smprint("key %A size=%d ek=%B n=%B\n", a, 
39                 mpsignif(key->pub.n), key->pub.ek, key->pub.n)) == nil)
40                 sysfatal("smprint: %r");
41         n = strlen(s);
42         if(write(1, s, n) != n)
43                 sysfatal("write: %r");
44         exits(nil);
45 }