adodb-encrypt-ordcrypt.php

下载系统 # 汉化：Fising # 邮箱：[e-mail] # 网址：http://www.fising.cn # 声明：本人水平有限

<?php
// security - hide paths
if (!defined('ADODB_SESSION')) die();

class ADODB_Encrypt_OrdCrypt {

	function write($data, $key) {
		$result = '';
		for($i=0; $i<strlen($data); $i++) {
			$char = substr($data, $i, 1);
			$keychar = substr($key, ($i % strlen($key))-1, 1);
			$char = chr(ord($char)+ord($keychar));
			$result.=$char;
		}
		return bin2hex($result); 
	}

	function read($data, $key) {
		$result = '';
		$data =  @pack("H" . strlen($data), $data); 

		for($i=0; $i<strlen($data); $i++) {
			$char = substr($data, $i, 1);
			$keychar = substr($key, ($i % strlen($key))-1, 1);
			$char = chr(ord($char)-ord($keychar));
			$result.=$char;
		}
		return $result;
	}
}

return 1;

?>