PHP Classes

File: qcp64.enumerator.php

Recommend this page to a friend!
  Classes of Simon Roberts   QCP64 CRC   qcp64.enumerator.php   Download  
File: qcp64.enumerator.php
Role: Class source
Content type: text/plain
Description: QCP64 Enumerator
Class: QCP64 CRC
Compute checksum of variable length data
Author: By
Last change: Final Version 1.6.4
Date: 15 years ago
Size: 11,646 bytes
 

Contents

Class file image Download
<? // $Id: qcp64.enumerator.php 1.6.4 2008-08-15 13:40:00 (final) wishcraft $ // ------------------------------------------------------------------------ // // CLORA - Chronolabs Australia // // Copyright (c) 2008 // // <http://www.chronolabs.org.au/> // // ------------------------------------------------------------------------ // // This program is free software; you can redistribute it and/or modify // // it under the terms of the SDPL Source Directive Public Licence // // as published by Chronolabs Australia; either version 2 of the License, // // (at your option) any later version. // // // // You may not change or alter any portion of this comment or credits // // of supporting developers from this source code or any supporting // // source code which is considered copyrighted (c) material of the // // original comment or credit authors. // // // // This program is distributed in the hope that it will be useful, // // but WITHOUT ANY WARRANTY; without even the implied warranty of // // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // // GNU General Public License for more details. // // // // You should have received a copy of the GNU General Public License // // along with this program; if not, write to the Chronolab Australia // // Chronolabs International PO BOX 699, DULWICH HILL, NSW, 2203, Australia // // ------------------------------------------------------------------------ // if (!class_exists('qcp64_enumerator')) { class qcp64_enumerator extends qcp64 { var $elekey; var $base; var $len; function __construct ($base, $len) { @$this->len = $len; @$this->setElements($base); } private function setElements($base) { @$this->base = $base; @$this->elekey = array(); foreach ($base->base as $key => $data) { if (strlen((string)$data)==1) { if (strlen(bindec(ord($data)))==5) { $offset = array("ice" => (int)substr(decbin(ord($data)),5,1), "icd" => (int)substr(decbin(ord($data)),4,1), "icc" => (int)substr(decbin(ord($data)),3,1), "icb" => (int)substr(decbin(ord($data)),2,1), "ica" => (int)substr(decbin(ord($data)),1,1)); if (substr(decbin(ord($data)),5,1)==1) { $offset['icf'] = 0; } else { $offset['icf'] = 1; } } elseif (strlen(decbin(ord($data)))==6) { $offset = array("icf" => (int)substr(decbin(ord($data)),6,1), "ice" => (int)substr(decbin(ord($data)),5,1), "icd" => (int)substr(decbin(ord($data)),4,1), "icc" => (int)substr(decbin(ord($data)),3,1), "icb" => (int)substr(decbin(ord($data)),2,1), "ica" => (int)substr(decbin(ord($data)),1,1)); } elseif (strlen(decbin(ord($data)))==7) { $offset = array("ica" => (int)substr(decbin(ord($data)),6,1), "icb" => (int)substr(decbin(ord($data)),5,1), "icc" => (int)substr(decbin(ord($data)),4,1), "icd" => (int)substr(decbin(ord($data)),3,1), "ice" => (int)substr(decbin(ord($data)),2,1), "icf" => (int)substr(decbin(ord($data)),1,1)); } } else { $offset = array("ica" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),6,1), "icb" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),5,1), "icc" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),4,1), "icd" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),2,1), "ice" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),1,1), "icf" => (int)substr(decbin(ord(substr($key,strlen($key)-1,1))),0,1)); } if (strlen(decbin(ord($data)))==7) { if (strlen($data)==1) { $cycle = array("icf", "ice", "icd", "icc", "icb", "ica"); foreach ($cycle as $element) { if ($done==false) { if ($offset[$element]=='0') { if ($prev_ele!='') { if ($offset[$prev_ele] == '1') { $offset[$prev_ele] = '0'; } else { $offset[$prev_ele] = '1'; } } $offset[$element]= '1'; $done=true; } } } } else { $cycle = array("ica", "icb", "icc", "icd", "ice", "icf"); foreach ($cycle as $element) { if ($done==false) { if ($offset[$element]=='0') { if ($prev_ele!='') { if ($offset[$prev_ele] == '1') { $offset[$prev_ele] = '0'; } else { $offset[$prev_ele] = '1'; } } $offset[$element]= '1'; $done=true; } } } } } $done=false; if (strlen($data)==1) { @$this->elekey[$key] = array("key" => $data, "bin" => decbin(ord($data)), "offset" => $offset, "flip" => 0); } else { @$this->elekey[$key] = array("key" => $data, "bin" => decbin(ord($data)), "offset" => $offset, "flip" => 1); } } } private function getBytePos($char) { return floor((ord($char)+1)/4); } function enum_calc ($char, $enum_calc, $debug=false) { static $flip; foreach ($enum_calc as $key => $value) { ${$key} = $value; } static $charnum; $charnum++; if ($charnum>3) { $charnum=1; } $nx_key.= $char; if ($this->len>15) { if (strlen($nx_key)>$this->len) { $nx_key = substr($nx_key, strlen($nx_key)/($charnum+1), strlen($nx_key) - (strlen($nx_key)/($charnum+1))).substr($nx_key, 1, strlen($nx_key)-(strlen($nx_key) - (strlen($nx_key)/($charnum+1)))); } } else { if (strlen($nx_key)>32) { $nx_key = substr($nx_key, strlen($nx_key)/($charnum+1), strlen($nx_key) - (strlen($nx_key)/($charnum+1))).substr($nx_key, 1, strlen($nx_key)-(strlen($nx_key) - (strlen($nx_key)/($charnum+1)))); } } if ($this->elekey[$this->getBytePos($char)]['flip']==0) { $ica = $this->elekey[$this->getBytePos($char)]['offset']['ica']; $icb = $this->elekey[$this->getBytePos($char)]['offset']['icb']; $icc = $this->elekey[$this->getBytePos($char)]['offset']['icc']; $icd = $this->elekey[$this->getBytePos($char)]['offset']['icd']; $ice = $this->elekey[$this->getBytePos($char)]['offset']['ice']; $icf = $this->elekey[$this->getBytePos($char)]['offset']['icf']; } else { if ($charnum==1) { $icf = $this->elekey[$this->getBytePos($char)]['offset']['ica']; $ice = $this->elekey[$this->getBytePos($char)]['offset']['icb']; $icd = $this->elekey[$this->getBytePos($char)]['offset']['icc']; $icc = $this->elekey[$this->getBytePos($char)]['offset']['icd']; $icb = $this->elekey[$this->getBytePos($char)]['offset']['ice']; $ica = $this->elekey[$this->getBytePos($char)]['offset']['icf']; } elseif ($charnum==2) { $icf = $this->elekey[$this->getBytePos($char)]['offset']['ica']; $ice = $this->elekey[$this->getBytePos($char)]['offset']['icb']; $icd = $this->elekey[$this->getBytePos($char)]['offset']['icc']; $icc = $this->elekey[$this->getBytePos($char)]['offset']['icf']; $icb = $this->elekey[$this->getBytePos($char)]['offset']['ice']; $ica = $this->elekey[$this->getBytePos($char)]['offset']['icd']; } else { $icf = $this->elekey[$this->getBytePos($char)]['offset']['icc']; $ice = $this->elekey[$this->getBytePos($char)]['offset']['icb']; $icd = $this->elekey[$this->getBytePos($char)]['offset']['ica']; $icc = $this->elekey[$this->getBytePos($char)]['offset']['icd']; $icb = $this->elekey[$this->getBytePos($char)]['offset']['ice']; $ica = $this->elekey[$this->getBytePos($char)]['offset']['icf']; } } for ($icount=1; $icount<65; $icount++) { if ($this->elekey[$icount]['offset']['ica'] == $icb && $this->elekey[$icount]['offset']['icb'] == $icc && $this->elekey[$icount]['offset']['icc'] == $icd) { $nuclear .= '10'; if ($icb = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } if ($icc = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } if ($icd = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } } if ($this->elekey[$icount]['offset']['ica'] == $icc && $this->elekey[$icount]['offset']['icb'] == $icd && $this->elekey[$icount]['offset']['icc'] == $ice) { $nuclear .= '01'; if ($icb = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } if ($icc = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } if ($icd = $this->elekey[$icount]['flip']) { $nuclear .= '0'; } else { $nuclear .= '1'; } } } // Change in version 1.6.4 if (strlen($nuclear)>32768) $nuclear = substr($nuclear,strlen($nuclear)-32768,32768); $result = $result + $ica; $prince = $prince + $icb; $karma = $karma + $icc; $motivation = $motivation + $icd; $official = $official + $ice; $outsidecause = $outsidecause + $icf; if ($ica == '0') {$yang = $yang + 1;} else {$yin = $yin + 1;} if ($icb == '0') {$yang = yang + 1;} else {$yin = $yin + 1;} if ($icc == '0') {$yang = $yang+ 1;} else {$yin = $yin + 1;} if ($icd == '0') {$yang = $yang + 1;} else {$yin = $yin + 1;} if ($ice == '0') {$yang = yang + 1;} else {$yin = $yin + 1;} if ($icf == '0') {$yang = $yang+ 1;} else {$yin = $yin + 1;} if ($debug==true) { $data[sizeof($data)+1] = array("pos" => $this->getBytePos($char), "elements" => $this->elekey); $result = array("result" => $result, "prince" => $prince, "karma" => $karma, "motivation" => $motivation, "official" => $official, "outsidecause" => $outsidecause, "nuclear" => $nuclear, "yin" => $yin, "yang" => $yang, "nx_key" => $nx_key, "data"=> $data); } else { $result = array("result" => $result, "prince" => $prince, "karma" => $karma, "motivation" => $motivation, "official" => $official, "outsidecause" => $outsidecause, "nuclear" => $nuclear, "yin" => $yin, "yang" => $yang, "nx_key" => $nx_key); } return $result; } } }