Loading Please wait...

xor.php

Go to the documentation of this file.

<?php
class zCryptDrv_xor_intermediate extends zCore{
  var $val;

  function zCryptDrv_xor_intermediate(){
    $this->__construct();
  }
  function __construct(){
    parent::__construct();
    if(!defined('BLOCK_SIZE')){define('BLOCK_SIZE', 4);}
    if(!defined('BLOCK_JUNK')){define('BLOCK_JUNK', 5);}
    if(!defined('ENC_BIN')){define('ENC_BIN', true);}
    if(!defined('ENC_DEC')){define('ENC_DEC', false);}
    $this->val = array(' ', '+', '_', '*', '&', ':', '-', '@', '=', '%');
  }
  function blockise($str){
    if(strlen($str) >= BLOCK_SIZE*2){return $str;}
    while(strlen($str) < BLOCK_SIZE*2){
      $str .= chr(BLOCK_JUNK);
    }
    return $str;
  }
  function dblockise($str){
    for($i=strlen($str)-1;$i>=strlen($str)-1-8;$i--){
      if(isset($str[$i]) && $str[$i] != chr(BLOCK_JUNK)){break;}
      $str = substr($str, 0, $i);
    }
    return $str;
  }
  function psubstr($str, $start, $len){
    if($start < 0){$tmp = "";return $tmp;};
    return substr($str, $start, $len);
  }
  function get_block($str, $i){return $this->psubstr($str, $i, BLOCK_SIZE);}
  function x_enc($string, $key){
    for($i=0; $i<=strlen($string)-1; $i++){
      for($j=0; $j<=strlen($key)-1; $j++){
        $string[$i] = $string[$i]^$key[$j];
      }
      if($i != 0 && $i != strlen($string)-1){
        $string[$i] = $string[$i]^$string[$i-1]^$string[$i+1];
      }
    }
   return $string;
  }
  function x_dcd($string, $key){
    for($i=strlen($string)-1; $i>=0; $i--){
      if($i == 0 || $i == strlen($string)-1){
        for($j=0; $j<=strlen($key)-1; $j++){
          $string[$i] = $string[$i]^$key[$j];
        }
      }else{
        $string[$i] = $this->x_enc($string[$i], $key)^$string[$i-1]^$string[$i+1];
      }
    }
    return $string;
  }
  function enc($str, $key){
    $str = base64_encode($this->blockise($str));
    for($i=0;$i<=strlen($str)-1;$i+=BLOCK_SIZE){
      if($i == 0 || $i == (strlen($str)-BLOCK_SIZE)){
        $repl = $this->x_enc($this->psubstr($str, $i, BLOCK_SIZE), $key);
        $str = substr_replace($str, $repl, $i, BLOCK_SIZE);
      }else{
        if($i == BLOCK_SIZE){
          $b = $this->x_enc($this->get_block($str, $i), $key);
        }
        $repl = $this->x_enc($this->get_block($str, $i+BLOCK_SIZE), $this->get_block($str, $i-BLOCK_SIZE));
        $str = substr_replace($str, $repl, $i, BLOCK_SIZE);
      }
    }
    $str .= $b;
    return $str;
  }
  function dcd($str, $key){
    $b = $this->x_dcd($this->get_block($str, strlen($str)-BLOCK_SIZE), $key);
    $str = substr($str, 0, strlen($str)-BLOCK_SIZE);
    for($i=strlen($str)-BLOCK_SIZE;$i>=0;$i-=BLOCK_SIZE){
      if($i == 0 || $i == (strlen($str)-BLOCK_SIZE)){
        $repl = $this->x_dcd($this->psubstr($str, $i, BLOCK_SIZE), $key);
        $str = substr_replace($str, $repl, $i, BLOCK_SIZE);
      }else{
        if($i == BLOCK_SIZE){
          $str = substr_replace($str, $b, $i, BLOCK_SIZE);
        }else{
          $repl = $this->x_dcd($this->psubstr($str, $i-BLOCK_SIZE, BLOCK_SIZE), $this->psubstr($str, $i-(BLOCK_SIZE*2), BLOCK_SIZE));
          $str = substr_replace($str, $repl, $i, BLOCK_SIZE);
        }
      }
    }
    return $this->dblockise(base64_decode($str));
  }
  function encode($str, $key, $mode = ENC_BIN){
    if($mode == ENC_BIN){
      return $this->enc($this->enc($str, $key), md5($key));
    }elseif($mode == ENC_DEC){
      return $this->dec_encode($this->enc($this->enc($str, $key), md5($key)));
    }
    perror("Invalid MODE SPecified");
    return false;
  }
  function decode($str, $key, $mode = ENC_BIN){
    if($mode == ENC_BIN){
      return $this->dcd($this->dcd($str, md5($key)), $key);
    }elseif($mode == ENC_DEC){
      return $this->dcd($this->dcd($this->dec_decode($str), md5($key)),$key);
    }
    perror("Invalid MODE SPecified");
    return false;
  }
  function dec_decode($salted){
      $key = array(0,1,2,3,4,5,6,7,8,9);$ret = '';
      $val = $this->val;
      $str = str_replace($val, $key, $salted);
      for($i=0;$i<=strlen($str)-1;$i+=3){
        $current_group = $str[$i].$str[$i+1].$str[$i+2];
        $tmp_int = (int)($current_group);
        $ret .= chr($tmp_int);
      }
      return base64_decode($ret);
  }
  function dec_encode($salt){
      $str = base64_encode($salt);$tmp = '';
      for($i=0;$i<=strlen($str)-1;$i++){
        if(ord($str[$i]) < 100){
          if(ord($str[$i]) > 0 && ord($str[$i]) < 10){
            $num = "00".ord($str[$i]);
          }
          elseif(ord($str[$i]) >= 10 && ord($str[$i]) < 100){
            $num = "0".ord($str[$i]);
          }
        }
        else{
          $num = ord($str[$i]);
        }
        $tmp .= $num;
      }
     $key = array(0,1,2,3,4,5,6,7,8,9);
     $val = $this->val;
     $ret = str_replace($key, $val, $tmp);
     return $ret;
    }
}
class zCryptDrv_xor extends zCryptDrv_xor_intermediate {
  var $key;

