Main step of GOST 28147-89: Difference between revisions

Content deleted Content added
Petelomax (talk | contribs)
m missing r32() call
Petelomax (talk | contribs)
m other-endian
Line 695: Line 695:
end function
end function
printf(1,"%08x %08x\n",mainstep({#043B0421, #04320430}, #E2C104F9))</lang>
sequence res = mainstep({#043B0421, #04320430}, #E2C104F9)
printf(1,"%08x %08x\n",res)
--or, for other-endian:
sequence s = sprintf("%08x",res[1]),
t = sprintf("%08x",res[2])
s = reverse(split(join_by(s,1,2,""," "),no_empty:=true))
t = reverse(split(join_by(t,1,2,""," "),no_empty:=true))
?{s,t}</lang>
{{out}}
{{out}}
<pre>
<pre>
07CF881F 043B0421
07CF881F 043B0421
{{"1F","88","CF","07"},{"21","04","3B","04"}}
</pre>
</pre>