ECKeyMBS.BuiltInCurves as Dictionary

// show curve IDs with description in listbox
dim d as Dictionary = ECKeyMBS.BuiltInCurves

for each key as Variant in d.keys
  Listbox1.AddRow key, d.Value(key)
next

The dictionary returned has as key the ID and the description as value.

The list looks like this:

704	SECG/WTLS curve over a 112 bit prime field
705	SECG curve over a 112 bit prime field
706	SECG curve over a 128 bit prime field
707	SECG curve over a 128 bit prime field
708	SECG curve over a 160 bit prime field
709	SECG curve over a 160 bit prime field
710	SECG/WTLS curve over a 160 bit prime field
711	SECG curve over a 192 bit prime field
712	SECG curve over a 224 bit prime field
713	NIST/SECG curve over a 224 bit prime field
714	SECG curve over a 256 bit prime field
715	NIST/SECG curve over a 384 bit prime field
716	NIST/SECG curve over a 521 bit prime field
409	NIST/X9.62/SECG curve over a 192 bit prime field
410	X9.62 curve over a 192 bit prime field
411	X9.62 curve over a 192 bit prime field
412	X9.62 curve over a 239 bit prime field
413	X9.62 curve over a 239 bit prime field
414	X9.62 curve over a 239 bit prime field
415	X9.62/SECG curve over a 256 bit prime field
717	SECG curve over a 113 bit binary field
718	SECG curve over a 113 bit binary field
719	SECG/WTLS curve over a 131 bit binary field
720	SECG curve over a 131 bit binary field
721	NIST/SECG/WTLS curve over a 163 bit binary field
722	SECG curve over a 163 bit binary field
723	NIST/SECG curve over a 163 bit binary field
724	SECG curve over a 193 bit binary field
725	SECG curve over a 193 bit binary field
726	NIST/SECG/WTLS curve over a 233 bit binary field
727	NIST/SECG/WTLS curve over a 233 bit binary field
728	SECG curve over a 239 bit binary field
729	NIST/SECG curve over a 283 bit binary field
730	NIST/SECG curve over a 283 bit binary field
731	NIST/SECG curve over a 409 bit binary field
732	NIST/SECG curve over a 409 bit binary field
733	NIST/SECG curve over a 571 bit binary field
734	NIST/SECG curve over a 571 bit binary field
684	X9.62 curve over a 163 bit binary field
685	X9.62 curve over a 163 bit binary field
686	X9.62 curve over a 163 bit binary field
687	X9.62 curve over a 176 bit binary field
688	X9.62 curve over a 191 bit binary field
689	X9.62 curve over a 191 bit binary field
690	X9.62 curve over a 191 bit binary field
693	X9.62 curve over a 208 bit binary field
694	X9.62 curve over a 239 bit binary field
695	X9.62 curve over a 239 bit binary field
696	X9.62 curve over a 239 bit binary field
699	X9.62 curve over a 272 bit binary field
700	X9.62 curve over a 304 bit binary field
701	X9.62 curve over a 359 bit binary field
702	X9.62 curve over a 368 bit binary field
703	X9.62 curve over a 431 bit binary field
735	WTLS curve over a 113 bit binary field
736	NIST/SECG/WTLS curve over a 163 bit binary field
737	SECG curve over a 113 bit binary field
738	X9.62 curve over a 163 bit binary field
739	SECG/WTLS curve over a 112 bit prime field
740	SECG/WTLS curve over a 160 bit prime field
741	WTLS curve over a 112 bit prime field
742	WTLS curve over a 160 bit prime field
743	NIST/SECG/WTLS curve over a 233 bit binary field
744	NIST/SECG/WTLS curve over a 233 bit binary field
745	WTLS curvs over a 224 bit prime field
921	RFC 5639 curve over a 160 bit prime field
922	RFC 5639 curve over a 160 bit prime field
923	RFC 5639 curve over a 192 bit prime field
924	RFC 5639 curve over a 192 bit prime field
925	RFC 5639 curve over a 224 bit prime field
926	RFC 5639 curve over a 224 bit prime field
927	RFC 5639 curve over a 256 bit prime field
928	RFC 5639 curve over a 256 bit prime field
929	RFC 5639 curve over a 320 bit prime field
930	RFC 5639 curve over a 320 bit prime field
931	RFC 5639 curve over a 384 bit prime field
932	RFC 5639 curve over a 384 bit prime field
933	RFC 5639 curve over a 512 bit prime field
934	RFC 5639 curve over a 512 bit prime field

ECKeyMBS.KeyByCurveName(CurveID as Integer, Generate as Boolean = true) as ECKeyMBS

const NID_secp192k1 = 711
dim key as ECKeyMBS = ECKeyMBS.KeyByCurveName(NID_secp192k1)

MsgBox key.Description

You can use ReadPrivateKey and ReadPublicKey functions to get the keys.
If Generate is false, we create an empty object with private and public keys.

Some possible curve IDs:

secp112r1	704
secp112r2	705
secp128r1	706
secp128r2	707
secp160k1	708
secp160r1	709
secp160r2	710
secp192k1	711
secp224k1	712
secp224r1	713
secp256k1	714
secp384r1	715
secp521r1	716
sect113r1	717
sect113r2	718
sect131r1	719
sect131r2	720
sect163k1	721
sect163r1	722
sect163r2	723
sect193r1	724
sect193r2	725
sect233k1	726
sect233r1	727
sect239k1	728
sect283k1	729
sect283r1	730
sect409k1	731
sect409r1	732
sect571k1	733
sect571r1	734

Some examples using this method:

• /Encryption/ECKey/ECKey Test

ECKeyMBS.OpenPrivateKey(Data as String) as ECKeyMBS

const NID_secp192k1 = 711
dim key as ECKeyMBS = ECKeyMBS.KeyByCurveName(NID_secp192k1)
dim PrivateKeyData as string = key.PrivateKey

// read again
dim pub as ECKeyMBS = ECKeyMBS.OpenPrivateKey(PrivateKeyData)
MsgBox pub.Description

The key is in binary format and you may need to use EncodeBase64/DecodeBase64.

Some examples using this method:

• /Encryption/ECKey/ECKey Test

ECKeyMBS.OpenPublicKey(Data as String, CurveID as Integer) as ECKeyMBS

const NID_secp192k1 = 711
dim key as ECKeyMBS = ECKeyMBS.KeyByCurveName(NID_secp192k1)
dim pubKeyData as string = key.PublicKey

// read again
dim pub as ECKeyMBS = ECKeyMBS.OpenPublicKey(pubKeyData, NID_secp192k1)
MsgBox pub.Description

Some examples using this method:

• /Encryption/ECKey/ECKey Test