libcrypt-mcrypt-perl-0.92/0000755000175000017500000000000012136265316015063 5ustar dookiedookielibcrypt-mcrypt-perl-0.92/MANIFEST0000644000175000017500000000007107216320647016214 0ustar dookiedookieChanges MANIFEST MCrypt.pm MCrypt.xs Makefile.PL test.pl libcrypt-mcrypt-perl-0.92/Makefile.PL0000644000175000017500000000073507216320647017044 0ustar dookiedookieuse ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( 'NAME' => 'MCrypt', 'VERSION_FROM' => 'MCrypt.pm', # finds $VERSION 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 'LIBS' => ['-lmcrypt'], # e.g., '-lm' 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' 'INC' => '', # e.g., '-I/usr/include/other' 'OBJECT' => 'MCrypt.o mc-interface.o' ); libcrypt-mcrypt-perl-0.92/mc-interface.h0000644000175000017500000000015307216320650017564 0ustar dookiedookiechar *hex2bin(char *hex, int len) ; static char *bin2hex(const unsigned char *old, const size_t oldlen) ; libcrypt-mcrypt-perl-0.92/test.pl0000644000175000017500000000525607216321004016375 0ustar dookiedookie# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' BEGIN { $| = 1; print "1..14\n"; } END {print "not ok 1\n" unless $loaded;} use MCrypt; my $CBC, $CBC_iv, $OFB, $CFB, $ECB, $enc_hex, $dec_hex ; $CBC = "afb7bf8cb2c08bad" ; $CBC_iv = "7dc3540223f48c91" ; $OFB = "d211ff66f55d6bec" ; $CFB = "d265135d5a874fa1" ; $ECB = "afb7bf8cb2c08bad" ; my $key = "key" ; my $block = "block" ; my $IV = "12345678" ; $loaded = 1; print "ok 1\n"; # mcrypt_get_key_size print "not " unless (mcrypt_get_key_size(MCrypt::MCRYPT_3DES) == 24); print "ok 2\n" ; # mcrypt_get_block_size print "not " unless (mcrypt_get_block_size(MCRYPT_3DES) == 8) ; print "ok 3\n" ; # mcrypt_get_cipher_name print "not " unless (mcrypt_get_cipher_name(MCrypt::MCRYPT_3DES) =~ /^3des$/i) ; print "ok 4\n" ; # ################################################## # ENCRYPT mcrypt_get_cbc $enc_hex = mcrypt_cbc_hex(MCrypt::MCRYPT_3DES, $key, $block, MCrypt::MCRYPT_ENCRYPT) ; print "not " unless ($enc_hex eq $CBC ) ; print "ok 5\n" ; # DECRYPT mcrypt_get_cbc $dec_hex = mcrypt_cbc_hex(MCrypt::MCRYPT_3DES, $key, $enc_hex, MCrypt::MCRYPT_DECRYPT) ; print "not " unless ($dec_hex eq $block ) ; print "ok 6\n" ; # ENCRYPT mcrypt_get_cbc with optional IV $enc_hex = mcrypt_cbc_hex(MCrypt::MCRYPT_3DES, $key, $block, MCrypt::MCRYPT_ENCRYPT, $IV) ; print "not " unless ($enc_hex eq $CBC_iv ) ; print "ok 7\n" ; # DECRYPT mcrypt_cbc with optional IV $dec_hex = mcrypt_cbc_hex(MCrypt::MCRYPT_3DES, $key, $enc_hex, MCrypt::MCRYPT_DECRYPT, $IV) ; print "not " unless ($dec_hex eq $block ) ; print "ok 8\n" ; # ENCRYPT mcrypt_get_ecb $enc_hex = mcrypt_ecb_hex(MCrypt::MCRYPT_3DES, $key, $block, MCrypt::MCRYPT_ENCRYPT) ; print "not " unless ($enc_hex eq $ECB ) ; print "ok 9\n" ; # DECRYPT mcrypt_get_ecb $dec_hex = mcrypt_ecb_hex(MCrypt::MCRYPT_3DES, $key, $enc_hex, MCrypt::MCRYPT_DECRYPT) ; print "not " unless ($dec_hex eq $block ) ; print "ok 10\n" ; # ENCRYPT mcrypt_get_ofb $enc_hex = mcrypt_ofb_hex(MCrypt::MCRYPT_3DES, $key, $block, MCrypt::MCRYPT_ENCRYPT, $IV) ; print "not " unless ($enc_hex eq $OFB ) ; print "ok 11\n" ; # DECRYPT mcrypt_get_ofb $dec_hex = mcrypt_ofb_hex(MCrypt::MCRYPT_3DES, $key, $enc_hex, MCrypt::MCRYPT_DECRYPT, $IV) ; print "not " unless ($dec_hex eq $block ) ; print "ok 12\n" ; # ENCRYPT mcrypt_get_cfb $enc_hex = mcrypt_cfb_hex(MCrypt::MCRYPT_3DES, $key, $block, MCrypt::MCRYPT_ENCRYPT, $IV) ; print "not " unless ($enc_hex eq $CFB ) ; print "ok 13\n" ; # DECRYPT mcrypt_get_cfb $dec_hex = mcrypt_cfb_hex(MCrypt::MCRYPT_3DES, $key, $enc_hex, MCrypt::MCRYPT_DECRYPT, $IV) ; print "not " unless ($dec_hex eq $block ) ; print "ok 14\n" ; libcrypt-mcrypt-perl-0.92/Changes0000644000175000017500000000054707216320647016366 0ustar dookiedookieRevision history for Perl extension MCrypt. 0.92 Thu Dec 14 18:52:07 EST 2000 - fixed incorrect cases in test.pl 0.91 Fri Nov 21 21:47:53 EST 2000 - fix some compiler warnings. added mc-interface.h 0.90 Fri Nov 17 21:47:53 EST 2000 - first release. 0.01 Thu Nov 9 15:09:34 2000 - original version; created by h2xs 1.20 with options -cn MCrypt libcrypt-mcrypt-perl-0.92/README0000644000175000017500000000475207216320650015747 0ustar dookiedookie MCrypt 0.92 Copyright (c) 2000, Frey Kuo ------------------------------------------------------------------------ This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, a copy of which can be found with perl. THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DAMAGES RESULTING FROM THE USE OF THIS SOFTWARE. ------------------------------------------------------------------------ *** This is beta software -- use at your own risk *** This is MCrypt, an XS-based perl interface to the popular mcrypt crypto library. MCrypt supports a wide variety of block algorithms such as DES, TripleDES, Blowfish (default), 3-WAY, SAFER-SK64, SAFER-SK128, TWOFISH, TEA, RC2, GOST, LOKI, SERPENT, CAST and RIJNDAEL in CBC, OFB, CFB and ECB cipher modes. Prerequisites -------------- In addition to this module, you must install the libmcrypt library. Please download and install the latest libmcrypt-2.2.x.tar.gz at ftp://argeas.cs-net.gr/pub/unix/mcrypt. At the time of this writing, the latest 2.2.x release was 2.2.7. Additional information about the mcrypt library can be found at http://mcrypt.hellug.gr. The mcrypt library MUST be found in your library path when using this module. In Linux, libmcrypt is defaultly installed in /usr/local/lib -- be sure that the /usr/local/lib path is in your /etc/ld.so.conf. Installing MCrypt ----------------- standard issue: 1. perl Makefile.PL 2. make 3. make test 4. make install Notes & Caveats ----------------- I have only tested this module with Linux only. I would imagine it will work on *BSD systems also, as long as libmcrypt is in your library search path. Please report any other successful OS/Platform combinations to me. Thanks. There may be bugs; please report them to the below address. I would like feedback from users of this module - I may change some things around depending on how people plan on using this module. Constructive criticism always welcome from seasoned perl module writers. This interface is used with the 2.2.x tree of the mcrypt library ONLY! The newer 2.5.x API is not supported yet; I don't use it myself, but I may add it in if there is some demand. Report bugs to: kero@3SHEEP.COM libcrypt-mcrypt-perl-0.92/MCrypt.pm0000644000175000017500000003671507216320647016655 0ustar dookiedookiepackage MCrypt; # require 5.005_62; use strict; # use warnings; use Carp ; require Exporter; require DynaLoader; use AutoLoader qw(AUTOLOAD); our @ISA = qw(Exporter DynaLoader); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use MCrypt ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( Types => [qw( MCRYPT_BLOWFISH_448 MCRYPT_DES MCRYPT_3DES MCRYPT_3WAY MCRYPT_GOST MCRYPT_SAFER_64 MCRYPT_SAFER_128 MCRYPT_CAST_128 MCRYPT_XTEA MCRYPT_RC2_1024 MCRYPT_TWOFISH_128 MCRYPT_TWOFISH_192 MCRYPT_TWOFISH_256 MCRYPT_BLOWFISH_128 MCRYPT_BLOWFISH_192 MCRYPT_BLOWFISH_256 MCRYPT_CAST_256 MCRYPT_SAFERPLUS MCRYPT_LOKI97 MCRYPT_SERPENT_128 MCRYPT_SERPENT_192 MCRYPT_SERPENT_256 MCRYPT_RIJNDAEL_128 MCRYPT_RIJNDAEL_192 MCRYPT_RIJNDAEL_256 MCRYPT_RC2_256 MCRYPT_RC2_128 MCRYPT_CRYPT MCRYPT_RC6_256 MCRYPT_IDEA MCRYPT_RC6_128 MCRYPT_RC6_192 MCRYPT_ARCFOUR MCRYPT_RC_4 )], Modes => [qw( MCRYPT_ENCRYPT MCRYPT_DECRYPT )], Functions => [qw( mcrypt_cbc mcrypt_ecb mcrypt_ofb mcrypt_cfb mcrypt_cbc_hex mcrypt_ecb_hex mcrypt_ofb_hex mcrypt_cfb_hex mcrypt_get_block_size mcrypt_get_key_size mcrypt_get_cipher_name )], ); #our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); # use :DEFAULT to get everything in @EXPORT plus extras from @EXPORT_OK # our @EXPORT_OK = qw( ); Exporter::export_ok_tags(qw(Types Functions Modes)) ; Exporter::export_tags( qw(Functions) ) ; # our @EXPORT = qw( # ); our $VERSION = '0.92'; # package MCrypt::Constants; # use strict; # encryption mode constants use constant MCRYPT_ENCRYPT => 1; use constant MCRYPT_DECRYPT => 0; # cipher mode constants use constant MCRYPT_BLOWFISH_448 => 0 ; use constant MCRYPT_DES => 1 ; use constant MCRYPT_3DES => 2 ; use constant MCRYPT_3WAY => 3 ; use constant MCRYPT_GOST => 4 ; use constant MCRYPT_SAFER_64 => 6 ; use constant MCRYPT_SAFER_128 => 7 ; use constant MCRYPT_CAST_128 => 8 ; use constant MCRYPT_XTEA => 9 ; use constant MCRYPT_RC2_1024 => 11; use constant MCRYPT_TWOFISH_128 => 10; use constant MCRYPT_TWOFISH_192 => 12; use constant MCRYPT_TWOFISH_256 => 13; use constant MCRYPT_BLOWFISH_128 => 14; use constant MCRYPT_BLOWFISH_192 => 15; use constant MCRYPT_BLOWFISH_256 => 16; use constant MCRYPT_CAST_256 => 17; use constant MCRYPT_SAFERPLUS => 18; use constant MCRYPT_LOKI97 => 19; use constant MCRYPT_SERPENT_128 => 20; use constant MCRYPT_SERPENT_192 => 21; use constant MCRYPT_SERPENT_256 => 22; use constant MCRYPT_RIJNDAEL_128 => 23; use constant MCRYPT_RIJNDAEL_192 => 24; use constant MCRYPT_RIJNDAEL_256 => 25; use constant MCRYPT_RC2_256 => 26; use constant MCRYPT_RC2_128 => 27; use constant MCRYPT_CRYPT => 28; use constant MCRYPT_RC6_256 => 100; use constant MCRYPT_IDEA => 101; use constant MCRYPT_RC6_128 => 102; use constant MCRYPT_RC6_192 => 103; # define MCRYPT_RC4 MCRYPT_ARCFOUR use constant MCRYPT_ARCFOUR => 104; use constant MCRYPT_RC_4 => 104; # -- stop bootstrap MCrypt $VERSION; # Preloaded methods go here. # Autoload methods go after =cut, and are processed by the autosplit program. # start code here sub usage { my ($mess, $package, $filename, $line, $subr); ($mess) = @_; ($package, $filename, $line, $subr) = caller(1); $Carp::CarpLevel = 1; croak "Usage: $package\::$subr - $mess"; } sub mcrypt_cbc_hex($$$$;$) { my ($cipher, $key, $data, $mode, $IV) = @_ ; $IV = "" if !$IV ; if($mode == MCRYPT_ENCRYPT) { # ENCRYPT MODE return join('', unpack 'H*', mcrypt_cbc($cipher,$key,$data,$mode,$IV) ) ; } else { # DECRYPT MODE return mcrypt_cbc($cipher, $key, pack('H*', $data), $mode, $IV) ; } } sub mcrypt_ecb_hex($$$$) { my ($cipher,$key, $data, $mode) = @_ ; if($mode) { # ENCRYPT MODE return join('', unpack 'H*', mcrypt_ecb($cipher,$key,$data,$mode) ) ; } else { # DECRYPT MODE return mcrypt_ecb($cipher, $key, pack('H*', $data), $mode) ; } } sub mcrypt_ofb_hex($$$$$) { my ($cipher,$key, $data, $mode, $IV) = @_ ; if($mode) { # ENCRYPT MODE return join('', unpack 'H*', mcrypt_ofb($cipher,$key,$data,$mode,$IV) ) ; } else { # DECRYPT MODE return mcrypt_ofb($cipher, $key, pack('H*', $data), $mode, $IV) ; } } sub mcrypt_cfb_hex($$$$$) { my ($cipher,$key, $data, $mode, $IV) = @_ ; if($mode) { # ENCRYPT MODE return join('', unpack 'H*', mcrypt_cfb($cipher,$key,$data,$mode,$IV) ) ; } else { # DECRYPT MODE return mcrypt_cfb($cipher, $key, pack('H*', $data), $mode, $IV) ; } } sub mcrypt_cbc($$$$;$) { my ($cipher, $key, $data, $mode, $IV) = @_ ; my $ivlen = 0 ; my $blocksize = 0 ; $IV = "" if !$IV ; if( $ivlen = length($IV) ) { $blocksize = mcrypt_get_block_size($cipher) ; if( $ivlen != $blocksize ) { usage("The blocksize for the specified cipher is $blocksize bytes, the IV length must match the blocksize.\n") ; } return _mcrypt_cbc($cipher,$key,$data,$mode,$IV) ; } return _mcrypt_cbc($cipher,$key,$data,$mode) ; } sub mcrypt_ecb($$$$) { my ($cipher, $key, $data, $mode) = @_ ; return _mcrypt_ecb($cipher,$key,$data,$mode) ; } sub mcrypt_ofb($$$$$) { my ($cipher, $key, $data, $mode, $IV) = @_ ; my ($ivlen, $blocksize) ; $blocksize = mcrypt_get_block_size($cipher) ; if ($blocksize != length($IV)) { usage("The blocksize for the specified cipher is $blocksize bytes, the IV length must match the blocksize.\n") ; } return _mcrypt_ofb($cipher,$key,$data,$mode,$IV) ; } sub mcrypt_cfb($$$$$) { my ($cipher, $key, $data, $mode, $IV) = @_ ; my ($ivlen, $blocksize) ; $blocksize = mcrypt_get_block_size($cipher) ; if ($blocksize != length($IV)) { usage("The blocksize for the specified cipher is $blocksize bytes, the IV length must match the blocksize.\n") ; } return _mcrypt_cfb($cipher,$key,$data,$mode,$IV) ; } 1; __END__ # Below is stub documentation for your module. You better edit it! =head1 NAME MCrypt - Perl extension for MCrypt Crypto library =head1 DISCLAIMER =head2 THIS IS A FIRST RELEASE BETA VERSION. Yes, it does work. If you have use for this, please try and use it and report any bugs you find. Feedback from users of this module is important. =head1 SYNOPSIS use MCrypt qw(:Functions :Modes :Types) ; my $key = "my secret key"; my $data "this is my secret data"; # optional IV that matches the blocksize of the cipher! my $iv = "12345678" ; # 8 bytes for MCRYPT_3DES $ciphertext = mcrypt_cbc( MCRYPT_3DES, $key, $data, MCRYPT_ENCRYPT, $iv ) ; **NOTE** Please read the section on EXPORT TAGS below for information on the MCRYPT_ constants and the how to conserve your namespace. =head1 DEPENDENCIES This interface is dependent on the 2.2.x tree of the MCRYPT library. Please download and install the latest libmcrypt-2.2.x.tar.gz at ftp://argeas.cs-net.gr/pub/unix/mcrypt. As of this writing, the latest is libmcrypt-2.2.7.tar.gz. Additional information about the mcrypt library can be found at http://mcrypt.hellug.gr. Libmcrypt MUST be found in your library path when using this module. In Linux, libmcrypt is defaultly installed in /usr/local/lib -- in this case, be sure that the /usr/local/lib path is in your /etc/ld.so.conf. =head1 DESCRIPTION This is an perl interface to the MCrypt crypto library, which supports a wide variety of block algorithms such as DES, TripleDES, Blowfish (default), 3-WAY, SAFER-SK64, SAFER-SK128, TWOFISH, TEA, RC2, GOST, LOKI, SERPENT, CAST and RIJNDAEL in CBC, OFB, CFB and ECB cipher modes. Mcrypt can be used to encrypt and decrypt using the above mentioned ciphers. The four important mcrypt commands (mcrypt_cfb(), mcrypt_cbc(), mcrypt_ecb(), and mcrypt_ofb()) can operate in both modes which are named MCRYPT_ENCRYPT and MCRYPT_DECRYPT, respectively. Mcrypt can operate in four block cipher modes (CBC, OFB, CFB, and ECB). We will outline the normal use for each of these modes. For a more complete reference and discussion see Applied Cryptography by Schneier (ISBN 0-471-11709-9). ECB (electronic codebook) is suitable for random data, such as encrypting other keys. Since data there is short and random, the disadvantages of ECB have a favorable negative effect. CBC (cipher block chaining) is especially suitable for encrypting files where the security is increased over ECB significantly. CFB (cipher feedback) is the best mode for encrypting byte streams where single bytes must be encrypted. OFB (output feedback, in 8bit) is comparable to CFB, but can be used in applications where error propagation cannot be tolerated. It's insecure (because it operates in 8bit mode) so it is not recommended to use it. MCrypt does not support encrypting/decrypting bit streams currently. As of now, MCrypt only supports handling of strings. Here is the list of cipher constants which are currently supported by the MCrypt module: MCRYPT_DES MCRYPT_3DES MCRYPT_3WAY MCRYPT_GOST MCRYPT_SAFER64 MCRYPT_SAFER128 MCRYPT_CAST_128 MCRYPT_CAST_256 MCRYPT_XTEA MCRYPT_RC2_128 MCRYPT_RC2_192 MCRYPT_RC2_1024 MCRYPT_TWOFISH128 MCRYPT_TWOFISH192 MCRYPT_TWOFISH256 MCRYPT_BLOWFISH_128 MCRYPT_BLOWFISH_192 MCRYPT_BLOWFISH_256 MCRYPT_BLOWFISH_448 (the default if a blank cipher is supplied) MCRYPT_CAST_256 MCRYPT_SAFERPLUS MCRYPT_LOKI97 MCRYPT_SERPENT_128 MCRYPT_SERPENT_192 MCRYPT_SERPENT_256 MCRYPT_RIJNDAEL_128 MCRYPT_RIJNDAEL_192 MCRYPT_RIJNDAEL_256 MCRYPT_CRYPT MCRYPT_RC6_128 MCRYPT_RC6_192 MCRYPT_RC6_256 MCRYPT_IDEA (non-free) MCRYPT_ARCFOUR (also aliased as MCRYPT_RC_4) You must (in CFB and OFB mode) or can (in CBC mode) supply an initialization vector (IV) to the respective cipher function. The IV must be unique and must be the same when decrypting/encrypting. With data which is stored encrypted, you can take the output of a function of the index under which the data is stored (e.g. the MD5 key of the filename). Alternatively, you can transmit the IV together with the encrypted data (see chapter 9.3 of Applied Cryptography by Schneier (ISBN 0-471-11709-9) for a discussion of this topic). =head1 EXPORT TAGS A more conservative usage of the above SYNOPSIS: # no export tags supplied in the below line; import :Functions by default use MCrypt ; my $key = "my secret key"; my $data "this is my secret data"; # optional IV that matches the blocksize of the cipher! my $iv = "12345678" ; # 8 bytes for MCRYPT_3DES $ciphertext = mcrypt_cbc( MCrypt::MCRYPT_3DES, $key, $data, MCrypt::MCRYPT_ENCRYPT, $iv ) ; Functions This tag exports all the functions related to MCrypt. This tag should always be imported unless you are going to be calling MCrypt functions with the full package name. This tag is automatically imported if no export tags are supplied as in the above example. (i.e. MCrypt::mcrypt_cbc()). Modes This tag exports the encryption mode constants MCRYPT_ENCRYPT and MCRYPT_DECRYPT. It is recommended that you import this tag as it only imports two constants into your namespace. If you are being conservative with your namespace, you can leave this out providing you call these constant with the package name. (i.e. MCrypt::MCRYPT_ENCRYPT ) Types This tag exports the cipher constants defined by the list of ciphers above in DESCRIPTION. It is recommended you import this tag for ease of use. If you are concerned with polluting your namespace, do not import this tag, and use the form MCrypt::MCRYPT_CIPHERNAME when supplying the cipher to the MCrypt functions. (i.e. MCrypt::MCRYPT_3DES ) =head1 PROGRAMMING FUNCTIONS AND METHODS The following methods are available: mcrypt_cbc() Mcrypt_cbc() encrypts or decrypts (depending on mode) the data with cipher and key in CBC cipher mode and returns the resulting string. $ciphertext = mcrypt_cbc($cipher, $key, $data, $mode, [$IV]) ; Cipher is one of the MCRYPT_ciphername constants. Key is the key supplied to the algorithm. It must be kept secret. Data is the data which shall be encrypted/decrypted. Mode is MCRYPT_ENCRYPT or MCRYPT_DECRYPT. IV is the optional initialization vector. (This must be the blocksize of the cipher!) mcrypt_ecb() Mcrypt_ecb() encrypts or decrypts (depending on mode) the data with cipher and key in ECB cipher mode and returns the resulting string. $ciphertext = mcrypt_ecb($cipher, $key, $data, $mode) ; Cipher is one of the MCRYPT_ciphername constants. Key is the key supplied to the algorithm. It must be kept secret. Data is the data which shall be encrypted/decrypted. Mode is MCRYPT_ENCRYPT or MCRYPT_DECRYPT. mcrypt_ofb() Mcrypt_ofb() encrypts or decrypts (depending on mode) the data with cipher and key in OFB cipher mode and returns the resulting string. $ciphertext = mcrypt_ofb($cipher, $key, $data, $mode, $IV) ; Cipher is one of the MCRYPT_ciphername constants. Key is the key supplied to the algorithm. It must be kept secret. Data is the data which shall be encrypted/decrypted. Mode is MCRYPT_ENCRYPT or MCRYPT_DECRYPT. IV is the initialization vector. (This must be the blocksize of the cipher!) mcrypt_cfb() Mcrypt_cfb() encrypts or decrypts (depending on mode) the data with cipher and key in CFB cipher mode and returns the resulting string. $ciphertext = mcrypt_cfb($cipher, $key, $data, $mode, $IV) ; Cipher is one of the MCRYPT_ciphername constants. Key is the key supplied to the algorithm. It must be kept secret. Data is the data which shall be encrypted/decrypted. Mode is MCRYPT_ENCRYPT or MCRYPT_DECRYPT. IV is the initialization vector. (This must be the blocksize of the cipher!) mcrypt_get_cipher_name() Mcrypt_get_cipher_name() is used to get the name of the specified cipher. This function takes the cipher number as an argument and returns the name of the cipher as a string or false, if the cipher does not exist. $ciphername = mcrypt_get_cipher_name( MCRYPT_3DES ) ; Cipher is one of the MCRYPT_ciphername constants. mcrypt_get_key_size() Mcrypt_get_key_size() is used to get the size of a key of the specified cipher. This function takes one argument, the cipher and returns the size in bytes. This function is useful to find the keysize for a specific cipher. The key you use SHOULD match the keysize. $keysize = mcrypt_get_key_size( MCRYPT_3DES ) ; Cipher is one of the MCRYPT_ciphername constants. mcrypt_get_block_size() Mcrypt_get_block_size() is used to get the size of a block of the specified cipher. This function takes one argument, the cipher and returns the size in bytes. This function is useful for determining the correct size of the IV of a cipher. $keysize = mcrypt_get_block_size( MCRYPT_3DES ) ; Cipher is one of the MCRYPT_ciphername constants. =head1 TODO - More bug testing. - implement mcrypt_create_iv() in a nice way - detection of libmcrypt installation =head1 AUTHOR Kuo, Frey, kero@3SHEEP.COM. =head2 CREDITS Mavroyanopoulos, Nikos, - for the libmcrypt library. Schumann, Sasha, - for PHP's implementation of the libmcrypt interface. =head1 SEE ALSO mcrypt(3). =cut libcrypt-mcrypt-perl-0.92/mc-interface.c0000644000175000017500000003636507216320650017575 0ustar dookiedookie/* Copyright (c) 2000 Frey Kuo You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file, with the exception that it cannot be placed on a CD-ROM or similar media for commercial distribution without the prior approval of the author. THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DAMAGES RESULTING FROM THE USE OF THIS SOFTWARE. */ #include #include #include #include #include #include "mc-interface.h" #define _TESTING_ 0 #define CIPHER_NAME_SIZE 64 //size of the array to hold the cipher name #define CIPHER_NAME_PREFIX "MCRYPT_" /* Get the name of the specified cipher */ char * pmcrypt_get_cipher_name( int cipher ) { char *cipher_name = NULL ; char *retval = NULL ; cipher_name = mcrypt_get_algorithms_name(cipher) ; if( !cipher_name ) { return NULL ; } retval = strdup(cipher_name) ; free(cipher_name) ; return( retval ); } /* Get the block size of the specified cipher */ int pmcrypt_get_block_size(int cipher) { return(mcrypt_get_block_size(cipher)); } /* Get the key size of the specified cipher */ int pmcrypt_get_key_size(int cipher) { return(mcrypt_get_key_size(cipher)) ; } /* Create an initialization vector (IV) from a "random" source */ char * pmcrypt_create_iv(int size, char *source) { // NOT IMPLEMENTED IN THIS VERSION return NULL ; } /* ECB crypt/decrypt using key key with cipher cipher */ char * pmcrypt_ecb(int cipher, char *key, char *data, int mode, int conv_hex) { int td ; int keylen, encrypt = 0; char *ndata ; size_t blocksize, nr, nsize, datalen ; if(data == NULL || key == NULL ) return NULL ; if(mode) encrypt = 1 ; else encrypt = 0 ; blocksize = mcrypt_get_block_size( cipher ) ; keylen = strlen( key ) ; datalen = strlen( data ) ; // how many blocks we need for the data nr = (datalen + blocksize - 1) / blocksize ; nsize = nr * blocksize ; ndata = calloc(1, nsize); td = init_mcrypt_ecb(cipher, key, keylen); if( td == -1 ) { // we should really produce an error or something return NULL ; } if (encrypt) { memcpy( ndata, data, datalen ) ; mcrypt_ecb( td, ndata, nsize ) ; end_mcrypt_ecb(td) ; return( ( conv_hex ? bin2hex(ndata, nsize) : ndata ) ); } else { //hex2bin conversion needs 1/2 less space conv_hex ? memcpy( ndata, hex2bin(data,datalen), datalen / 2 ) : memcpy( ndata, data, datalen ) ; mdecrypt_ecb( td, ndata, nsize ) ; end_mcrypt_ecb(td) ; return( ndata ); } } /* CBC crypt/decrypt data using key key with cipher cipher using optional IV */ char * pmcrypt_cbc(int cipher, char *key, char *data, int mode, char *IV, int conv_hex) { int td ; int keylen, encrypt = 0; char *ndata ; size_t blocksize, nr, nsize, datalen ; if(data == NULL || key == NULL ) return NULL ; if(mode) encrypt = 1 ; else encrypt = 0 ; blocksize = mcrypt_get_block_size( cipher ) ; keylen = strlen( key ) ; datalen = strlen( data ) ; // how many blocks we need for the data nr = (datalen + blocksize - 1) / blocksize ; nsize = nr * blocksize ; ndata = calloc(1, nsize); if( ( IV != NULL && strlen(IV) != blocksize ) ) return NULL ; if (IV == NULL) { td = init_mcrypt_cbc(cipher, key, keylen); } else { td = init_mcrypt_cbc_iv(cipher, key, keylen, IV); } if( td == -1 ) { // we should really produce an error or something return NULL ; } if( IV != NULL ) // initialize with our IV mcrypt( td, IV ) ; if (encrypt) { memcpy( ndata, data, datalen ) ; mcrypt_cbc( td, ndata, nsize ) ; end_mcrypt_cbc(td) ; return( conv_hex ? bin2hex(ndata, nsize) : ndata ); } else { //hex2bin conversion needs 1/2 less space conv_hex ? memcpy( ndata, hex2bin(data,datalen), datalen / 2 ) : memcpy( ndata, data, datalen ) ; mdecrypt_cbc( td, ndata, nsize ) ; end_mcrypt_cbc(td) ; return( ndata ); } } /* OFB crypt/decrypt data using key key with cipher cipher starting with IV */ char * pmcrypt_ofb(int cipher, char *key, char *data, int mode, char *IV, int conv_hex) { int td ; int keylen, encrypt = 0; char *ndata ; size_t blocksize, nr, nsize, datalen ; if(data == NULL || key == NULL || IV == NULL ) return NULL ; if(mode) encrypt = 1 ; else encrypt = 0 ; blocksize = mcrypt_get_block_size( cipher ) ; keylen = strlen( key ) ; datalen = strlen( data ) ; // how many blocks we need for the data nr = (datalen + blocksize - 1) / blocksize ; nsize = nr * blocksize ; ndata = calloc(1, nsize); if( ( IV != NULL && strlen(IV) != blocksize ) ) return NULL ; td = init_mcrypt_ofb(cipher, key, keylen, IV); if( td == -1 ) { // we should really produce an error or something return NULL ; } if (encrypt) { memcpy( ndata, data, datalen ) ; mcrypt_ofb( td, ndata, nsize ) ; end_mcrypt_ofb(td) ; return( conv_hex ? bin2hex(ndata, nsize) : ndata ); } else { //hex2bin conversion needs 1/2 less space conv_hex ? memcpy( ndata, hex2bin(data,datalen), datalen / 2 ) : memcpy( ndata, data, datalen ) ; mdecrypt_ofb( td, ndata, nsize ) ; end_mcrypt_ofb(td) ; return( ndata ); } } /* CFB crypt/decrypt data using key key with cipher cipher starting with IV */ char * pmcrypt_cfb(int cipher, char *key, char *data, int mode, char *IV, int conv_hex) { int td ; int keylen, encrypt = 0; char *ndata ; size_t blocksize, nr, nsize, datalen ; if(data == NULL || key == NULL || IV == NULL ) return NULL ; if(mode) encrypt = 1 ; else encrypt = 0 ; blocksize = mcrypt_get_block_size( cipher ) ; keylen = strlen( key ) ; datalen = strlen( data ) ; // how many blocks we need for the data nr = (datalen + blocksize - 1) / blocksize ; nsize = nr * blocksize ; ndata = calloc(1, nsize); if( ( IV != NULL && strlen(IV) != blocksize ) ) return NULL ; td = init_mcrypt_cfb(cipher, key, keylen, IV); if( td == -1 ) { // we should really produce an error or something return NULL ; } if (encrypt) { memcpy( ndata, data, datalen ) ; mcrypt_cfb( td, ndata, nsize ) ; end_mcrypt_cfb(td) ; return( conv_hex ? bin2hex(ndata, nsize) : ndata ); } else { //hex2bin conversion needs 1/2 less space conv_hex ? memcpy( ndata, hex2bin(data,datalen), datalen / 2 ) : memcpy( ndata, data, datalen ) ; mdecrypt_cfb( td, ndata, nsize ) ; end_mcrypt_cfb(td) ; return( ndata ); } } /* Ripped out of php3.0.16 */ static char hexconvtab[] = "0123456789abcdef"; static char *bin2hex( const unsigned char *old, const size_t oldlen ) { unsigned char *new = NULL; size_t i, j; new = (char *) malloc(oldlen * 2 * sizeof(char)); if(!new) { return new; } for(i = j = 0; i < oldlen; i++) { new[j++] = hexconvtab[old[i] >> 4]; new[j++] = hexconvtab[old[i] & 15]; } new[j] = '\0'; return new; } int is_hex(char *given_chain, int len) { int i; for (i = 0; i < len; i++) if (isxdigit(given_chain[i]) == 0) return 0; return 1; } /* Converts a string of (an even number of) hex digits to binary */ char * hex2bin(char *hex, int len) { char ch ; unsigned char val; char *tmpchain ; int nbytes = 0, i = 0, upper = 1 ; /* The chain should have 2*n characters */ if (len % 2 != 0) return NULL ; if (!is_hex(hex, len)) return NULL ; tmpchain = malloc((len / 2) + 1); for(; nbytes='A' && ch<='F') { val = (unsigned char)(ch - 'A' + 10); /* End of hex digits--time to bail out. */ } else { return (upper ? tmpchain : 0); } /* If this is an upper digit, set the top 4 bits of the destination * byte with this value, else -OR- in the value. */ if(upper) { tmpchain[i] = (unsigned char) (val << 4); upper = 0; } else { tmpchain[i++] |= val; upper = 1; } } tmpchain[(len / 2)] = '\0' ; return(tmpchain); } #ifdef _TESTING_ int main() { int keysize, blocksize ; char *key; /* created using gen_key */ char *IV, *block ; //char myshit[100] = "abcdefghijklmnopqrstuvwxyz"; char myshit[200] = "abcdefghijklmnopqrstuvwxyzlkasdjfalsdkfjasdlkfjadslkfajdsflkasdjflkadsjflkasjfklsfjlksfkldsjfl"; int len = strlen(myshit) ; char *shit ; int ciphernumber, bs, ks ; char *ciphername ; printf("len shit = %d\n",len); keysize = mcrypt_get_key_size ( MCRYPT_3DES ) ; blocksize = mcrypt_get_block_size( MCRYPT_3DES ) ; key = calloc(1, keysize); block = calloc(1, blocksize); IV = calloc(1, blocksize); shit = calloc(1, len+1); strcpy(key, "key"); strcpy(block, "block"); strcpy(IV, "IV") ; strncpy(shit, myshit,len) ; printf("string = [%s], size=(%d) bs = %d\n",shit,strlen(shit),blocksize) ; ciphername = pmcrypt_get_cipher_name(ciphernumber) ; ks = pmcrypt_get_key_size(ciphernumber) ; bs = pmcrypt_get_block_size(ciphernumber) ; printf("ciphernumber of %s = %d. bs=%d ks=%d (%d)\n",ciphername, ciphernumber,bs,ks,mcrypt_get_key_size(ciphernumber)) ; return 0; } /* given the string name of the cipher, return the appropriate cipher identifier as specified in mcrypt.h */ int getcipher( char *name ) { /* // FOR reference - ripped from mcrypt 2.2.6 mcrypt.h #define MCRYPT_BLOWFISH_448 0 #define MCRYPT_DES 1 #define MCRYPT_3DES 2 #define MCRYPT_3WAY 3 #define MCRYPT_GOST 4 #define MCRYPT_SAFER_64 6 #define MCRYPT_SAFER_128 7 #define MCRYPT_CAST_128 8 #define MCRYPT_XTEA 9 #define MCRYPT_RC2_1024 11 #define MCRYPT_TWOFISH_128 10 #define MCRYPT_TWOFISH_192 12 #define MCRYPT_TWOFISH_256 13 #define MCRYPT_BLOWFISH_128 14 #define MCRYPT_BLOWFISH_192 15 #define MCRYPT_BLOWFISH_256 16 #define MCRYPT_CAST_256 17 #define MCRYPT_SAFERPLUS 18 #define MCRYPT_LOKI97 19 #define MCRYPT_SERPENT_128 20 #define MCRYPT_SERPENT_192 21 #define MCRYPT_SERPENT_256 22 #define MCRYPT_RIJNDAEL_128 23 #define MCRYPT_RIJNDAEL_192 24 #define MCRYPT_RIJNDAEL_256 25 #define MCRYPT_RC2_256 26 #define MCRYPT_RC2_128 27 #define MCRYPT_CRYPT 28 #define MCRYPT_RC6_256 100 #define MCRYPT_IDEA 101 #define MCRYPT_RC6_128 102 #define MCRYPT_RC6_192 103 #define MCRYPT_RC4 MCRYPT_ARCFOUR #define MCRYPT_ARCFOUR 104 */ char cipher_name[CIPHER_NAME_SIZE] = CIPHER_NAME_PREFIX; int len , name_len; if (name == NULL) // MCRYPT_BLOWFISH_448 is the default return 0 ; len = strlen(cipher_name) ; name_len = CIPHER_NAME_SIZE - ( len + 1 ); strncat(cipher_name, name, name_len) ; // WORKITEM: gotta find a faster way of doing this // mapping. Hashes perhaps.. or // This may involve just exporting these constants into perl and // forgetting this whole mapping business, but I will try this // first to be as non-intrusive as possible. if( strncasecmp(cipher_name,"MCRYPT_BLOWFISH_448",CIPHER_NAME_SIZE) == 0 ) return 0 ; else if (strncasecmp(cipher_name,"MCRYPT_DES",CIPHER_NAME_SIZE) == 0 ) return 1 ; else if (strncasecmp(cipher_name,"MCRYPT_3DES",CIPHER_NAME_SIZE) == 0 ) return 2 ; else if (strncasecmp(cipher_name,"MCRYPT_3WAY",CIPHER_NAME_SIZE) == 0 ) return 3 ; else if (strncasecmp(cipher_name,"MCRYPT_GOST",CIPHER_NAME_SIZE) == 0 ) return 4 ; else if (strncasecmp(cipher_name,"MCRYPT_SAFER_64",CIPHER_NAME_SIZE) == 0 ) return 6 ; else if (strncasecmp(cipher_name,"MCRYPT_SAFER_128",CIPHER_NAME_SIZE) == 0 ) return 7 ; else if (strncasecmp(cipher_name,"MCRYPT_CAST_128",CIPHER_NAME_SIZE) == 0 ) return 8 ; else if (strncasecmp(cipher_name,"MCRYPT_XTEA",CIPHER_NAME_SIZE) == 0 ) return 9 ; else if (strncasecmp(cipher_name,"MCRYPT_RC2_1024",CIPHER_NAME_SIZE) == 0 ) return 11 ; else if (strncasecmp(cipher_name,"MCRYPT_TWOFISH_128",CIPHER_NAME_SIZE) == 0 ) return 10 ; else if (strncasecmp(cipher_name,"MCRYPT_TWOFISH_192",CIPHER_NAME_SIZE) == 0 ) return 12 ; else if (strncasecmp(cipher_name,"MCRYPT_TWOFISH_256",CIPHER_NAME_SIZE) == 0 ) return 13 ; else if (strncasecmp(cipher_name,"MCRYPT_BLOWFISH_128",CIPHER_NAME_SIZE) == 0 ) return 14 ; else if (strncasecmp(cipher_name,"MCRYPT_BLOWFISH_192",CIPHER_NAME_SIZE) == 0 ) return 15 ; else if (strncasecmp(cipher_name,"MCRYPT_BLOWFISH_256",CIPHER_NAME_SIZE) == 0 ) return 16 ; else if (strncasecmp(cipher_name,"MCRYPT_CAST_256",CIPHER_NAME_SIZE) == 0 ) return 17 ; else if (strncasecmp(cipher_name,"MCRYPT_SAFERPLUS",CIPHER_NAME_SIZE) == 0 ) return 18 ; else if (strncasecmp(cipher_name,"MCRYPT_LOKI97",CIPHER_NAME_SIZE) == 0 ) return 19 ; else if (strncasecmp(cipher_name,"MCRYPT_SERPENT_128",CIPHER_NAME_SIZE) == 0 ) return 20 ; else if (strncasecmp(cipher_name,"MCRYPT_SERPENT_192",CIPHER_NAME_SIZE) == 0 ) return 21 ; else if (strncasecmp(cipher_name,"MCRYPT_SERPENT_256",CIPHER_NAME_SIZE) == 0 ) return 22 ; else if (strncasecmp(cipher_name,"MCRYPT_RIJNDAEL_128",CIPHER_NAME_SIZE) == 0 ) return 23 ; else if (strncasecmp(cipher_name,"MCRYPT_RIJNDAEL_192",CIPHER_NAME_SIZE) == 0 ) return 24 ; else if (strncasecmp(cipher_name,"MCRYPT_RIJNDAEL_256",CIPHER_NAME_SIZE) == 0 ) return 25 ; else if (strncasecmp(cipher_name,"MCRYPT_RC2_256",CIPHER_NAME_SIZE) == 0 ) return 26 ; else if (strncasecmp(cipher_name,"MCRYPT_RC2_128",CIPHER_NAME_SIZE) == 0 ) return 27 ; else if (strncasecmp(cipher_name,"MCRYPT_CRYPT",CIPHER_NAME_SIZE) == 0 ) return 28 ; else if (strncasecmp(cipher_name,"MCRYPT_RC6_256",CIPHER_NAME_SIZE) == 0 ) return 100 ; else if (strncasecmp(cipher_name,"MCRYPT_IDEA",CIPHER_NAME_SIZE) == 0 ) return 101 ; else if (strncasecmp(cipher_name,"MCRYPT_RC6_128",CIPHER_NAME_SIZE) == 0 ) return 102 ; else if (strncasecmp(cipher_name,"MCRYPT_RC6_192",CIPHER_NAME_SIZE) == 0 ) return 103 ; // MCRYPT_RC4 AND MCRYPT_ARCFOUR are the same. else if (strncasecmp(cipher_name,"MCRYPT_RC4",CIPHER_NAME_SIZE) == 0 ) return 104 ; else if (strncasecmp(cipher_name,"MCRYPT_ARCFOUR",CIPHER_NAME_SIZE) == 0 ) return 104 ; else // MCRYPT_BLOWFISH_448 is the default return 0 ; } # endif libcrypt-mcrypt-perl-0.92/MCrypt.xs0000644000175000017500000001225507216320647016664 0ustar dookiedookie/* * * Copyright 2000 Frey Kuo. * * This library is free software; you can redistribute it and/or * modify it under the same terms as Perl itself. */ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #define _TESTING_ 0 MODULE = MCrypt PACKAGE = MCrypt char * _mcrypt_cbc(cipher, key, data, mode, IV = NULL, conv_hex = 0) int cipher char * key char * data int mode char * IV int conv_hex PROTOTYPE: $$$$;$;$ CODE: { int HAS_IV = 0 ; int encrypt = 0 ; int IV_len ; int blocksize ; char *return_string; if(conv_hex == 1 && !is_hex(data,strlen(data)) && !mode) { croak("mcrypt_cbc: non hex characters detected when in hex mode!\n") ; } if(mode == 1) { encrypt = 1 ; if(_TESTING_) printf("ENCrypting using cipher = %d.\n",cipher) ; } else { if(_TESTING_) printf("DECrypting using cipher = %d.\n",cipher) ; encrypt = 0 ; } if(data == NULL || key == NULL ) croak("mcrypt_cbc: Please supply a non-null value for data or key.") ; if(IV != NULL) { if(!(IV_len = strlen(IV))) { IV = NULL ; } else { blocksize = pmcrypt_get_block_size(cipher) ; if(IV_len != blocksize) croak("mcrypt_cbc: The blocksize is %d bytes for this cipher, the IV length must match it.\n", blocksize) ; } } //printf("XS: data = %s, key = %s\n",data,key) ; return_string = (char *)pmcrypt_cbc( cipher, key, data, mode, IV, (int)conv_hex ? 1 : 0 ); RETVAL = return_string; } OUTPUT: RETVAL char * _mcrypt_ecb(cipher, key, data, mode, conv_hex = 0) int cipher char * key char * data int mode int conv_hex PROTOTYPE: $$$$;$ CODE: { int encrypt = 0 ; char *return_string; if(mode == 1) { encrypt = 1 ; if(_TESTING_) printf("ENCrypting using cipher = %d.\n",cipher) ; } else { if(_TESTING_) printf("DECrypting using cipher = %d.\n",cipher) ; encrypt = 0 ; } if(data == NULL || key == NULL ) croak("mcrypt_ecb: Please supply a non-null value for data or key.") ; //printf("XS: data = %s, key = %s\n",data,key) ; return_string = (char *)pmcrypt_ecb( cipher, key, data, mode, (int)conv_hex ? 1 : 0 ); RETVAL = return_string; } OUTPUT: RETVAL char * _mcrypt_ofb(cipher, key, data, mode, IV, conv_hex = 0 ) int cipher char * key char * data int mode char * IV int conv_hex PROTOTYPE: $$$$$;$ CODE: { int HAS_IV = 0 ; int encrypt = 0 ; int IV_len ; int blocksize ; char *return_string; if(mode == 1) { encrypt = 1 ; if(_TESTING_) printf("ENCrypting using cipher = %d.\n",cipher) ; } else { if(_TESTING_) printf("DECrypting using cipher = %d.\n",cipher) ; encrypt = 0 ; } if(data == NULL || key == NULL || IV == NULL ) croak("mcrypt_ofb: Please supply a non-null value for data or key or IV.") ; blocksize = pmcrypt_get_block_size(cipher) ; if(strlen(IV) != blocksize) croak("mcrypt_ofb: The blocksize is %d bytes for this cipher, the IV length must match it.\n", blocksize) ; //printf("XS: data = %s, key = %s\n",data,key) ; return_string = (char *)pmcrypt_ofb( cipher, key, data, mode, IV, conv_hex ? 1 : 0 ); RETVAL = return_string; } OUTPUT: RETVAL char * _mcrypt_cfb(cipher, key, data, mode, IV, conv_hex = 0) int cipher char * key char * data int mode char * IV int conv_hex PROTOTYPE: $$$$$;$ CODE: { int HAS_IV = 0 ; int encrypt = 0 ; int IV_len ; int blocksize ; char *return_string; if(mode == 1) { encrypt = 1 ; if(_TESTING_) printf("ENCrypting using cipher = %d.\n",cipher) ; } else { if(_TESTING_) printf("DECrypting using cipher = %d.\n",cipher) ; encrypt = 0 ; } if( data == NULL || key == NULL || IV == NULL ) croak("mcrypt_cfb: Please supply a non-null value for data or key or IV.") ; blocksize = pmcrypt_get_block_size(cipher) ; if(strlen(IV) != blocksize) croak("mcrypt_cfb: The blocksize is %d bytes for this cipher, the IV length must match it.\n",blocksize) ; //printf("XS: data = %s, key = %s\n",data,key) ; return_string = (char *)pmcrypt_cfb( cipher, key, data, mode, IV, conv_hex ? 1 :0 ); RETVAL = return_string; } OUTPUT: RETVAL char * mcrypt_get_cipher_name(cipher) int cipher PROTOTYPE: $ CODE: { RETVAL = (char *) pmcrypt_get_cipher_name(cipher) ; } OUTPUT: RETVAL int mcrypt_get_key_size(cipher) int cipher PROTOTYPE: $ CODE: { RETVAL = (int) pmcrypt_get_key_size(cipher) ; } OUTPUT: RETVAL int mcrypt_get_block_size(cipher) int cipher PROTOTYPE: $ CODE: { RETVAL = (int) pmcrypt_get_block_size( cipher ) ; } OUTPUT: RETVAL