From ae21d9cb7ccd8bde56c15820e04430fa4bd7f5c1 Mon Sep 17 00:00:00 2001
From: Bridget <bridget.littlebird@pm.me>
Date: Sun, 19 Apr 2020 14:33:41 +0200
Subject: [PATCH] Use pseudo-random number generator for PIN

---
 repository.lsl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/repository.lsl b/repository.lsl
index 0530deb..e199767 100644
--- a/repository.lsl
+++ b/repository.lsl
@@ -3,8 +3,14 @@ integer CHANNEL = -54321;
 integer pin;
 regenerate_pin()
 {
-    // TODO Generate a random PIN
-    pin = 1234;
+    /* Generate a pseudo-random number to use as a PIN. */
+    string md5 = "seed";
+    integer count = 10;
+    while(count--)
+    {
+        md5 = llMD5String(md5 + (string)llGetUnixTime() + (string)llGetTime(), 0x5EED);
+    }
+    pin = (integer)("0x" + llGetSubString(md5, 0, 7));
 }
 
 integer module_is_available(string module)