是c++实现的，des算法：Sub AES(sFile) Dim sbox, sboxinv, rcon Dim g2, g3, g9, g11, g13, g14 g2 = Array( _ &h00,&h02,&h04,&h06,&h08,&h0a,&h0c,&h0e,&h10,&h12,&h14,&h16,&h18,&h1a,&h1c,&h1e, _ &h20,&h22,&h24,&h26,&h28,&h2a,&h2c,&h2e,&h30,&h32,&h34,&h36,&h38,&h3a

西门子 Step7 V5.5 SP4的HofFix8