Main step of GOST 28147-89: Difference between revisions
m
→{{header|Perl 6}}: back-whack not needed
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: process @input more clearly) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: back-whack not needed) |
||
Line 643:
my ($L,$R) = @input.reverse.map: { :256[$^a,$^b,$^c,$^d] }
my ($K ) = @key
($L,$R) = feistel-step(&ГОСТ-round, $L, $R, $K);
| |||