/home/suroeste/public_html/gorbus.transportessuroeste.com/reservas/_lib/prod/lib/php
Edit: /home/suroeste/public_html/gorbus.transportessuroeste.com/reservas/_lib/prod/lib/php/nm_ini_lib.php (21141B)
= strlen($key))
{
$key_length = 0;
}
$dec_chars = ord($p) ^ ord($k);
$dec_chars = $dec_chars + strlen($key);
$bin_chars = decbin((int) $dec_chars);
while (strlen($bin_chars)<8)
{
$bin_chars = "0" . $bin_chars;
}
$all_bin_chars = $all_bin_chars . $bin_chars;
}
$m = 0;
for ($j = 0; $j < strlen($all_bin_chars); $j = $j + 4)
{
$four_bit = substr($all_bin_chars, $j, 4);
$four_bit_dec = bindec($four_bit);
$decimal_value = $four_bit_dec * 4 + $m;
$base64_value = dectobase64($decimal_value);
$cipher_data = $cipher_data . $base64_value;
$m++;
if ($m > 3)
{
$m = 0;
}
}
return ($cipher_data);
}
}
//protegido se funcao existe, pois altera��o da Telematica Suricato
//o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
//e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
if(!function_exists("xoft_decode"))
{
function xoft_decode($cipher_data, $key)
{
$m = 0;
$all_bin_chars = "";
for ($i=0;$i
3)
{
$m = 0;
}
}
$key_length = 0;
$plain_data = "";
for ($j = 0; $j < strlen($all_bin_chars); $j = $j + 8)
{
$c = substr($all_bin_chars, $j, 8);
$k = substr($key, $key_length, 1);
$dec_chars = bindec($c);
$dec_chars = $dec_chars - strlen($key);
$c = chr((int) $dec_chars);
$key_length++;
if ($key_length >= strlen($key))
{
$key_length = 0;
}
$dec_chars = ord($c) ^ ord($k);
$p = chr((int) $dec_chars);
$plain_data = $plain_data . $p;
}
return ($plain_data);
}
}
//protegido se funcao existe, pois altera��o da Telematica Suricato
//o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
//e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
if(!function_exists("shift_letter"))
{
function shift_letter($plain, $shift)
{
$cipher = "";
for($i = 0;$i < strlen($plain); $i++)
{
$p = substr($plain, $i, 1);
$p = ord($p);
if (($p >= 97) && ($p <= 122))
{
$c = $p + $shift;
if ($c > 122)
{
$c = $c - 26;
}
}
elseif (($p >= 65) && ($p <= 90))
{
$c = $p + $shift;
if($c > 90)
{
$c = $c - 26;
}
}
else
{
$c = $p;
}
$c = chr((int) $c);
$cipher = $cipher . $c;
}
return ($cipher);
}
}
//protegido se funcao existe, pois altera��o da Telematica Suricato
//o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
//e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
if(!function_exists("substitution"))
{
function substitution($plain, $operation)
{
$decode = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ=";
$encode = "blPqoVjBiOrnDucdxLyICaRSfAkFQsNtmzZKMpHeTGWhUXJwvYgE_";
$d_temp = string_to_array($decode);
$e_temp = string_to_array($encode);
$array_d = array();
$array_e = array();
for ($i = 0; $i < sizeof($d_temp); $i++)
{
$array_d[$e_temp[$i]] = $d_temp[$i];
$array_e[$d_temp[$i]] = $e_temp[$i];
}
$cipher = "";
$array = ("dec" == $operation) ? $array_d : $array_e;
for ($i = 0; $i < strlen($plain); $i++)
{
$char = substr($plain, $i, 1);
$cipher .= (in_array($char, $array)) ? $array[$char] : $char;
}
return ($cipher);
}
}
//protegido se funcao existe, pois altera��o da Telematica Suricato
//o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
//e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
if(!function_exists("string_to_array"))
{
function string_to_array($string)
{
$str_chunk = chunk_split($string, 1, " ");
$array = explode(" ", substr($str_chunk, 0, strlen($str_chunk) - 1));
return ($array);
}
}
//protegido se funcao existe, pois altera��o da Telematica Suricato
//o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
//e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
if(!function_exists("getProdVersion"))
{
function getProdVersion($v_str_dir_lib)
{
$v_str_dir_lib .= "/ver.dat";
if(is_file($v_str_dir_lib))
{
return implode("", file($v_str_dir_lib));
}
}
}
?>