Main step of GOST 28147-89: Difference between revisions
m
→{{header|Perl}}: process @input more clearly
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: process @input more clearly) |
||
Line 603:
my @key = (0xF9, 0x04, 0xC1, 0xE2);
my $
my $
my $K = fromdigits(
($L,$R) = feistel_step(\&GOST_round, $L, $R, $K);
| |||