[دالــــة] تشفير وفك تشفير الأعداد أو النصوص بطريقه جديده

[walid_8281500]

السلام عليكم ورحمة الله وبركاته
الاخوه أعضاء معهد ترايدنت
اليوم جايبلكم داله جديده لتشفير الاعداد أو النصوص أو مزيج منهما بطريقه جديده
غير Md5

الداله هى كما يلى :



<?php
FUNCTION ENCRYPT_DECRYPT($Str_Message) {
$Len_Str_Message=STRLEN($Str_Message);
$Str_Encrypted_Message="";
echo $Str_Encrypted_Message."<br/>";
FOR ($Position = 0;$Position<$Len_Str_Message;$Position++){

$Key_To_Use = (($Len_Str_Message+$Position)+1);
$Key_To_Use = (255+$Key_To_Use) % 255;
$Byte_To_Be_Encrypted = SUBSTR($Str_Message, $Position, 1);
$Ascii_Num_Byte_To_Encrypt = ORD($Byte_To_Be_Encrypted);
$Xored_Byte = $Ascii_Num_Byte_To_Encrypt ^ $Key_To_Use;
$Encrypted_Byte = CHR($Xored_Byte);
$Str_Encrypted_Message .= $Encrypted_Byte;
}
RETURN $Str_Encrypted_Message;
}


FUNCTION ENCRYPT_DECRYPT1($Str_Message) {

$Len_Str_Message=STRLEN($Str_Message);
$Str_Encrypted_Message="";
echo $Str_Encrypted_Message."<br/>";
FOR ($Position = 0;$Position<$Len_Str_Message;$Position++){

$Key_To_Use = (($Len_Str_Message+$Position)+1);
$Key_To_Use = (255+$Key_To_Use) % 255;
$Byte_To_Be_Encrypted = SUBSTR($Str_Message, $Position, 1);
$Ascii_Num_Byte_To_Encrypt = ORD($Byte_To_Be_Encrypted);
$Xored_Byte = $Ascii_Num_Byte_To_Encrypt ^ $Key_To_Use;
$Encrypted_Byte = CHR($Xored_Byte);
$Str_Encrypted_Message .= $Encrypted_Byte;


}
RETURN $Str_Encrypted_Message;
}
?>

أما بالنسبه للاستخدام كمثال


<?php
echo "Encryption of a string '100abc' is :";
echo ENCRYPT_DECRYPT("100abc")."<br/>";
echo "Decryption of a string '100abc' is :";
$a= ENCRYPT_DECRYPT("100abc")."<br/>";
echo ENCRYPT_DECRYPT1($a)."<br/><br/>";
?>