初始化

2025-12-11 10:09:34 +08:00
commit e1986fa6cc
62 changed files with 99476 additions and 0 deletions
--- a/Mode/DataProcessing.vb
+++ b/Mode/DataProcessing.vb
@@ -0,0 +1,391 @@
+Imports System.IO
+Imports System.Net
+Imports System.Net.NetworkInformation
+Imports System.Net.Sockets
+Imports System.Security.Cryptography
+Imports System.Text
+Imports System.Threading
+Imports System.ComponentModel
+Imports System.Reflection
+Imports Newtonsoft.Json
+
+Public Class DataProcessing
+
+
+
+    ''' <summary>
+    ''' 端口号转换为Byte数组
+    ''' </summary>
+    ''' <param name="port"></param>
+    ''' <returns></returns>
+    Public Shared Function GetPortToBytes(port As String)
+        Dim bport As Integer = CInt(port)
+        Dim ports() As Byte = IntToByteLB(bport)
+
+        Return ports
+    End Function
+
+    '字符串转byte 数组
+    Public Shared Function GetBytesFromStr(str As String) As Byte()
+        Return Encoding.ASCII.GetBytes(str)
+    End Function
+    'bytes转字符串
+    Public Shared Function GetStrFromBytes(bytes() As Byte) As String
+        Return Encoding.ASCII.GetString(bytes)
+    End Function
+
+    '计算数组CRC16校验
+
+    Public Shared Function GetCRC16(data() As Byte) As Integer
+        Dim crc As Integer = &HFFFF
+        Dim i As Integer
+        Dim j As Integer
+
+        For i = 0 To data.Length - 1
+            crc = crc Xor data(i)
+            For j = 0 To 7
+                If (crc And &H1) <> 0 Then
+                    crc = (crc >> 1) Xor &HA001
+                Else
+                    crc = crc >> 1
+                End If
+            Next
+        Next
+
+        Return crc
+    End Function
+
+    ''' <summary>
+    ''' Int转2个字节Byte
+    ''' 低字节在前，高字节在后
+    ''' </summary>
+    ''' <param name="i"></param>
+    ''' <returns></returns>
+    Public Shared Function IntToByteLB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(1)
+        btemp(1) = b(0)
+        Return btemp
+    End Function
+    ''' <summary>
+    ''' Int转4个字节Byte
+    ''' 低字节在前，高字节在后
+    ''' </summary>
+    ''' <param name="i"></param>
+    ''' <returns></returns>
+    Public Shared Function IntToByteLxxB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0, 0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(3)
+        btemp(1) = b(2)
+        btemp(2) = b(1)
+        btemp(3) = b(0)
+        Return btemp
+    End Function
+    Public Shared Function IntToByteHxxB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0, 0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(0)
+        btemp(1) = b(1)
+        btemp(2) = b(2)
+        btemp(3) = b(3)
+        Return btemp
+    End Function
+
+
+    ''' <summary>
+    ''' Int转2个字节Byte
+    ''' 高字节在前,低字节在后
+    ''' </summary>
+    ''' <param name="i"></param>
+    ''' <returns></returns>
+    Public Shared Function IntToByteHB(ByVal i As Integer) As Byte()
+        Dim btemp() As Byte = {0, 0}
+        Dim b() As Byte = BitConverter.GetBytes(i)
+        btemp(0) = b(0)
+        btemp(1) = b(1)
+        Return btemp
+    End Function
+
+
+    ''' <summary>
+    ''' 获取文件的MD5值
+    ''' 返回Byte数组值
+    ''' </summary>
+    ''' <param name="filepath">文件路径</param>
+    ''' <returns></returns>
+    Public Shared Function GetMd5(filepath As String) As Byte()
+        Dim FileStr As FileStream = New FileStream(filepath, FileMode.Open, FileAccess.Read, FileShare.Read)
+        Dim data(FileStr.Length - 1) As Byte
+        FileStr.Read(data, 0, data.Length)
+
+        Dim md5s As Byte() = MD5.Create().ComputeHash(data)
+        'Dim fileMd5 As New StringBuilder()
+        'Dim i As Integer
+        'For i = 0 To md5s.Length - 1
+        '    fileMd5.Append(md5s(i).ToString("x2"))
+        'Next
+
+        'Console.WriteLine($"MD5:{fileMd5}")
+
+        Return md5s
+    End Function
+
+
+    ''' <summary>
+    ''' 获取文件的MD5值
+    ''' 返回String字符串
+    ''' </summary>
+    ''' <param name="filepath">文件路径</param>
+    ''' <returns></returns>
+    Public Shared Function GetMd5String(filepath As String) As String
+        Dim FileStr As FileStream = New FileStream(filepath, FileMode.Open, FileAccess.Read, FileShare.Read)
+        Dim data(FileStr.Length) As Byte
+        FileStr.Read(data, 0, data.Length)
+
+        Dim md5s As Byte() = MD5.Create().ComputeHash(data)
+        Dim fileMd5 As New StringBuilder()
+        Dim i As Integer
+        For i = 0 To md5s.Length - 1
+            fileMd5.Append(md5s(i).ToString("x2"))
+        Next
+
+        Console.WriteLine($"MD5:{fileMd5}")
+
+        Return fileMd5.ToString()
+    End Function
+
+    ''' <summary>
+    ''' 获取本地可用IP
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Function GetLocalIp() As List(Of IPAddress)
+        Dim address() As IPAddress
+        Dim destAddress As New List(Of IPAddress)
+        address = Dns.GetHostEntry(Dns.GetHostName()).AddressList
+        For Each pAddress As IPAddress In address
+            If pAddress.AddressFamily = AddressFamily.InterNetwork Then
+                destAddress.Add(pAddress)
+            End If
+        Next
+        Return destAddress
+    End Function
+    ''' <summary>
+    ''' Byte数组转字符串
+    ''' </summary>
+    ''' <param name="databuff"></param>
+    ''' <returns></returns>
+    Public Shared Function ByteToString(databuff() As Byte)
+        Dim strData As String = String.Empty
+        For i = 0 To databuff.Length - 1
+            strData &= $" {Hex(databuff(i)).PadLeft(2, "0"c)}"
+        Next
+        Return strData
+    End Function
+    Public Shared Function ByteToString2(databuff() As Byte)
+        Dim strData As String = String.Empty
+        For i = 0 To databuff.Length - 1
+            strData &= $" {ByteToHex1(databuff(i)).PadLeft(2, "0"c)}"
+        Next
+        Return strData
+    End Function
+
+    '将16进制字符串转换为字节数组
+    Public Shared Function HexStringToByteArray(hex As String) As Byte()
+
+        Dim bytes As New List(Of Byte)
+        hex = hex.Replace(" ", "").Trim.ToUpper()
+        For i As Integer = 0 To hex.Length - 1 Step 2
+            Dim hexByte As String = hex.Substring(i, 2)
+            bytes.Add(Convert.ToByte(hexByte, 16))
+        Next
+        Return bytes.ToArray()
+    End Function
+
+    '将字节数组转换为16进制字符串
+    Public Shared Function ByteArrayToHexString(bytes As Byte()) As String
+        If bytes Is Nothing OrElse bytes.Length = 0 Then Return ""
+        Dim hex As String = ""
+        For Each b As Byte In bytes
+            hex += b.ToString("X2") & " "
+        Next
+        Return hex.Trim()
+
+    End Function
+    'byte 转16进制字符串
+    Public Shared Function ByteToHex1(ByVal b As Byte) As String
+        Return b.ToString("X2")
+    End Function
+    '16进制字符串 转byte数组
+    'Public Shared Function HexToByte(ByVal hex As String) As Byte()
+    '    Dim result As Byte() = New Byte(hex.Length / 2 - 1) {}
+    '    For i As Integer = 0 To hex.Length - 1 Step 2
+    '        result(i / 2) = Convert.ToByte(hex.Substring(i, 2), 16)
+
+    '    Next
+    'End Function
+
+
+
+    ''' <summary>
+    ''' 等待回复
+    ''' </summary>
+    ''' <param name="isReply">是否回复标志位</param>
+    ''' <param name="TimeOut">超时时间</param>
+    Public Shared Sub WaitReply(isReply As Boolean, TimeOut As Integer)   'ByRef
+        Dim tick As Integer
+        Dim startTick As Integer = My.Computer.Clock.TickCount
+        isReply = False
+        While isReply = False AndAlso tick <= TimeOut
+            Thread.Sleep(3)
+            tick = My.Computer.Clock.TickCount - startTick
+            Application.DoEvents()
+        End While
+    End Sub
+
+
+
+    ''' <summary>
+    ''' 延时N秒
+    ''' </summary>
+    ''' <param name="HowLong">延时时间值</param>
+    Public Shared Sub PauseWait(ByVal HowLong As Long)
+        Dim tick As Long
+        tick = My.Computer.Clock.TickCount
+        Do
+            My.Application.DoEvents()
+        Loop Until tick + HowLong < My.Computer.Clock.TickCount
+    End Sub
+
+    ''' <summary>
+    ''' IP地址转换为Byte数组
+    ''' </summary>
+    ''' <param name="addr"></param>
+    ''' <returns></returns>
+    Public Shared Function GetAddressToBytes(addr As String)
+        Dim iadd() As String = addr.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries)
+        Dim address(3) As Byte
+        address(0) = iadd(0)    '例：192
+        address(1) = iadd(1)    '例：168
+        address(2) = iadd(2)
+        address(3) = iadd(3)
+
+        Return address
+    End Function
+
+    ''' <summary>
+    ''' 获取字符串的MD5值
+    ''' </summary>
+    ''' <param name="str">需要求MD5的原文字符串</param>
+    ''' <returns></returns>
+    Public Shared Function GetStringMd5(str As String) As String
+        Dim md5Hasher As New MD5CryptoServiceProvider()
+        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.UTF8.GetBytes(str))
+        Dim fileMd5 As New StringBuilder()
+        Dim i As Integer
+        For i = 0 To data.Length - 1
+            fileMd5.Append(data(i).ToString("X2"))
+        Next
+
+        Return fileMd5.ToString()
+    End Function
+
+
+    ''' <summary>
+    ''' 分块函数
+    ''' 计算Byte数组的块数
+    ''' </summary>
+    ''' <param name="databuff"></param>
+    ''' <param name="size"></param>
+    ''' <returns></returns>
+    Public Shared Function GetBlocks(databuff As Byte(), size As Integer) As Integer
+        Dim blockCount As Integer = databuff.Length \ size
+        If databuff.Length Mod size > 0 Then
+            blockCount += 1
+        End If
+        Return blockCount
+    End Function
+
+
+    ''' <summary>
+    ''' 字符串转换Byte数组
+    ''' 字符串为连续且不包含任意字符的字符串
+    ''' </summary>
+    ''' <param name="str"></param>
+    ''' <returns></returns>
+    Public Shared Function GetStringToDataByte(str As String) As Byte()
+        Dim dataList As New List(Of Byte)
+
+        For index As Integer = 0 To str.Length - 1 Step 2
+            dataList.Add($"&H{str.Substring(index, 2)}")
+        Next
+
+        Return dataList.ToArray
+    End Function
+
+    ''' <summary>
+    ''' 把UNIX时间戳转换为标准时间
+    ''' </summary>
+    ''' <param name="intTime">要转换的UNIX时间戳</param>
+    ''' <param name="ime">时区</param>
+    ''' <returns>intTime所代表的标准时间</returns>
+    Public Shared Function FromUnixTime(intTime As Long, ime As Long) As Date
+        'If intTime Is Nothing Or Not IsNumeric(intTime) Then 
+        '    FromUnixTime = Now()
+        '    Exit Function
+        'End If
+        'If intTime Is Nothing Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
+        'FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")
+        'FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
+
+        Dim a As Date = DateTime.Parse("1970-1-1 0:0:0")
+        a = a.AddSeconds(intTime)
+        a = a.AddHours(ime)
+
+        Return a
+    End Function
+
+
+    ''' <summary>
+    ''' 和校验取余数
+    ''' 求Byte数组的和校验取余数
+    ''' </summary>
+    ''' <param name="dataPacket">Byte数组</param>
+    ''' <returns></returns>
+    Public Shared Function SumAndMod(dataPacket As Byte()) As Byte
+        Dim sum As Integer
+        For idx = 0 To dataPacket.Length - 1
+            sum += dataPacket(idx)
+            sum = sum And &HFF
+        Next
+        Dim sumMod As Byte = &HFF - sum
+        Return sumMod
+    End Function
+    Public Shared Sub Delay(ByVal time As Integer)
+        Dim timeEnd As Integer = My.Computer.Clock.TickCount + time
+        Do
+            Application.DoEvents()
+        Loop Until My.Computer.Clock.TickCount > timeEnd
+    End Sub
+
+    ''' <summary>
+    ''' 获取枚举描述特性
+    ''' </summary>
+    ''' <param name="enumValue">需要获取特性的枚举值</param>
+    ''' <returns>枚举描述特性</returns>
+    Public Shared Function GetEnumDescription(enumValue As [Enum]) As String
+
+        Dim fi As FieldInfo = enumValue.GetType().GetField(enumValue.ToString())
+        Dim attr() As DescriptionAttribute =
+                DirectCast(fi.GetCustomAttributes(GetType(DescriptionAttribute),
+                                                  False), DescriptionAttribute())
+
+        If attr.Length > 0 Then
+            Return attr(0).Description
+        Else
+            Return enumValue.ToString()
+        End If
+    End Function
+
+End Class