HID Tablet  0ĿFile not found. ĿFile not found. ! 147!# SPDX-License-Identifier: GPL-2.0 # Makefile for kvm guest drivers on s390 # # Copyright IBM Corp. 2008 obj-$(CONFIG_S390_GUEST) += virtio_ccw.o 0#l=J4҂]P.\m덉LZ7 m_ub &=LV[(#package MIME::Base32; use 5.008001; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(encode_base32 decode_base32); our @EXPORT_OK = qw( encode_rfc3548 decode_rfc3548 encode_09AV decode_09AV encode_base32hex decode_base32hex ); our $VERSION = "1.303"; $VERSION = eval $VERSION; sub encode { return encode_base32(@_) } sub encode_rfc3548 { return encode_base32(@_) } sub encode_base32 { my $arg = shift; return '' unless defined($arg); # mimic MIME::Base64 $arg = unpack('B*', $arg); $arg =~ s/(.....)/000$1/g; my $l = length($arg); if ($l & 7) { my $e = substr($arg, $l & ~7); $arg = substr($arg, 0, $l & ~7); $arg .= "000$e" . '0' x (5 - length $e); } $arg = pack('B*', $arg); $arg =~ tr|\0-\37|A-Z2-7|; return $arg; } sub decode { return decode_base32(@_) } sub decode_rfc3548 { return decode_base32(@_) } sub decode_base32 { my $arg = uc(shift || ''); # mimic MIME::Base64 $arg =~ tr|A-Z2-7|\0-\37|; $arg = unpack('B*', $arg); $arg =~ s/000(.....)/$1/g; my $l = length $arg; $arg = substr($arg, 0, $l & ~7) if $l & 7; $arg = pack('B*', $arg); return $arg; } sub encode_09AV { return encode_base32hex(@_) } sub encode_base32hex { my $arg = shift; return '' unless defined($arg); # mimic MIME::Base64 $arg = unpack('B*', $arg); $arg =~ s/(.....)/000$1/g; my $l = length($arg); if ($l & 7) { my $e = substr($arg, $l & ~7); $arg = substr($arg, 0, $l & ~7); $arg .= "000$e" . '0' x (5 - length $e); } $arg = pack('B*', $arg); $arg =~ tr|\0-\37|0-9A-V|; return $arg; } sub decode_09AV { return decode_base32hex(@_) } sub decode_base32hex { my $arg = uc(shift || ''); # mimic MIME::Base64 $arg =~ tr|0-9A-V|\0-\37|; $arg = unpack('B*', $arg); $arg =~ s/000(.....)/$1/g; my $l = length($arg); $arg = substr($arg, 0, $l & ~7) if $l & 7; $arg = pack('B*', $arg); return $arg; } 1; =encoding utf8 =head1 NAME MIME::Base32 - Base32 encoder and decoder =head1 SYNOPSIS #!/usr/bin/env perl use strict; use warnings; use MIME::Base32; my $encoded = encode_base32('Aladdin: open sesame'); my $decoded = decode_base32($encoded); =head1 DESCRIPTION This module is for encoding/decoding data much the way that L does. Prior to version 1.0, L used the C (or C<[0-9A-V]>) encoding and decoding methods by default. If you need to maintain that behavior, please call C or C functions directly. Now, in accordance with L, L uses the C and C functions by default. =head1 FUNCTIONS The following primary functions are provided: =head2 decode Synonym for C =head2 decode_rfc3548 Synonym for C =head2 decode_base32 my $string = decode_base32($encoded_data); Decode some encoded data back into a string of text or binary data. =head2 decode_09AV Synonym for C =head2 decode_base32hex my $string_or_binary_data = MIME::Base32::decode_base32hex($encoded_data); Decode some encoded data back into a string of text or binary data. =head2 encode Synonym for C =head2 encode_rfc3548 Synonym for C =head2 encode_base32 my $encoded = encode_base32("some string"); Encode a string of text or binary data. =head2 encode_09AV Synonym for C =head2 encode_base32hex my $encoded = MIME::Base32::encode_base32hex("some string"); Encode a strin