view release on metacpan or  search on metacpan

RC5.pm  view on Meta::CPAN

    while ( $text =~ /(.{8})/gs ) {
        $last = $';
        $processed .= Process( $1, $decrypt );
    }
    if ( length( $text ) % 8 ) {
        $processed .= Process( $last, $decrypt );
    }
    return $processed;
}

sub M ($) {
    return unpack( 'V', pack( 'V', pop ) );
}

sub ROTL ($$) {
    my ( $x, $n );
    ( $x = pop ) << ( $n = 31 & pop ) | 2**$n - 1 & $x >> 32 - $n;
}

sub ROTR ($$) {
    ROTL( 32 - ( 31 & shift ), shift );