使用PLC编程（ST语言）开发的DES加密解密功能块

最新推荐文章于 2025-02-25 09:09:55 发布

1983阿飞1983

最新推荐文章于 2025-02-25 09:09:55 发布

阅读量1.8k

点赞数 1

文章标签： python 编程语言算法

本文链接：https://blog.csdn.net/qq_36028270/article/details/111941442

版权

本文介绍了如何使用施耐德M218, M258, M241等型号PLC的ST编程语言实现DES加密解密功能块。详细阐述了功能块的定义、代码实现、数据验证过程，并提供了Python语言的验证代码，以85e813540f0ab405作为加密结果进行示例。" 113211316,10546999,HTML5本地存储方式总结：SQLite、IndexedDB,"['前端开发', 'HTML', '数据库', 'SQLite', 'IndexedDB']

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本例使用施耐德M218，M258，M241型号PLC ，其他品牌PLC，理论上只要支持IEC61131-3标准，都有IL/ST/FBD/LD/CFC/SFC六种编程语言，本例使用ST语言。

一、定义功能块

FUNCTION_BLOCK DES
VAR_INPUT
	//
	i_Exe :BOOL;
	//用户的 64b, 密钥
	{attribute 'displaymode':='binary'}
	i_Key	:ARRAY[0..3] OF uINT;
	// 64bit 明文
	{attribute 'displaymode':='binary'}
	i_Data: ARRAY[0..3] OF UINT;
	// TRUE = 加密， FALSE = 解密
	i_Mode :BOOL;
END_VAR
VAR_OUTPUT
	{attribute 'displaymode':='hex'}
	q_Ciphertext :ARRAY[0..3] OF UINT;
END_VAR
VAR
	// 上升沿
	Exe_R_TRIG :R_TRIG;
	// 临时变量
	i,j,m,n,Index: INT;	
	
	// 64bit 密钥
	M_KeyBit: ARRAY [1..64] OF BOOL;
	// 64bit 数据
	M_DataBit: ARRAY [1..64] OF BOOL;	
	
	// 置换选择 1 的矩阵
	C0_Table :ARRAY[1..28] OF INT:=[	57,49,41,33,25,17,9,
										1,58,50,42,34,26,18,
										10,2,59,51,43,35,27,
										19,11,3,60,52,44,36];
							
	D0_Table :ARRAY[1..28] OF INT:=[	63,55,47,39,31,23,15,
										7,62,54,46,38,30,22,
										14,6,61,53,45,37,29,
										21,13,5,28,20,12,4];
	//
	Ci :ARRAY[0..16,1..28] OF BOOL;// C0 -- C16 , 28bit , CO（左28bit） 是 C1 -- C16 的最原始的基础 ，C1 -- C16 称为 16 个子密钥
	Di :ARRAY[0..16,1..28] OF BOOL;// D0 -- D16 , 28bit , DO（右28bit） 是 D1 -- D16 的最原始的基础 ，D1 -- D16 称为 16 个子密钥	
	
	// 循环左移 的矩阵
	RotateLeft_Table:ARRAY[0..15] OF INT:=[1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1];
	
	// C0、D0组合而成的中间数据
	M_CiDi :ARRAY[1..56] OF BOOL;	
	
	// 置换选择 2 的矩阵为一个 8 * 6 的矩阵，将上面得到的16个子钥按照下表的规律进行位的交换
	// 在此过程中，第9，18，22，25， 35，38，43，54位丢弃。
	K48_Table :ARRAY[1..48] OF INT:=[	14, 17, 11, 24, 1, 5, 3, 28,
										15, 6, 21, 10, 23, 19, 12, 4,
										26, 8, 16, 7, 27, 20, 13, 2,
										41, 52, 31, 37, 47, 55, 30, 40,
										51, 45, 33, 48, 44, 49, 39, 56,
										34, 53, 46, 42, 50, 36, 29, 32];
	// 子密钥 K
	Ki:ARRAY[1..16,1..48] OF BOOL;
	
	
	// 64bit 明文换位表
	Data_Table:ARRAY[1..64] OF INT:=[	58, 50, 42, 34, 26, 18, 10,  2,
										60, 52, 44, 36, 28, 20, 12,  4,
										62, 54, 46, 38, 30, 22, 14,  6,
										64, 56, 48, 40, 32, 24, 16,  8,// Li
										57, 49, 41, 33, 25, 17,  9,  1,
										59, 51, 43, 35, 27, 19, 11,  3,
										61, 53, 45, 37, 29, 21, 13,  5,
										63, 55, 47, 39, 31, 23, 15,  7];// Ri
	// 置换后的 64bit 明文
	Displaced_DataBit: ARRAY [1..64] OF BOOL;
	// 扩展表
	Extend_Table:ARRAY[1..48] OF INT:=[	32, 1, 2, 3, 4, 5,
										4, 5, 6, 7, 8, 9,
										8, 9, 10, 11, 12, 13,
										12, 13, 14, 15, 16, 17,
										16, 17, 18, 19, 20, 21,
										20, 21, 22, 23, 24, 25,
										24, 25, 26, 27, 28, 29,
										28, 29, 30, 31, 32, 1];
	// 置换后的 64bit 明文分成两部分
	Li:ARRAY[0..16,1..32] OF BOOL;
	Ri:ARRAY[0..16,1..32] OF BOOL;
	ER:ARRAY[1..16,1..48] OF BOOL;
	Result48:ARRAY[1..16,1..48] OF BOOL;
	//
	S1:ARRAY[0..3,0..15] OF INT:=[
    	14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7,
        0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8,
        4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0,
        15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13];

	S2:ARRAY[0..3,0..15] OF INT:=[
    	15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10,
        3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5,
        0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15,
        13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9];

	S3:ARRAY[0..3,0..15] OF INT:=[
    	10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8,
        13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1,
        13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7,
        1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12];

	S4:ARRAY[0..3,0..15] OF INT:=[
    	7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15,
        13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9,
        10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4,
        3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14];

	S5:ARRAY[0..3,0..15] OF INT:=[
    	2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9,
        14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6,
        4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14,
        11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3];

	S6:ARRAY[0..3,0..15] OF INT:=[
    	12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11,
        10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8,
        9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6,
        4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13];

	S7:ARRAY[0..3,0..15] OF INT:=[
    	4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1,
        13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6,
        1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2,
        6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12];

	S8:ARRAY[0..3,0..15] OF INT:=[
    	13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7,
        1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2,
        7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8,
        2, 1, 14, 7, 4, 10, 8, 13, 15,