د صنعتي ننجا په پښو کې: څنګه PLC په مثبت هیک ورځو کې هیک شوی 9

په وروستي PHDays 9 کې موږ د ګاز پمپ کولو فابریکه هیک کولو لپاره سیالي ترسره کړه - سیالۍ صنعتي ننجا. په سایټ کې درې سټینډونه د مختلف امنیتي پیرامیټونو سره شتون درلود (نه امنیت ، ټیټ امنیت ، لوړ امنیت) ، د ورته صنعتي پروسې تقلید: د فشار لاندې هوا په بالون کې پمپ شوې (او بیا خوشې شوې).

د مختلف خوندیتوب پیرامیټونو سره سره، د سټینډونو هارډویر جوړښت یو شان و: د سیمنز سیمیټیک PLC S7-300 لړۍ؛ د بیړني انفلاسیون تڼۍ او د فشار اندازه کولو وسیله (د PLC ډیجیټل انپټونو سره وصل شوی)؛ والوز چې د هوا د انفلاسیون او انفلاسیون لپاره کار کوي (د PLC (DO) ډیجیټل محصول سره وصل شوي) - لاندې شکل وګورئ.

PLC، د فشار لوستلو پورې اړه لري او د دې پروګرام سره سم، پریکړه وکړه چې بال کم کړي یا انفلاسیون کړي (د اړوند والوز پرانیستل او تړل شوي). په هرصورت، ټول سټینډونه د لاسي کنټرول حالت درلود، کوم چې پرته له کوم محدودیت څخه د والوز حالت کنټرول کول ممکن کړي.

موقف د دې حالت د فعالولو په پیچلتیا کې توپیر درلود: په غیر خوندي موقف کې دا کار کول خورا اسانه وو، او په لوړ امنیت موقف کې دا په ورته ډول خورا ستونزمن و.

له شپږو ستونزو څخه پنځه یې په دوو ورځو کې حل شوې. د لومړي ځای ګډون کونکي 233 نمرې ترلاسه کړې (هغه یوه اونۍ د سیالۍ لپاره چمتو کړې وه). درې ګټونکي: زه ځای لرم - a1exdandy، II - Rubikoid، III - Ze.

په هرصورت، د PHDays په جریان کې، هیڅ یو ګډون کونکي ونه توانیدل چې په ټولو دریو موقفونو باندې بریالي شي، نو موږ پریکړه وکړه چې آنلاین سیالي وکړو او د جون په پیل کې ترټولو ستونزمن کار خپور کړو. ګډونوال باید د یوې میاشتې په اوږدو کې دنده بشپړه کړي، بیرغ ومومي، او حل یې په تفصیل او په زړه پورې ډول بیان کړي.

د کټ لاندې موږ د یوې میاشتې په اوږدو کې لیږل شوي د دندې لپاره د غوره حل تحلیل خپروو، دا د ډیجیټل امنیت شرکت الیکسي کووریژنیخ (a1exdandy) لخوا وموندل شو، چې د PHDays په جریان کې یې په سیالۍ کې لومړی ځای خپل کړ. لاندې موږ د هغې متن د خپلو نظرونو سره وړاندې کوو.

ابتدايي تحلیل

نو، دا دنده د لاندې فایلونو سره آرشیف لري:

• block_upload_traffic.pcapng
• DB100.bin
• hints.txt

د hints.txt فایل د کار د حل لپاره اړین معلومات او اشارې لري. دلته یې منځپانګې دي:

1. پیټروویچ پرون ما ته وویل چې تاسو کولی شئ بلاکونه له PlcSim څخه په مرحله 7 کې پورته کړئ.
2. د سیمنز سیمیټیک S7-300 لړۍ PLC په سټینډ کې کارول کیده.
3. PlcSim یو PLC ایمولیټر دی چې تاسو ته اجازه درکوي د سیمنز S7 PLCs لپاره برنامې پرمخ او ډیبګ کړئ.

د DB100.bin فایل داسې ښکاري چې د DB100 PLC ډیټا بلاک لري: 00000000: 0100 0102 6e02 0401 0206 0100 0101 0102 .....n........ 00000010 1002 ..... ......... 0501: 0202 2002 0501 0206 0100 0102 00000020 0102a7702 ..w............. 0401: 0206 0100 0103 0102 0 ................... 02 00000030............0501. 0202: 1602 0501 0206 0100 0104 0102 00000040 7502 0401 0206 0100 0105 0102 0 02 0501 00000050 0202 1602 0501 : 0206 0100 0106 0102 3402a4 00000060 0401 0206 ................ 0100: 0107 0102 2602 0501a 0202 00000070 4 02 .......... 0501a0206: 0100 0108b 0102 3302 0401 3 00000080 0206 ......".....F... 0100b0109: 0102 0 02c 0501 0202 1602 00000090 .......... .. 0501c0206: 0100d 010 0102a3702 0401 0206 7 000000 0 ................ 0100d010: 0102 2202e 0501 0202d4602 0501 000000 0 0206 0100 010 0102 .... 3302e0401: 0206 0100 3 000000 0 010 0102 0 ........#...... 02f0501: 0202 1602 0501 0206 000000 0..... ..... 0100: 010 0102 6 02 0401 0206 0100 010 ......٪......... 000000: 0 0102 1102 0501 0202 2302..... .....& 0501: 0206 0100 000000c0 0110 0102 3502 ....L......

