Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Base64-decode-data/PicoLisp/base64-decode-data.l
+++ b/Task/Base64-decode-data/PicoLisp/base64-decode-data.l
@ -0,0 +1,24 @@
+(setq *Char64
+   `'(chop
+         "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" ) )
+(de decode64 (S)
+   (let S (chop S)
+      (pack
+         (make
+            (while S
+               (let
+                  (A (dec (index (++ S) *Char64))
+                     B (dec (index (++ S) *Char64))
+                     C (dec (index (++ S) *Char64))
+                     D (dec (index (++ S) *Char64)) )
+                  (link
+                     (char (| (>> -2 A) (>> 4 B))) )
+                  (and
+                     C
+                     (link
+                        (char
+                           (| (>> -4 (& B 15)) (>> 2 C)) ) )
+                     D
+                     (link
+                        (char (| (>> -6 (& C 3)) D)) ) ) ) ) ) ) ) )
+(prinl (decode64 "VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLVBhdWwgUi5FaHJsaWNo"))