237 lines
7.9 KiB
VB.net
237 lines
7.9 KiB
VB.net
|
Imports System.IO
|
|||
|
|
Imports UTS_Core.Security
|
|||
|
|
|
|||
|
|
Namespace UTSModule.License
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 类的作用:获取服务器信息
|
|||
|
|
''' 创建人员:ML
|
|||
|
|
''' Log编号:1
|
|||
|
|
''' 修改描述:创建
|
|||
|
|
''' 修改日期:2019-10-15
|
|||
|
|
''' 修改人员:ML
|
|||
|
|
''' </summary>
|
|||
|
|
Public Class Server
|
|||
|
|
|
|||
|
|
''' <summary> Server文件字段枚举 </summary>
|
|||
|
|
Private Enum ServerKeyEnum
|
|||
|
|
|
|||
|
|
''' <summary>客户名</summary>
|
|||
|
|
VendorName
|
|||
|
|
|
|||
|
|
''' <summary>数据库服务器地址</summary>
|
|||
|
|
DataSource
|
|||
|
|
|
|||
|
|
''' <summary>数据库服务器端口</summary>
|
|||
|
|
DbPort
|
|||
|
|
|
|||
|
|
''' <summary>数据库名</summary>
|
|||
|
|
Database
|
|||
|
|
|
|||
|
|
''' <summary>数据库用户名</summary>
|
|||
|
|
DbUser
|
|||
|
|
|
|||
|
|
''' <summary>数据库用户密码</summary>
|
|||
|
|
DbPassword
|
|||
|
|
|
|||
|
|
''' <summary>Ftp地址</summary>
|
|||
|
|
FtpHost
|
|||
|
|
|
|||
|
|
''' <summary>Ftp端口</summary>
|
|||
|
|
FtpPort
|
|||
|
|
|
|||
|
|
''' <summary>Ftp用户名</summary>
|
|||
|
|
FtpUser
|
|||
|
|
|
|||
|
|
''' <summary>Ftp用户密码</summary>
|
|||
|
|
FtpPassword
|
|||
|
|
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
''' <summary> Server文件校验返回枚举值</summary>
|
|||
|
|
Public Enum ServerCheckCodeEnum
|
|||
|
|
|
|||
|
|
''' <summary>未找到Server</summary>
|
|||
|
|
NoServer
|
|||
|
|
|
|||
|
|
''' <summary>无法打开Server</summary>
|
|||
|
|
CantOpenServer
|
|||
|
|
|
|||
|
|
''' <summary>无效的Server</summary>
|
|||
|
|
InvalidServer
|
|||
|
|
|
|||
|
|
''' <summary>校验通过</summary>
|
|||
|
|
CheckPass
|
|||
|
|
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
''' <summary>存储Server校验返回值</summary>
|
|||
|
|
Private _checkCode As ServerCheckCodeEnum
|
|||
|
|
|
|||
|
|
''' <summary>存储Server所有信息</summary>
|
|||
|
|
Private _server As Dictionary(Of String, String)
|
|||
|
|
|
|||
|
|
''' <summary>服务器密钥</summary>
|
|||
|
|
Private ReadOnly _serverAesKey As String = "^5GHo96tr5ff&*Hphg7665^fyu&uOhj0j[0[(jOIhI&g77FgghO*hhHY8h(*H&-987OygO8yg*yS$&G&aG9*&6g96*&7^RA65s76r*&&G(*(7(Gyg7#7Ff7F*&(*&&^"
|
|||
|
|
|
|||
|
|
'''<summary>Server所有可用字段</summary>
|
|||
|
|
Private ReadOnly _serverKey() As String = {"VendorName", "DataSource", "DataPort", "Database", "DbUser", "DbPassword", "FtpHost", "FtpPort", "FtpUser", "FtpPassword"}
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取客户名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>客户名</returns>
|
|||
|
|
Public ReadOnly Property VendorName() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.VendorName))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取服务器名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>服务器名</returns>
|
|||
|
|
Public ReadOnly Property DataSource() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.DataSource))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取服务器端口
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>服务器端口</returns>
|
|||
|
|
Public ReadOnly Property DatabasePort() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.DbPort))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库名</returns>
|
|||
|
|
Public ReadOnly Property Database() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.Database))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库用户名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库用户名</returns>
|
|||
|
|
Public ReadOnly Property DatabaseUser() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.DbUser))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库用户密码
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库用户密码</returns>
|
|||
|
|
Public ReadOnly Property DatabasePassword() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.DbPassword))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取服务器端口
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>服务器端口</returns>
|
|||
|
|
Public ReadOnly Property FtpPort() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.FtpPort))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库名</returns>
|
|||
|
|
Public ReadOnly Property FtpHost() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.FtpHost))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库用户名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库用户名</returns>
|
|||
|
|
Public ReadOnly Property FtpUser() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.FtpUser))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取数据库用户密码
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns>数据库用户密码</returns>
|
|||
|
|
Public ReadOnly Property FtpPassword() As String
|
|||
|
|
Get
|
|||
|
|
Return _server.Item(_serverKey(ServerKeyEnum.FtpPassword))
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 读取Server文件所有内容，并进行解密,将解密后的内容存入Server字典中
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="serverPath">Server文件完整路径(含文件名)</param>
|
|||
|
|
''' <returns>读取Server文件的状态</returns>
|
|||
|
|
Public Function ReadServerFile(ByVal serverPath As String) As ServerCheckCodeEnum
|
|||
|
|
Dim tmp As String
|
|||
|
|
Dim fm As FileStream
|
|||
|
|
Dim sr As StreamReader
|
|||
|
|
If File.Exists(serverPath) Then
|
|||
|
|
fm = New FileStream(serverPath, FileMode.Open)
|
|||
|
|
sr = New StreamReader(fm)
|
|||
|
|
_checkCode = ServerCheckCodeEnum.CheckPass
|
|||
|
|
_server = New Dictionary(Of String, String)
|
|||
|
|
Try
|
|||
|
|
tmp = Aes128.DecryptStr(sr.ReadToEnd, _serverAesKey) 'utf8解密字符串
|
|||
|
|
' tmp = ClsAes128.DecryptStr(sr.ReadToEnd, _serverAesKey, Unicode) 'Unicode解密字符串
|
|||
|
|
Dim lines() As String = tmp.Split(Chr(13))‘回车切割
|
|||
|
|
For i As Integer = 0 To lines.Length - 1
|
|||
|
|
tmp = lines(i).Trim(Chr(10))'去除换行
|
|||
|
|
Dim str As String() = tmp.Split("="c)
|
|||
|
|
If str.Length = 2 Then
|
|||
|
|
_server.Add(Trim(str(0)), Trim(str(1)))
|
|||
|
|
Debug.Print($"Keys : {_server.Keys.ElementAt(_server.Count - 1)} Value : {_server.Values.ElementAt(_server.Count - 1)}")
|
|||
|
|
Else
|
|||
|
|
_checkCode = ServerCheckCodeEnum.InvalidServer
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Catch ex As Exception
|
|||
|
|
_checkCode = ServerCheckCodeEnum.InvalidServer
|
|||
|
|
Finally
|
|||
|
|
fm.Dispose()
|
|||
|
|
sr.Close()
|
|||
|
|
End Try
|
|||
|
|
Else
|
|||
|
|
_checkCode = ServerCheckCodeEnum.NoServer
|
|||
|
|
End If
|
|||
|
|
Return _checkCode
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 校验Server
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="serverPath">Server文件完整路径(含文件名)</param>
|
|||
|
|
''' <returns>校验是否通过</returns>
|
|||
|
|
Public Function CheckoutServer(ByVal serverPath As String) As ServerCheckCodeEnum
|
|||
|
|
If ReadServerFile(serverPath) = ServerCheckCodeEnum.CheckPass Then
|
|||
|
|
'校验厂商(根据是否存在厂商数据库校验)
|
|||
|
|
If My.Computer.Network.Ping(_server.Item(_serverKey(ServerKeyEnum.DataSource))) Then
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
Return _checkCode
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
End Namespace
|