lör 31 dec 2022 01:16:21 CET

1 files changed, 45 insertions, 0 deletions

diff --git a/Outlook Safelinks.wiki b/Outlook Safelinks.wiki
new file mode 100644
index 0000000..2930f27
--- /dev/null
+++ b/Outlook Safelinks.wiki
@@ -0,0 +1,45 @@
+%title Outlook Safelinks
+
+A quick decoder for Outlooks safelinks "protection"
+
+{{{scheme
+(use-modules (web uri)
+             (ice-9 regex))
+
+(define uri (string->uri "https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgoogle.com%2F%3Fp1%3Dhello%26p2%3Dworld&data=04%7C01%7Chugo.hornquist%40liu.se%7C07769d4323fa49da8ae908d9b6569ce9%7C913f18ec7f264c5fa816784fe9a58edd%7C0%7C0%7C637741305400535204%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000&sdata=nJBoGaNj2Ub58jLFpsMwhEdt6DH1m%2BMbyrFa7Qj5iBI%3D&reserved=0"))
+
+(define decoded (uri-decode (uri-query uri)))
+
+(write decoded) (newline)
+
+(define components
+  (map (lambda (kv)
+         (define idx (string-index kv #\=))
+         (cons (string->symbol (string-take kv idx))
+               (string-drop kv (1+ idx))))
+       (string-split
+
+         (regexp-substitute/global
+           #f (make-regexp "&") decoded
+           'pre (string #\us) 'post)
+         #\us))
+  )
+}}}
+
+
+
+{{{scheme
+(write (string-split (assoc-ref components 'data) #\|))
+}}}
+
+0  :: "04"
+1  :: "01"
+2  :: from email
+3  :: uid?
+4  :: uid?
+5  :: "0"
+6  :: "0"
+7  :: uid?
+8  :: "Unknown"
+9  ::
+10 :: "2000"