fork download
copy 
  1. <?php
  2. /**
  3.  * $Id: nm_ini_lib.php,v 1.7 2012-01-10 19:38:03 diogo Exp $
  4.  */
  5.  
  6. if (!defined('NM_INC_PROD_INI'))
  7. {
  8.     define('NM_INC_PROD_INI', TRUE);
  9. }
  10.  
  11. //----- Esquema de Cores e Fontes
  12. $sc_schema                     = array();
  13. $sc_schema["page_face"]        = "Tahoma, Arial, sans-serif";
  14. $sc_schema["page_color"]       = "#000000";
  15. $sc_schema["page_size"]        = "2";
  16. $sc_schema["page_bgcolor"]     = "#FFFFFF";
  17. $sc_schema["bar_bgcolor"]      = "#3F1D1C";
  18. $sc_schema["table_bgcolor"]    = "#000000";
  19. $sc_schema["border_color"]     = "";
  20. $sc_schema["border_width"]     = "0";
  21. $sc_schema["cell_padding"]     = "2";
  22. $sc_schema["cell_spacing"]     = "1";
  23. $sc_schema["link_page"]        = "#9B6000";
  24. $sc_schema["link_header"]      = "#FFFF00";
  25. $sc_schema["link_grid"]        = "#9B6000";
  26. $sc_schema["header_face"]      = "Verdana, Arial, sans-serif";
  27. $sc_schema["header_color"]     = "#FFFFFF";
  28. $sc_schema["header_size"]      = "3";
  29. $sc_schema["header_bgcolor"]   = "#000000";
  30. $sc_schema["title_face"]       = "Verdana, Arial, sans-serif";
  31. $sc_schema["title_color"]      = "#FFFFFF";
  32. $sc_schema["title_size"]       = "2";
  33. $sc_schema["title_bgcolor"]    = "#855B3F";
  34. $sc_schema["group_face"]       = "Verdana, Arial, sans-serif";
  35. $sc_schema["group_color"]      = "#000000";
  36. $sc_schema["group_size"]       = "2";
  37. $sc_schema["group_bgcolor"]    = "#FFDE60";
  38. $sc_schema["total_face"]       = "Verdana, Arial, sans-serif";
  39. $sc_schema["total_color"]      = "#000000";
  40. $sc_schema["total_size"]       = "2";
  41. $sc_schema["total_bgcolor"]    = "#7B7B7B";
  42. $sc_schema["subtotal_face"]    = "Verdana, Arial, sans-serif";
  43. $sc_schema["subtotal_color"]   = "#000000";
  44. $sc_schema["subtotal_size"]    = "2";
  45. $sc_schema["subtotal_bgcolor"] = "#C2C2C2";
  46. $sc_schema["grid_face"]        = "Tahoma, Arial, sans-serif";
  47. $sc_schema["grid_color"]       = "#000000";
  48. $sc_schema["grid_size"]        = "2";
  49. $sc_schema["grid_odd"]         = "#FFF7DC";
  50. $sc_schema["grid_even"]        = "#FCEEBC";
  51. $sc_schema["image_page"]       = "";
  52. $sc_schema["image_header"]     = "";
  53. $sc_schema["image_title"]      = "";
  54. $sc_schema["image_group"]      = "";
  55. $sc_schema["image_total"]      = "";
  56. $sc_schema["image_subtotal"]   = "";
  57. $sc_schema["image_odd"]        = "";
  58. $sc_schema["image_even"]       = "";
  59.  
  60. //----- Lista de SGBDs
  61. $lista_sgbd = array();
  62. $lista_sgbd['access']        = 'MS Access';
  63. $lista_sgbd['ado']           = 'Generic ADO';
  64. $lista_sgbd['ado_access']    = 'MS Access ADO';
  65. $lista_sgbd['ado_mssql']     = 'MS SQL Server ADO';
  66. $lista_sgbd['borland_ibase'] = 'Interbase 6.5';
  67. $lista_sgbd['db2']           = 'DB2';
  68. $lista_sgbd['db2_odbc']      = 'DB2 ODBC NATIVE';
  69. $lista_sgbd['odbc_db2']      = 'DB2 ODBC GENERIC';
  70. $lista_sgbd['odbc_db2v6']    = 'DB2 ODBC GENERIC 6';
  71. $lista_sgbd['firebird']      = 'Firebird';
  72. $lista_sgbd['ibase']         = 'Interbase 6';
  73. $lista_sgbd['maxsql']        = 'MaxSQL';
  74. $lista_sgbd['mssql']         = 'MS SQL Server 7';
  75. $lista_sgbd['mssqlnative']   = 'MS SQL Server NATIVE SRV';
  76. $lista_sgbd['mysql']         = 'MySQL';
  77. $lista_sgbd['mysqlt']        = 'MySQL (Transaction)';
  78. $lista_sgbd['oci8']          = 'Oracle 8';
  79. $lista_sgbd['oci805']        = 'Oracle 8.0.5';
  80. $lista_sgbd['oci8po']        = 'Oracle 8 Portable';
  81. $lista_sgbd['odbc']          = 'Generic ODBC';
  82. $lista_sgbd['odbc_mssql']    = 'MS SQL Server ODBC';
  83. $lista_sgbd['odbc_oracle']   = 'Oracle ODBC';
  84. $lista_sgbd['oracle']        = 'Oracle 7';
  85. $lista_sgbd['pdo_oracle']    = 'Oracle PDO';
  86. $lista_sgbd['pdosqlite']     = 'SQLite PDO';
  87. $lista_sgbd['postgres']      = 'PostgreSQL';
  88. $lista_sgbd['postgres64']    = 'PostgreSQL 6.4';
  89. $lista_sgbd['postgres7']     = 'PostgreSQL 7';
  90. $lista_sgbd['progress']      = 'Progress';
  91. $lista_sgbd['sqlite']        = 'SQLite';
  92. $lista_sgbd['sqlite3']       = 'SQLite 3';
  93. $lista_sgbd['sybase']        = 'Sybase';
  94. //$lista_sgbd['vfp']           = 'Visual FoxPro';
  95. asort($lista_sgbd);
  96.  
  97. //----- Funcoes Auxiliares
  98. //protegido se funcao existe, pois altera��o da Telematica Suricato
  99. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  100. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  101. if(!function_exists("nm_dir_create"))
  102. {
  103. 	function nm_dir_create($v_str_dir)
  104. 	{
  105. 	    if (@is_dir($v_str_dir))
  106. 	    {
  107. 	        return TRUE;
  108. 	    }
  109. 	    $arr_subdir = explode('/', nm_dir_normaliza($v_str_dir));
  110. 	    $str_dir    = $arr_subdir[0] . '/';
  111. 	    for ($i = 1; $i < sizeof($arr_subdir); $i++)
  112. 	    {
  113. 	        $str_dir .= $arr_subdir[$i] . '/';
  114. 	        if (!@is_dir($str_dir))
  115. 	        {
  116. 	            @mkdir($str_dir, 0755);
  117. 	            @chmod($str_dir, 0755);
  118. 	        }
  119. 	    }
  120. 	    return @is_dir($str_dir);
  121. 	}
  122. }
  123.  
  124. function nm_dir_normaliza($v_str_dir)
  125. {
  126.     $str_dir = str_replace("\\", '/', $v_str_dir);
  127.     $str_dir = str_replace('//', '/', $str_dir);
  128.     if ('/' != substr($str_dir, -1))
  129.     {
  130.         $str_dir .= '/';
  131.     }
  132.     return $str_dir;
  133. }
  134.  
  135. function salva_xml($prod_ini_file, $novo_xml, $arr_ini)
  136. {
  137. 	global $nm_lang;
  138.  
  139. 	//atualiza cache e sessao do prod
  140. 	$_SESSION['nm_session']['prod_v8']['arr_ini'] = $arr_ini;
  141. 	$_SESSION['nm_session']['cache']['prod_v8']   = $arr_ini;
  142.  
  143. 	if (!@is_dir(dirname($prod_ini_file)))
  144.     {
  145.         nm_dir_create(dirname($prod_ini_file));
  146.     }
  147.  
  148. 	file_put_contents($prod_ini_file, $novo_xml);
  149. }
  150.  
  151. function prepara_string($string = "")
  152. {
  153.     if (get_magic_quotes_gpc())
  154.     {
  155.         $result = stripslashes($string);
  156.     }
  157.     else
  158.     {
  159.         $result = $string;
  160.     }
  161.     return ($result);
  162. }
  163.  
  164. //protegido se funcao existe, pois altera��o da Telematica Suricato
  165. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  166. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  167. if(!function_exists("encode_string"))
  168. {
  169. 	function encode_string($v_str_decoded)
  170. 	{
  171. 		if(empty($v_str_decoded)) return "";
  172.  
  173. 		$result = shift_letter($v_str_decoded, 5);
  174. 	    $result = xoft_encode($result, "filet com fritas");
  175. 	    $result = substitution($result, "enc");
  176. 	    $result = xoft_encode($result, "arroz com feijao");
  177. 	    $result = shift_letter($result, 17);
  178.  
  179. 		return $result;
  180. 	}
  181. }
  182.  
  183. if(!function_exists("encode_string_utf8"))
  184. {
  185. 	function encode_string_utf8($v_str_decoded)
  186. 	{
  187. 		if(empty($v_str_decoded)) return "";
  188.  
  189. 		return "enc_nm_enc_v1" . encode_string(unicode_encode64($v_str_decoded));
  190. 	}
  191. }
  192.  
  193. if(!function_exists("unicode_encode64"))
  194. {
  195. 	//essas funcoes dao suporte a cryptografia de caracteres utf8
  196. 	function unicode_encode64($v_str_string) {
  197. 		return base64_encode($v_str_string);
  198. 	}
  199. }
  200.  
  201. if(!function_exists("unicode_decode64"))
  202. {
  203. 	//essas funcoes dao suporte a cryptografia de caracteres utf8
  204. 	function unicode_decode64($v_str_string) {
  205. 		return base64_decode($v_str_string);
  206. 	} 
  207. } 
  208.  
  209. //protegido se funcao existe, pois altera��o da Telematica Suricato
  210. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  211. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  212. if(!function_exists("decode_string"))
  213. {
  214. 	function decode_string($string)
  215. 	{
  216. 		$new_crypt = false;
  217. 		if(substr($string, 0, 13) == "enc_nm_enc_v1")
  218. 		{
  219. 			$string = substr($string, 13);
  220. 			$new_crypt = true;
  221. 		}
  222.  
  223. 	    $result = shift_letter($string, 9);
  224. 	    $result = xoft_decode($result, "arroz com feijao");
  225. 	    $result = substitution($result, "dec");
  226. 	    $result = xoft_decode($result, "filet com fritas");
  227. 	    $result = shift_letter($result, 21);
  228.  
  229. 		if($new_crypt)
  230. 		{
  231. 			$result = unicode_decode64($result);
  232. 		}
  233.  
  234. 	    return ($result);
  235. 	}
  236. }
  237.  
  238. //protegido se funcao existe, pois altera��o da Telematica Suricato
  239. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  240. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  241. if(!function_exists("dectobase64"))
  242. {
  243. 	function dectobase64($decimal_value)
  244. 	{
  245. 	    switch($decimal_value)
  246. 	    {
  247. 	        case 0:  $base64_value="A"; break;
  248. 	        case 1:  $base64_value="B"; break;
  249. 	        case 2:  $base64_value="C"; break;
  250. 	        case 3:  $base64_value="D"; break;
  251. 	        case 4:  $base64_value="E"; break;
  252. 	        case 5:  $base64_value="F"; break;
  253. 	        case 6:  $base64_value="G"; break;
  254. 	        case 7:  $base64_value="H"; break;
  255. 	        case 8:  $base64_value="I"; break;
  256. 	        case 9:  $base64_value="J"; break;
  257. 	        case 10: $base64_value="K"; break;
  258. 	        case 11: $base64_value="L"; break;
  259. 	        case 12: $base64_value="M"; break;
  260. 	        case 13: $base64_value="N"; break;
  261. 	        case 14: $base64_value="O"; break;
  262. 	        case 15: $base64_value="P"; break;
  263. 	        case 16: $base64_value="Q"; break;
  264. 	        case 17: $base64_value="R"; break;
  265. 	        case 18: $base64_value="S"; break;
  266. 	        case 19: $base64_value="T"; break;
  267. 	        case 20: $base64_value="U"; break;
  268. 	        case 21: $base64_value="V"; break;
  269. 	        case 22: $base64_value="W"; break;
  270. 	        case 23: $base64_value="X"; break;
  271. 	        case 24: $base64_value="Y"; break;
  272. 	        case 25: $base64_value="Z"; break;
  273. 	        case 26: $base64_value="a"; break;
  274. 	        case 27: $base64_value="b"; break;
  275. 	        case 28: $base64_value="c"; break;
  276. 	        case 29: $base64_value="d"; break;
  277. 	        case 30: $base64_value="e"; break;
  278. 	        case 31: $base64_value="f"; break;
  279. 	        case 32: $base64_value="g"; break;
  280. 	        case 33: $base64_value="h"; break;
  281. 	        case 34: $base64_value="i"; break;
  282. 	        case 35: $base64_value="j"; break;
  283. 	        case 36: $base64_value="k"; break;
  284. 	        case 37: $base64_value="l"; break;
  285. 	        case 38: $base64_value="m"; break;
  286. 	        case 39: $base64_value="n"; break;
  287. 	        case 40: $base64_value="o"; break;
  288. 	        case 41: $base64_value="p"; break;
  289. 	        case 42: $base64_value="q"; break;
  290. 	        case 43: $base64_value="r"; break;
  291. 	        case 44: $base64_value="s"; break;
  292. 	        case 45: $base64_value="t"; break;
  293. 	        case 46: $base64_value="u"; break;
  294. 	        case 47: $base64_value="v"; break;
  295. 	        case 48: $base64_value="w"; break;
  296. 	        case 49: $base64_value="x"; break;
  297. 	        case 50: $base64_value="y"; break;
  298. 	        case 51: $base64_value="z"; break;
  299. 	        case 52: $base64_value="0"; break;
  300. 	        case 53: $base64_value="1"; break;
  301. 	        case 54: $base64_value="2"; break;
  302. 	        case 55: $base64_value="3"; break;
  303. 	        case 56: $base64_value="4"; break;
  304. 	        case 57: $base64_value="5"; break;
  305. 	        case 58: $base64_value="6"; break;
  306. 	        case 59: $base64_value="7"; break;
  307. 	        case 60: $base64_value="8"; break;
  308. 	        case 61: $base64_value="9"; break;
  309. 	        case 62: $base64_value="+"; break;
  310. 	        case 63: $base64_value="/"; break;
  311. 	        case 64: $base64_value="="; break;
  312. 	        default: $base64_value="a"; break;
  313. 	    }
  314. 	    return ($base64_value);
  315. 	}
  316. }
  317.  
  318. //protegido se funcao existe, pois altera��o da Telematica Suricato
  319. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  320. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  321. if(!function_exists("base64todec"))
  322. {
  323. 	function base64todec($base64_value)
  324. 	{
  325. 	    switch($base64_value)
  326. 	    {
  327. 	        case "A": $decimal_value=0;  break;
  328. 	        case "B": $decimal_value=1;  break;
  329. 	        case "C": $decimal_value=2;  break;
  330. 	        case "D": $decimal_value=3;  break;
  331. 	        case "E": $decimal_value=4;  break;
  332. 	        case "F": $decimal_value=5;  break;
  333. 	        case "G": $decimal_value=6;  break;
  334. 	        case "H": $decimal_value=7;  break;
  335. 	        case "I": $decimal_value=8;  break;
  336. 	        case "J": $decimal_value=9;  break;
  337. 	        case "K": $decimal_value=10; break;
  338. 	        case "L": $decimal_value=11; break;
  339. 	        case "M": $decimal_value=12; break;
  340. 	        case "N": $decimal_value=13; break;
  341. 	        case "O": $decimal_value=14; break;
  342. 	        case "P": $decimal_value=15; break;
  343. 	        case "Q": $decimal_value=16; break;
  344. 	        case "R": $decimal_value=17; break;
  345. 	        case "S": $decimal_value=18; break;
  346. 	        case "T": $decimal_value=19; break;
  347. 	        case "U": $decimal_value=20; break;
  348. 	        case "V": $decimal_value=21; break;
  349. 	        case "W": $decimal_value=22; break;
  350. 	        case "X": $decimal_value=23; break;
  351. 	        case "Y": $decimal_value=24; break;
  352. 	        case "Z": $decimal_value=25; break;
  353. 	        case "a": $decimal_value=26; break;
  354. 	        case "b": $decimal_value=27; break;
  355. 	        case "c": $decimal_value=28; break;
  356. 	        case "d": $decimal_value=29; break;
  357. 	        case "e": $decimal_value=30; break;
  358. 	        case "f": $decimal_value=31; break;
  359. 	        case "g": $decimal_value=32; break;
  360. 	        case "h": $decimal_value=33; break;
  361. 	        case "i": $decimal_value=34; break;
  362. 	        case "j": $decimal_value=35; break;
  363. 	        case "k": $decimal_value=36; break;
  364. 	        case "l": $decimal_value=37; break;
  365. 	        case "m": $decimal_value=38; break;
  366. 	        case "n": $decimal_value=39; break;
  367. 	        case "o": $decimal_value=40; break;
  368. 	        case "p": $decimal_value=41; break;
  369. 	        case "q": $decimal_value=42; break;
  370. 	        case "r": $decimal_value=43; break;
  371. 	        case "s": $decimal_value=44; break;
  372. 	        case "t": $decimal_value=45; break;
  373. 	        case "u": $decimal_value=46; break;
  374. 	        case "v": $decimal_value=47; break;
  375. 	        case "w": $decimal_value=48; break;
  376. 	        case "x": $decimal_value=49; break;
  377. 	        case "y": $decimal_value=50; break;
  378. 	        case "z": $decimal_value=51; break;
  379. 	        case "0": $decimal_value=52; break;
  380. 	        case "1": $decimal_value=53; break;
  381. 	        case "2": $decimal_value=54; break;
  382. 	        case "3": $decimal_value=55; break;
  383. 	        case "4": $decimal_value=56; break;
  384. 	        case "5": $decimal_value=57; break;
  385. 	        case "6": $decimal_value=58; break;
  386. 	        case "7": $decimal_value=59; break;
  387. 	        case "8": $decimal_value=60; break;
  388. 	        case "9": $decimal_value=61; break;
  389. 	        case "+": $decimal_value=62; break;
  390. 	        case "/": $decimal_value=63; break;
  391. 	        case "=": $decimal_value=64; break;
  392. 	        default:  $decimal_value=0;  break;
  393. 	    }
  394. 	    return ($decimal_value);
  395. 	}
  396. }
  397.  
  398. //protegido se funcao existe, pois altera��o da Telematica Suricato
  399. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  400. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  401. if(!function_exists("xoft_encode"))
  402. {
  403. 	function xoft_encode($plain_data, $key)
  404. 	{
  405. 	    $key_length    = 0;
  406. 	    $all_bin_chars = "";
  407. 	    $cipher_data   = "";
  408. 	    for ($i = 0; $i < strlen($plain_data); $i++)
  409. 	    {
  410. 	        $p = substr($plain_data, $i, 1);
  411. 	        $k = substr($key, $key_length, 1);
  412. 	        $key_length++;
  413. 	        if ($key_length >= strlen($key))
  414. 	        {
  415. 	            $key_length = 0;
  416. 	        }
  417. 	        $dec_chars = ord($p) ^ ord($k);
  418. 	        $dec_chars = $dec_chars + strlen($key);
  419. 	        $bin_chars = decbin($dec_chars);
  420. 	        while (strlen($bin_chars)<8)
  421. 	        {
  422. 	            $bin_chars = "0" . $bin_chars;
  423. 	        }
  424. 	        $all_bin_chars = $all_bin_chars . $bin_chars;
  425. 	    }
  426. 	    $m = 0;
  427. 	    for ($j = 0; $j < strlen($all_bin_chars); $j = $j + 4)
  428. 	    {
  429. 	        $four_bit      = substr($all_bin_chars, $j, 4);
  430. 	        $four_bit_dec  = bindec($four_bit);
  431. 	        $decimal_value = $four_bit_dec * 4 + $m;
  432. 	        $base64_value  = dectobase64($decimal_value);
  433. 	        $cipher_data   = $cipher_data . $base64_value;
  434. 	        $m++;
  435. 	        if ($m > 3)
  436. 	        {
  437. 	            $m = 0;
  438. 	        }
  439. 	    }
  440. 	    return ($cipher_data);
  441. 	}
  442. }
  443.  
  444. //protegido se funcao existe, pois altera��o da Telematica Suricato
  445. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  446. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  447. if(!function_exists("xoft_decode"))
  448. {
  449. 	function xoft_decode($cipher_data, $key)
  450. 	{
  451. 	    $m             = 0;
  452. 	    $all_bin_chars = "";
  453. 	    for ($i=0;$i<strlen($cipher_data);$i++)
  454. 	    {
  455. 	        $c             = substr($cipher_data, $i, 1);
  456. 	        $decimal_value = base64todec($c);
  457. 	        $decimal_value = ($decimal_value - $m) / 4;
  458. 	        $four_bit      = decbin($decimal_value);
  459. 	        while (strlen($four_bit) < 4)
  460. 	        {
  461. 	            $four_bit = "0" . $four_bit;
  462. 	        }
  463. 	        $all_bin_chars = $all_bin_chars . $four_bit;
  464. 	        $m++;
  465. 	        if ($m > 3)
  466. 	        {
  467. 	            $m = 0;
  468. 	        }
  469. 	    }
  470. 	    $key_length = 0;
  471. 	    $plain_data = "";
  472. 	    for ($j = 0; $j < strlen($all_bin_chars); $j = $j + 8)
  473. 	    {
  474. 	        $c         = substr($all_bin_chars, $j, 8);
  475. 	        $k         = substr($key, $key_length, 1);
  476. 	        $dec_chars = bindec($c);
  477. 	        $dec_chars = $dec_chars - strlen($key);
  478. 	        $c         = chr($dec_chars);
  479. 	        $key_length++;
  480. 	        if ($key_length >= strlen($key))
  481. 	        {
  482. 	            $key_length = 0;
  483. 	        }
  484. 	        $dec_chars  = ord($c) ^ ord($k);
  485. 	        $p          = chr($dec_chars);
  486. 	        $plain_data = $plain_data . $p;
  487. 	    }
  488. 	    return ($plain_data);
  489. 	}
  490. }
  491.  
  492. //protegido se funcao existe, pois altera��o da Telematica Suricato
  493. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  494. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  495. if(!function_exists("shift_letter"))
  496. {
  497. 	function shift_letter($plain, $shift)
  498. 	{
  499. 	    $cipher = "";
  500. 	    for($i = 0;$i < strlen($plain); $i++)
  501. 	    {
  502. 	        $p = substr($plain, $i, 1);
  503. 	        $p = ord($p);
  504. 	        if (($p >= 97) && ($p <= 122))
  505. 	        {
  506. 	            $c = $p + $shift;
  507. 	            if ($c > 122)
  508. 	            {
  509. 	                $c = $c - 26;
  510. 	            }
  511. 	        }
  512. 	        elseif (($p >= 65) && ($p <= 90))
  513. 	        {
  514. 	            $c = $p + $shift;
  515. 	            if($c > 90)
  516. 	            {
  517. 	                $c = $c - 26;
  518. 	            }
  519. 	        }
  520. 	        else
  521. 	        {
  522. 	            $c = $p;
  523. 	        }
  524. 	        $c      = chr($c);
  525. 	        $cipher = $cipher . $c;
  526. 	    }
  527. 	    return ($cipher);
  528. 	}
  529. }
  530.  
  531. //protegido se funcao existe, pois altera��o da Telematica Suricato
  532. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  533. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  534. if(!function_exists("substitution"))
  535. {
  536. 	function substitution($plain, $operation)
  537. 	{
  538. 	    $decode  = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ=";
  539. 	    $encode  = "blPqoVjBiOrnDucdxLyICaRSfAkFQsNtmzZKMpHeTGWhUXJwvYgE_";
  540. 	    $d_temp  = string_to_array($decode);
  541. 	    $e_temp  = string_to_array($encode);
  542. 	    $array_d = array();
  543. 	    $array_e = array();
  544. 	    for ($i = 0; $i < sizeof($d_temp); $i++)
  545. 	    {
  546. 	        $array_d[$e_temp[$i]] = $d_temp[$i];
  547. 	        $array_e[$d_temp[$i]] = $e_temp[$i];
  548. 	    }
  549. 	    $cipher = "";
  550. 	    $array  = ("dec" == $operation) ? $array_d : $array_e;
  551. 	    for ($i = 0; $i < strlen($plain); $i++)
  552. 	    {
  553. 	        $char    = substr($plain, $i, 1);
  554. 	        $cipher .= (in_array($char, $array)) ? $array[$char] : $char;
  555. 	    }
  556. 	    return ($cipher);
  557. 	}
  558. }
  559.  
  560. //protegido se funcao existe, pois altera��o da Telematica Suricato
  561. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  562. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  563. if(!function_exists("string_to_array"))
  564. {
  565. 	function string_to_array($string)
  566. 	{
  567. 	    $str_chunk = chunk_split($string, 1, " ");
  568. 	    $array     = explode(" ", substr($str_chunk, 0, strlen($str_chunk) - 1));
  569. 	    return ($array);
  570. 	}
  571. }
  572.  
  573. //protegido se funcao existe, pois altera��o da Telematica Suricato
  574. //o desenv agora inclui essa lib e algumas funcoes ja existiam na lista de funcoes do scriptcase
  575. //e quando inclui essa lib da erro de funcao ja declarada, entao so inclui se a funcao nao existir
  576. if(!function_exists("getProdVersion"))
  577. {
  578. 	function getProdVersion($v_str_dir_lib)
  579. 	{
  580. 		$v_str_dir_lib .= "/ver.dat";
  581. 		if(is_file($v_str_dir_lib))
  582. 		{
  583. 			return implode("", file($v_str_dir_lib));
  584. 		}
  585. 	}
  586. }
  587. /*
  588. $aaa ="D9XsDQJsZ1rwV5FGHgvsVcBODuFqDoX7D9BsH9FaD1rwZMB/HgBYDkXKH5X/DoXGHQBiDQBqHAvCVWFU";
  589. echo "enc_nm_enc_v1" . decode_string("enc_nm_enc_v1". $aaa);
  590. echo '||';
  591. $aaa ="D9XsDQX7HABYVWJsHuNOVcFKV5X7VoX7DcNwH9FaHArKD5NUDEvsHEBUDWFqDoXGDcBwDQFGHAvmVWFU";
  592. echo "enc_nm_enc_v1" . decode_string("enc_nm_enc_v1". $aaa);
  593. echo '||';
  594. $aaa ="HQBiDuBqHANKV5JeDMNOVcFCH5FqVoF7D9BiZ1B/HArYD5rqDMzGHEJGDWrGZura";
  595. echo "enc_nm_enc_v1" . decode_string("enc_nm_enc_v1". $aaa);
  596. echo '||';
  597. $aaa ="D9XsDQX7HABYVWJsHuNOVcFKV5X7VoX7DcNwH9FaHArKD5NUDEvsHEBOV5JeZura";
  598. */
  599. echo "" . decode_string("enc_nm_enc_v1". "DcJeZSX7HIrKVWJwHuzGVIBOH5FqDoX7HQNmZkBiD1zGV5FUDMBYZSJGHEB7ZuJeD9NwH9X7HANOV5XGDMvsVcBUDWXKVErqD9BiZ1rqHArKV5FUHgvCVkJGDWFqDoXGHQXGDQFGHIrwD5JwHuzGDkFCH5B3DoXGHQNmVIraZ1NOD5XGDMzGHEBUH5X/VoBiDcJeDQX7Z1BYV5FUHuBOVIBOV5X7DoJsDcBqZ1FaHIBeD5JeHgvCVkXeH5FYDoB/D9XsDuBqDSvCV5BqDMvOZSJqDWB3VErq") . PHP_EOL;
  600. echo "" . decode_string("enc_nm_enc_v1". "DcJeDQX7D1veD5F7HuvmVcBOV5BmVEB/") . PHP_EOL;
  601. echo "" . decode_string("enc_nm_enc_v1". "DcBwZSX7HIrKHuJwHuNODkBODWFaVoB/HQBsZSB/HABYHuFUHgNKHArsDWrGZuB/HQBiDQJsHIvsVWFU") . PHP_EOL;
  602. echo "" . decode_string("enc_nm_enc_v1". "DcJeZSX7HIrKVWJwHuzGVIBOH5FqDoX7HQNmZkBiD1rKD5BiDMBYHEXeH5FYDoF7DcBwDQFGD1BeV5Bq") . PHP_EOL;
  603.  
  604. // your code goes here
  605. echo encode_string_utf8("localhost");
  606.  
  607.  
Success #stdin #stdout 0.03s 25876KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
church15.cy8rbq816tpn.us-west-2.rds.amazonaws.com:3306
admin
ghUoaaFaT5250h
church14_access
enc_nm_enc_v1D9XsDQJsZ1rwV5FGHgvsVcBODuFqDoX7D9BsH9FaD1rwZMB/
https://ideone.com/YuOvOf
language:
PHP (php 7.3.5)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!