Main step of GOST 28147-89: Difference between revisions
→{{header|RPL}}: improved code
(added RPL) |
(→{{header|RPL}}: improved code) |
||
Line 1,307:
» '<span style="color:blue">KBOXINIT</span>' STO
«
'''WHILE''' #0h ≠ '''REPEAT'''
'''END''' SWAP DROP
▲ » » '<span style="color:blue">F</span>' STO
«
« key REVLIST cast STREAM
input 1 4 SUB REVLIST cast STREAM + <span style="color:blue">
{ K21 K43 K65 K87 }
input 5 8 SUB REVLIST cast STREAM XOR▼
SWAP B→R 1
RLB RL RL RL <span style="color:blue">B→LIST</span>
» » '<span style="color:blue">MAINSTEP</span>' STO
Line 1,334 ⟶ 1,332:
1: { # 1Fh # 88h # CFh # 7h # 21h # 4h # 3Bh # 4h }
</pre>
=={{header|Rust}}==
<syntaxhighlight lang="rust">use std::convert::TryInto;
| |||