Suppression des droits d'exécution des fichiers.

[auf_paf.git] / includes / tclyit_cam_pc.php

<?php\r
//--Veuillez m'aider pour améliorer cette fonction--et envoyer à tclyit@gmail.com\r
//--------Vos critiques sont bienvenues!!----------------------------------------\r
//----------Encrypt----------------------------\r
\r
function tcly($string, $key) {\r
$result = '';\r
for($i=0; $i<strlen($string); $i++){\r
$char = substr($string, $i, 1);\r
$keychar = substr($key, ($i % strlen($key))-1, 1);\r
$char = chr(ord($char)+ord($keychar));\r
$result.=$char;\r
}\r
return base64_encode($result);\r
}\r
\r
/*$key1 = "Chhunly";\r
$Se = "1@2!3#^&%()-_+=[{}}|\;:,.Chhunly";\r
$See = encrypt($Se,$key1);\r
echo "Encrypt: ".$See."<br /><br />";*/\r
\r
//----------Decrypt----------------------------\r
function bbcsr($string, $key) {\r
$result = '';\r
$string = base64_decode($string);\r
\r
for($i=0; $i<strlen($string); $i++){\r
$char = substr($string, $i, 1);\r
$keychar = substr($key, ($i % strlen($key))-1, 1);\r
$char = chr(ord($char)-ord($keychar));\r
$result.=$char;\r
}\r
return $result;\r
}\r
/*$key2 = "Chhunly";\r
$Sd = "n4OaiaiRyp91kIqZy5CrnuPl8urItIqUj6/UzeOx1OE=";\r
$Sdd = decrypt($Sd,$key2);\r
echo "Decrypt: ".$Sdd;*/\r
\r
//------------Valider Email Addresse--------------------------------\r
\r
function check_emails($email){\r
  // First, we check that there's one @ symbol, and that the lengths are right\r
  if (!ereg("^[^@]{1,64}@[^@]{1,255}$", $email)){\r
    return false;\r
  }\r
  // Split it into sections\r
  $email_array = explode("@", $email);\r
  $local_array = explode(".", $email_array[0]);\r
  for ($i = 0; $i < sizeof($local_array); $i++){\r
     if (!ereg("^(([A-Za-z0-9!#$%&#038;'*+/=?^_`{|}~-][A-Za-z0-9!#$%&#038;'*+/=?^_`{|}~\.-]{0,63})|(\"[^(\\|\")]{0,62}\"))$", $local_array[$i])){\r
      return false;\r
    }\r
  }\r
// Check if domain is IP. If not, it should be valid domain name\r
  if (!ereg("^\[?[0-9\.]+\]?$", $email_array[1])){\r
    $domain_array = explode(".", $email_array[1]);\r
    if (sizeof($domain_array) < 2) {\r
        return false; // Not enough parts to domain\r
  }\r
    for ($i = 0; $i < sizeof($domain_array); $i++){\r
      if (!ereg("^(([A-Za-z0-9][A-Za-z0-9-]{0,61}[A-Za-z0-9])|([A-Za-z0-9]+))$", $domain_array[$i])){\r
        return false;\r
      }\r
    }\r
  }\r
  return true;\r
}\r
?>