لکه څنګه چې نوم وړاندیز کوي، block_upload_traffic.pcapng فایل PLC ته د بلاک اپلوډ ټرافیک ډمپ لري.

د یادولو وړ ده چې د کنفرانس په جریان کې د سیالۍ په ساحه کې د دې ترافیک ډمپ ترلاسه کول یو څه ډیر ستونزمن و. د دې کولو لپاره، دا اړینه وه چې د TeslaSCADA2 لپاره د پروژې فایل څخه سکریپټ پوه شي. له دې څخه دا ممکنه وه چې پوه شو چې د RC4 په کارولو سره کوډ شوی ډمپ چیرته موقعیت لري او د دې د کوډ کولو لپاره کوم کیلي ته اړتیا وه. په سایټ کې د ډیټا بلاکونو ډمپونه د S7 پروتوکول پیرودونکي په کارولو سره ترلاسه کیدی شي. د دې لپاره ما د Snap7 کڅوړې څخه د ډیمو پیرودونکي کارولي.

د ترافیک ډمپ څخه د سیګنال پروسس کولو بلاکونو استخراج

د ډمپ مینځپانګې ته په کتلو سره ، تاسو کولی شئ پوه شئ چې دا د سیګنال پروسس کولو بلاکونه OB1 ، FC1 ، FC2 او FC3 لري:

دا بلاکونه باید لیرې شي. دا ترسره کیدی شي، د بیلګې په توګه، د لاندې سکریپټ سره، مخکې له دې چې ټرافیک د pcapng بڼه څخه pcap ته بدل کړي:

#!/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 کارولو ته اړتیا لرئ.

د بلاکونو څخه د انسان د لوستلو وړ لارښوونې ترلاسه کول

لومړی، راځئ چې د S7-PlcSim پروګرام کولو هڅه وکړو څو څو بلاکونه په تکراري لارښوونو (= Q 0.0) کې د سیمیټیک مدیر سافټویر په کارولو سره پورته کړو، او په ایمولیټر کې ترلاسه شوي PLC د example.plc فایل کې خوندي کړئ. د فایل مینځپانګې په کتلو سره ، تاسو کولی شئ په اسانۍ سره د لاسلیک شوي 70 70 لخوا د ډاونلوډ شوي بلاکونو پیل وټاکئ ، کوم چې موږ دمخه کشف کړی. د بلاکس څخه دمخه، په ښکاره ډول، د بلاک اندازه د 4-byte لږ-endian ارزښت په توګه لیکل کیږي.

وروسته له دې چې موږ د plc فایلونو جوړښت په اړه معلومات ترلاسه کړل، د PLC S7 پروګرامونو لوستلو لپاره لاندې عمل پلان ښکاره شو:

1. د سیمال مدیر په کارولو سره، موږ په S7-PlcSim کې د بلاک جوړښت رامینځته کوو ورته ورته ورته چې موږ د ډمپ څخه ترلاسه کړی. د بلاک اندازې باید سره سمون ولري (دا د اړین شمیر لارښوونو سره د بلاکونو ډکولو سره ترلاسه کیږي) او د دوی پیژندونکي (OB1, FC1, FC2, FC3).
2. PLC په فایل کې خوندي کړئ.
3. موږ د بلاکونو مینځپانګې په پایله کې فایل کې د ترافیک ډمپ څخه بلاکونو سره بدلوو. د بلاکونو پیل د لاسلیک لخوا ټاکل کیږي.
4. موږ پایله شوې فایل په S7-PlcSim کې پورته کوو او په سمیټیک مدیر کې د بلاکونو مینځپانګې ګورو.

بلاکونه بدل کیدی شي، د بیلګې په توګه، د لاندې کوډ سره:

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 ژبې مفصل لارښوونې او وړتیاوې په اړوند لارښود کې موندل کیدی شي: د S7-300 او S7-400 پروګرامونو لپاره د بیان لیست (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

د مجازی ماشین لارښوونو په اړه نظر ترلاسه کولو سره ، راځئ چې د DB100 بلاک کې د بایټ کوډ پارس کولو لپاره یو کوچنی جلا جلا کوونکی ولیکو:

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 کنټرول فعال کیږي او دا به ممکن وي چې د بالون چاودنه یا خرابه کړي.


بس نور څه نه! الیکسي د صنعتي ننجا لپاره د لوړې کچې پوهه ښودلې :) موږ ګټونکي ته د یادونې وړ جایزې واستولې. د ټولو ګډونوالو څخه ډیره مننه!

سرچینه: www.habr.com