From 7049d544279e49353df5e41fc65c0cef6c2230d5 Mon Sep 17 00:00:00 2001
From: Pekka Laiho <pekka.i.laiho@gmail.com>
Date: Mon, 21 Dec 2020 08:49:05 +0700
Subject: [PATCH] add functions for hashing and encoding

---
 src/Lib/Crypto.php   | 33 +++++++++++++++++++++++++++++
 src/Lib/Encoding.php | 49 ++++++++++++++++++++++++++++++++++++++++++++
 src/Lib/Math.php     |  4 ++++
 src/LispFactory.php  |  2 ++
 4 files changed, 88 insertions(+)
 create mode 100644 src/Lib/Crypto.php
 create mode 100644 src/Lib/Encoding.php

diff --git a/src/Lib/Crypto.php b/src/Lib/Crypto.php
new file mode 100644
index 0000000..5d3e60c
--- /dev/null
+++ b/src/Lib/Crypto.php
@@ -0,0 +1,33 @@
+<?php
+/**
+ * MadLisp language
+ * @link http://madlisp.com/
+ * @copyright Copyright (c) 2020 Pekka Laiho
+ */
+
+namespace MadLisp\Lib;
+
+use MadLisp\CoreFunc;
+use MadLisp\Env;
+
+class Crypto implements ILib
+{
+    public function register(Env $env): void
+    {
+        $env->set('md5', new CoreFunc('md5', 'Calculate the MD5 hash of a string.', 1, 1,
+            fn (string $a) => md5($a)
+        ));
+
+        $env->set('sha1', new CoreFunc('sha1', 'Calculate the SHA1 hash of a string.', 1, 1,
+            fn (string $a) => sha1($a)
+        ));
+
+        $env->set('pw-hash', new CoreFunc('pw-hash', 'Calculate hash from a password.', 1, 1,
+            fn (string $a) => password_hash($a, PASSWORD_DEFAULT)
+        ));
+
+        $env->set('pw-verify', new CoreFunc('pw-verify', 'Verify that given password matches a hash.', 2, 2,
+            fn (string $pw, string $hash) => password_verify($pw, $hash)
+        ));
+    }
+}
diff --git a/src/Lib/Encoding.php b/src/Lib/Encoding.php
new file mode 100644
index 0000000..3a806d7
--- /dev/null
+++ b/src/Lib/Encoding.php
@@ -0,0 +1,49 @@
+<?php
+/**
+ * MadLisp language
+ * @link http://madlisp.com/
+ * @copyright Copyright (c) 2020 Pekka Laiho
+ */
+
+namespace MadLisp\Lib;
+
+use MadLisp\CoreFunc;
+use MadLisp\Env;
+
+class Encoding implements ILib
+{
+    public function register(Env $env): void
+    {
+        $env->set('bin2hex', new CoreFunc('bin2hex', 'Convert binary data to hexadecimal representation.', 1, 1,
+            fn (string $a) => bin2hex($a)
+        ));
+
+        $env->set('hex2bin', new CoreFunc('hex2bin', 'Decode a hexadecimally encoded binary string.', 1, 1,
+            fn (string $a) => hex2bin($a)
+        ));
+
+        $env->set('to-base64', new CoreFunc('to-base64', 'Encode binary data to Base64 representation.', 1, 1,
+            fn (string $a) => base64_encode($a)
+        ));
+
+        $env->set('from-base64', new CoreFunc('from-base64', 'Decode a Base64 encoded binary string.', 1, 1,
+            fn (string $a) => base64_decode($a)
+        ));
+
+        $env->set('url-encode', new CoreFunc('url-encode', 'Encode special characters in URL.', 1, 1,
+            fn (string $a) => urlencode($a)
+        ));
+
+        $env->set('url-decode', new CoreFunc('url-decode', 'Decode special characters in URL.', 1, 1,
+            fn (string $a) => urldecode($a)
+        ));
+
+        $env->set('utf8-encode', new CoreFunc('utf8-encode', 'Encode ISO-8859-1 string to UTF-8.', 1, 1,
+            fn (string $a) => utf8_encode($a)
+        ));
+
+        $env->set('utf8-decode', new CoreFunc('utf8-decode', 'Decode UTF-8 string to ISO-8859-1.', 1, 1,
+            fn (string $a) => utf8_decode($a)
+        ));
+    }
+}
diff --git a/src/Lib/Math.php b/src/Lib/Math.php
index 6a50030..1b8842c 100644
--- a/src/Lib/Math.php
+++ b/src/Lib/Math.php
@@ -142,5 +142,9 @@ class Math implements ILib
                 return $a;
             }
         ));
+
+        $env->set('rand-bytes', new CoreFunc('rand-bytes', 'Generate the number of random bytes as specified by the argument.', 1, 1,
+            fn (int $length) => random_bytes($length)
+        ));
     }
 }
diff --git a/src/LispFactory.php b/src/LispFactory.php
index a7cfdae..f826f13 100644
--- a/src/LispFactory.php
+++ b/src/LispFactory.php
@@ -25,6 +25,8 @@ class LispFactory
         // Register core libraries
         (new Lib\Collections())->register($env);
         (new Lib\Compare())->register($env);
+        (new Lib\Crypto())->register($env);
+        (new Lib\Encoding())->register($env);
         if (extension_loaded('json')) {
             (new Lib\Json())->register($env);
         }