基於進制轉換的 <?
//made by huyang @2005-01-20||11-04-06
##用n進位制到m進位制
##0~9A-Z，最多可理解為36進制范圍
print'<title>加密解密法</title>';
class carry
{
function carry($n,$m)
{
$this->n=$n;
$this->m=$m;
$this->chn['0']=0;
$this->chn['1']=1;
$this->chn['2']=2;
$this->chn['3']=3;
$this->chn['4']=4;
$this->chn['5']=5;
$this->chn['6']=6;
$this->chn['7']=7;
$this->chn['8']=8;
$this->chn['9']=9;
$this->chn['A']=10;
$this->chn['B']=11;
$this->chn['C']=12;
$this->chn['D']=13;
$this->chn['E']=14;
$this->chn['F']=15;
$this->chn['G']=16;
$this->chn['H']=17;
$this->chn['I']=18;
$this->chn['J']=19;
$this->chn['K']=20;
$this->chn['L']=21;
$this->chn['M']=22;
$this->chn['N']=23;
$this->chn['O']=24;
$this->chn['P']=25;
$this->chn['Q']=26;
$this->chn['R']=27;
$this->chn['S']=28;
$this->chn['T']=29;
$this->chn['U']=30;
$this->chn['V']=31;
$this->chn['W']=32;
$this->chn['X']=33;
$this->chn['Y']=34;
$this->chn['Z']=35;
$this->cn[0]='0';
$this->cn[1]='1';
$this->cn[2]='2';
$this->cn[3]='3';
$this->cn[4]='4';
$this->cn[5]='5';
$this->cn[6]='6';
$this->cn[7]='7';
$this->cn[8]='8';
$this->cn[9]='9';
$this->cn[10]='A';
$this->cn[11]='B';
$this->cn[12]='C';
$this->cn[13]='D';
$this->cn[14]='E';
$this->cn[15]='F';
$this->cn[16]='G';
$this->cn[17]='H';
$this->cn[18]='I';
$this->cn[19]='J';
$this->cn[20]='K';
$this->cn[21]='L';
$this->cn[22]='M';
$this->cn[23]='N';
$this->cn[24]='O';
$this->cn[25]='P';
$this->cn[26]='Q';
$this->cn[27]='R';
$this->cn[28]='S';
$this->cn[29]='T';
$this->cn[30]='U';
$this->cn[31]='V';
$this->cn[32]='W';
$this->cn[33]='X';
$this->cn[34]='Y';
$this->cn[35]='Z';
}
function check1($a)
{
if(ereg("[0-9]",$a))
if($a>=2)
if($a<=36)
return true;
return false;
}
function check2($a)
{
$la=0;
for($j=0;$j<strlen($a);$j++)
{
if($this->chn[substr($a,$j,1)]>=$this->n)
$la=1;
if($la)
break;
}
if($la)
return false;
else
return true;
}
function toDEC($a)//$n->十進制
{
if($this->n==10)
return $a;
else
{
$a=strrev($a);
$k=0;
for($i=0;$i<strlen($a);$i++)
{
$k+=$this->chn[substr($a,$i,1)]*pow($this->n,$i);
}
return $k;
}
}
function gethigh($a)
{
if($a<=1)
return 1;
else
{
for($i=0;$i<100;$i++)
{
if(pow($this->m,$i)>$a)
break;
}
return $i;
}
}
function toM($a)//十進制->$m
{
$a1=$this->gethigh($a);
$res="";
for($i=1;$i<=$a1;$i++)
{
$u=($a-$a%pow($this->m,($a1-$i)))/(pow($this->m,($a1-$i)));
$a-=$u*pow($this->m,($a1-$i));
$res.=$this->cn[$u];
}
return $res;
}
function get($a)
{
if(!$this->n)$this->n=10;
if(!$this->m)$this->m=10;
if(($this->check1($this->n))&&($this->check1($this->m)))
{
if(ereg("[0-9A-Z]",$a))
{
if($this->check2($a))
{
return $this->toM($this->toDEC($a));
}
else
return false;
}
else
return false;
}
else
return false;
}
}
class han
{
function han()
{
for($i=0;$i<10;$i++)
{
$this->hu1[$i]=$i;
$this->hu2[$i]=$i;
}
for($i=10;$i<36;$i++)
{
$this->hu1[$i]=chr($i+55);
$this->hu2[chr($i+55)]=$i;
}
for($i=36;$i<62;$i++)
{
$this->hu1[$i]=chr($i+61);
$this->hu2[chr($i+61)]=$i;
}
$this->hu1[62]=chr(42);
$this->hu1[63]=chr(43);
$this->hu2[chr(42)]=62;
$this->hu2[chr(43)]=63;
}
function tocode($str)//將一組字符轉變成為代碼0~65536
{
$huyang1=new carry(10,33);
$j=0;
for($i=0;$i<strlen($str);$i++)
{
$p=ord(substr($str,$i,1));
if($p>160)
{
$q=ord(substr($str,++$i,1));
$p=$p*256+$q;
}
else
$p=255*256+$p;
$ret.=$huyang1->get($p);
$j++;
}
return $ret;
}
function getcode($str)
{
$huyang=new carry(33,10);
$res="";
for($i=0;$i<(strlen($str)/4);$i++)
{
$a=$huyang->get(substr($str,($i*4),4));
$a2=$a%256;
$a1=($a-$a2)/256;
if($a1==255)
$res.=chr($a2);
else
$res.=chr($a1).chr($a2);
}
return $res;
}
function encode($str)
{
$res="";
$huyang=new carry(35,7);
$huyang1=new carry(8,10);
$str1=$this->tocode($str);
$k=ceil(strlen($str1)/3);
for($i=0;$i<$k;$i++)
{
$word=$this->hu1[rand(0,61)];
$res1=$huyang1->get($huyang->get(substr($str1,($i*3),3)));
$res11=($res1-$res1%(64*64))/(64*64);
$res1-=$res11*64*64;
$res12=($res1-$res1%64)/64;
$res1-=$res12*64;
$res13=$res1;
if($i==($k-1))
{
if($res11!=0)
{
$res.=$this->hu1[$res11].$this->hu1[$res12].$this->hu1[$res13].$word;
}
elseif($res12!=0)
{
$res.=$this->hu1[$res12].$this->hu1[$res13].$word;
}
elseif($res13!=0)
{
$res.=$this->hu1[$res13].$word;
}
}
else
$res.=$this->hu1[$res11].$this->hu1[$res12].$this->hu1[$res13].$word;
}
return trim($res);
}
function discode($str)
{
$len=ceil(strlen($str)/4);
$res="";
$a=strlen($str)-4*($len-1);
for($i=0;$i<$len;$i++)
{
if($i!=($len-1))
{
$res1=substr($str,$i*4,1);
$res2=substr($str,($i*4+1),1);
$res3=substr($str,($i*4+2),1);
$res11=$this->hu2[$res1];
$res12=$this->hu2[$res2];
$res13=$this->hu2[$res3];
$res14=$res11*64*64+$res12*64+$res13;
$res.=" ".$res14;
}
else
{
if($a%4==0)
{
$res1=substr($str,$i*4,1);
$res2=substr($str,($i*4+1),1);
$res3=substr($str,($i*4+2),1);
$res11=$this->hu2[$res1];
$res12=$this->hu2[$res2];
$res13=$this->hu2[$res3];
$res14=$res11*64*64+$res12*64+$res13;
$res.=" ".$res14;
}
elseif($a%4==2)
{
$res1=substr($str,$i*4,1);
$res11=$this->hu2[$res1];
$res14=$res11;
$res.=" ".$res14;
}
elseif($a%4==3)
{
$res1=substr($str,$i*4,1);
$res2=substr($str,($i*4+1),1);
$res11=$this->hu2[$res1];
$res12=$this->hu2[$res2];
$res14=$res11*64+$res12;
$res.=" ".$res14;
}
}
}
return trim($res);
}
function decode($str)
{
$str=$this->discode($str);
$a=explode(" ",$str);
$res="";
$huyang=new carry(7,35);
$huyang1=new carry(10,8);
for($i=0;$i<count($a);$i++)
{
//$res.=$huyang->get($a[$i]);
if($i==(count($a)-1))
$res.=$huyang->get($huyang1->get($a[$i]));
else
{
$b=$huyang->get($huyang1->get($a[$i]));
if(strlen($b)==0)
$res.="000";
elseif(strlen($b)==1)
$res.="00".$b;
elseif(strlen($b)==2)
$res.="0".$b;
else
$res.=$b;
}
}
return $this->getcode($res);
}
}
$s=microtime();
$st=explode(' ',$s);
$st1=$st[0];
$st2=$st[1];
$huyang=new han;
$str=$_POST['str'];
if(!$str)$str="請輸入查詢語句!!";
$len=strlen($str);
if($submit)
$a=$huyang->encode($str);
if($submit1)
$a=$huyang->decode($str);
$a=str_replace("\\","\",$a);
$a=str_replace("\\"","\"",$a);
$a=str_replace("\\'","\'",$a);
$s=microtime();
$st=explode(' ',$s);
$sta=$st[0];
$stb=$st[1];
$ss1=$sta-$st1;
$ss2=$stb-$st2;
$cus=$ss1+$ss2;
$cus1=$cus/$len;
?>
<form method="POST" action="carry.php">
<table border="1" cellpadding="0" cellspacing="0" width="800">
<tr>
<td width="9%" height="16"><b>耗費時間/字長－(平均耗時)</b></td>
<td width="91%" height="16"><?echo $cus.'/'.$len.'--('.$cus1.')';?></td>
</tr>
<tr>
<td width="9%" height="16"><b>原始語句</b></td>
<td width="91%" height="16"><textarea cols="87" rows="8" readonly ><?echo $str;?></textarea></td>
</tr>
<tr>
<td width="9%" height="16"><b>結果</b></td>
<td width="91%" height="16"><textarea cols="87" rows="8" readonly ><?echo $a;?></textarea></td>
</tr>
</table>
<p><textarea rows="8" name="str" cols="87"><?echo $a;?></textarea></p>
<p><input type="submit" value="加密" name="submit">
  <input type="submit" value="解密" name="submit1"></p>
</form>
