[Fix] Fixed product key validation algo

Author: CodingWonders

Elements/AutoUnattend/ProductKey/ProductKey.vb

@@ -28,12 +28,12 @@ Namespace Elements
         Public Shared Function ValidateProductKey(key As String) As ProductKey
             DynaLog.LogMessage("Validating product key " & Quote & key & Quote & "...")
             Dim pKey As New ProductKey()
-            If Regex.Match(key, "^([2346789BCDFGHJKMPQRTVWXY]{5}-){4}[2346789BCDFGHJKMPQRTVWXY]{5}$").Value <> "" Then
-                DynaLog.LogMessage("Regex match completed and returned values. Key is valid in syntax.")
+            If Regex.IsMatch(key, "^([A-Z0-9]{5}-){4}[A-Z0-9]{5}$") Then
+                DynaLog.LogMessage("Regex has matches. Key is valid in syntax.")
                 pKey.Valid = True
                 pKey.Key = key
             Else
-                DynaLog.LogMessage("Regex match completed but didn't return any values. Key is invalid in syntax.")
+                DynaLog.LogMessage("Regex does not have matches. Key is invalid in syntax.")
                 pKey.Valid = False
                 pKey.Key = ""
             End If