Main step of GOST 28147-89: Difference between revisions
Content deleted Content added
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); |