diff --git a/first-setup b/first-setup
index 91a5ae1..c368181 100644
--- a/first-setup
+++ b/first-setup
@@ -49,3 +49,46 @@ global CheckConnection do={
 		}
 	}
 }
+#This script is inspired by TSOKOTSA's script published in the Mikrotik forum
+global GenerateRandomString do={
+	:local hour [:pick [/system clock get time] 0 2]
+	:local hourx
+	:local minute [:pick [/system clock get time] 3 5]
+	:local minutex
+	:local second [:pick [/system clock get time] 6 8]
+	:local secondx
+	:local hundred ("1$second")
+	:local hundred2 ("1$minute")
+	:local hundred3 ("1$hour")
+	:local utsec
+	:local uthour
+	:local utmin
+	:local uptime [/system resource get uptime]
+	:if ([:len $uptime] = 10) do={:set utsec [:pick $uptime 8 10]; :set utmin [:pick $uptime 5 7]; :set uthour [:pick $uptime 2 4]}
+	:if ([:len $uptime] = 11) do={:set utsec [:pick $uptime 9 11]; :set utmin [:pick $uptime 6 8]; :set uthour [:pick $uptime 3 5]}
+	:if ([:len $uptime] = 12) do={:set utsec [:pick $uptime 10 12]; :set utmin [:pick $uptime 7 9]; :set uthour [:pick $uptime 4 6]}
+	:if ([:len $uptime] = 8) do={:set utsec [:pick $uptime 6 8]; :set utmin [:pick $uptime 3 5]; :set uthour [:pick $uptime 0 2]}
+	:if (([:len $uptime] != 12) and ([:len $uptime] != 10) and ([:len $uptime] != 11) and ([:len $uptime] != 8)) do={
+		/log error message="Script error please contact the creator"
+	}
+	:if (([:pick $hour 1] = [:pick $hour 0]) or ([:pick $minute 1] = [:pick $minute 0]) or ([:pick $second 1] = [:pick $second 0])) do={
+		:set hourx (([:pick $hour 1].[:pick $hour 0]) + 1)
+		:set minutex (([:pick $minute 1].[:pick $minute 0]) + 1)
+		:set secondx (([:pick $second 1].[:pick $second 0]) + 8)
+	} else={
+		:set hourx ([:pick $hour 1].[:pick $hour 0])
+		:set minutex ([:pick $minute 1].[:pick $minute 0])
+		:set secondx ([:pick $second 1].[:pick $second 0])
+	}
+	:if ($hundred2 = $hundred) do={:set hundred2 ($hundred2 + $hour + 1)}
+	:if (($hundred3 = $hundred) or ($hundred3 = $hundred2)) do={ :set hundred3 ($hundred3 + $second)}
+	:if ($minute + $second - $hour < 5) do={
+		:set second ($second + 25)
+		:set minute ($minute + 60)
+	}
+	:local string ("H","3","N","J","L","g","R","b","O","i","9","U","F","G","G","7","k","M","q","F","u","5","w","v","o","O","Q","V","r","6","9","l","u","n","Q","l","M","C","9","j","a","s","Y","h","K","S","N","T","d","H","i","f","E","f","q","0","7","0","w","s","X","h","9","b","X","b","n","n","R","E","z","q","r","w","7","Z","N","5","d","2","P","4","q","V","o","T","b","H","X","I","f","K","6","b","x","y","t","B","E","c","S","m","f","A","9","J","V","H","s","W","l","m","V","Z","p","u","c","r","1","Q","A","Z","2","h","E","P","t","M","c","K","V","B","g","z","J","x","k","y","q","W","K","p","i","R","Z","R","7","A","5","Y","a","A","o","H","X","4","6","9","R","Z","A","d","c","i","L","K","5","T","g","f","W","M","Y","S","J","v","V","t","N","O","F","T","v","6","y","u","p","0","H","W","Y","i","G","I","X","A","W","P","u","l","9","t","1","s","Q","a","e","I","N","E","5","K","O","l","E","m","3","L","P","2","4","s","O","y","Y","V","l","3","y","T","D","b","3","6","N","F","x","4","7","f","9","6","1","R","1","q","T","Z","3","U","W","M","X","H","z","o","T","V","e","O","G","m","0","Q","t","c","8","9","6","g","8","X","f","l","Y","V","a","t","O","5","e","z","C","2","S","K","6","e","Q","d","K","v","j","j")
+	:local RandomString
+	:set RandomString ([:pick $string ($second + uthour)].[:pick $string ($secondx + $uthour)].[:pick $string ($minute + $utsec - $hour)].[:pick $string ($minute + $uthour + $secondx)].[:pick $string [:tonum ($hundred + $uthour)]].[:pick $string [:tonum ($hundred2 + $utsec)]].[:pick $string [:tonum $hundred3]].[:pick $string ($utmin + $hourx + $second)].[:pick $string ($hourx + $hour + $second)].[:pick $string ($secondx + $utsec)])
+	:return $RandomString
+}
+
diff --git a/get-random-string.cs b/get-random-string.cs
index 3ba2d58..7926919 100644
--- a/get-random-string.cs
+++ b/get-random-string.cs
@@ -1,34 +1,48 @@
 #This script is inspired by TSOKOTSA's script published in the Mikrotik forum
