paip.URL参数压缩64进制

paip.URL参数压缩64进制

有时候URL参数经过编码是16进制的，这样会比较长，可以使用64进制来压缩一下。。约可以减少30%。。。

比如admin,这个字串，经过加密后是D7D5E2DACF,增长了一倍。。我们可以用64进制来来压缩一下，得到的结果是19Xi2sP

主要过程是：
1.把此字串每三个分为一组，
2.然后每组转为64进制。。再连接起来就行了。
3.转码对照串来自于BASE64，不过考虑到URL传输的实际情况把最后两们+/变成了@$,这样就可以不用URL ENCODE就可以直接http传输。。

这里主要由ASP页面发起请求，PHP回应，所以编码是VBS写的，而解码是PHP写的..

------16进制转64过程(vbs)------
     const BASE_64_MAP_INIT_L718 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789@$"
   
 ''16进制转64进制
     PUBLIC FUNCTION HEX64Encode(plain)
     
   dim msgarr,newstr
     msgarr=str2array_l718(plain,3)
     for i=0 to ubound(msgarr)
     dim numHex
      numHex=msgarr(i)
     dim newchar  'HEx64 format    
     newchar= tohex64(numHex)
     
     newstr=newstr+cstr(newchar)
     next 
          HEX64Encode = newstr
     END FUNCTION

-----------------解码过程----------------

//   ' 64进制转16进制
function  HEX64Decode($num)
{
 $msgarr=str_split($num,2); 
 $newstr="";
 
 for($i=0;$i< count ($msgarr);$i++){
  $v=$msgarr[$i];
  $keychar=hex64Tohex($v);//  'encode char
  
  $newstr=$newstr.$keychar;
 } 
 
 return $newstr;
 
}
$BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789@$";

//单个数  ONLY
function hex64Tohex($num) { // Xi
 global $BASE_64_MAP_INIT;
 $BASE_64_MAP_INIT_arr = str_split ( $BASE_64_MAP_INIT );
 $numarr = str_split ( $num );
 $numDec=0;
 if (count ( $numarr ) == 1) {
  $first = $numarr [0];
  $firstIndex = strpos ( $BASE_64_MAP_INIT, $first );
  $numDec = $firstIndex;
 } else {
  $first = $numarr [0];
  $sencond = $numarr [1];
  $firstIndex = strpos ( $BASE_64_MAP_INIT, $first );
  $sencondIndex = strpos ( $BASE_64_MAP_INIT, $sencond );
  $firstNum = $firstIndex * 64;
  $numDec = $firstNum + $sencondIndex;
 }
 $numHex = dechex ( $numDec );
 
 return $numHex;
}