7 my @l = map { ord } split //, $line;
8 push @l, 17, 31, 73, 47, 23;
12 # my @nodes = (0 .. 4);
13 my @nodes = (0 .. 255);
20 say "pos=$pos skip $skip i=$i ", join(',', @nodes);
22 push @to_rev, splice @nodes, $pos;
23 push @to_rev, splice @nodes, 0, $end - $n;
24 @to_rev = reverse @to_rev;
25 say "to_rev = ", join(',', @to_rev);
26 unshift @nodes, splice @to_rev, @to_rev-($end-$n);
29 push @to_rev, splice @nodes, $pos, $i;
30 splice @nodes, $pos, 0, reverse @to_rev;
33 $pos -= $n while $pos >= $n;
38 while (my @s = splice (@nodes, 0, 16)) {
41 $hash .= sprintf("%02x", $x);