软件端/Class_app.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

''微信公众号关注：VB小源码
''QQ群：344402874
''博客：https://www.cnblogs.com/vbee/
''个人微信：vbee_club

Imports System.IO
Imports System.Management
Imports System.Security.Cryptography
Imports System.Text

''' <summary>
''' DES加密解密类
''' </summary>
Public Class Cls_des
  ''' <summary>
  ''' 密码
  ''' </summary>
  Private pass_key As String = "00000000"

  ''' <summary>
  ''' 初始化
  ''' </summary>
  ''' <param name="key"></param>
  Public Sub New(Optional key As String = "r9j8w5ed")
    pass_key = key
  End Sub

  ''' <summary>
  ''' DES加密
  ''' </summary>
  ''' <param name="str_s"></param>
  ''' <returns></returns>
  Public Function DesEncrypt(str_s As String) As String
    Dim byts As Byte() = Encoding.UTF8.GetBytes(pass_key.Substring(0, 8))
    Dim IV As Byte() = byts
    Dim bytes As Byte() = Encoding.UTF8.GetBytes(str_s)
    Dim descPro As DESCryptoServiceProvider = New DESCryptoServiceProvider()
    Dim mStr As MemoryStream = New MemoryStream()
    Dim cStream As CryptoStream = New CryptoStream(mStr, descPro.CreateEncryptor(byts, IV), CryptoStreamMode.Write)
    cStream.Write(bytes, 0, bytes.Length)
    cStream.FlushFinalBlock()
    Return Convert.ToBase64String(mStr.ToArray())
  End Function

  ''' <summary>
  ''' des解密
  ''' </summary>
  ''' <param name="dstr"></param>
  ''' <returns></returns>
  Public Function DesDecrypt(dstr As String) As String
    Dim byts As Byte() = Encoding.UTF8.GetBytes(pass_key.Substring(0, 8))
    Dim IV As Byte() = byts
    Dim arr As Byte() = Convert.FromBase64String(dstr)
    Dim dSerPro As DESCryptoServiceProvider = New DESCryptoServiceProvider()
    Dim mStream As MemoryStream = New MemoryStream()
    Dim cStream As CryptoStream = New CryptoStream(mStream, dSerPro.CreateDecryptor(byts, IV), CryptoStreamMode.Write)
    cStream.Write(arr, 0, arr.Length)
    cStream.FlushFinalBlock()
    Return Encoding.UTF8.GetString(mStream.ToArray())
  End Function