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