Rename: Console -> RDSFactorConfig

RDSFactorConfig/Main.vb

@@ -0,0 +1,530 @@
+Imports RDSFactor
+
+Imports System.ServiceProcess
+Imports System.IO
+Imports System.Net.Mail
+Public Class CICRadiusRConfig
+    Private ConfigFile As New IniFile
+    Private encCode As String = "gewsyy#sjs2!"
+    Private Sub CICRadiusRConfig_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.Height = 440
+        Me.Width = 620
+
+
+        PanelSetup.Location = New Point(136, 27)
+        PanelSetup.Height = 357
+        PanelSetup.Width = 470
+
+        PanelActiveDirectory.Location = New Point(136, 27)
+        PanelActiveDirectory.Height = 357
+        PanelActiveDirectory.Width = 470
+
+        PanelRadiusClients.Location = New Point(136, 27)
+        PanelRadiusClients.Height = 357
+        PanelRadiusClients.Width = 470
+
+        PanelSMSSetup.Location = New Point(136, 27)
+        PanelSMSSetup.Height = 357
+        PanelSMSSetup.Width = 470
+
+        PanelMailSetup.Location = New Point(136, 27)
+        PanelMailSetup.Height = 357
+        PanelMailSetup.Width = 470
+        Try
+            ConfigFile.Load(Application.StartupPath & "\CICRadarR.ini")
+            txtNetBios.Text = ConfigFile.GetKeyValue("CICRadarR", "NetBiosDomain")
+            txtLdapDomain.Text = ConfigFile.GetKeyValue("CICRadarR", "LDAPDomain")
+            txtProvider.Text = ConfigFile.GetKeyValue("CICRadarR", "Provider")
+            txtADField.Text = ConfigFile.GetKeyValue("CICRadarR", "ADField")
+            txtADMailField.Text = ConfigFile.GetKeyValue("CICRadarR", "ADMailField")
+            Dim ModemType As String
+            ModemType = ConfigFile.GetKeyValue("CICRadarR", "USELOCALMODEM")
+            If ModemType = "1" Then
+                rbLocalSMS.Checked = True
+            Else
+                rbLocalSMS.Checked = False
+            End If
+
+            Dim EnableOTP As String
+            EnableOTP = ConfigFile.GetKeyValue("CICRadarR", "EnableOTP")
+            If EnableOTP = "1" Then
+                ckEnableOTP.Checked = True
+                Dim EnableSMS As String
+                Dim EnableEmail As String
+                EnableSMS = ConfigFile.GetKeyValue("CICRadarR", "EnableSMS")
+                EnableEmail = ConfigFile.GetKeyValue("CICRadarR", "EnableEmail")
+                If EnableEmail = "1" Then
+                    ckEnableMail.Checked = True
+                Else
+                    TestMailConfigurationToolStripMenuItem.Enabled = False
+                    lvConfig.Items.Item(3).ImageIndex = 6
+                    ckEnableMail.Checked = False
+
+                End If
+
+                If EnableSMS = "1" Then
+                    ckEnableSMS.Checked = True
+                Else
+                    lvConfig.Items.Item(2).ImageIndex = 5
+                    ckEnableSMS.Checked = False
+                    TestModemConfigurationToolStripMenuItem.Enabled = False
+                End If
+            Else
+                lvConfig.Items.Item(2).ImageIndex = 5
+                lvConfig.Items.Item(3).ImageIndex = 6
+                TestMailConfigurationToolStripMenuItem.Enabled = False
+                TestModemConfigurationToolStripMenuItem.Enabled = False
+                ckEnableSMS.Checked = False
+                ckEnableMail.Checked = False
+                ckEnableOTP.Checked = False
+            End If
+
+            txtMailServer.Text = ConfigFile.GetKeyValue("CICRadarR", "MailServer")
+            txtSenderEmail.Text = ConfigFile.GetKeyValue("CICRadarR", "SenderEmail")
+
+            txtComPort.Text = ConfigFile.GetKeyValue("CICRadarR", "COMPORT")
+            txtSMSC.Text = ConfigFile.GetKeyValue("CICRadarR", "SMSC")
+            Dim Debug As String
+            Debug = ConfigFile.GetKeyValue("CICRadarR", "Debug")
+            If Debug = "1" Then
+                ckDebug.Checked = True
+            Else
+                ckDebug.Checked = False
+            End If
+
+            Dim RDGateway As String
+            RDGateway = ConfigFile.GetKeyValue("CICRadarR", "TSGW")
+            If RDGateway = "1" Then
+                rbRDGateway.Checked = True
+                rbCitrixNetscaler.Checked = False
+            Else
+                rbRDGateway.Checked = False
+                rbCitrixNetscaler.Checked = True
+            End If
+
+            Dim ClientList() As String
+            ClientList = Split(ConfigFile.GetKeyValue("CICRadarR", "ClientList"), ",")
+
+            For i As Integer = 0 To ClientList.Length - 1
+                ListClients.Items.Add(ClientList(i) & " ( " & ConfigFile.GetKeyValue("Clients", ClientList(i)) & " )")
+            Next
+
+
+
+
+        Catch
+        End Try
+
+        Dim tt As New ToolTip()
+
+        tt.ShowAlways = True
+
+        tt.SetToolTip(txtADField, "Type the Active Directory field where phonenumbers are stored." & vbCrLf & "Ex: mobile or telephoneNumber" & vbCrLf & "Use Adsiedit.msc to find the correct field.")
+        tt.SetToolTip(txtSMSC, "See http://smsclist.com/downloads/default.txt for your provider" & vbCrLf & "Ex: +4540390999")
+        tt.SetToolTip(txtComPort, "Ex: com1")
+        tt.SetToolTip(txtProvider, "Type the https address of your SMS provider." & vbCrLf & "Replace the message field of the url with ***TEXTMESSAGE***" & vbCrLf & "Replace the recipient field of the url with ***NUMBER***" & vbCrLf & "Ex: https://www.cpsms.dk/sms/?username=myuser&password=mypassword&recipient=***NUMBER***&message=&from=CPSMS")
+        tt.SetToolTip(txtNetBios, "Set NetBios Domain name" & vbCrLf & "Ex: MYDOMAIN")
+        tt.SetToolTip(txtLdapDomain, "Set LDAP Domain" & vbCrLf & "Ex: test.lan")
+        tt.SetToolTip(ckEnableOTP, "Enable SMS Magic.")
+
+        ToolStripStatusLabel1.Text = "Status: " & "Configuration loaded"
+    End Sub
+
+   
+
+
+
+
+
+
+   
+
+
+    Private Sub btnRemoveClient_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
+        If ListClients.SelectedIndex > -1 Then
+
+            ListClients.Items.RemoveAt(ListClients.SelectedIndex)
+
+        End If
+    End Sub
+
+    Private Sub btnAddClient_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
+        If Not ListClients.Items.Contains(txtClient.Text & " ( " & EncDec.Encrypt(txtSecret.Text, encCode) & " )") Then
+            ListClients.Items.Add(txtClient.Text & " ( " & EncDec.Encrypt(txtSecret.Text, encCode) & " )")
+        End If
+    End Sub
+
+
+    Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
+        Dim ok As MsgBoxResult
+        btnRestart.Enabled = False
+        ok = MsgBox("Restart CICRadiusR Service?", MsgBoxStyle.YesNo, "Restart Service")
+        If ok = vbYes Then
+            ToolStripStatusLabel1.Text = "Status: " & "Radius server restarting..."
+            Dim controller As New ServiceController("CICRadiusR")
+            controller.Stop()
+            controller.WaitForStatus(ServiceControllerStatus.Stopped)
+            ToolStripStatusLabel1.Text = "Status: " & "Radius server stopped"
+            controller.Start()
+            controller.WaitForStatus(ServiceControllerStatus.Running)
+            ToolStripStatusLabel1.Text = "Status: " & "Radius server started"
+            MsgBox("CICRadiusR Service restarted", MsgBoxStyle.Information, "Information")
+        End If
+        btnRestart.Enabled = True
+    End Sub
+
+
+    Private Sub lvConfig_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lvConfig.SelectedIndexChanged
+        Dim ele As ListViewItem
+        If lvConfig.SelectedIndices.Count > 0 Then
+            Select lvConfig.SelectedItems(0).Text.ToUpper
+
+                Case "SETUP"
+                    PanelSetup.Visible = True
+                    PanelActiveDirectory.Visible = False
+                    PanelSMSSetup.Visible = False
+                    PanelMailSetup.Visible = False
+                    PanelRadiusClients.Visible = False
+                Case "ACTIVE DIRECTORY"
+                    PanelSetup.Visible = False
+                    PanelActiveDirectory.Visible = True
+                    PanelSMSSetup.Visible = False
+                    PanelMailSetup.Visible = False
+                    PanelRadiusClients.Visible = False
+                Case "SMS SETUP"
+                    If ckEnableSMS.Checked = True Then
+                        PanelSetup.Visible = False
+                        PanelActiveDirectory.Visible = False
+                        PanelSMSSetup.Visible = True
+                        PanelMailSetup.Visible = False
+                        PanelRadiusClients.Visible = False
+                    End If
+                Case "MAIL SETUP"
+                    If ckEnableMail.Checked = True Then
+                        PanelSetup.Visible = False
+                        PanelActiveDirectory.Visible = False
+                        PanelSMSSetup.Visible = False
+                        PanelMailSetup.Visible = True
+                        PanelRadiusClients.Visible = False
+                    End If
+                Case "RADIUS CLIENTS"
+                    PanelSetup.Visible = False
+                    PanelActiveDirectory.Visible = False
+                    PanelSMSSetup.Visible = False
+                    PanelMailSetup.Visible = False
+                    PanelRadiusClients.Visible = True
+                    Panel1.AutoScrollPosition = New Point(0, 130)
+            End Select
+
+        End If
+    End Sub
+
+    Private Sub rbRDGateway_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbRDGateway.CheckedChanged
+        If rbRDGateway.Checked = True Then
+            rbCitrixNetscaler.Checked = False
+        End If
+    End Sub
+
+    Private Sub rbCitrixNetscaler_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbCitrixNetscaler.CheckedChanged
+        If rbCitrixNetscaler.Checked = True Then
+            rbRDGateway.Checked = False
+        End If
+    End Sub
+
+
+ 
+
+    Private Sub rbOnlineSMS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbOnlineSMS.CheckedChanged
+        If rbOnlineSMS.Checked = True Then
+            rbLocalSMS.Checked = False
+            txtComPort.Enabled = False
+            txtSMSC.Enabled = False
+            txtProvider.Enabled = True
+            txtSMSC.BackColor = Color.White
+            txtComPort.BackColor = Color.White
+        End If
+    End Sub
+
+    Private Sub rbLocalSMS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbLocalSMS.CheckedChanged
+        If rbLocalSMS.Checked = True Then
+            rbOnlineSMS.Checked = False
+            txtComPort.Enabled = True
+            txtSMSC.Enabled = True
+            txtProvider.Enabled = False
+            txtProvider.BackColor = Color.White
+        End If
+    End Sub
+
+   
+    
+    Private Sub btnTestModem_Click(sender As System.Object, e As System.EventArgs) Handles btnTestModem.Click
+        Call TestSMS()
+
+    End Sub
+
+
+    Private Sub ckEnableOTP_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ckEnableOTP.CheckedChanged
+        If ckEnableOTP.Checked = True Then
+            ckEnableMail.Enabled = True
+            ckEnableSMS.Enabled = True
+            'If ckEnableSMS.Checked = True Then
+            '    lvConfig.Items.Item(2).ImageIndex = 2
+            'Else
+            '    lvConfig.Items.Item(2).ImageIndex = 5
+            'End If
+            'If ckEnableMail.Checked = True Then
+            '    lvConfig.Items.Item(3).ImageIndex = 3
+            'Else
+            '    lvConfig.Items.Item(3).ImageIndex = 6
+            'End If
+
+            'txtADField.Enabled = True
+            'txtComPort.Enabled = True
+            'txtSMSC.Enabled = True
+            'If rbLocalSMS.Checked = True Then
+            '    txtComPort.Enabled = True
+            '    txtSMSC.Enabled = True
+            '    txtProvider.Enabled = False
+
+            'Else
+            '    txtComPort.Enabled = False
+            '    txtSMSC.Enabled = False
+            '    txtProvider.Enabled = True
+
+            'End If
+            'btnTestModem.Enabled = True
+        Else
+            ckEnableMail.Enabled = False
+            ckEnableSMS.Enabled = False
+            lvConfig.Items.Item(2).ImageIndex = 5
+            lvConfig.Items.Item(3).ImageIndex = 6
+            'txtADField.Enabled = False
+            'txtComPort.Enabled = False
+            'txtSMSC.Enabled = False
+            'txtProvider.Enabled = False
+            'btnTestModem.Enabled = False
+        End If
+    End Sub
+
+    Private Sub ckEnableSMS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ckEnableSMS.CheckedChanged
+        If ckEnableSMS.Checked = True Then
+            lvConfig.Items.Item(2).ImageIndex = 2
+            TestModemConfigurationToolStripMenuItem.Enabled = True
+        Else
+            TestModemConfigurationToolStripMenuItem.Enabled = False
+            lvConfig.Items.Item(2).ImageIndex = 5
+        End If
+    End Sub
+
+    Private Sub ckEnableMail_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ckEnableMail.CheckedChanged
+        If ckEnableMail.Checked = True Then
+            lvConfig.Items.Item(3).ImageIndex = 3
+            TestMailConfigurationToolStripMenuItem.Enabled = True
+        Else
+            lvConfig.Items.Item(3).ImageIndex = 6
+            TestMailConfigurationToolStripMenuItem.Enabled = False
+        End If
+    End Sub
+
+    Private Sub SaveConfigurationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SaveConfigurationToolStripMenuItem.Click
+        Call save()
+    End Sub
+
+    Private Sub RestartRadiusServerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RestartRadiusServerToolStripMenuItem.Click
+        Dim ok As MsgBoxResult
+        RestartRadiusServerToolStripMenuItem.Enabled = False
+        ok = MsgBox("Restart CICRadiusR Service?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Restart Service")
+        If ok = vbYes Then
+
+            Dim controller As New ServiceController("CICRadiusR")
+            controller.Stop()
+            controller.WaitForStatus(ServiceControllerStatus.Stopped)
+            controller.Start()
+            controller.WaitForStatus(ServiceControllerStatus.Running)
+            MsgBox("CICRadiusR Service restarted", MsgBoxStyle.Information, "Information")
+        End If
+        RestartRadiusServerToolStripMenuItem.Enabled = True
+    End Sub
+
+    Sub Save()
+        ConfigFile.SetKeyValue("CICRadarR", "NetBiosDomain", txtNetBios.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "LDAPDomain", txtLdapDomain.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "Provider", txtProvider.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "ADField", txtADField.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "ADMailField", txtADMailField.Text)
+
+        ConfigFile.SetKeyValue("CICRadarR", "SenderEmail", txtSenderEmail.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "MailServer", txtMailServer.Text)
+
+        If rbLocalSMS.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "USELOCALMODEM", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "USELOCALMODEM", "0")
+        End If
+
+        ConfigFile.SetKeyValue("CICRadarR", "COMPORT", txtComPort.Text)
+        ConfigFile.SetKeyValue("CICRadarR", "SMSC", txtSMSC.Text)
+
+        If ckDebug.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "Debug", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "Debug", "0")
+        End If
+
+        If ckEnableOTP.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "EnableOTP", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "EnableOTP", "0")
+        End If
+
+        If rbRDGateway.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "TSGW", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "TSGW", "0")
+        End If
+
+        If ckEnableMail.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "EnableEmail", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "EnableEmail", "0")
+        End If
+
+        If ckEnableSMS.Checked = True Then
+            ConfigFile.SetKeyValue("CICRadarR", "EnableSMS", "1")
+        Else
+            ConfigFile.SetKeyValue("CICRadarR", "EnableSMS", "0")
+        End If
+        ConfigFile.RemoveSection("Clients")
+        Dim ClientList As String = ""
+        For i As Integer = 0 To ListClients.Items.Count - 1
+            Dim Client As String
+            Dim Secret As String
+            Client = Split(ListClients.Items(i), " ( ")(0)
+            Secret = Replace(Split(ListClients.Items(i), " ( ")(1), " )", "")
+            ConfigFile.SetKeyValue("Clients", Client, Secret)
+
+            If i = ListClients.Items.Count - 1 Then
+                ClientList = ClientList & Client
+            Else
+                ClientList = ClientList & Client & ","
+            End If
+
+        Next
+        ConfigFile.SetKeyValue("CICRadarR", "ClientList", ClientList)
+
+
+        ConfigFile.Save(Application.StartupPath & "\CICRadarR.ini")
+    End Sub
+
+    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
+
+        Select Case MsgBox("Save configuration before exit?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Information, "Configuration")
+            Case vbYes
+                Call Save()
+                ToolStripStatusLabel1.Text = "Status: " & "Configuration saved"
+                MsgBox("Configuration saved", vbOKOnly + MsgBoxStyle.Information, "Configuration")
+                End
+            Case vbNo
+                End
+            Case vbCancel
+        End Select
+
+    End Sub
+
+    Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
+        MsgBox("Configuration tool for CICRadar." & vbCrLf & vbCrLf & "Version 1.1", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "About")
+    End Sub
+
+    Sub TestSMS()
+        Dim number As String
+        number = InputBox("Type the phone number to send the test sms to" & vbCrLf & vbCrLf & "Ex: +4512345678", "Phone Number", "", Me.Left + 150, Me.Top + 100)
+        If rbLocalSMS.Checked = True Then
+            Dim testsms As New SMSModem(txtComPort.Text)
+            testsms.Opens()
+            testsms.send(number, "Test SMS Service", txtSMSC.Text)
+            testsms.Closes()
+        Else
+            Dim baseurl As String = txtProvider.Text.Split("?")(0)
+            Dim client As New System.Net.WebClient()
+            ' Add a user agent header in case the requested URI contains a query.
+
+            client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR1.0.3705;)")
+
+            Dim parameters As String = txtProvider.Text.Split("?")(1)
+            Dim pary As String() = parameters.Split("&")
+
+            For i As Integer = 0 To pary.Length - 1
+                If pary(i).IndexOf("***TEXTMESSAGE***") > 0 Then
+                    Dim qpar As String() = pary(i).Split("=")
+                    client.QueryString.Add(qpar(0), "Test SMS Service")
+                ElseIf pary(i).IndexOf("***NUMBER***") > 0 Then
+                    Dim qpar As String() = pary(i).Split("=")
+                    client.QueryString.Add(qpar(0), number)
+                Else
+
+                    Dim qpar As String() = pary(i).Split("=")
+                    client.QueryString.Add(qpar(0), qpar(1))
+                End If
+            Next
+
+
+            Dim data As Stream = client.OpenRead(baseurl)
+            Dim reader As New StreamReader(data)
+            Dim s As String = reader.ReadToEnd()
+            data.Close()
+            reader.Close()
+
+        End If
+    End Sub
+
+    Sub TestEmail()
+        Dim email As String
+        email = InputBox("Type the email address to send the test email to" & vbCrLf & vbCrLf & "Ex: test@my.mail.com", "Email", "", Me.Left + 150, Me.Top + 100)
+        Dim mail As New MailMessage()
+        mail.To.Add(email)
+        mail.From = New MailAddress(txtSenderEmail.Text)
+        mail.Subject = "Test mail from CICRadar"
+        mail.Body = "Just a test."
+        mail.IsBodyHtml = False
+        Dim smtp As New SmtpClient(txtMailServer.Text)
+
+
+        Try
+            smtp.Send(mail)
+
+            ToolStripStatusLabel1.Text = "Status: Mail send"
+        Catch e As InvalidCastException
+
+            ToolStripStatusLabel1.Text = "Status: Failed to send mail"
+        End Try
+
+
+    End Sub
+
+    Private Sub TestModemConfigurationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TestModemConfigurationToolStripMenuItem.Click
+        Call TestSMS()
+    End Sub
+
+    Private Sub TestMailConfigurationToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TestMailConfigurationToolStripMenuItem.Click
+        Call TestEmail()
+    End Sub
+
+    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
+        Call TestEmail()
+    End Sub
+
+   
+    Private Sub btnRemoveClient_Click(sender As System.Object, e As System.EventArgs) Handles btnRemoveClient.Click
+        If ListClients.SelectedIndex > -1 Then
+
+            ListClients.Items.RemoveAt(ListClients.SelectedIndex)
+
+        End If
+    End Sub
+
+    Private Sub btnAddClient_Click(sender As System.Object, e As System.EventArgs) Handles btnAddClient.Click
+        If Not ListClients.Items.Contains(txtClient.Text & " ( " & EncDec.Encrypt(txtSecret.Text, encCode) & " )") Then
+            ListClients.Items.Add(txtClient.Text & " ( " & EncDec.Encrypt(txtSecret.Text, encCode) & " )")
+        End If
+    End Sub
+End Class

