view release on metacpan or  search on metacpan

lib/Crypt/AppleTwoFish.pm  view on Meta::CPAN

        my $c = ( $a * 0xFFFF9129 + 0xA07E ) | 0xFF;
        my $d = ( $a * 0xFFAD8735 + 0x109ABD82 ) ^ $c;
        my $e = ( $a * 0xFFFF9129 + 0xA07E ) | ( $a * 0x5278CB + 0xEF65427D );
        my $f = $e | 0xFF;
        my $g = ( $b * 0xFFFFCB29 + 0x417E ) | 0xFF;
        my $h = ( $b * 0xFFFFCB29 + 0x417E ) | ( $b * 0x698AC6 + 0xD597C97D );
        my $j = $h | 0xFF;
        my $k = ( $b * 0xFF96753A + 0x2A683682 ) ^ $g;
        my $m =
          ( $b * 0xD2ABDE + $j * 0xFFFFFFFC + $k * 0xFFFFFFFE + 0xAB3015F3 ) |
          ( $a * 0xA413E8 + $d * 0xFFFFFFFE + $f * 0xFFFFFFFC + 0xDECBC5F3 );
        $digest_bytes[ $i + 1 ] = (
            (
                $a * 0x3FC1ACD4 +
                  $b * 0x5B76357 +
                  ( $d + $k + $m ) * 0x71070EE7 +
                  ( $f + $j ) * 0xE20E1DCE + 0xB7ABCB54
            )
        ) & 0xFF;
    }
    my $a     = ord substr $self->{hwID}, 4, 1;