  function zCryptDrv_xor(){
    $this->__construct();
  }
  function __construct(){
    parent::__construct();
    $tmp = parse_ini_file(ZIGROOT.DRS.Z_DIR_PROJECTS.DRS.Z_PROJECT_DIR.DRS.ZIGSETTINGSDIR.DRS.'zcpt.ini.php', false);
    foreach($tmp as $key => $val){
      if($key != 'key'){
        if($key == "ZCRYPT_DEFAULT_MODE"){
          if($val == "dec"){
            $val = ENC_DEC;
          }elseif($val == "bin"){
            $val = ENC_BIN;
          }else{
            perror("Invalid ZCRYPT_DEFAULT_MODE ".$val." on ".'zcpt.ini.php'." Must be dec or bin");
          }
        }
        if(!defined($key)){define($key, $val);}
      }
    }
    $this->key = $tmp['key'];
  }
  function encrypt(){
    $list_args = func_get_args();
    if(@$list_args[1] == null){unset($list_args[1]);}
    if(count($list_args) == 0){
      perror("You must supply the string to encrypt as first argument 0 Arguments Given");
      exit(1);
    }
    if(!is_string($list_args[0])){
      perror("You must supply the string to encrypt as first argument<br />and that should be String ".gettype($list_args[0])." Given");
      exit(1);
    }
    if(count($list_args) > 3){
      perror("encrypt() requires atleast 1 and atmost 3 arguments ".count($list_args)." given");
    }
    if(count($list_args) == 3){
      return $this->encode($list_args[0], $list_args[1], $list_args[2]);
    }
    if(count($list_args) == 2){
      if(is_string($list_args[1])){
        $key = $list_args[1];
        $mode = ZCRYPT_DEFAULT_MODE;
      }elseif(is_bool($list_args[1])){
        $key = $this->key;
        $mode = $list_args[1];
      }else{
        perror("2 arguments Given to encrypt() in which second argument is nither MODE nor key rather its ".gettype($list_args[1])." Whos's value is ".$list_args[1]);
      }
      return $this->encode($list_args[0], $key, $mode);
    }else{
      return $this->encode($list_args[0], $this->key, ZCRYPT_DEFAULT_MODE);
    }
  }
  function decrypt(){
    $list_args = func_get_args();
    if(@$list_args[1] == null){unset($list_args[1]);}
    if(count($list_args) == 0){
      perror("You must supply the string to encrypt as first argument 0 Arguments Given");
      exit(1);
    }
    if(!is_string($list_args[0])){
      perror("You must supply the string to encrypt as first argument<br />and that should be String ".gettype($list_args[0])." Given");
      exit(1);
    }
    if(count($list_args) > 3){
      perror("encrypt() requires atleast 1 and atmost 3 arguments ".count($list_args)." given");
    }
    if(count($list_args) == 3){
      return $this->decode($list_args[0], $list_args[1], $list_args[2]);
    }
    if(count($list_args) == 2){
      if(is_string($list_args[1])){
        $key = $list_args[1];
        $mode = ZCRYPT_DEFAULT_MODE;
      }elseif(is_bool($list_args[1])){
        $key = $this->key;
        $mode = $list_args[1];
      }else{
        perror("2 arguments Given to encrypt() in which second argument is nither MODE nor key");
      }
      return $this->decode($list_args[0], $key, $mode);
    }else{
      return $this->decode($list_args[0], $this->key, ZCRYPT_DEFAULT_MODE);
    }
  }
}
?>

---