global-functions: introduce $GetRandom20CharAlNum

Author: eworm-de

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;