#!/usr/bin/perl

# Idiom #307 XOR encrypt/decrypt string

sub xor_crypt {
    my ($b, $k) = @_;
    return $b ^ $k;
}

my $b = 0b110010001101;
my $k = 0b011000101001;

printf "bitstring:  %012b\n", $b;
printf "key:        %012b\n", $k;
printf "xor result: %012b\n", xor_crypt($b, $k);