Extract public key from cert

Very dirty temporary solution

Author: rrooij

prolog/jwt_io.pl

@@ -316,12 +316,23 @@
   memberchk(PubKeyString, Key.x5c),
   string_length(PubKeyString, StrLength),
   wrap_key(PubKeyString, 0, 64, StrLength, "", WrappedKey),
-  format(string(PubKeyFormatted),
-         "-----BEGIN PUBLIC KEY-----~n~s~n-----END PUBLIC KEY-----",
+  format(string(CertFormatted),
+         "-----BEGIN CERTIFICATE-----~n~s~n-----END CERTIFICATE-----",
          [WrappedKey]),
-  tmp_file_stream(text, File, Stream),
-  write(Stream, PubKeyFormatted),
+  tmp_file_stream(text, FileTmpCert, TmpStreamCert),
+  write(TmpStreamCert, CertFormatted),
+  close(TmpStreamCert),
+  process_create(path(openssl), ['x509', '-pubkey', '-in', FileTmpCert, '-noout'],
+                 [
+                  stdout(pipe(Stream)),
+                  detached(false),
+                  process(PID)
+                 ]),
+  tmp_file_stream(text, File, StreamTmp),
+  copy_stream_data(Stream, StreamTmp),
+  close(StreamTmp),
   close(Stream),
+  process_wait(PID, _),
   atom_string(KidAtom, Key.kid),
   atom_string(AlgAtom, Key.alg),
   SettingsKey = _{kid: KidAtom,