package CryptX; use strict; use warnings ; our $VERSION = '0.084'; require XSLoader; XSLoader::load('CryptX', $VERSION); use Carp; my $has_json; BEGIN { $has_json = 1 if eval { require JSON; 1 }; } sub _croak { die @_ if ref $_[0] || !$_[-1]; if ($_[-1] =~ /^(.*)( at .+ line .+\n$)/s) { pop @_; push @_, $1; } die Carp::shortmess @_; } sub _decode_json { croak "FATAL: cannot find JSON module" if !$has_json; return JSON->new->utf8->decode(shift); } sub _encode_json { croak "FATAL: cannot find JSON module" if !$has_json; return JSON->new->utf8->canonical->encode(shift); } 1; =pod =head1 NAME CryptX - Cryptographic toolkit =head1 DESCRIPTION Perl modules providing a cryptography based on L library. =over =item * Symmetric ciphers - see L and related modules L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L =item * Block cipher modes L, L, L, L, L =item * Stream ciphers L, L, L, L, L, L =item * Authenticated encryption modes L, L, L, L, L =item * Hash Functions - see L and related modules L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L =item * Checksums L, L =item * Message Authentication Codes L, L, L, L, L, L, L, L, L =item * Public key cryptography L, L, L, L, L, L =item * Cryptographically secure random number generators - see L and related modules L, L, L, L, L =item * Key derivation functions - PBKDF1, PBKDF2 and HKDF L =item * Other handy functions related to cryptography L =back =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 COPYRIGHT Copyright (c) 2013-2024 DCIT, a.s. L / Karel Miko =cut