Mail geändert

App_Code/RegexSammlung_VERAG.vb

@@ -0,0 +1,17 @@
+Imports System.Threading.Tasks
+Imports Microsoft.VisualBasic
+
+Public Class RegexSammlung_VERAG
+    Function getregEmail() As String
+        Dim strtemp As String = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
+        Return strtemp
+    End Function
+    Function getregUID() As String
+        Dim strtemp As String = "^[0-9]"
+        Return strtemp
+    End Function
+    Function getregPassword() As String
+        Dim strtemp As String = "^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,30}$"
+        Return strtemp
+    End Function
+End Class