Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
--- a/BMS/ZpCryptography/AssemblyInfo.vb
+++ b/BMS/ZpCryptography/AssemblyInfo.vb
@@ -0,0 +1,32 @@
+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("")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("")> 
+<Assembly: AssemblyCopyright("")> 
+<Assembly: AssemblyTrademark("")> 
+<Assembly: CLSCompliant(True)> 
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("938259FF-648C-4A3A-8BAC-7BCC3076FD99")> 
+
+' 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("2.0.*")> 
--- a/BMS/ZpCryptography/DSN_Encrypt.sln
+++ b/BMS/ZpCryptography/DSN_Encrypt.sln
@@ -0,0 +1,26 @@
+Microsoft Visual Studio Solution File, Format Version 9.00
+# Visual Studio 2005
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ZpCryptography", "ZpCryptography.vbproj", "{290C31E0-49C7-4E85-A39F-CA496BE678B6}"
+EndProject
+Global
+	GlobalSection(SourceCodeControl) = preSolution
+		SccNumberOfProjects = 1
+		SccProjectUniqueName0 = ZpCryptography.vbproj
+		SccProjectName0 = \u0022$/BMS/ZpCryptography\u0022,\u0020PUCAAAAA
+		SccLocalPath0 = .
+		SccProvider0 = MSSCCI:Microsoft\u0020Visual\u0020SourceSafe
+	EndGlobalSection
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal
--- a/BMS/ZpCryptography/DsnCrypto.vb
+++ b/BMS/ZpCryptography/DsnCrypto.vb
@@ -0,0 +1,35 @@
+Public Class DsnCrypto
+    Public Shared Function Encrypt(ByVal strText As String, ByVal strPwd As String) 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
+        Encrypt = strBuff
+    End Function
+
+    Public Shared Function Decrypt(ByVal strText As String, ByVal strPwd As String) 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
+        Decrypt = strBuff
+    End Function
+
+End Class
--- a/BMS/ZpCryptography/ZpCryptography.vbdoc
+++ b/BMS/ZpCryptography/ZpCryptography.vbdoc
@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <appSettings>
+    <!--   VBdocman .NET config file for current project.-->
+    <!--   Example: <add key="settingName" value="settingValue"/> -->
+  </appSettings>
+</configuration>
--- a/BMS/ZpCryptography/ZpCryptography.vbproj
+++ b/BMS/ZpCryptography/ZpCryptography.vbproj
@@ -0,0 +1,104 @@
+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectType>Local</ProjectType>
+    <ProductVersion>8.0.50727</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{290C31E0-49C7-4E85-A39F-CA496BE678B6}</ProjectGuid>
+    <SccProjectName>SAK</SccProjectName>
+    <SccLocalPath>SAK</SccLocalPath>
+    <SccAuxPath>SAK</SccAuxPath>
+    <SccProvider>SAK</SccProvider>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ApplicationIcon>
+    </ApplicationIcon>
+    <AssemblyKeyContainerName>
+    </AssemblyKeyContainerName>
+    <AssemblyName>ZpCryptography</AssemblyName>
+    <AssemblyOriginatorKeyFile>
+    </AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
+    <DefaultClientScript>JScript</DefaultClientScript>
+    <DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
+    <DefaultTargetSchema>IE50</DefaultTargetSchema>
+    <DelaySign>false</DelaySign>
+    <OutputType>Library</OutputType>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionStrict>Off</OptionStrict>
+    <RootNamespace>ZpCryptography</RootNamespace>
+    <StartupObject>ZpCryptography.%28None%29</StartupObject>
+    <FileUpgradeFlags>
+    </FileUpgradeFlags>
+    <MyType>Windows</MyType>
+    <UpgradeBackupLocation>
+    </UpgradeBackupLocation>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <OutputPath>bin\</OutputPath>
+    <DocumentationFile>ZpCryptography.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>true</DebugSymbols>
+    <Optimize>false</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>full</DebugType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <OutputPath>bin\</OutputPath>
+    <DocumentationFile>ZpCryptography.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>false</DebugSymbols>
+    <Optimize>true</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>none</DebugType>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System">
+      <Name>System</Name>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Diagnostics" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="AssemblyInfo.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="DsnCrypto.vb">
+      <SubType>Code</SubType>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <Folder Include="My Project\" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <PropertyGroup>
+    <PreBuildEvent>
+    </PreBuildEvent>
+    <PostBuildEvent>
+    </PostBuildEvent>
+  </PropertyGroup>
+</Project>
--- a/BMS/ZpCryptography/ZpCryptography.vbproj.user
+++ b/BMS/ZpCryptography/ZpCryptography.vbproj.user
@@ -0,0 +1,58 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <LastOpenVersion>7.10.3077</LastOpenVersion>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ReferencePath>
+    </ReferencePath>
+    <CopyProjectDestinationFolder>
+    </CopyProjectDestinationFolder>
+    <CopyProjectUncPath>
+    </CopyProjectUncPath>
+    <CopyProjectOption>0</CopyProjectOption>
+    <ProjectView>ProjectFiles</ProjectView>
+    <ProjectTrust>0</ProjectTrust>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>false</StartWithIE>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>true</StartWithIE>
+  </PropertyGroup>
+</Project>
--- a/BMS/ZpCryptography/ZpCryptography.vbproj.vspscc
+++ b/BMS/ZpCryptography/ZpCryptography.vbproj.vspscc
@@ -0,0 +1,10 @@
+""
+{
+"FILE_VERSION" = "9237"
+"ENLISTMENT_CHOICE" = "NEVER"
+"PROJECT_FILE_RELATIVE_PATH" = ""
+"NUMBER_OF_EXCLUDED_FILES" = "0"
+"ORIGINAL_PROJECT_FILE_PATH" = ""
+"NUMBER_OF_NESTED_PROJECTS" = "0"
+"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
+}
--- a/BMS/ZpCryptography/bin/ZpCryptography.dll
+++ b/BMS/ZpCryptography/bin/ZpCryptography.dll
--- a/BMS/ZpCryptography/bin/ZpCryptography.xml
+++ b/BMS/ZpCryptography/bin/ZpCryptography.xml
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+ZpCryptography
+</name>
+</assembly>
+<members>
+
+</members>
+</doc>
--- a/BMS/ZpCryptography/mssccprj.scc
+++ b/BMS/ZpCryptography/mssccprj.scc
@@ -0,0 +1,9 @@
+SCC = This is a Source Code Control file
+
+[DSN_Encrypt.sln]
+SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
+SCC_Project_Name = "$/BMS/ZpCryptography", PUCAAAAA
+
+[ZpCryptography.vbproj]
+SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
+SCC_Project_Name = "$/BMS/ZpCryptography", PUCAAAAA
--- a/BMS/ZpCryptography/obj/Release/ZpCryptography.dll
+++ b/BMS/ZpCryptography/obj/Release/ZpCryptography.dll
--- a/BMS/ZpCryptography/obj/Release/ZpCryptography.xml
+++ b/BMS/ZpCryptography/obj/Release/ZpCryptography.xml
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+ZpCryptography
+</name>
+</assembly>
+<members>
+
+</members>
+</doc>
--- a/BMS/ZpCryptography/obj/ZpCryptography.vbproj.FileList.txt
+++ b/BMS/ZpCryptography/obj/ZpCryptography.vbproj.FileList.txt
@@ -0,0 +1,5 @@
+bin\ZpCryptography.dll
+bin\ZpCryptography.xml
+obj\Release\ResolveAssemblyReference.cache
+obj\Release\ZpCryptography.dll
+obj\Release\ZpCryptography.xml
--- a/BMS/ZpCryptography/obj/ZpCryptography.vbproj.FileListAbsolute.txt
+++ b/BMS/ZpCryptography/obj/ZpCryptography.vbproj.FileListAbsolute.txt
@@ -0,0 +1,5 @@
+C:\Data\Edoka_FW3\BMS\ZpCryptography\bin\ZpCryptography.dll
+C:\Data\Edoka_FW3\BMS\ZpCryptography\bin\ZpCryptography.xml
+C:\Data\Edoka_FW3\BMS\ZpCryptography\obj\Release\ResolveAssemblyReference.cache
+C:\Data\Edoka_FW3\BMS\ZpCryptography\obj\Release\ZpCryptography.dll
+C:\Data\Edoka_FW3\BMS\ZpCryptography\obj\Release\ZpCryptography.xml
--- a/BMS/ZpCryptography/vssver.scc
+++ b/BMS/ZpCryptography/vssver.scc