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