Initial commit

SW/AssessmentMgmt/Utils/Crypto.vb

@@ -0,0 +1,34 @@
+Module Crypto
+    Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        EncryptText = strBuff
+    End Function
+
+    Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        DecryptText = strBuff
+    End Function
+End Module

SW/AssessmentMgmt/Utils/Globals.vb

@@ -0,0 +1,61 @@
+Imports System.IO
+Imports System.Reflection
+Module Globals
+    ''' <summary>
+    ''' Applikationsversion
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Version As String = "1.1"
+    Public Versionsdatum As String = "23. Juli 2017"
+
+    ''' <summary>
+    ''' Applikationsdaten
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    'Public TTContextMenuStrip As New ContextMenuStrip
+
+
+    ''' <summary>
+    ''' Angemelderter Mitarbeiter
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public clsmitarbeiter As New DB.clsMitarbeiter
+    ''' <summary>
+    ''' Applikationsparameter
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public clsapplication As New DB.clsApplication
+    ''' <summary>
+    ''' DB-Verbindungsklasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public sConnectionString As String
+    Public conn As New DB.clsConnectionProvider
+    Public ConnectionFileName As String = ""
+    Public dbconn As New DB.DB_Connection
+
+    Public SecurityDaten As New DataSet
+    Public Spaltendaten As New DataTable
+    Public ToolTipDaten As New DataSet
+    Public Set_ToolTips As Boolean = False
+    Public treedata_for_search As New DataTable
+
+    Public GueltigImages As New ImageList
+    Public StatusImages As New ImageList
+
+
+    ''' <summary>
+    ''' Aktueller Applikationspfad
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+    Public WithEvents MyEventHanlder As New MyGenericEventHandler
+
+End Module