global-functions: introduce $GetRandom20CharAlNum

1 files changed, 8 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index f02da9e..5bbe7c4 100644
--- a/global-functions
+++ b/global-functions
@@ -28,6 +28,7 @@
 :global EscapeForRegEx;
 :global FlushEmailQueue;
 :global GetMacVendor;
+:global GetRandom20CharAlNum;
 :global GetRandom20CharHex;
 :global GetRandomNumber;
 :global HexToNum;
@@ -400,6 +401,13 @@
   }
 }
 
+# generate random 20 chars alphabetical (A-Z & a-z) and numerical (0-9)
+:set GetRandom20CharAlNum do={
+  :global EitherOr;
+
+  :return [ :rndstr length=[ $EitherOr [ :tonum $1 ] 20 ] from="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ];
+}
+
 # generate random 20 chars hex (0-9 and a-f)
 :set GetRandom20CharHex do={
   :global EitherOr;