ባለፈው PHDays 9 ላይ የጋዝ መፈልፈያ ፋብሪካን ለመጥለፍ ውድድር አደረግን - ውድድር . በጣቢያው ላይ ሶስት ቋሚዎች የተለያዩ የደህንነት መለኪያዎች (ደህንነት የለም, ዝቅተኛ ደህንነት, ከፍተኛ ደህንነት), ተመሳሳይ የኢንዱስትሪ ሂደትን በመኮረጅ: በአየር ግፊት ውስጥ አየር ወደ ፊኛ (ከዚያም ይለቀቃል).
የተለያዩ የደህንነት መመዘኛዎች ቢኖሩም, የቋሚዎቹ የሃርድዌር ቅንጅት ተመሳሳይ ነበር: Siemens Simatic PLC S7-300 series; የአደጋ መከላከያ አዝራር እና የግፊት መለኪያ መሳሪያ (ከ PLC ዲጂታል ግብዓቶች (DI) ጋር የተገናኘ); ለዋጋ ግሽበት እና ለአየር መበላሸት የሚሰሩ ቫልቮች (ከ PLC (DO) ዲጂታል ውጤቶች ጋር የተገናኘ) - ከታች ያለውን ምስል ይመልከቱ።
PLC እንደ የግፊት ንባቦች እና በፕሮግራሙ መሰረት, ኳሱን ለማጥፋት ወይም ለመንፋት (ተዛማጁን ቫልቮች ተከፍቷል እና ተዘግቷል). ይሁን እንጂ ሁሉም መቆሚያዎች በእጅ መቆጣጠሪያ ሁነታ ነበራቸው, ይህም የቫልቮቹን ግዛቶች ያለ ምንም ገደብ ለመቆጣጠር አስችሏል.
መቆሚያዎቹ ይህንን ሁነታ በማንቃት ውስብስብነት ይለያያሉ፡ ጥበቃ በሌለው መቆሚያ ላይ ይህን ለማድረግ በጣም ቀላል ነበር፣ እና በከፍተኛ ሴኪዩሪቲ መቆሚያ በተመሳሳይ መልኩ የበለጠ ከባድ ነበር።
ከስድስቱ ችግሮች አምስቱ በሁለት ቀናት ውስጥ ተፈትተዋል; የመጀመርያው ቦታ ተሳታፊ 233 ነጥብ አግኝቷል (ለውድድሩ ዝግጅት ለአንድ ሳምንት አሳልፏል)። ሦስት አሸናፊዎች: እኔ ቦታ - a1exdandy, II - Rubikoid, III - Ze.
ነገር ግን በPHDays ወቅት ከተሳታፊዎቹ አንዳቸውም ሦስቱንም መቋቋሚያዎች ማሸነፍ አልቻሉም፣ ስለዚህ በመስመር ላይ ውድድር ለማድረግ ወሰንን እና በጣም ከባድ የሆነውን ስራ በሰኔ መጀመሪያ ላይ አሳትመናል። ተሳታፊዎች በአንድ ወር ጊዜ ውስጥ ስራውን ማጠናቀቅ, ባንዲራውን ማግኘት እና መፍትሄውን በዝርዝር እና በሚያስደስት መንገድ መግለፅ ነበረባቸው.
ከመቁረጡ በታች በወር ውስጥ ከተላኩት ለተግባሩ የተሻለው መፍትሄ ትንታኔን እናተምታለን ፣ በ PHDays ወቅት በውድድሩ ውስጥ 1 ኛ ደረጃን የወሰደው ከዲጂታል ሴኩሪቲ ኩባንያ አሌክሲ ኮቭሪዥኒክ (aXNUMXexdandy) ተገኝቷል። ከዚህ በታች ጽሑፉን ከአስተያየታችን ጋር አቅርበነዋል።
የመጀመሪያ ትንታኔ
ስለዚህ ተግባሩ ከሚከተሉት ፋይሎች ጋር ማህደር ይዟል፡-
- አግድ_ሰቀላ_ትራፊክ.pcapng
- ዲቢ100.ቢን
- ፍንጭ.txt
የ hints.txt ፋይል ተግባሩን ለመፍታት አስፈላጊውን መረጃ እና ፍንጭ ይዟል. ይዘቱ እነሆ፡-
- ፔትሮቪች ትናንት ከ PlcSim ወደ Step7 ብሎኮችን መጫን እንደሚችሉ ነግሮኛል።
- የ Siemens Simatic S7-300 ተከታታይ ኃ.የተ.የግ.ማ.
- PlcSim ለ Siemens S7 PLC ዎች ፕሮግራሞችን እንዲያሄዱ እና እንዲያርሙ የሚያስችልዎ PLC emulator ነው።
DB100.BIN ፋይል DB100 NC መረጃ አግድ የያዘ ይመስላል 00000000 0100 0102 6 02 0401 0206 ......... 0100፡ 0101 0102 00000010 1002 0501 0202 2002 0501a0206 ................... 0100 0102..........00000020. 0102: 7702 0401 0206 0100 0103 0102 0 02 00000030 0501 0202 1602a0501 0206 0100 0104 ................ 0102: 00000040 7502 0401 0206a 0100 0105 0102 0 ......... . .. 02c0501: 00000050d 0202 1602a0501 0206 0100 0106 0102 3402 ................ 4d00000060: 0401 0206e 0100 0107d0102 2602 0501 0202 .... 00000070e4፡ 02 0501 0206 0100 0108 0102 3302 0401 ........#...... 3f00000080፡ 0206 0100 0109 0102 0 02 0501 0202 .... ..... 1602፡ 00000090 0501 0206 0100 010 0102 3702 0401 ............... 0206፡ 7 000000 0 0100 010 0102 .. ......&. 2202፡ 0501 0202 4602c0501 000000 0 0206 ....ኤል......
ስሙ እንደሚያመለክተው የብሎክ_upload_traffic.pcapng ፋይል ወደ ኃ.የተ.የግ.ማ.
በኮንፈረንሱ ወቅት በውድድሩ ቦታ ላይ ያለው ይህ የትራፊክ መጨናነቅ ትንሽ አስቸጋሪ እንደነበረ ልብ ሊባል ይገባል። ይህንን ለማድረግ ለ TeslaSCADA2 ከፕሮጀክት ፋይል ስክሪፕቱን መረዳት አስፈላጊ ነበር. ከዚህ በመነሳት RC4ን በመጠቀም ኢንክሪፕት የተደረገው የቆሻሻ መጣያ ቦታ የት እንደሚገኝ እና እሱን ለመፍታት ምን ቁልፍ መጠቀም እንዳለበት መረዳት ተችሏል። የ S7 ፕሮቶኮል ደንበኛን በመጠቀም በጣቢያው ላይ የውሂብ እገዳዎች ሊገኙ ይችላሉ. ለዚህም ማሳያ ደንበኛውን ከSnap7 ጥቅል ተጠቀምኩ።
ከትራፊክ ማጠራቀሚያ ውስጥ የሲግናል ማቀነባበሪያ ማገጃዎችን ማውጣት
የቆሻሻ መጣያውን ይዘት ስንመለከት፣ OB1፣ FC1፣ FC2 እና FC3 ብሎኮችን እንደያዘ መረዳት ትችላለህ፡-
እነዚህ እገዳዎች መወገድ አለባቸው. ይህንን ማድረግ ይቻላል፣ ለምሳሌ፣ በሚከተለው ስክሪፕት፣ ከዚህ ቀደም ትራፊክን ከpcapng ቅርጸት ወደ ፒካፕ በመቀየር፡-
#!/usr/bin/env python2
import struct
from scapy.all import *
packets = rdpcap('block_upload_traffic.pcap')
s7_hdr_struct = '>BBHHHHBB'
s7_hdr_sz = struct.calcsize(s7_hdr_struct)
tpkt_cotp_sz = 7
names = iter(['OB1.bin', 'FC1.bin', 'FC2.bin', 'FC3.bin'])
buf = ''
for packet in packets:
if packet.getlayer(IP).src == '10.0.102.11':
tpkt_cotp_s7 = str(packet.getlayer(TCP).payload)
if len(tpkt_cotp_s7) < tpkt_cotp_sz + s7_hdr_sz:
continue
s7 = tpkt_cotp_s7[tpkt_cotp_sz:]
s7_hdr = s7[:s7_hdr_sz]
param_sz = struct.unpack(s7_hdr_struct, s7_hdr)[4]
s7_param = s7[12:12+param_sz]
s7_data = s7[12+param_sz:]
if s7_param in ('x1ex00', 'x1ex01'): # upload
buf += s7_data[4:]
elif s7_param == 'x1f':
with open(next(names), 'wb') as f:
f.write(buf)
buf = ''የተገኙትን ብሎኮች ከመረመሩ በኋላ ሁልጊዜ በባይት 70 70 (pp) እንደሚጀምሩ ያስተውላሉ። አሁን እነሱን እንዴት እንደሚተነትኑ መማር ያስፈልግዎታል. የምደባ ፍንጭ ለዚህ PlcSim መጠቀም እንዳለቦት ይጠቁማል።
ሰው ሊነበብ የሚችል መመሪያዎችን ከብሎኮች ማግኘት
በመጀመሪያ ፣ ሲማቲክ ማኔጀር ሶፍትዌርን በመጠቀም ብዙ ብሎኮችን በመድገም መመሪያዎችን (= Q 7) በመጫን እና በEmulator የተገኘውን PLC ወደ example.plc ፋይል በማስቀመጥ S0.0-PlcSim ፕሮግራም ለማድረግ እንሞክር። የፋይሉን ይዘት በመመልከት ቀደም ብለን ያገኘነውን በፊርማ 70 70 የወረዱትን ብሎኮች መጀመሪያ በቀላሉ ማወቅ ይችላሉ። ከብሎኮች በፊት፣ በግልጽ፣ የማገጃው መጠን እንደ ባለ 4-ባይት ትንሽ-ኤንዲያን እሴት ነው የተጻፈው።
ስለ plc ፋይሎች አወቃቀር መረጃ ከተቀበልን በኋላ የ PLC S7 ፕሮግራሞችን ለማንበብ የሚከተለው የድርጊት መርሃ ግብር ታየ።
- ሲማቲክ ማኔጀርን በመጠቀም በS7-PlcSim ውስጥ ከቆሻሻ መጣያ ከተቀበልነው ጋር ተመሳሳይ የሆነ የማገጃ መዋቅር እንፈጥራለን። የማገጃው መጠኖች መዛመድ አለባቸው (ይህ የሚፈለገውን የመመሪያዎች ብዛት በመሙላት ነው) እና መለያዎቻቸው (OB1, FC1, FC2, FC3).
- PLC ን ወደ ፋይል ያስቀምጡ።
- በተፈጠረው ፋይል ውስጥ ያሉትን የብሎኮች ይዘቶች ከትራፊክ ማጠራቀሚያ ውስጥ ባሉ እገዳዎች እንተካለን። የብሎኮች መጀመሪያ በፊርማው ይወሰናል.
- የተገኘውን ፋይል ወደ S7-PlcSim እንጭነዋለን እና የብሎኮችን ይዘቶች በ Simatic Manager ውስጥ እንመለከታለን።
እገዳዎች ለምሳሌ በሚከተለው ኮድ ሊተኩ ይችላሉ፡
with open('original.plc', 'rb') as f:
plc = f.read()
blocks = []
for fname in ['OB1.bin', 'FC1.bin', 'FC2.bin', 'FC3.bin']:
with open(fname, 'rb') as f:
blocks.append(f.read())
i = plc.find(b'pp')
for block in blocks:
plc = plc[:i] + block + plc[i+len(block):]
i = plc.find(b'pp', i + 1)
with open('target.plc', 'wb') as f:
f.write(plc)አሌክሲ ምናልባት የበለጠ ከባድ፣ ግን አሁንም ትክክለኛ መንገድ ወሰደ። ተሳታፊዎች የNetToPlcSim ፕሮግራምን በመጠቀም PlcSim በኔትወርኩ እንዲግባቡ፣ብሎኮችን በSnap7 በኩል ወደ PlcSim እንዲሰቅሉ እና ከዚያም እነዚህን ብሎኮች ከ PlcSim እንደ ፕሮጀክት የእድገት አካባቢን ያውርዱ ብለን ገምተናል።
የተገኘውን ፋይል በS7-PlcSim ውስጥ በመክፈት ሲማቲክ አስተዳዳሪን በመጠቀም የተገለበጡ ብሎኮችን ማንበብ ይችላሉ። ዋናው የመሳሪያ መቆጣጠሪያ ተግባራት በብሎክ FC1 ውስጥ ተመዝግበዋል. ልዩ ማስታወሻ የ#TEMP0 ተለዋዋጭ ሲሆን ሲበራ የ PLC መቆጣጠሪያውን በM2.2 እና M2.3 ቢት ማህደረ ትውስታ ዋጋዎች ላይ በመመስረት ወደ ማንዋል ሁነታ ያቀናጃል. የ#TEMP0 እሴት በFC3 ተግባር ተቀናብሯል።
ችግሩን ለመፍታት የ FC3 ተግባርን መተንተን እና ምን መደረግ እንዳለበት መረዳት አለብዎት, ይህም ወደ ሎጂካዊነት ይመልሰዋል.
በውድድር ቦታው በሎው ሴኪዩሪቲ ማቆሚያ ላይ የ PLC ሲግናል ማቀናበሪያ ብሎኮች በተመሳሳይ መልኩ ተዘጋጅተዋል ነገርግን የ#TEMP0 ተለዋዋጭ ዋጋን ለማዘጋጀት የኔን ኒንጃ መስመር ወደ DB1 ብሎክ መፃፍ በቂ ነበር። በብሎክ ውስጥ ያለውን ዋጋ መፈተሽ ቀጥተኛ ነበር እና ስለ ብሎክ ፕሮግራሚንግ ቋንቋ ጥልቅ እውቀት አያስፈልገውም። በግልጽ ለማየት እንደሚቻለው በከፍተኛ ሴኩሪቲ ደረጃ በእጅ ቁጥጥርን ማግኘት በጣም አስቸጋሪ ይሆናል እና የ STL ቋንቋን ውስብስብነት መረዳት ያስፈልጋል (የ S7 PLC ፕሮግራምን ለማዘጋጀት አንዱ መንገድ)።
የተገላቢጦሽ እገዳ FC3
በSTL ውክልና ውስጥ የFC3 እገዳ ይዘቶች፡-
L B#16#0
T #TEMP13
T #TEMP15
L P#DBX 0.0
T #TEMP4
CLR
= #TEMP14
M015: L #TEMP4
LAR1
OPN DB 100
L DBLG
TAR1
<=D
JC M016
L DW#16#0
T #TEMP0
L #TEMP6
L W#16#0
<>I
JC M00d
L P#DBX 0.0
LAR1
M00d: L B [AR1,P#0.0]
T #TEMP5
L W#16#1
==I
JC M007
L #TEMP5
L W#16#2
==I
JC M008
L #TEMP5
L W#16#3
==I
JC M00f
L #TEMP5
L W#16#4
==I
JC M00e
L #TEMP5
L W#16#5
==I
JC M011
L #TEMP5
L W#16#6
==I
JC M012
JU M010
M007: +AR1 P#1.0
L P#DBX 0.0
LAR2
L B [AR1,P#0.0]
L C#8
*I
+AR2
+AR1 P#1.0
L B [AR1,P#0.0]
JL M003
JU M001
JU M002
JU M004
M003: JU M005
M001: OPN DB 101
L B [AR2,P#0.0]
T #TEMP0
JU M006
M002: OPN DB 101
L B [AR2,P#0.0]
T #TEMP1
JU M006
M004: OPN DB 101
L B [AR2,P#0.0]
T #TEMP2
JU M006
M00f: +AR1 P#1.0
L B [AR1,P#0.0]
L C#8
*I
T #TEMP11
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9
TAR1 #TEMP4
OPN DB 101
L P#DBX 0.0
LAR1
L #TEMP11
+AR1
LAR2 #TEMP9
L B [AR2,P#0.0]
T B [AR1,P#0.0]
L #TEMP4
LAR1
JU M006
M008: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP3
+AR1 P#1.0
L B [AR1,P#0.0]
JL M009
JU M00b
JU M00a
JU M00c
M009: JU M005
M00b: L #TEMP3
T #TEMP0
JU M006
M00a: L #TEMP3
T #TEMP1
JU M006
M00c: L #TEMP3
T #TEMP2
JU M006
M00e: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10
TAR1 #TEMP4
LAR1 #TEMP9
LAR2 #TEMP10
L B [AR1,P#0.0]
L B [AR2,P#0.0]
AW
INVI
T #TEMP12
L B [AR1,P#0.0]
L B [AR2,P#0.0]
OW
L #TEMP12
AW
T B [AR1,P#0.0]
L DW#16#0
T #TEMP0
L MB 101
T #TEMP1
L MB 102
T #TEMP2
L #TEMP4
LAR1
JU M006
M011: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10
TAR1 #TEMP4
LAR1 #TEMP9
LAR2 #TEMP10
L B [AR1,P#0.0]
L B [AR2,P#0.0]
-I
T B [AR1,P#0.0]
L DW#16#0
T #TEMP0
L MB 101
T #TEMP1
L MB 102
T #TEMP2
L #TEMP4
LAR1
JU M006
M012: L #TEMP15
INC 1
T #TEMP15
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10
TAR1 #TEMP4
LAR1 #TEMP9
LAR2 #TEMP10
L B [AR1,P#0.0]
L B [AR2,P#0.0]
==I
JCN M013
JU M014
M013: L P#DBX 0.0
LAR1
T #TEMP4
L B#16#0
T #TEMP6
JU M006
M014: L #TEMP4
LAR1
L #TEMP13
L L#1
+I
T #TEMP13
JU M006
M006: L #TEMP0
T MB 100
L #TEMP1
T MB 101
L #TEMP2
T MB 102
+AR1 P#1.0
L #TEMP6
+ 1
T #TEMP6
JU M005
M010: L P#DBX 0.0
LAR1
L 0
T #TEMP6
TAR1 #TEMP4
M005: TAR1 #TEMP4
CLR
= #TEMP16
L #TEMP13
L L#20
==I
S #TEMP16
L #TEMP15
==I
A #TEMP16
JC M017
L #TEMP13
L L#20
<I
S #TEMP16
L #TEMP15
==I
A #TEMP16
JC M018
JU M019
M017: SET
= #TEMP14
JU M016
M018: CLR
= #TEMP14
JU M016
M019: CLR
O #TEMP14
= #RET_VAL
JU M015
M016: CLR
O #TEMP14
= #RET_VALኮዱ በጣም ረጅም ነው እና ለ STL ለማያውቅ ሰው ውስብስብ ሊመስል ይችላል። በዚህ ጽሑፍ ማዕቀፍ ውስጥ እያንዳንዱን መመሪያ መተንተን ምንም ፋይዳ የለውም ፣ ዝርዝር መመሪያዎች እና የ STL ቋንቋ ችሎታዎች በሚዛመደው መመሪያ ውስጥ ይገኛሉ ። . እዚህ ከሂደቱ በኋላ ተመሳሳይ ኮድ አቀርባለሁ - መለያዎችን እና ተለዋዋጮችን እንደገና በመሰየም እና የኦፕሬሽኑን ስልተ ቀመር እና አንዳንድ የ STL ቋንቋ ግንባታዎችን የሚገልጹ አስተያየቶችን ማከል። በጥያቄ ውስጥ ያለው እገዳ በ DB100 ብሎክ ውስጥ የሚገኘውን አንዳንድ ባይትኮድ የሚያስፈጽም ቨርቹዋል ማሽን እንደያዘ ወዲያውኑ ልብ ይበሉ ፣ ይዘቱን የምናውቀው። የቨርቹዋል ማሽን መመሪያዎች 1 ባይት የክወና ኮድ እና የክርክር ባይት፣ ለእያንዳንዱ ነጋሪ እሴት አንድ ባይት ያካትታል። ሁሉም የታሰቡ መመሪያዎች ሁለት ነጋሪ እሴቶች አሏቸው ፣ እሴቶቻቸውን በአስተያየቶቹ ውስጥ X እና Y ብለው ሰይሜአለሁ።
ከሂደቱ በኋላ ኮድ]
# Инициализация различных переменных
L B#16#0
T #CHECK_N # Счетчик успешно пройденных проверок
T #COUNTER_N # Счетчик общего количества проверок
L P#DBX 0.0
T #POINTER # Указатель на текущую инструкцию
CLR
= #PRE_RET_VAL
# Основной цикл работы интерпретатора байт-кода
LOOP: L #POINTER
LAR1
OPN DB 100
L DBLG
TAR1
<=D # Проверка выхода указателя за пределы программы
JC FINISH
L DW#16#0
T #REG0
L #TEMP6
L W#16#0
<>I
JC M00d
L P#DBX 0.0
LAR1
# Конструкция switch - case для обработки различных опкодов
M00d: L B [AR1,P#0.0]
T #OPCODE
L W#16#1
==I
JC OPCODE_1
L #OPCODE
L W#16#2
==I
JC OPCODE_2
L #OPCODE
L W#16#3
==I
JC OPCODE_3
L #OPCODE
L W#16#4
==I
JC OPCODE_4
L #OPCODE
L W#16#5
==I
JC OPCODE_5
L #OPCODE
L W#16#6
==I
JC OPCODE_6
JU OPCODE_OTHER
# Обработчик опкода 01: загрузка значения из DB101[X] в регистр Y
# OP01(X, Y): REG[Y] = DB101[X]
OPCODE_1: +AR1 P#1.0
L P#DBX 0.0
LAR2
L B [AR1,P#0.0] # Загрузка аргумента X (индекс в DB101)
L C#8
*I
+AR2
+AR1 P#1.0
L B [AR1,P#0.0] # Загрузка аргумента Y (индекс регистра)
JL M003 # Аналог switch - case на основе значения Y
JU M001 # для выбора необходимого регистра для записи.
JU M002 # Подобные конструкции используются и в других
JU M004 # операциях ниже для аналогичных целей
M003: JU LOOPEND
M001: OPN DB 101
L B [AR2,P#0.0]
T #REG0 # Запись значения DB101[X] в REG[0]
JU PRE_LOOPEND
M002: OPN DB 101
L B [AR2,P#0.0]
T #REG1 # Запись значения DB101[X] в REG[1]
JU PRE_LOOPEND
M004: OPN DB 101
L B [AR2,P#0.0]
T #REG2 # Запись значения DB101[X] в REG[2]
JU PRE_LOOPEND
# Обработчик опкода 02: загрузка значения X в регистр Y
# OP02(X, Y): REG[Y] = X
OPCODE_2: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP3
+AR1 P#1.0
L B [AR1,P#0.0]
JL M009
JU M00b
JU M00a
JU M00c
M009: JU LOOPEND
M00b: L #TEMP3
T #REG0
JU PRE_LOOPEND
M00a: L #TEMP3
T #REG1
JU PRE_LOOPEND
M00c: L #TEMP3
T #REG2
JU PRE_LOOPEND
# Опкод 03 не используется в программе, поэтому пропустим его
...
# Обработчик опкода 04: сравнение регистров X и Y
# OP04(X, Y): REG[0] = 0; REG[X] = (REG[X] == REG[Y])
OPCODE_4: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7 # первый аргумент - X
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9 # REG[X]
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10 # REG[Y]
TAR1 #POINTER
LAR1 #TEMP9 # REG[X]
LAR2 #TEMP10 # REG[Y]
L B [AR1,P#0.0]
L B [AR2,P#0.0]
AW
INVI
T #TEMP12 # ~(REG[Y] & REG[X])
L B [AR1,P#0.0]
L B [AR2,P#0.0]
OW
L #TEMP12
AW # (~(REG[Y] & REG[X])) & (REG[Y] | REG[X]) - аналог проверки на равенство
T B [AR1,P#0.0]
L DW#16#0
T #REG0
L MB 101
T #REG1
L MB 102
T #REG2
L #POINTER
LAR1
JU PRE_LOOPEND
# Обработчик опкода 05: вычитание регистра Y из X
# OP05(X, Y): REG[0] = 0; REG[X] = REG[X] - REG[Y]
OPCODE_5: +AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9 # REG[X]
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10 # REG[Y]
TAR1 #POINTER
LAR1 #TEMP9
LAR2 #TEMP10
L B [AR1,P#0.0]
L B [AR2,P#0.0]
-I # ACCU1 = ACCU2 - ACCU1, REG[X] - REG[Y]
T B [AR1,P#0.0]
L DW#16#0
T #REG0
L MB 101
T #REG1
L MB 102
T #REG2
L #POINTER
LAR1
JU PRE_LOOPEND
# Обработчик опкода 06: инкремент #CHECK_N при равенстве регистров X и Y
# OP06(X, Y): #CHECK_N += (1 if REG[X] == REG[Y] else 0)
OPCODE_6: L #COUNTER_N
INC 1
T #COUNTER_N
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP7 # REG[X]
L P#M 100.0
LAR2
L #TEMP7
L C#8
*I
+AR2
TAR2 #TEMP9 # REG[X]
+AR1 P#1.0
L B [AR1,P#0.0]
T #TEMP8
L P#M 100.0
LAR2
L #TEMP8
L C#8
*I
+AR2
TAR2 #TEMP10 # REG[Y]
TAR1 #POINTER
LAR1 #TEMP9 # REG[Y]
LAR2 #TEMP10 # REG[X]
L B [AR1,P#0.0]
L B [AR2,P#0.0]
==I
JCN M013
JU M014
M013: L P#DBX 0.0
LAR1
T #POINTER
L B#16#0
T #TEMP6
JU PRE_LOOPEND
M014: L #POINTER
LAR1
# Инкремент значения #CHECK_N
L #CHECK_N
L L#1
+I
T #CHECK_N
JU PRE_LOOPEND
PRE_LOOPEND: L #REG0
T MB 100
L #REG1
T MB 101
L #REG2
T MB 102
+AR1 P#1.0
L #TEMP6
+ 1
T #TEMP6
JU LOOPEND
OPCODE_OTHER: L P#DBX 0.0
LAR1
L 0
T #TEMP6
TAR1 #POINTER
LOOPEND: TAR1 #POINTER
CLR
= #TEMP16
L #CHECK_N
L L#20
==I
S #TEMP16
L #COUNTER_N
==I
A #TEMP16
# Все проверки пройдены, если #CHECK_N == #COUNTER_N == 20
JC GOOD
L #CHECK_N
L L#20
<I
S #TEMP16
L #COUNTER_N
==I
A #TEMP16
JC FAIL
JU M019
GOOD: SET
= #PRE_RET_VAL
JU FINISH
FAIL: CLR
= #PRE_RET_VAL
JU FINISH
M019: CLR
O #PRE_RET_VAL
= #RET_VAL
JU LOOP
FINISH: CLR
O #PRE_RET_VAL
= #RET_VALየቨርቹዋል ማሽን መመሪያዎችን ካወቅን፣ በዲቢ100 ብሎክ ውስጥ ያለውን ባይትኮድ ለመተንተን ትንሽ ፈታሽ እንፃፍ፡-
import string
alph = string.ascii_letters + string.digits
with open('DB100.bin', 'rb') as f:
m = f.read()
pc = 0
while pc < len(m):
op = m[pc]
if op == 1:
print('R{} = DB101[{}]'.format(m[pc + 2], m[pc + 1]))
pc += 3
elif op == 2:
c = chr(m[pc + 1])
c = c if c in alph else '?'
print('R{} = {:02x} ({})'.format(m[pc + 2], m[pc + 1], c))
pc += 3
elif op == 4:
print('R0 = 0; R{} = (R{} == R{})'.format(
m[pc + 1], m[pc + 1], m[pc + 2]))
pc += 3
elif op == 5:
print('R0 = 0; R{} = R{} - R{}'.format(
m[pc + 1], m[pc + 1], m[pc + 2]))
pc += 3
elif op == 6:
print('CHECK (R{} == R{})n'.format(
m[pc + 1], m[pc + 2]))
pc += 3
else:
print('unk opcode {}'.format(op))
breakበውጤቱም, የሚከተለውን ምናባዊ ማሽን ኮድ እናገኛለን:
ምናባዊ ማሽን ኮድ
R1 = DB101[0]
R2 = 6e (n)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[1]
R2 = 10 (?)
R0 = 0; R1 = R1 - R2
R2 = 20 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[2]
R2 = 77 (w)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[3]
R2 = 0a (?)
R0 = 0; R1 = R1 - R2
R2 = 16 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[4]
R2 = 75 (u)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[5]
R2 = 0a (?)
R0 = 0; R1 = R1 - R2
R2 = 16 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[6]
R2 = 34 (4)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[7]
R2 = 26 (?)
R0 = 0; R1 = R1 - R2
R2 = 4c (L)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[8]
R2 = 33 (3)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[9]
R2 = 0a (?)
R0 = 0; R1 = R1 - R2
R2 = 16 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[10]
R2 = 37 (7)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[11]
R2 = 22 (?)
R0 = 0; R1 = R1 - R2
R2 = 46 (F)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[12]
R2 = 33 (3)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[13]
R2 = 0a (?)
R0 = 0; R1 = R1 - R2
R2 = 16 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[14]
R2 = 6d (m)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[15]
R2 = 11 (?)
R0 = 0; R1 = R1 - R2
R2 = 23 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[16]
R2 = 35 (5)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[17]
R2 = 12 (?)
R0 = 0; R1 = R1 - R2
R2 = 25 (?)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)
R1 = DB101[18]
R2 = 33 (3)
R0 = 0; R1 = (R1 == R2)
CHECK (R1 == R0)
R1 = DB101[19]
R2 = 26 (?)
R0 = 0; R1 = R1 - R2
R2 = 4c (L)
R0 = 0; R1 = R1 - R2
CHECK (R1 == R0)እንደሚመለከቱት ይህ ፕሮግራም እያንዳንዱን ቁምፊ ከ DB101 ለተወሰነ እሴት እኩልነት በቀላሉ ይፈትሻል። ሁሉንም ቼኮች ለማለፍ የመጨረሻው መስመር: n0w u 4r3 7h3 m4573r. ይህ መስመር በብሎክ DB101 ውስጥ ከተቀመጠ፣ በእጅ PLC መቆጣጠሪያ ነቅቷል እና ፊኛውን መበተን ወይም ማጥፋት ይቻላል።
ይኼው ነው! አሌክሲ ለኢንዱስትሪ ኒንጃ ብቁ የሆነ ከፍተኛ ዕውቀት አሳይቷል :) ለአሸናፊው የማይረሱ ሽልማቶችን ልከናል። ለሁሉም ተሳታፊዎች ከልብ እናመሰግናለን!
ምንጭ: hab.com