<?
function _fwk_filter_encrypt($content)
{
$table = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ_@";
$xor = 165;

// Prepare encoding table
$table = array_keys(count_chars($table, 1));
$i_min = min($table);
$i_max = max($table);
for ($c = count($table); $c > 0; $r = mt_rand(0, $c--))
array_splice($table, $r, $c - $r, array_reverse(array_slice($table, $r, $c - $r)));

// Encode sequence
$len = strlen($content);
$word = $shift = 0;
for ($i = 0; $i < $len; $i++)
{
$ch = $xor ^ ord($content[$i]);
$word |= ($ch << $shift);
$shift = ($shift + 2) % 6;
$enc .= chr($table[$word & 0x3F]);
$word >>= 6;
if (!$shift)
{
$enc .= chr($table[$word]);
$word >>= 6;
}
}
if ($shift)
$enc .= chr($table[$word]);

// Decode sequence
$tbl = array_fill($i_min, $i_max - $i_min + 1, 0);
while (list($k,$v) = each($table))
$tbl[$v] = $k;
$tbl = implode(",", $tbl);

$fi = ",p=0,s=0,w=0,t=Array({$tbl})";
$f = "w|=(t[x.charCodeAt(p++)-{$i_min}])<<s;";
$f .= "if(s){r+=String.fromCharCode({$xor}^w&255);w>>=8; s-=2}else{s=6}";

// Generate page
$r = "<script language=JavaScript>";
$r.= "function decrypt_p(x){";
$r.= "var l=x.length,b=1024,i,j,r{$fi};";
$r.= "for(j=Math.ceil(l/b);j>0;j--){r='';for(i=Math.min(l,b);i>0;i--,l--){{$f}}document.write(r)}";
$r.= "}decrypt_p(\"{$enc}\")";
$r.= "</script>";
return $r;
}
ob_start("_fwk_filter_encrypt");

?>

<pre><?
$input = "crypt.php";
$output = "crypt12.php";


#################################
///
$f=join("", file($input));
// $f=str_replace("\t", "", str_replace(";\r\n", ";", join("", file($input))));
$key = rand(1,100);

$start_pos = strpos($f, "<?php");
if($start_pos === false )
{
$start_pos = strpos($f, "<?");
if($start_pos !== false )
{
$f= substr($f, $start_pos+2, strlen($f));
}
}
else
{
$f= substr($f, $start_pos+5, strlen($f));
}

$start_pos = strrpos($f, "?>");
$f=substR($f, 0, $start_pos);


$new = '';$len=strlen($f);


for($i=0;$i<$len;$i++)
{
$new .= chr(ord($f[$i]) ^ $key);
}
$new = str_replace("<?", "[phpcode]", $new);



$code = "<?
\$кeу=$key;\$str=file(__FILE__);\$res=''; for(\$j=2;\$j<count(\$str);\$j++) \$res .=\$str[\$j];\$str=str_replace(\"[phpcode]\", \"<?\", \$res);\$len=strlen(\$str);\$ev='';for(\$i=0;\$i<\ $len;\$i++)\$ev .= chr(ord(\$str[\$i]) ^ \$key);eval(\$ev);exit;?>
$new";

fwrite( fopen($output, "w"), $code);

Желательно это и было первоночальной целью реально ктонить может чтото посоветовать?

№ 2