<?php
/**
*
* @ This file is created by deZender.Net
* @ deZender (PHP5 Decoder for SourceGuardian & phpSHIELD)
*
* @	Version			:	1.1.6.0
* @	Author			:	DeZender
* @	Release on		:	02.06.2013
* @	Official site	:	http://DeZender.Net
*
*/

	class clsTbsLocator {
		public $PosBeg = false;
		public $PosEnd = false;
		public $Enlarged = false;
		public $FullName = false;
		public $SubName = '';
		public $SubOk = false;
		public $SubLst = array(  );
		public $SubNbr = 0;
		public $PrmLst = array(  );
		public $PrmIfNbr = false;
		public $MagnetId = false;
		public $BlockFound = false;
		public $FirstMerge = true;
		public $ConvProtect = true;
		public $ConvHtml = true;
		public $ConvMode = 1;
		public $ConvBr = true;
	}

	class clsTbsDataSource {
		public $Type = false;
		public $SubType = 0;
		public $SrcId = false;
		public $Query = '';
		public $RecSet = false;
		public $RecKey = '';
		public $RecNum = 0;
		public $RecNumInit = 0;
		public $RecSaving = false;
		public $RecSaved = false;
		public $RecBuffer = false;
		public $CurrRec = false;
		public $TBS = false;
		public $OnDataOk = false;
		public $OnDataPrm = false;
		public $OnDataPrmDone = array(  );
		public $OnDataPi = false;

		public function DataAlert($Msg) {
			return $this->TBS->meth_Misc_Alert( 'when merging block ' . $this->TBS->_ChrOpen . $this->TBS->_CurrBlock . $this->TBS->_ChrClose, $Msg );
		}

		public function DataPrepare(&$SrcId, $TBS) {
			$this->SrcId = &$SrcId;
			$this->TBS = &$TBS;

			$FctInfo = false;
			$FctObj = false;

			if (is_array( $SrcId )) {
				$this->Type = 0;
			} else {
				if (is_resource( $SrcId )) {
					$Key = get_resource_type( $SrcId );
					switch ($Key) {
						case 'mysql link': {
							$this->Type = 6;
							break;
						}

						case 'mysql link persistent': {
							$this->Type = 6;
							break;
						}

						case 'mysql result': {
							$this->Type = 6;
							$this->SubType = 1;
							break;
						}

						case 'pgsql link': {
							$this->Type = 7;
							break;
						}

						case 'pgsql link persistent': {
							$this->Type = 7;
							break;
						}

						case 'pgsql result': {
							$this->Type = 7;
							$this->SubType = 1;
							break;
						}

						case 'sqlite database': {
							$this->Type = 8;
							break;
						}

						case 'sqlite database (persistent)': {
							$this->Type = 8;
							break;
						}

						case 'sqlite result': {
							$this->Type = 8;
							$this->SubType = 1;
							break;
						}

						default: {
							$FctInfo = $Key;
							$FctCat = 'r';
							break;
						}
					}
				} else {
					if (is_string( $SrcId )) {
						switch (strtolower( $SrcId )) {
							case 'array': {
								$this->Type = 0;
								$this->SubType = 1;
								break;
							}

							case 'clear': {
								$this->Type = 0;
								$this->SubType = 3;
								break;
							}

							case 'mysql': {
								$this->Type = 6;
								$this->SubType = 2;
								break;
							}

							case 'text': {
								$this->Type = 2;
								break;
							}
............................................................
................................
..........