sub swap {
    my ($filechar, $msgbit) = @_;
    $filechar=unpack("B8",$filechar);
    $filechar=~pack("B8",$filechar)=~(substr($filechar,-1,1)=$msgbit);
    return $filechar;
}