-local hour [:pick [/system clock get time] 0 2]
-local hourx
-local minute [:pick [/system clock get time] 3 5]
-local minutex
-local second [:pick [/system clock get time] 6 8]
-local secondx
-local hundred ("1$second")
-local hundred2 ("1$minute")
-local hundred3 ("1$hour")
-if (([:pick $hour 1] = [:pick $hour 0]) or ([:pick $minute 1] = [:pick $minute 0]) or ([:pick $second 1] = [:pick $second 0])) do={
-	set hourx (([:pick $hour 1].[:pick $hour 0]) + 1)
-	set minutex (([:pick $minute 1].[:pick $minute 0]) + 1)
-	set secondx (([:pick $second 1].[:pick $second 0]) + 8)
-} else={
-	set hourx ([:pick $hour 1].[:pick $hour 0])
-	set minutex ([:pick $minute 1].[:pick $minute 0])
-	set secondx ([:pick $second 1].[:pick $second 0])
-}
-if ($hundred2 = $hundred) do={set hundred2 ($hundred2 + $hour + 1)}
-if (($hundred3 = $hundred) or ($hundred3 = $hundred2)) do={ set hundred3 ($hundred3 + $second)}
-if ($minute + $second - $hour < 5) do={
-	set second ($second + 25)
-	set minute ($minute + 60)
-} else={
-	nothing
+:local hour [:pick [/system clock get time] 0 2]
+:local hourx
+:local minute [:pick [/system clock get time] 3 5]
+:local minutex
+:local second [:pick [/system clock get time] 6 8]
+:local secondx
+:local hundred ("1$second")
+:local hundred2 ("1$minute")
+:local hundred3 ("1$hour")
+:local utsec
+:local uthour
+:local utmin
+:local uptime [/system resource get uptime]
+:if ([:len $uptime] = 10) do={:set utsec [:pick $uptime 8 10]; :set utmin [:pick $uptime 5 7]; :set uthour [:pick $uptime 2 4]}
+:if ([:len $uptime] = 11) do={:set utsec [:pick $uptime 9 11]; :set utmin [:pick $uptime 6 8]; :set uthour [:pick $uptime 3 5]}
+:if ([:len $uptime] = 12) do={:set utsec [:pick $uptime 10 12]; :set utmin [:pick $uptime 7 9]; :set uthour [:pick $uptime 4 6]}
+:if ([:len $uptime] = 8) do={:set utsec [:pick $uptime 6 8]; :set utmin [:pick $uptime 3 5]; :set uthour [:pick $uptime 0 2]}
+:if (([:len $uptime] != 12) and ([:len $uptime] != 10) and ([:len $uptime] != 11) and ([:len $uptime] != 8)) do={
+	/log error message="Script error please contact the creator"
 }
 
-local string ("H","3","N","J","L","g","R","b","O","i","9","U","F","G","G","7","k","M","q","F","u","5","w","v","o","O","Q","V","r","6","9","l","u","n","Q","l","M","C","9","j","a","s","Y","h","K","S","N","T","d","H","i","f","E","f","q","0","7","0","w","s","X","h","9","b","X","b","n","n","R","E","z","q","r","w","7","Z","N","5","d","2","P","4","q","V","o","T","b","H","X","I","f","K","6","b","x","y","t","B","E","c","S","m","f","A","9","J","V","H","s","W","l","m","V","Z","p","u","c","r","1","Q","A","Z","2","h","E","P","t","M","c","K","V","B","g","z","J","x","k","y","q","W","K","p","i","R","Z","R","7","A","5","Y","a","A","o","H","X","4","6","9","R","Z","A","d","c","i","L","K","5","T","g","f","W","M","Y","S","J","v","V","t","N","O","F","T","v","6","y","u","p","0","H","W","Y","i","G","I","X","A","W","P","u","l","9","t","1","s","Q","a","e","I","N","E","5","K","O","l","E","m","3","L","P","2","4","s","O","y","Y","V","l","3","y","T","D","b","3","6","N","F","x","4","7","f","9","6","1","R","1","q","T","Z","3","U","W","M","X","H","z","o","T","V","e","O","G","m","0","Q","t","c","8","9","6","g","8","X","f","l","Y","V","a","t","O","5","e","z","C","2","S","K","6","e","Q","d","K","v","j","j")
+:if (([:pick $hour 1] = [:pick $hour 0]) or ([:pick $minute 1] = [:pick $minute 0]) or ([:pick $second 1] = [:pick $second 0])) do={
+	:set hourx (([:pick $hour 1].[:pick $hour 0]) + 1)
+	:set minutex (([:pick $minute 1].[:pick $minute 0]) + 1)
+	:set secondx (([:pick $second 1].[:pick $second 0]) + 8)
+} else={
+	:set hourx ([:pick $hour 1].[:pick $hour 0])
+	:set minutex ([:pick $minute 1].[:pick $minute 0])
+	:set secondx ([:pick $second 1].[:pick $second 0])
+}
+:if ($hundred2 = $hundred) do={:set hundred2 ($hundred2 + $hour + 1)}
+:if (($hundred3 = $hundred) or ($hundred3 = $hundred2)) do={ :set hundred3 ($hundred3 + $second)}
+:if ($minute + $second - $hour < 5) do={
+	:set second ($second + 25)
+	:set minute ($minute + 60)
+} else={
+	:nothing
+}
+
+:local string ("H","3","N","J","L","g","R","b","O","i","9","U","F","G","G","7","k","M","q","F","u","5","w","v","o","O","Q","V","r","6","9","l","u","n","Q","l","M","C","9","j","a","s","Y","h","K","S","N","T","d","H","i","f","E","f","q","0","7","0","w","s","X","h","9","b","X","b","n","n","R","E","z","q","r","w","7","Z","N","5","d","2","P","4","q","V","o","T","b","H","X","I","f","K","6","b","x","y","t","B","E","c","S","m","f","A","9","J","V","H","s","W","l","m","V","Z","p","u","c","r","1","Q","A","Z","2","h","E","P","t","M","c","K","V","B","g","z","J","x","k","y","q","W","K","p","i","R","Z","R","7","A","5","Y","a","A","o","H","X","4","6","9","R","Z","A","d","c","i","L","K","5","T","g","f","W","M","Y","S","J","v","V","t","N","O","F","T","v","6","y","u","p","0","H","W","Y","i","G","I","X","A","W","P","u","l","9","t","1","s","Q","a","e","I","N","E","5","K","O","l","E","m","3","L","P","2","4","s","O","y","Y","V","l","3","y","T","D","b","3","6","N","F","x","4","7","f","9","6","1","R","1","q","T","Z","3","U","W","M","X","H","z","o","T","V","e","O","G","m","0","Q","t","c","8","9","6","g","8","X","f","l","Y","V","a","t","O","5","e","z","C","2","S","K","6","e","Q","d","K","v","j","j")
+
+:global RandomString
+:set RandomString ([:pick $string ($second + uthour)].[:pick $string ($secondx + $uthour)].[:pick $string ($minute + $utsec - $hour)].[:pick $string ($minute + $uthour + $secondx)].[:pick $string [:tonum ($hundred + $uthour)]].[:pick $string [:tonum ($hundred2 + $utsec)]].[:pick $string [:tonum $hundred3]].[:pick $string ($utmin + $hourx + $second)].[:pick $string ($hourx + $hour + $second)].[:pick $string ($secondx + $utsec)])
+:put message="Here are your random strings: $RandomString"
+:put message=([/system clock get time]." - ".[/system clock get date])
+
 
-global RandomString
-set RandomString ([:pick $string $second].[:pick $string $secondx].[:pick $string ($minute + $second - $hour)].[:pick $string ($minute + $hour + $secondx)].[:pick $string [:tonum $hundred]].[:pick $string [:tonum ($hundred2 + $second)]].[:pick $string [:tonum $hundred3]].[:pick $string ($minute + $hourx + $second)].[:pick $string ($hourx + $hour + $second)].[:pick $string ($secondx + $second)])
-put message="Here are your random strings: $RandomString"
-put message=([/system clock get time]." - ".[/system clock get date])
\ No newline at end of file