电气设计 - 纪小年

2025/04/01

电线线径、电机功率与电流的关系

本文探讨了电线线径与载流量的关系及其计算方法。电线线径是衡量其承载电流能力的重要参数，线径越大，载流量越高。载流量还受材质、敷设方式、环境温度等因素影响。文中介绍了铜芯与铝芯电线的载流量差异，以及不同敷设方式对载流量的影响。同时，提供了IEC 60364-5-523标准中的载流量表格，供实际应用参考。此外，还介绍了设备电流的估算口诀与计算方法，以及在实际应用中需要注意的安全系数、电压降、电线类型和敷设环境等问题，帮助读者在电气设计、安装和维护过程中做出更科学、更安全的选择。

0

VB

2025/03/27

VS打包程序setup project 向导设置桌面快捷程序时没有图标

本文介绍了如何使用Orca工具编辑MSI文件，确保快捷方式的图标设置正确。Orca工具是Windows Installer开发人员的Windows SDK组件中的一部分，用于修改MSI文件。通过打开Orca并加载.msi文件，找到“Shortcut”表并确保“Icon”列正确引用图标文件。如果图标不显示，可清空该列内容并修改“Target”列，让系统使用默认图标。此外，还可以查看和编辑MSI文件中的其他文件，如图片和dll等。

0

电气设计

2023/12/22

非控件形式实现触摸屏配方管理的一种解决方法

大多数触摸屏都包含配方控件，但是配方控件的样式一般是固定的，自由度比较低。下面介绍一种使用PLC处理方式进行配方管理的方法。创建配方存储区域在PLC程序中需要创建一个储存配方的连续的配方存储区，如下图所示，有下标为0~x的N个配方，每个配方含有参数1~...

0

VB

2023/08/10

VB6.0通过MySQL Connector/ODBC连接MySQL

在 Visual Basic 6.0 中连接到 MySQL 数据库需要使用适当的数据库连接库。通常情况下，可以使用 MySQL 的官方连接库，即 MySQL Connector/ODBC 或 MySQL Connector/NET，在 VB6.0 中连接 ...

0

VB

2023/06/09

基于.NET的数据记录及报表触发控件（使用篇）

项目中报表功能的需求越来越多，急迫开发一款集成于SCADA的通用报表。RA的SE13版已经支持.NET控件，正好有机会来开发一款报表控件。概况基本需求自动储存数据，并将数据定时导出或者定时打印。根据最基本的需求，要实现功能，需要有执行动作的功能，也...

0

VB

2023/06/07

基于.NET的数据记录及报表触发控件（界面篇）

项目中报表功能的需求越来越多，急迫开发一款集成于SCADA的通用报表。 RA的FactoryTalk View SE 13版已经支持.NET控件，正好有机会来开发一款报表控件。该控件不只可以用于SE，也可以用于WINCC。概况基本需求自动储存数据，...

0

VB

2023/04/01

使用Visual Studio开发WINCC或FTView SE的.Net控件（二）

在上一篇文章末尾后记中记录了RA FTView SE控件事件的响应方法，我在后续制作控件的时候，发现事件参数的传递需要有特定的编写方式，记录一下： VS控件事件事件编写如下：

<DefaultEvent("MenuItemClick")>
Public Class KNavMenu
    Inherits TreeView

    Public Event MenuItemClick As EventHandler

    Private Sub ShowSelectedNode()
        Dim args As New ThresholdReachedEventArgs With {
            .nodeName = SelectedNode.Name,
            .nodePath = SelectedNode.FullPath,
            .nodeIndex = SelectedNode.ToolTipText
        }
        RaiseEvent MenuItemClick(SelectedNode, args)
    End Sub
End Class
Class ThresholdReachedEventArgs
    Inherits EventArgs
    Public Property nodeName As String
    Public Property nodePath As String
    Public Property nodeIndex As Integer
End Class

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

<DefaultEvent("MenuItemClick")>

Public Class KNavMenu

Inherits TreeView

