虽说分享是传统的美德，但我们有时候辛辛苦苦写一些程序只是为了卖点小钱，挣点辛苦费，也防止有些没有道德的人倒卖，所以我们不得不对我们的程序进行加密，以下我们来介绍一下如何通过PHP的自定义函数来加密我们的PHP源代码。MvP华陈数据科技
第一个方法MvP华陈数据科技
MvP华陈数据科技
<?php MvP华陈数据科技
function encode_file_contents($filename) { MvP华陈数据科技
$type=strtolower(substr(strrchr($filename,'.'),1)); MvP华陈数据科技
if ('php' == $type && is_file($filename) && is_writable($filename)) { // 如果是PHP文件 并且可写 则进行压缩编码 MvP华陈数据科技
$contents = file_get_contents($filename); // 判断文件是否已经被编码处理 MvP华陈数据科技
$contents = php_strip_whitespace($filename); MvP华陈数据科技
MvP华陈数据科技
// 去除PHP头部和尾部标识 MvP华陈数据科技
$headerPos = strpos($contents,'<?php'); MvP华陈数据科技
$footerPos = strrpos($contents,'?>'); MvP华陈数据科技
$contents = substr($contents, $headerPos + 5, $footerPos - $headerPos); MvP华陈数据科技
$encode = base64_encode(gzdeflate($contents)); // 开始编码 MvP华陈数据科技
$encode = '<?php'."\n eval(gzinflate(base64_decode("."'".$encode."'".")));\n\n?>"; MvP华陈数据科技
MvP华陈数据科技
return file_put_contents($filename, $encode); MvP华陈数据科技
} MvP华陈数据科技
return false; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
//调用函数 MvP华陈数据科技
$filename = 'dam.php'; MvP华陈数据科技
encode_file_contents($filename); MvP华陈数据科技
echo "OK,加密完成！" MvP华陈数据科技
?>MvP华陈数据科技
MvP华陈数据科技
第二个方法MvP华陈数据科技
MvP华陈数据科技
<?php MvP华陈数据科技
MvP华陈数据科技
function RandAbc($length = "") { // 返回随机字符串 MvP华陈数据科技
$str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; MvP华陈数据科技
return str_shuffle($str); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
$filename = 'index.php'; //要加密的文件 MvP华陈数据科技
$T_k1 = RandAbc(); //随机密匙1 MvP华陈数据科技
$T_k2 = RandAbc(); //随机密匙2 MvP华陈数据科技
$vstr = file_get_contents($filename); MvP华陈数据科技
$v1 = base64_encode($vstr); MvP华陈数据科技
$c = strtr($v1, $T_k1, $T_k2); //根据密匙替换对应字符。 MvP华陈数据科技
$c = $T_k1.$T_k2.$c; MvP华陈数据科技
$q1 = "O00O0O"; MvP华陈数据科技
$q2 = "O0O000"; MvP华陈数据科技
$q3 = "O0OO00"; MvP华陈数据科技
$q4 = "OO0O00"; MvP华陈数据科技
$q5 = "OO0000"; MvP华陈数据科技
$q6 = "O00OO0"; MvP华陈数据科技
$s = '$'.$q6.'=urldecode("%6E1%7A%62%2F%6D%615%5C%76%740%6928%2D%70%78%75%71%79%2A6%6C%72%6B%64%679%5F%65%68%63%73%77%6F4%2B%6637%6A");$'.$q1.'=$'.$q6.'{3}.$'.$q6.'{6}.$'.$q6.'{33}.$'.$q6.'{30};$'.$q3.'=$'.$q6.'{33}.$'.$q6.'{10}.$'.$q6.'{24}.$'.$q6.'{10}.$'.$q6.'{24};$'.$q4.'=$'.$q3.'{0}.$'.$q6.'{18}.$'.$q6.'{3}.$'.$q3.'{0}.$'.$q3.'{1}.$'.$q6.'{24};$'.$q5.'=$'.$q6.'{7}.$'.$q6.'{13};$'.$q1.'.=$'.$q6.'{22}.$'.$q6.'{36}.$'.$q6.'{29}.$'.$q6.'{26}.$'.$q6.'{30}.$'.$q6.'{32}.$'.$q6.'{35}.$'.$q6.'{26}.$'.$q6.'{30};eval($'.$q1.'("'.base64_encode('$'.$q2.'="'.$c.'";eval(\'?>\'.$'.$q1.'($'.$q3.'($'.$q4.'($'.$q2.',$'.$q5.'*2),$'.$q4.'($'.$q2.',$'.$q5.',$'.$q5.'),$'.$q4.'($'.$q2.',0,$'.$q5.'))));').'"));'; MvP华陈数据科技
MvP华陈数据科技
$s = '<?php '."\n".$s."\n".' ?>'; MvP华陈数据科技
//echo $s; MvP华陈数据科技
// 生成 加密后的PHP文件 MvP华陈数据科技
$fpp1 = fopen('temp_'.$filename, 'w'); MvP华陈数据科技
fwrite($fpp1, $s) or die('写文件错误'); MvP华陈数据科技
MvP华陈数据科技
?>MvP华陈数据科技
MvP华陈数据科技
第三个方法MvP华陈数据科技
<?php MvP华陈数据科技
MvP华陈数据科技
class text_auth MvP华陈数据科技
{ MvP华陈数据科技
var $n_iter; MvP华陈数据科技
MvP华陈数据科技
function text_auth() MvP华陈数据科技
{ MvP华陈数据科技
$this->setIter(32); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function setIter($n_iter) MvP华陈数据科技
{ MvP华陈数据科技
$this->n_iter = $n_iter; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function getIter() MvP华陈数据科技
{ MvP华陈数据科技
return $this->n_iter; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function encrypt($data, $key) MvP华陈数据科技
{ MvP华陈数据科技
$n = $this->_resize($data, 4); MvP华陈数据科技
MvP华陈数据科技
$data_long[0] = $n; MvP华陈数据科技
$n_data_long = $this->_str2long(1, $data, $data_long); MvP华陈数据科技
MvP华陈数据科技
$n = count($data_long); MvP华陈数据科技
if (($n & 1) == 1) { MvP华陈数据科技
$data_long[$n] = chr(0); MvP华陈数据科技
$n_data_long++; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
$this->_resize($key, 16, true); MvP华陈数据科技
if ( '' == $key ) MvP华陈数据科技
$key = '0000000000000000'; MvP华陈数据科技
MvP华陈数据科技
$n_key_long = $this->_str2long(0, $key, $key_long); MvP华陈数据科技
MvP华陈数据科技
$enc_data = ''; MvP华陈数据科技
$w = array(0, 0); MvP华陈数据科技
$j = 0; MvP华陈数据科技
$k = array(0, 0, 0, 0); MvP华陈数据科技
for ($i = 0; $i < $n_data_long; ++$i) { MvP华陈数据科技
if ($j + 4 <= $n_key_long) { MvP华陈数据科技
$k[0] = $key_long[$j]; MvP华陈数据科技
$k[1] = $key_long[$j + 1]; MvP华陈数据科技
$k[2] = $key_long[$j + 2]; MvP华陈数据科技
$k[3] = $key_long[$j + 3]; MvP华陈数据科技
} else { MvP华陈数据科技
$k[0] = $key_long[$j % $n_key_long]; MvP华陈数据科技
$k[1] = $key_long[($j + 1) % $n_key_long]; MvP华陈数据科技
$k[2] = $key_long[($j + 2) % $n_key_long]; MvP华陈数据科技
$k[3] = $key_long[($j + 3) % $n_key_long]; MvP华陈数据科技
} MvP华陈数据科技
$j = ($j + 4) % $n_key_long; MvP华陈数据科技
MvP华陈数据科技
$this->_encipherLong($data_long[$i], $data_long[++$i], $w, $k); MvP华陈数据科技
MvP华陈数据科技
$enc_data .= $this->_long2str($w[0]); MvP华陈数据科技
$enc_data .= $this->_long2str($w[1]); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
return $enc_data; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function decrypt($enc_data, $key) MvP华陈数据科技
{ MvP华陈数据科技
$n_enc_data_long = $this->_str2long(0, $enc_data, $enc_data_long); MvP华陈数据科技
MvP华陈数据科技
$this->_resize($key, 16, true); MvP华陈数据科技
if ( '' == $key ) MvP华陈数据科技
$key = '0000000000000000'; MvP华陈数据科技
MvP华陈数据科技
$n_key_long = $this->_str2long(0, $key, $key_long); MvP华陈数据科技
MvP华陈数据科技
$data = ''; MvP华陈数据科技
$w = array(0, 0); MvP华陈数据科技
$j = 0; MvP华陈数据科技
$len = 0; MvP华陈数据科技
$k = array(0, 0, 0, 0); MvP华陈数据科技
$pos = 0; MvP华陈数据科技
MvP华陈数据科技
for ($i = 0; $i < $n_enc_data_long; $i += 2) { MvP华陈数据科技
if ($j + 4 <= $n_key_long) { MvP华陈数据科技
$k[0] = $key_long[$j]; MvP华陈数据科技
$k[1] = $key_long[$j + 1]; MvP华陈数据科技
$k[2] = $key_long[$j + 2]; MvP华陈数据科技
$k[3] = $key_long[$j + 3]; MvP华陈数据科技
} else { MvP华陈数据科技
$k[0] = $key_long[$j % $n_key_long]; MvP华陈数据科技
$k[1] = $key_long[($j + 1) % $n_key_long]; MvP华陈数据科技
$k[2] = $key_long[($j + 2) % $n_key_long]; MvP华陈数据科技
$k[3] = $key_long[($j + 3) % $n_key_long]; MvP华陈数据科技
} MvP华陈数据科技
$j = ($j + 4) % $n_key_long; MvP华陈数据科技
MvP华陈数据科技
$this->_decipherLong($enc_data_long[$i], $enc_data_long[$i + 1], $w, $k); MvP华陈数据科技
MvP华陈数据科技
if (0 == $i) { MvP华陈数据科技
$len = $w[0]; MvP华陈数据科技
if (4 <= $len) { MvP华陈数据科技
$data .= $this->_long2str($w[1]); MvP华陈数据科技
} else { MvP华陈数据科技
$data .= substr($this->_long2str($w[1]), 0, $len % 4); MvP华陈数据科技
} MvP华陈数据科技
} else { MvP华陈数据科技
$pos = ($i - 1) * 4; MvP华陈数据科技
if ($pos + 4 <= $len) { MvP华陈数据科技
$data .= $this->_long2str($w[0]); MvP华陈数据科技
MvP华陈数据科技
if ($pos + 8 <= $len) { MvP华陈数据科技
$data .= $this->_long2str($w[1]); MvP华陈数据科技
} elseif ($pos + 4 < $len) { MvP华陈数据科技
$data .= substr($this->_long2str($w[1]), 0, $len % 4); MvP华陈数据科技
} MvP华陈数据科技
} else { MvP华陈数据科技
$data .= substr($this->_long2str($w[0]), 0, $len % 4); MvP华陈数据科技
} MvP华陈数据科技
} MvP华陈数据科技
} MvP华陈数据科技
return $data; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _encipherLong($y, $z, &$w, &$k) MvP华陈数据科技
{ MvP华陈数据科技
$sum = (integer) 0; MvP华陈数据科技
$delta = 0x9E3779B9; MvP华陈数据科技
$n = (integer) $this->n_iter; MvP华陈数据科技
MvP华陈数据科技
while ($n-- > 0) { MvP华陈数据科技
$y = $this->_add($y, MvP华陈数据科技
$this->_add($z << 4 ^ $this->_rshift($z, 5), $z) ^ MvP华陈数据科技
$this->_add($sum, $k[$sum & 3])); MvP华陈数据科技
$sum = $this->_add($sum, $delta); MvP华陈数据科技
$z = $this->_add($z, MvP华陈数据科技
$this->_add($y << 4 ^ $this->_rshift($y, 5), $y) ^ MvP华陈数据科技
$this->_add($sum, $k[$this->_rshift($sum, 11) & 3])); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
$w[0] = $y; MvP华陈数据科技
$w[1] = $z; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _decipherLong($y, $z, &$w, &$k) MvP华陈数据科技
{ MvP华陈数据科技
$sum = 0xC6EF3720; MvP华陈数据科技
$delta = 0x9E3779B9; MvP华陈数据科技
$n = (integer) $this->n_iter; MvP华陈数据科技
MvP华陈数据科技
while ($n-- > 0) { MvP华陈数据科技
$z = $this->_add($z, MvP华陈数据科技
-($this->_add($y << 4 ^ $this->_rshift($y, 5), $y) ^ MvP华陈数据科技
$this->_add($sum, $k[$this->_rshift($sum, 11) & 3]))); MvP华陈数据科技
$sum = $this->_add($sum, -$delta); MvP华陈数据科技
$y = $this->_add($y, MvP华陈数据科技
-($this->_add($z << 4 ^ $this->_rshift($z, 5), $z) ^ MvP华陈数据科技
$this->_add($sum, $k[$sum & 3]))); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
$w[0] = $y; MvP华陈数据科技
$w[1] = $z; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _resize(&$data, $size, $nonull = false) MvP华陈数据科技
{ MvP华陈数据科技
$n = strlen($data); MvP华陈数据科技
$nmod = $n % $size; MvP华陈数据科技
if ( 0 == $nmod ) MvP华陈数据科技
$nmod = $size; MvP华陈数据科技
MvP华陈数据科技
if ($nmod > 0) { MvP华陈数据科技
if ($nonull) { MvP华陈数据科技
for ($i = $n; $i < $n - $nmod + $size; ++$i) { MvP华陈数据科技
$data[$i] = $data[$i % $n]; MvP华陈数据科技
} MvP华陈数据科技
} else { MvP华陈数据科技
for ($i = $n; $i < $n - $nmod + $size; ++$i) { MvP华陈数据科技
$data[$i] = chr(0); MvP华陈数据科技
} MvP华陈数据科技
} MvP华陈数据科技
} MvP华陈数据科技
return $n; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _hex2bin($str) MvP华陈数据科技
{ MvP华陈数据科技
$len = strlen($str); MvP华陈数据科技
return pack('H' . $len, $str); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _str2long($start, &$data, &$data_long) MvP华陈数据科技
{ MvP华陈数据科技
$n = strlen($data); MvP华陈数据科技
MvP华陈数据科技
$tmp = unpack('N*', $data); MvP华陈数据科技
$j = $start; MvP华陈数据科技
MvP华陈数据科技
foreach ($tmp as $value) MvP华陈数据科技
$data_long[$j++] = $value; MvP华陈数据科技
MvP华陈数据科技
return $j; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _long2str($l) MvP华陈数据科技
{ MvP华陈数据科技
return pack('N', $l); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _rshift($integer, $n) MvP华陈数据科技
{ MvP华陈数据科技
if (0xffffffff < $integer || -0xffffffff > $integer) { MvP华陈数据科技
$integer = fmod($integer, 0xffffffff + 1); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
if (0x7fffffff < $integer) { MvP华陈数据科技
$integer -= 0xffffffff + 1.0; MvP华陈数据科技
} elseif (-0x80000000 > $integer) { MvP华陈数据科技
$integer += 0xffffffff + 1.0; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
if (0 > $integer) { MvP华陈数据科技
$integer &= 0x7fffffff; MvP华陈数据科技
$integer >>= $n; MvP华陈数据科技
$integer |= 1 << (31 - $n); MvP华陈数据科技
} else { MvP华陈数据科技
$integer >>= $n; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
return $integer; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
function _add($i1, $i2) MvP华陈数据科技
{ MvP华陈数据科技
$result = 0.0; MvP华陈数据科技
MvP华陈数据科技
foreach (func_get_args() as $value) { MvP华陈数据科技
if (0.0 > $value) { MvP华陈数据科技
$value -= 1.0 + 0xffffffff; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
$result += $value; MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
if (0xffffffff < $result || -0xffffffff > $result) { MvP华陈数据科技
$result = fmod($result, 0xffffffff + 1); MvP华陈数据科技
} MvP华陈数据科技
MvP华陈数据科技
if (0x7fffffff < $result) { MvP华陈数据科技
$result -= 0xffffffff + 1.0; MvP华陈数据科技
} elseif (-0x80000000 > $result) { MvP华陈数据科技
$result += 0xffffffff + 1.0; MvP华陈数据科技
} MvP华陈数据科技
return $result; MvP华陈数据科技
} MvP华陈数据科技
} MvP华陈数据科技
?> MvP华陈数据科技
使用方法参考如下：MvP华陈数据科技
// 加密过程MvP华陈数据科技
view sourceprint?MvP华陈数据科技
$text_file = S_ROOT . './456.php'; MvP华陈数据科技
$str = @file_get_contents($text_file); MvP华陈数据科技
MvP华陈数据科技
require_once S_ROOT . "./text_auth.php"; MvP华陈数据科技
$text_auth = new text_auth(64); MvP华陈数据科技
MvP华陈数据科技
$str = $text_auth->encrypt($str, "qianyunlai.com"); MvP华陈数据科技
MvP华陈数据科技
$filename = S_ROOT . './789.php'; // 加密后的文本为二进制，普通的文本编辑器无法正常查看 MvP华陈数据科技
file_put_contents($filename, $str); MvP华陈数据科技
// 解密过程MvP华陈数据科技
view sourceprintMvP华陈数据科技
?01 $text_file = S_ROOT . './789.php'; MvP华陈数据科技
$str = @file_get_contents($text_file); MvP华陈数据科技
MvP华陈数据科技
require_once S_ROOT . "./text_auth.php"; MvP华陈数据科技
$text_auth = new text_auth(64); MvP华陈数据科技
MvP华陈数据科技
$str = $text_auth->decrypt($str, "qianyunlai.com"); MvP华陈数据科技
MvP华陈数据科技
$filename = S_ROOT . './456.php'; MvP华陈数据科技
file_put_contents($filename, $str);MvP华陈数据科技
MvP华陈数据科技
MvP华陈数据科技
|