RDSFactorConfig/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34014
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
+    ' or if you encounter build errors in this file, go to the Project Designer
+    ' (go to Project Properties or double-click the My Project node in
+    ' Solution Explorer), and make changes on the Application tab.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.RDSFactorConfig.CICRadiusRConfig
+        End Sub
+    End Class
+End Namespace

RDSFactorConfig/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-16"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>CICRadiusRConfig</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

RDSFactorConfig/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following 
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("CICRadarRConfig")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("Microsoft")> 
+<Assembly: AssemblyProduct("CICRadarRConfig")> 
+<Assembly: AssemblyCopyright("Copyright © Microsoft 2012")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("f0feb00f-1171-4cdf-b5d1-30cc01b75624")> 
+
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version 
+'      Build Number
+'      Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers 
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

RDSFactorConfig/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34014
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("RDSFactorConfig.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

RDSFactorConfig/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

RDSFactorConfig/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34014
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.RDSFactorConfig.My.MySettings
+            Get
+                Return Global.RDSFactorConfig.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

RDSFactorConfig/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

RDSFactorConfig/RDSFactorConfig.sln

@@ -0,0 +1,28 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Express 2013 for Windows Desktop
+VisualStudioVersion = 12.0.31101.0
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RDSFactorConfig", "RDSFactorConfig.vbproj", "{698299A4-5778-4EE0-9C46-445A9B66F645}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RDSFactor", "..\RDSFactor\RDSFactor.vbproj", "{04C6C533-9FEA-41B2-B554-A166C7C7FE32}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|x86 = Debug|x86
+		Release|x86 = Release|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{698299A4-5778-4EE0-9C46-445A9B66F645}.Debug|x86.ActiveCfg = Debug|x86
+		{698299A4-5778-4EE0-9C46-445A9B66F645}.Debug|x86.Build.0 = Debug|x86
+		{698299A4-5778-4EE0-9C46-445A9B66F645}.Release|x86.ActiveCfg = Release|x86
+		{698299A4-5778-4EE0-9C46-445A9B66F645}.Release|x86.Build.0 = Release|x86
+		{04C6C533-9FEA-41B2-B554-A166C7C7FE32}.Debug|x86.ActiveCfg = Debug|x86
+		{04C6C533-9FEA-41B2-B554-A166C7C7FE32}.Debug|x86.Build.0 = Debug|x86
+		{04C6C533-9FEA-41B2-B554-A166C7C7FE32}.Release|x86.ActiveCfg = Release|x86
+		{04C6C533-9FEA-41B2-B554-A166C7C7FE32}.Release|x86.Build.0 = Release|x86
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

RDSFactorConfig/RDSFactorConfig.vbproj

@@ -0,0 +1,184 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{698299A4-5778-4EE0-9C46-445A9B66F645}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>RDSFactorConfig.My.MyApplication</StartupObject>
+    <RootNamespace>RDSFactorConfig</RootNamespace>
+    <AssemblyName>RDSFactorConfig</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>
+    </TargetFrameworkProfile>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>RDSFactorConfig.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>RDSFactorConfig.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>lock.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.ServiceProcess" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Main.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Main.Designer.vb">
+      <DependentUpon>Main.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Main.resx">
+      <DependentUpon>Main.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="app.config" />
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="lock.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.0,Profile=Client">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4 Client Profile %28x86 and x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
+      <Visible>False</Visible>
+      <ProductName>Windows Installer 3.1</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\..\radar-radius\RADAR\RADAR.vbproj">
+      <Project>{3ab08a4e-c4fa-4571-a5d4-32bba807c31d}</Project>
+      <Name>RADAR</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\RDSFactor\RDSFactor.vbproj">
+      <Project>{04c6c533-9fea-41b2-b554-a166c7c7fe32}</Project>
+      <Name>RDSFactor</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

RDSFactorConfig/RDSFactorConfig.vbproj.user

@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <PublishUrlHistory>publish\</PublishUrlHistory>
+    <InstallUrlHistory />
+    <SupportUrlHistory />
+    <UpdateUrlHistory />
+    <BootstrapperUrlHistory />
+    <ErrorReportUrlHistory />
+    <FallbackCulture>en-US</FallbackCulture>
+    <VerifyUploadedFiles>false</VerifyUploadedFiles>
+  </PropertyGroup>
+</Project>

RDSFactorConfig/app.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

RDSFactorConfig/bin/Debug/CICRadarR.ini

@@ -0,0 +1,19 @@
+[CICRadarR]
+ClientList=192.168.121.162
+SenderEmail=noreply2@isager.dk
+SMSC=+4540390999
+EnableOTP=1
+Provider=https://www.cpsms.dk/sms/?username=myuser&password=mypassword&recipient=***NUMBER***&message=***TEXTMESSAGE***&from=CPSMS
+Debug=0
+MailServer=192.168.1.25
+NetBiosDomain=windows-2012-r2
+TSGW=1
+LDAPDomain=windows-2012-r2.example.com
+EnableEmail=0
+USELOCALMODEM=0
+ADField=telephoneNumber
+EnableSMS=1
+COMPORT=com1
+ADMailfield=mail
+[Clients]
+192.168.121.162=eXA0YJxFrgfaDtOFApCifbPtJYrEL0RjpDzymPKlw6c=

RDSFactorConfig/bin/Debug/CICRadarRConfig.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

RDSFactorConfig/bin/Debug/CICRadarRConfig.vshost.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

RDSFactorConfig/bin/Debug/CICRadarRConfig.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

RDSFactorConfig/bin/Debug/CICRadarRConfig.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+CICRadarRConfig
+</name>
+</assembly>
+<members>
+<member name="P:CICRadarRConfig.My.Resources.Resources.ResourceManager">
+	<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member><member name="P:CICRadarRConfig.My.Resources.Resources.Culture">
+	<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member><member name="T:CICRadarRConfig.My.Resources.Resources">
+	<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+</members>
+</doc>

RDSFactorConfig/bin/Debug/RADAR.xml

@@ -0,0 +1,66 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+RADAR
+</name>
+</assembly>
+<members>
+<member name="P:RADAR.My.Resources.Resources.ResourceManager">
+	<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member><member name="P:RADAR.My.Resources.Resources.Culture">
+	<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member><member name="T:RADAR.My.Resources.Resources">
+	<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member><member name="P:RADAR.RADIUSPacket.UserName">
+	<summary>
+ Returns the username supplied in an Access Request. Returns 
+ Nothing if a User-Name attribute is missing or the packet is not an 
+ Access Request.
+ </summary>
+	<value></value>
+	<returns></returns>
+	<remarks></remarks>
+</member><member name="P:RADAR.RADIUSPacket.UserPassword">
+	<summary>
+ Returns the password supplied in an Access Request. Returns
+ Nothing is a User-Password attribute is missing or the packet is not
+ an Access Request.
+ </summary>
+	<value></value>
+	<returns></returns>
+	<remarks></remarks>
+</member><member name="M:RADAR.RADIUSPacket.AuthenticateAccessRequest(RADAR.NASAuthList@,RADAR.NASAuthList@)">
+	<summary>
+ Deprecated. User the UserName and UserPassword properties instead.
+ </summary>
+	<param name="authList"></param>
+	<param name="nasList"></param>
+	<returns></returns>
+	<remarks></remarks>
+</member><member name="M:RADAR.RADIUSPacket.AcceptAccessRequest">
+	<summary>
+ Accept the access request.
+ </summary>
+	<remarks></remarks>
+</member><member name="M:RADAR.RADIUSPacket.AcceptAccessRequest(RADAR.RADIUSAttributes)">
+	<summary>
+ Accept the access request and include the specified attributes in the RADIUS response.
+ </summary>
+	<param name="attributes">The RADIUS attributes to include with the response.</param>
+	<remarks></remarks>
+</member><member name="M:RADAR.RADIUSPacket.RejectAccessRequest">
+	<summary>
+ Reject the access request.
+ </summary>
+	<remarks></remarks>
+</member>
+</members>
+</doc>

RDSFactorConfig/bin/Debug/RDSFactor.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+RDSFactor
+</name>
+</assembly>
+<members>
+<member name="P:RDSFactor.My.Resources.Resources.ResourceManager">
+	<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member><member name="P:RDSFactor.My.Resources.Resources.Culture">
+	<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member><member name="T:RDSFactor.My.Resources.Resources">
+	<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+</members>
+</doc>

RDSFactorConfig/bin/Debug/RDSFactorConfig.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

RDSFactorConfig/bin/Debug/RDSFactorConfig.vshost.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- This section defines the logging configuration for My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Uncomment the below section to write to the Application Event Log -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

RDSFactorConfig/bin/Debug/RDSFactorConfig.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

RDSFactorConfig/bin/Debug/RDSFactorConfig.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+RDSFactorConfig
+</name>
+</assembly>
+<members>
+<member name="P:RDSFactorConfig.My.Resources.Resources.ResourceManager">
+	<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member><member name="P:RDSFactorConfig.My.Resources.Resources.Culture">
+	<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member><member name="T:RDSFactorConfig.My.Resources.Resources">
+	<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+</members>
+</doc>

RDSFactorConfig/bin/Release/CICRadarRConfig.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

RDSFactorConfig/bin/Release/CICRadarRConfig.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+CICRadarRConfig
+</name>
+</assembly>
+<members>
+<member name="P:CICRadarRConfig.My.Resources.Resources.ResourceManager">
+	<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member><member name="P:CICRadarRConfig.My.Resources.Resources.Culture">
+	<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member><member name="T:CICRadarRConfig.My.Resources.Resources">
+	<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+</members>
+</doc>