Public Event MenuItemClick As EventHandler

Private Sub ShowSelectedNode()

Dim args As New ThresholdReachedEventArgs With {

.nodeName = SelectedNode.Name,

.nodePath = SelectedNode.FullPath,

.nodeIndex = SelectedNode.ToolTipText

}

RaiseEvent MenuItemClick(SelectedNode, args)

End Sub

End Class

Class ThresholdReachedEventArgs

Inherits EventArgs

Public Property nodeName As String

Public Property nodePath As String

Public Property nodeIndex As Integer

End Class

SE中配置 ...

0

VB

2023/02/27

使用Visual Studio开发WINCC或FTView SE的.Net控件

自FactoryTalk View SE 13版起Rockwell的这款SCADA软件开始支持.Net控件。大家可以使用更为丰富的控件的同时，也可以自行编写.Net控件以进行支持。由于本人一直基于VB/VB.NET进行开发，因此以该语言给大家进行讲解。 ...

0

VB

2023/01/31

VB.NET的OpenCvSharp4简单应用

在.NET下常用OpenCV进行图像处理工作，而常用的OpenCV库有Emgu CV和OpenCvSharp。OpenCvSharp使用习惯比EmguCV更接近原始的OpenCV，有详细的使用样例供参考。因此在网上收集了一些OpenCV的应用。准备工作 ...

0

C# / VB

2022/10/27

可通用的VB.NET、C#与Java的Des加解密代码

1、Java版

import java.io.UnsupportedEncodingException;
import java.security.SecureRandom;
 
import javax.crypto.spec.DESKeySpec;
import javax.crypto.spec.IvParameterSpec;
 
import Decoder.BASE64Decoder;
import Decoder.BASE64Encoder;
 
