forked from extern/egroupware
105 lines
2.8 KiB
PHP
105 lines
2.8 KiB
PHP
|
<?php
|
||
|
|
/**************************************************************************\
|
||
|
|
* phpGroupWare *
|
||
|
|
* http://www.phpgroupware.org *
|
||
|
|
* Written by Mark Peters <skeeter@phpgroupware.org> *
|
||
|
|
* -------------------------------------------- *
|
||
|
|
* This program is free software; you can redistribute it and/or modify it *
|
||
|
|
* under the terms of the GNU General Public License as published by the *
|
||
|
|
* Free Software Foundation; either version 2 of the License, or (at your *
|
||
|
|
* option) any later version. *
|
||
|
|
\**************************************************************************/
|
||
|
|
|
||
|
|
/* $Id$ */
|
||
|
|
|
||
|
|
function encryptalgo($config)
|
||
|
|
{
|
||
|
|
if(@function_exists('mcrypt_list_algorithms'))
|
||
|
|
{
|
||
|
|
$listed = array();
|
||
|
|
if(!isset($config['mcrypt_algo']))
|
||
|
|
{
|
||
|
|
$config['mcrypt_algo'] = 'tripledes'; /* MCRYPT_TRIPLEDES */
|
||
|
|
}
|
||
|
|
$algos = @mcrypt_list_algorithms();
|
||
|
|
$found = False;
|
||
|
|
|
||
|
|
while (list ($key, $value) = each ($algos))
|
||
|
|
{
|
||
|
|
$found = True;
|
||
|
|
/* Only show each once - seems this is a problem in some installs */
|
||
|
|
if(!in_array($value,$listed))
|
||
|
|
{
|
||
|
|
if ($config['mcrypt_algo'] == $value)
|
||
|
|
{
|
||
|
|
$selected = ' selected';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$selected = '';
|
||
|
|
}
|
||
|
|
$descr = strtoupper($value);
|
||
|
|
|
||
|
|
$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
|
||
|
|
$listed[] = $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(!$found)
|
||
|
|
{
|
||
|
|
/* Something is wrong with their mcrypt install or php.ini */
|
||
|
|
$out = '<option value="">' . lang('no algorithms available') . '</option>' . "\n";;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$out = '<option value="tripledes">TRIPLEDES</option>' . "\n";;
|
||
|
|
}
|
||
|
|
return $out;
|
||
|
|
}
|
||
|
|
|
||
|
|
function encryptmode($config)
|
||
|
|
{
|
||
|
|
if(@function_exists('mcrypt_list_modes'))
|
||
|
|
{
|
||
|
|
$listed = array();
|
||
|
|
if(!isset($config['mcrypt_mode']))
|
||
|
|
{
|
||
|
|
$config['mcrypt_mode'] = 'cbc'; /* MCRYPT_MODE_CBC */
|
||
|
|
}
|
||
|
|
$modes = @mcrypt_list_modes();
|
||
|
|
$found = False;
|
||
|
|
|
||
|
|
while (list ($key, $value) = each ($modes))
|
||
|
|
{
|
||
|
|
$found = True;
|
||
|
|
/* Only show each once - seems this is a problem in some installs */
|
||
|
|
if(!in_array($value,$listed))
|
||
|
|
{
|
||
|
|
if ($config['mcrypt_mode'] == $value)
|
||
|
|
{
|
||
|
|
$selected = ' selected';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$selected = '';
|
||
|
|
}
|
||
|
|
$descr = strtoupper($value);
|
||
|
|
|
||
|
|
$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
|
||
|
|
$listed[] = $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(!$found)
|
||
|
|
{
|
||
|
|
/* Something is wrong with their mcrypt install or php.ini */
|
||
|
|
$out = '<option value="" selected>' . lang('no modes available') . '</option>' . "\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$out = '<option value="cbc" selected>CBC</option>' . "\n";
|
||
|
|
}
|
||
|
|
return $out;
|
||
|
|
}
|
||
|
|
?>
|