Imports System

Imports System.Text.RegularExpressions

Imports System.Linq

​

Public Module Module1

​

    Public Sub Main()

        Dim Phone = GeneratePhoneNumber()

        Console.WriteLine(Phone)

        Console.WriteLine(IsValidPhoneNumber(Phone))

        'Console.WriteLine(IsValidPhoneNumber("299-999-9999"))

        Console.WriteLine(IsValidEmail("matt@pavey.n"))

        Console.WriteLine(IsValidEmail("matt@pavey.net"))

        Console.WriteLine(IsValidEmail("matt@grin.agency"))

        Console.WriteLine(IsValidEmail("matt@grin"))

        Console.WriteLine(IsValidEmail("matt@grin."))

        Console.WriteLine(IsValidEmail("matt@grin.x"))

        Console.WriteLine(IsValidEmail("matt's@gmail.com"))

        SendNotification()

        SendNotification()

        SendNotification()

        SendNotification()

        LastNotificationSent = DateTime.Now.AddMinutes(-6)

        'LastNotificationSent = Convert.ToDateTime("4/30/2023")

        SendNotification()

        SendNotification()

    End Sub

​

    Private r As New Random

​

    Private Function GeneratePhoneNumber() As String

        Dim npa, nxx, xxxx As String

        Do

            npa = r.Next(100, 999).ToString()

        Loop Until New Regex("^([2-9][0-8]\d)$").IsMatch(npa)

​

        'reg = New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))")

        Do

            nxx = r.Next(100, 999).ToString()

        Loop Until New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))").IsMatch(nxx)

​

        xxxx = r.Next(1000, 9999).ToString()

        return String.Join("-", {npa, nxx, xxxx})

    End Function

​

    Public Function IsValidPhoneNumber(Value As String) As Boolean

        'Allows phone number of the format: NPA = [2-9][0-8][0-9] Nxx = [2-9][0-9][0-9] Station = [0-9][0-9][0-9][0-9]

        Return Regex.Match(Value, "^[01]?[- .]?(\([2-9]\d{2}\)|[2-9]\d{2})[- .]?\d{3}[- .]?\d{4}$").Success

    End Function

​

    Public Function IsValidEmail(Value As String) As Boolean

        Return Regex.Match(Value, "^[A-Z0-9.'_%+-]+@[A-Z0-9.-]+\.[A-Z]+$", RegexOptions.IgnoreCase).Success

    End Function

​

    Private LastNotificationSent As DateTime = DateTime.MinValue

​

    Private Function SendNotification() As Boolean

        'variables

        Dim EmailSubject As String = "Atlas Security Active Directory Exception"

        Dim EmailBody As String = String.Empty

​

        'no reason to bombard email server if domain controller(s) are installing updates, rebooting, or otherwise failing

        If DateTime.Now.Subtract(LastNotificationSent).TotalMinutes < 5 Then

            Return False

        End If

​

        'debug

        Console.WriteLine("SendNotification complete")

​

        'set last notification

        LastNotificationSent = DateTime.Now

​

        'result

        Return True

    End Function

End Module

​