Make TLSA records without swede

1 files changed, 10 insertions, 6 deletions

diff --git a/letsencrypt-helpers/make-tlsa b/letsencrypt-helpers/make-tlsa
index 6a88b92..7b7b59e 100755
--- a/letsencrypt-helpers/make-tlsa
+++ b/letsencrypt-helpers/make-tlsa
@@ -6,17 +6,21 @@ set -u
 cd ~/certs
 
 for crt in *-combined.crt; do
+  digest=$(openssl rsa -pubout -outform DER < ${crt%-combined.crt}.key 2>/dev/null | sha256sum | awk '{print $1}')
+
+  ports="443"
+  portsfile="${crt%-combined.crt}.ports"
+  if [ -e "$portsfile" ] ; then
+    ports=$(cat "$portsfile")
+  fi
+
   (
   openssl x509 -noout -text < "$crt" | awk '/X509v3 Subject Alternative Name/ {getline;gsub(/ /, "", $0); print}' | tr ',' '\n' | awk -F: '$1=="DNS" {print $2}';
   openssl x509 -noout -subject < "$crt"| sed -e 's/^subject.*CN=\([a-zA-Z0-9\.\-\*]*\).*$/\1/'
   ) | sort -u | while read cn; do
-    ports="443"
-    portsfile="${crt%-combined.crt}.ports"
-    if [ -e "$portsfile" ] ; then
-      ports=$(cat "$portsfile")
-    fi
     for port in $ports; do
-      ~/swede/swede create --output rfc --usage=3 --selector=1 --mtype=1 --certificate "$crt" --port "$port" "$cn"
+      #~/swede/swede create --output rfc --usage=3 --selector=1 --mtype=1 --certificate "$crt" --port "$port" "$cn"
+      printf "_%d.tcp.%-40s IN TLSA 3 1 1 %s\n" "${port}" "${cn}." "${digest}"
     done
   done
 done