import javax.crypto.SecretKeyFactory;
import javax.crypto.SecretKey;
import javax.crypto.Cipher;
public class MyDesc {
	   public MyDesc() {}
	    //测试
	    public static void main(String args[]) throws UnsupportedEncodingException {
	     //待加密内容
	     String str = "{\"pid\":\"511025198710264794\",\"pname\":false}";
	     //密码，长度要是8的倍数
	     String password = "2018052400018841";
	     
	     String result = MyDesc.encrypt(str.getBytes("UTF-8"),password);
	     System.out.println("加密后："+result);  //uMI2SuMFepPhQxytg/ONQPwfCnlLZHYOQiuIY6u176gbgHCw8nD7u3fMV7IgSr5o
	     //直接将如上内容解密
	     try {	    	
	             String decryResult = MyDesc.decrypt(result, password);
	             System.out.println("解密后："+decryResult);  //{"pid":"511025198710264794","pname":false}
	     } catch (Exception e1) {
	             e1.printStackTrace();
	     }
	 }
	   /**
	    * 加密
	    * @param datasource
	    * @param password
	    * @return
	    */
	    public static String encrypt(byte[] datasource, String password) { 
	    	String strIv = "12345678";
	        try{
	        SecureRandom random = new SecureRandom();
	        DESKeySpec desKey = new DESKeySpec(password.getBytes("UTF-8"));
	        //创建一个密匙工厂，然后用它把DESKeySpec转换成
	        SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");
	        SecretKey securekey = keyFactory.generateSecret(desKey);
	        //Cipher对象实际完成加密操作
	        Cipher cipher = Cipher.getInstance("DES/CBC/PKCS5Padding");
	        //用密匙初始化Cipher对象
	        IvParameterSpec param = new IvParameterSpec(strIv.getBytes());
	        cipher.init(Cipher.ENCRYPT_MODE, securekey, param);
	        //现在，获取数据并加密
	        //正式执行加密操作
	        
	        byte[] buf =  cipher.doFinal(datasource);
	        String utf8 = new BASE64Encoder().encodeBuffer(buf);
	        return utf8;
			
	        }catch(Throwable e){
	                e.printStackTrace();
	        }
	        return null;
	}
	   /**
	    * 解密
	    * @param src
	    * @param password
	    * @return
	    * @throws Exception
	    */
	    public static String decrypt(String src, String password) throws Exception {
	    	String strIv = "12345678";
	    	// DES算法要求有一个可信任的随机数源
	            SecureRandom random = new SecureRandom();
	            // 创建一个DESKeySpec对象
	            DESKeySpec desKey = new DESKeySpec(password.getBytes());
	            // 创建一个密匙工厂
	            SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");
	            // 将DESKeySpec对象转换成SecretKey对象
	            SecretKey securekey = keyFactory.generateSecret(desKey);
	            // Cipher对象实际完成解密操作
	            Cipher cipher = Cipher.getInstance("DES/CBC/PKCS5Padding");
	            // 用密匙初始化Cipher对象
	            IvParameterSpec param = new IvParameterSpec(strIv.getBytes());    
	            cipher.init(Cipher.DECRYPT_MODE, securekey, param);
	            // 真正开始解密操作
	            
	            byte[] dec = new BASE64Decoder().decodeBuffer(src);
	            byte[] utf8 = cipher.doFinal(dec);
	            String decryptedStr = new String(utf8, "UTF-8");
	            
	            return decryptedStr;	
	        }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

import java.io.UnsupportedEncodingException;

import java.security.SecureRandom;

import javax.crypto.spec.DESKeySpec;

import javax.crypto.spec.IvParameterSpec;

import Decoder.BASE64Decoder;

import Decoder.BASE64Encoder;

import javax.crypto.SecretKeyFactory;

import javax.crypto.SecretKey;

import javax.crypto.Cipher;

public class MyDesc {

public MyDesc() {}

//测试

public static void main(String args[]) throws UnsupportedEncodingException {

//待加密内容

String str = "{\"pid\":\"511025198710264794\",\"pname\":false}";

//密码，长度要是8的倍数

String password = "2018052400018841";

String result = MyDesc.encrypt(str.getBytes("UTF-8"),password);

System.out.println("加密后："+result); //uMI2SuMFepPhQxytg/ONQPwfCnlLZHYOQiuIY6u176gbgHCw8nD7u3fMV7IgSr5o

//直接将如上内容解密

try {

String decryResult = MyDesc.decrypt(result, password);

System.out.println("解密后："+decryResult); //{"pid":"511025198710264794","pname":false}

} catch (Exception e1) {

e1.printStackTrace();

}

/**

* 加密

* @param datasource

* @param password

* @return

*/

public static String encrypt(byte[] datasource, String password) {

String strIv = "12345678";

try{

SecureRandom random = new SecureRandom();

DESKeySpec desKey = new DESKeySpec(password.getBytes("UTF-8"));

//创建一个密匙工厂，然后用它把DESKeySpec转换成

SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");

SecretKey securekey = keyFactory.generateSecret(desKey);

//Cipher对象实际完成加密操作

Cipher cipher = Cipher.getInstance("DES/CBC/PKCS5Padding");

//用密匙初始化Cipher对象

IvParameterSpec param = new IvParameterSpec(strIv.getBytes());

cipher.init(Cipher.ENCRYPT_MODE, securekey, param);

//现在，获取数据并加密

//正式执行加密操作

byte[] buf = cipher.doFinal(datasource);

String utf8 = new BASE64Encoder().encodeBuffer(buf);

return utf8;

}catch(Throwable e){

e.printStackTrace();

}

return null;

}

/**

* 解密

* @param src

* @param password

* @return

* @throws Exception

*/

public static String decrypt(String src, String password) throws Exception {

String strIv = "12345678";

// DES算法要求有一个可信任的随机数源

SecureRandom random = new SecureRandom();

// 创建一个DESKeySpec对象

DESKeySpec desKey = new DESKeySpec(password.getBytes());

// 创建一个密匙工厂

SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");

// 将DESKeySpec对象转换成SecretKey对象

SecretKey securekey = keyFactory.generateSecret(desKey);

// Cipher对象实际完成解密操作

Cipher cipher = Cipher.getInstance("DES/CBC/PKCS5Padding");

// 用密匙初始化Cipher对象

IvParameterSpec param = new IvParameterSpec(strIv.getBytes());

cipher.init(Cipher.DECRYPT_MODE, securekey, param);

// 真正开始解密操作

byte[] dec = new BASE64Decoder().decodeBuffer(src);

byte[] utf8 = cipher.doFinal(dec);

String decryptedStr = new String(utf8, "UTF-8");

return decryptedStr;

}

2、C#版

using System;
using System.Collections.Generic;
using System.Linq;
using System;
using System.Linq;
using System.Web.Script.Serialization;
using System.Runtime.Serialization;
using System.Dynamic;
using System.Net;
using System.IO;
using System.Collections.Specialized;
using System.Web;
using System.Security.Cryptography;
using System.Text;
 
namespace testDESC
{
    static class Test
    {
 
        /// <summary>
        /// 解密
        /// </summary>
        /// <param name="encryptedString"></param>
        /// <param name="keyString"></param>
        /// <returns></returns>
        public static string Decrypt(string encryptedString, string keyString)
        {
            keyString = keyString.Substring(0, 8);
            byte[] btKey = Encoding.UTF8.GetBytes(keyString);
            byte[] btIv = Encoding.UTF8.GetBytes("12345678");
            var des = new DESCryptoServiceProvider();
            des.Mode = CipherMode.CBC;//这里指定加密模式为CBC
            des.Padding = PaddingMode.PKCS7;
 
            des.Key = btKey;
            des.IV = btIv;
 
            using (var ms = new MemoryStream())
            {
                try
                {
                    byte[] inData = Convert.FromBase64String(encryptedString);
                    using (var cs = new CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write))
                    {
                        cs.Write(inData, 0, inData.Length);
                        cs.FlushFinalBlock();
                    }
 
                    return Encoding.UTF8.GetString(ms.ToArray());
                }
                catch (Exception ex)
                {
                    return "-1";
                    // throw ex;
                }
            }
        }
 
        /// <summary>
        /// 加密
        /// </summary>
        /// <param name="sourceString"></param>
        /// <param name="keyString"></param>
        /// <returns></returns>
        public static string Encrypt(string sourceString, string keyString)
        {
            keyString = keyString.Substring(0, 8);
            byte[] btIv = Encoding.UTF8.GetBytes("12345678");
            byte[] btKey = Encoding.UTF8.GetBytes(keyString);
            try
            {
                DESCryptoServiceProvider des = new DESCryptoServiceProvider();
                using (MemoryStream ms = new MemoryStream())
                {
                    byte[] inData = Encoding.UTF8.GetBytes(sourceString);
 
                    using (CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(btKey, btIv), CryptoStreamMode.Write))
                    {
                        cs.Write(inData, 0, inData.Length);
                        cs.FlushFinalBlock();
                    }
 
                    return Convert.ToBase64String(ms.ToArray());
 
                }
            }
            catch
            {
                return "-1";
            }
        }
 
 
        static void Main(string[] args)
        {
            string str = "{\"pid\":\"511025198710264794\",\"pname\":false}";
            string re = Encrypt(str, "2018052400018841");
            Console.WriteLine("加密：" + re); //uMI2SuMFepPhQxytg/ONQPwfCnlLZHYOQiuIY6u176gbgHCw8nD7u3fMV7IgSr5o
 
            string re1 = Decrypt(re, "2018052400018841");
            Console.WriteLine("解密：" + re1); //{"pid":"511025198710264794","pname":false}
 
        }
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

using System;

using System.Collections.Generic;

using System.Linq;

using System;

using System.Linq;

using System.Web.Script.Serialization;

using System.Runtime.Serialization;

using System.Dynamic;

using System.Net;

using System.IO;

using System.Collections.Specialized;

using System.Web;

using System.Security.Cryptography;

using System.Text;

namespace testDESC

{

static class Test

{

/// <summary>

/// 解密

/// </summary>

/// <param name="encryptedString"></param>

/// <param name="keyString"></param>

/// <returns></returns>

public static string Decrypt(string encryptedString, string keyString)

{

keyString = keyString.Substring(0, 8);

byte[] btKey = Encoding.UTF8.GetBytes(keyString);

byte[] btIv = Encoding.UTF8.GetBytes("12345678");

var des = new DESCryptoServiceProvider();

des.Mode = CipherMode.CBC;//这里指定加密模式为CBC

des.Padding = PaddingMode.PKCS7;

des.Key = btKey;

des.IV = btIv;

using (var ms = new MemoryStream())

{

try

{

byte[] inData = Convert.FromBase64String(encryptedString);

using (var cs = new CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write))

{

cs.Write(inData, 0, inData.Length);

cs.FlushFinalBlock();

}

return Encoding.UTF8.GetString(ms.ToArray());

}

catch (Exception ex)

{

return "-1";

// throw ex;

}

/// <summary>

/// 加密

/// </summary>

/// <param name="sourceString"></param>

/// <param name="keyString"></param>

/// <returns></returns>

public static string Encrypt(string sourceString, string keyString)

{

keyString = keyString.Substring(0, 8);

byte[] btIv = Encoding.UTF8.GetBytes("12345678");

byte[] btKey = Encoding.UTF8.GetBytes(keyString);

try

{

DESCryptoServiceProvider des = new DESCryptoServiceProvider();

using (MemoryStream ms = new MemoryStream())

{

byte[] inData = Encoding.UTF8.GetBytes(sourceString);

using (CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(btKey, btIv), CryptoStreamMode.Write))

{

cs.Write(inData, 0, inData.Length);

cs.FlushFinalBlock();

}

return Convert.ToBase64String(ms.ToArray());

}

catch

{

return "-1";

}

static void Main(string[] args)

{

string str = "{\"pid\":\"511025198710264794\",\"pname\":false}";

string re = Encrypt(str, "2018052400018841");

Console.WriteLine("加密：" + re); //uMI2SuMFepPhQxytg/ONQPwfCnlLZHYOQiuIY6u176gbgHCw8nD7u3fMV7IgSr5o

string re1 = Decrypt(re, "2018052400018841");

Console.WriteLine("解密：" + re1); //{"pid":"511025198710264794","pname":false}

}

3、VB.NET版

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

''' <summary>
''' DES加密
''' </summary>
Public Class DES
    ''' <summary>
    ''' 进行DES加密
    ''' </summary>
    ''' <param name="pToEncrypt">需要加密的字符串</param>
    ''' <param name="sKey">密钥</param>
    ''' <returns></returns>
    Public Function Encrypt(ByVal pToEncrypt As String, ByVal sKey As String) As String
        Using des As DESCryptoServiceProvider = New DESCryptoServiceProvider()

            Dim inputByteArray As Byte() = Encoding.UTF8.GetBytes(pToEncrypt)
            des.Key = Encoding.UTF8.GetBytes(sKey)
            des.IV = Encoding.UTF8.GetBytes("12345678")
            des.Padding = PaddingMode.PKCS7
            des.Mode = CipherMode.ECB
            Dim ms As MemoryStream = New MemoryStream()
            Try

                Using cs As CryptoStream = New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    cs.Close()
                End Using

                Dim base64 As String = Convert.ToBase64String(ms.ToArray())
                Return base64
            Catch ex As Exception
                Return "-1"
            Finally
                ms.Close()
            End Try
        End Using
    End Function

    ''' <summary>
    ''' 进行DES解密
    ''' </summary>
    ''' <param name="pToDecrypt">需要解密的字符串</param>
    ''' <param name="sKey">密钥</param>
    ''' <returns></returns>
    Public Function Decrypt(ByVal pToDecrypt As String, ByVal sKey As String) As String
        Dim inputByteArray As Byte() = Convert.FromBase64String(pToDecrypt)

        Using des As DESCryptoServiceProvider = New DESCryptoServiceProvider()

            des.Key = Encoding.UTF8.GetBytes(sKey)
            des.IV = Encoding.UTF8.GetBytes("12345678")
            des.Padding = PaddingMode.PKCS7
            des.Mode = CipherMode.ECB
            Dim ms As MemoryStream = New MemoryStream()
            Try
                Using cs As CryptoStream = New CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    cs.Close()
                End Using

                Dim str As String = Encoding.UTF8.GetString(ms.ToArray())
                Return str
            Catch ex As Exception
                Return "-1"
            Finally
                ms.Close()
            End Try
        End Using
    End Function
End Class

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myDES As New DES
        Debug.Print(myDES.Decrypt("vqzlic2Xtm1pWb4GwaH0Mdh4SETUnomlkKfyxfxF2RUI4J1O4SIWcw==", "ZMCCXZQA"))
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myDES As New DES
        Debug.Print(myDES.Encrypt("{""username"":""张三"",""sex"":""男""}", "ZMCCXZQA"))
    End Sub
End Class

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

Imports System.IO

Imports System.Security.Cryptography

Imports System.Text

''' <summary>

''' DES加密

''' </summary>

Public Class DES

''' <summary>

''' 进行DES加密

''' </summary>

''' <param name="pToEncrypt">需要加密的字符串</param>

''' <param name="sKey">密钥</param>

''' <returns></returns>

Public Function Encrypt(ByVal pToEncrypt As String, ByVal sKey As String) As String

Using des As DESCryptoServiceProvider = New DESCryptoServiceProvider()

Dim inputByteArray As Byte() = Encoding.UTF8.GetBytes(pToEncrypt)

des.Key = Encoding.UTF8.GetBytes(sKey)

des.IV = Encoding.UTF8.GetBytes("12345678")

des.Padding = PaddingMode.PKCS7

des.Mode = CipherMode.ECB

Dim ms As MemoryStream = New MemoryStream()

Try

Using cs As CryptoStream = New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write)

cs.Write(inputByteArray, 0, inputByteArray.Length)

cs.FlushFinalBlock()

cs.Close()

End Using

Dim base64 As String = Convert.ToBase64String(ms.ToArray())

Return base64

Catch ex As Exception

Return "-1"

Finally

ms.Close()

End Try

End Using

End Function

''' <summary>

''' 进行DES解密

''' </summary>

''' <param name="pToDecrypt">需要解密的字符串</param>

''' <param name="sKey">密钥</param>

''' <returns></returns>

Public Function Decrypt(ByVal pToDecrypt As String, ByVal sKey As String) As String

Dim inputByteArray As Byte() = Convert.FromBase64String(pToDecrypt)

Using des As DESCryptoServiceProvider = New DESCryptoServiceProvider()

des.Key = Encoding.UTF8.GetBytes(sKey)

des.IV = Encoding.UTF8.GetBytes("12345678")

des.Padding = PaddingMode.PKCS7

des.Mode = CipherMode.ECB

Dim ms As MemoryStream = New MemoryStream()

Try

Using cs As CryptoStream = New CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write)

cs.Write(inputByteArray, 0, inputByteArray.Length)

cs.FlushFinalBlock()

cs.Close()

End Using

Dim str As String = Encoding.UTF8.GetString(ms.ToArray())

Return str

Catch ex As Exception

Return "-1"

Finally

ms.Close()

End Try

End Using

End Function

End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim myDES As New DES

Debug.Print(myDES.Decrypt("vqzlic2Xtm1pWb4GwaH0Mdh4SETUnomlkKfyxfxF2RUI4J1O4SIWcw==", "ZMCCXZQA"))

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim myDES As New DES

Debug.Print(myDES.Encrypt("{""username"":""张三"",""sex"":""男""}", "ZMCCXZQA"))

End Sub

End Class

可通用的C...

分类： 电气设计

分类：电气设计