Mercurial > dropbear
view libtomcrypt/filter.pl @ 1638:315fcba6960e
dropbearconvert: keyimport.c: fix BER encoding of secp521r1 keys (#69)
keysizes >= 128 octets will be encoded with a 3 byte header
which must be accounted by the optional-header
Reproduce:
master:~/build/dropbear$ ./dropbearkey -t ecdsa -s 521 -f K
Generating 521 bit ecdsa key, this may take a while...
master:~/build/dropbear$ ./dropbearconvert d o K L
Key is a ecdsa-sha2-nistp521 key
Wrote key to 'L'
master:~/build/dropbear$ openssl ec < L
read EC key
unable to load Key
139769806448384:error:0D07209B:asn1 encoding routines:ASN1_get_object:too long:crypto/asn1/asn1_lib.c:91:
author | Christian Hohnstädt <christian@hohnstaedt.de> |
---|---|
date | Wed, 20 Mar 2019 16:42:47 +0100 |
parents | 0cbe8f6dbf9e |
children |
line wrap: on
line source
#!/usr/bin/perl # we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun) $dst = shift; $ins = shift; open(SRC,"<$dst"); open(INS,"<$ins"); open(TMP,">tmp.delme"); $l = 0; while (<SRC>) { if ($_ =~ /START_INS/) { print TMP $_; $l = 1; while (<INS>) { print TMP $_; } close INS; } elsif ($_ =~ /END_INS/) { print TMP $_; $l = 0; } elsif ($l == 0) { print TMP $_; } } close TMP; close SRC;