deon/khosb
Archived
1
0
Fork 0
Code Issues 6 Pull Requests Packages Projects Releases Wiki Activity

Changes to AgileBill

Browse Source
This commit is contained in:
Deon George
2009-08-03 14:10:16 +10:00
parent 0a22cfe22c
commit 27aee719b0
1051 changed files with 219109 additions and 117219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

362
modules/core/crypt.inc.php
View File

@@ -1,77 +1,119 @@
<?php
class CORE_RSA
{
/**
* AgileBill - Open Billing Software
*
* This body of work is free software; you can redistribute it and/or
* modify it under the terms of the Open AgileBill License
* License as published at http://www.agileco.com/agilebill/license1-4.txt
*
* Originally authored by Tony Landis, AgileBill LLC
*
* Recent modifications by Deon George
*
* @author Deon George <deonATleenooksDOTnet>
* @copyright 2009 Deon George
* @link http://osb.leenooks.net
*
* @link http://www.agileco.com/
* @copyright 2004-2008 Agileco, LLC.
* @license http://www.agileco.com/agilebill/license1-4.txt
* @author Tony Landis <tony@agileco.com>
* @package AgileBill
* @subpackage Core
*/
var $primes;
var $maxprimes;
if (! defined('LICENSE_KEY'))
define('LICENSE_KEY','47012093-4943-32127707');
function SecurityRSA($show_debug=0) {
mt_srand((double)microtime()*1000000);
$this->primes = array (4507, 4513, 4517, 4519, 4523, 4547, 4549, 4561, 4567, 4583, 4591, 4597,
4603, 4621, 4637, 4639, 4643, 4649, 4651, 4657, 4663, 4673, 4679, 4691, 4703, 4721, 4723, 4729, 4733, 4751,
4759, 4783, 4787, 4789, 4793, 4799, 4801, 4813, 4817, 4831, 4861, 4871, 4877, 4889, 4903, 4909, 4919, 4931,
4933, 4937, 4943, 4951, 4957, 4967, 4969, 4973, 4987, 4993, 4999, 5003, 5009, 5011, 5021, 5023, 5039, 5051,
5059, 5077, 5081, 5087, 5099, 5101, 5107, 5113, 5119, 5147, 5153, 5167, 5171, 5179, 5189, 5197, 5209, 5227,
5231, 5233, 5237, 5261, 5273, 5279, 5281, 5297, 5303, 5309, 5323, 5333, 5347, 5351, 5381, 5387, 5393, 5399,
5407, 5413, 5417, 5419, 5431, 5437, 5441, 5443, 5449, 5471, 5477, 5479, 5483, 5501, 5503, 5507, 5519, 5521,
5527, 5531, 5557, 5563, 5569, 5573, 5581, 5591, 5623, 5639, 5641, 5647, 5651, 5653, 5657, 5659, 5669, 5683,
5689, 5693, 5701, 5711, 5717, 5737, 5741, 5743, 5749, 5779, 5783, 5791, 5801, 5807, 5813, 5821, 5827, 5839,
5843, 5849, 5851, 5857, 5861, 5867, 5869, 5879, 5881, 5897, 5903, 5923, 5927, 5939, 5953, 5981, 5987, 6007,
6011, 6029, 6037, 6043, 6047, 6053, 6067, 6073, 6079, 6089, 6091, 6101, 6113, 6121, 6131, 6133, 6143, 6151,
6163, 6173, 6197, 6199, 6203, 6211, 6217, 6221, 6229, 6247, 6257, 6263, 6269, 6271, 6277, 6287, 6299, 6301,
6311, 6317, 6323, 6329, 6337, 6343, 6353, 6359, 6361, 6367, 6373, 6379, 6389, 6397, 6421, 6427, 6449, 6451,
6469, 6473, 6481, 6491, 6521, 6529, 6547, 6551, 6553, 6563, 6569, 6571, 6577, 6581, 6599, 6607, 6619, 6637,
6653, 6659, 6661, 6673, 6679, 6689, 6691, 6701, 6703, 6709, 6719, 6733, 6737, 6761, 6763, 6779, 6781, 6791,
6793, 6803, 6823, 6827, 6829, 6833, 6841, 6857, 6863, 6869, 6871, 6883, 6899, 6907, 6911, 6917, 6947, 6949,
6959, 6961, 6967, 6971, 6977, 6983, 6991, 6997, 7001, 7013, 7019, 7027, 7039, 7043, 7057, 7069, 7079, 7103,
7109, 7121, 7127, 7129, 7151, 7159, 7177, 7187, 7193, 7207, 7211, 7213, 7219, 7229, 7237, 7243, 7247, 7253,
7283, 7297, 7307, 7309, 7321, 7331, 7333, 7349, 7351, 7369, 7393, 7411, 7417, 7433, 7451, 7457, 7459, 7477,
7481, 7487, 7489, 7499, 7507, 7517, 7523, 7529, 7537, 7541, 7547, 7549, 7559, 7561, 7573, 7577, 7583, 7589,
7591, 7603, 7607, 7621, 7639, 7643, 7649, 7669, 7673, 7681, 7687, 7691, 7699, 7703, 7717, 7723, 7727, 7741,
7753, 7757, 7759, 7789, 7793, 7817, 7823, 7829, 7841, 7853, 7867, 7873, 7877, 7879, 7883, 7901, 7907, 7919,
7927, 7933, 7937, 7949, 7951, 7963, 7993, 8009, 8011, 8017, 8039, 8053, 8059, 8069, 8081, 8087, 8089, 8093,
8101, 8111, 8117, 8123, 8147, 8161, 8167, 8171, 8179, 8191, 8209, 8219, 8221, 8231, 8233, 8237, 8243, 8263,
8269, 8273, 8287, 8291, 8293, 8297, 8311, 8317, 8329, 8353, 8363, 8369, 8377, 8387, 8389, 8419, 8423, 8429,
8431, 8443, 8447, 8461, 8467, 8501, 8513, 8521, 8527, 8537, 8539, 8543, 8563, 8573, 8581, 8597, 8599, 8609,
8623, 8627, 8629, 8641, 8647, 8663, 8669, 8677, 8681, 8689, 8693, 8699, 8707, 8713, 8719, 8731, 8737, 8741,
8747, 8753, 8761, 8779, 8783, 8803, 8807, 8819, 8821, 8831, 8837, 8839, 8849, 8861, 8863, 8867, 8887, 8893,
8923, 8929, 8933, 8941, 8951, 8963, 8969, 8971, 8999, 9001, 9007, 9011, 9013, 9029, 9041, 9043, 9049, 9059,
9067, 9091, 9103, 9109, 9127, 9133, 9137, 9151, 9157, 9161, 9173, 9181, 9187, 9199, 9203, 9209, 9221, 9227,
9239, 9241, 9257, 9277, 9281, 9283, 9293, 9311, 9319, 9323, 9337, 9341, 9343, 9349, 9371, 9377, 9391, 9397,
9403, 9413, 9419, 9421, 9431, 9433, 9437, 9439, 9461, 9463, 9467, 9473, 9479, 9491, 9497, 9511, 9521, 9533);
$this->maxprimes = count($this->primes) - 1;
/**
* The main AgileBill CORE RSA Class
*
* @package AgileBill
* @subpackage Core
* @todo This Class appears unused.
*/
class CORE_RSA {
private $primes = array();
private $maxprimes = 0;
public function __construct() {
mt_srand((double)microtime()*1000000);
$this->primes = array(
4507,4513,4517,4519,4523,4547,4549,4561,4567,4583,4591,4597,
4603,4621,4637,4639,4643,4649,4651,4657,4663,4673,4679,4691,4703,4721,4723,4729,4733,4751,
4759,4783,4787,4789,4793,4799,4801,4813,4817,4831,4861,4871,4877,4889,4903,4909,4919,4931,
4933,4937,4943,4951,4957,4967,4969,4973,4987,4993,4999,5003,5009,5011,5021,5023,5039,5051,
5059,5077,5081,5087,5099,5101,5107,5113,5119,5147,5153,5167,5171,5179,5189,5197,5209,5227,
5231,5233,5237,5261,5273,5279,5281,5297,5303,5309,5323,5333,5347,5351,5381,5387,5393,5399,
5407,5413,5417,5419,5431,5437,5441,5443,5449,5471,5477,5479,5483,5501,5503,5507,5519,5521,
5527,5531,5557,5563,5569,5573,5581,5591,5623,5639,5641,5647,5651,5653,5657,5659,5669,5683,
5689,5693,5701,5711,5717,5737,5741,5743,5749,5779,5783,5791,5801,5807,5813,5821,5827,5839,
5843,5849,5851,5857,5861,5867,5869,5879,5881,5897,5903,5923,5927,5939,5953,5981,5987,6007,
6011,6029,6037,6043,6047,6053,6067,6073,6079,6089,6091,6101,6113,6121,6131,6133,6143,6151,
6163,6173,6197,6199,6203,6211,6217,6221,6229,6247,6257,6263,6269,6271,6277,6287,6299,6301,
6311,6317,6323,6329,6337,6343,6353,6359,6361,6367,6373,6379,6389,6397,6421,6427,6449,6451,
6469,6473,6481,6491,6521,6529,6547,6551,6553,6563,6569,6571,6577,6581,6599,6607,6619,6637,
6653,6659,6661,6673,6679,6689,6691,6701,6703,6709,6719,6733,6737,6761,6763,6779,6781,6791,
6793,6803,6823,6827,6829,6833,6841,6857,6863,6869,6871,6883,6899,6907,6911,6917,6947,6949,
6959,6961,6967,6971,6977,6983,6991,6997,7001,7013,7019,7027,7039,7043,7057,7069,7079,7103,
7109,7121,7127,7129,7151,7159,7177,7187,7193,7207,7211,7213,7219,7229,7237,7243,7247,7253,
7283,7297,7307,7309,7321,7331,7333,7349,7351,7369,7393,7411,7417,7433,7451,7457,7459,7477,
7481,7487,7489,7499,7507,7517,7523,7529,7537,7541,7547,7549,7559,7561,7573,7577,7583,7589,
7591,7603,7607,7621,7639,7643,7649,7669,7673,7681,7687,7691,7699,7703,7717,7723,7727,7741,
7753,7757,7759,7789,7793,7817,7823,7829,7841,7853,7867,7873,7877,7879,7883,7901,7907,7919,
7927,7933,7937,7949,7951,7963,7993,8009,8011,8017,8039,8053,8059,8069,8081,8087,8089,8093,
8101,8111,8117,8123,8147,8161,8167,8171,8179,8191,8209,8219,8221,8231,8233,8237,8243,8263,
8269,8273,8287,8291,8293,8297,8311,8317,8329,8353,8363,8369,8377,8387,8389,8419,8423,8429,
8431,8443,8447,8461,8467,8501,8513,8521,8527,8537,8539,8543,8563,8573,8581,8597,8599,8609,
8623,8627,8629,8641,8647,8663,8669,8677,8681,8689,8693,8699,8707,8713,8719,8731,8737,8741,
8747,8753,8761,8779,8783,8803,8807,8819,8821,8831,8837,8839,8849,8861,8863,8867,8887,8893,
8923,8929,8933,8941,8951,8963,8969,8971,8999,9001,9007,9011,9013,9029,9041,9043,9049,9059,
9067,9091,9103,9109,9127,9133,9137,9151,9157,9161,9173,9181,9187,9199,9203,9209,9221,9227,
9239,9241,9257,9277,9281,9283,9293,9311,9319,9323,9337,9341,9343,9349,9371,9377,9391,9397,
9403,9413,9419,9421,9431,9433,9437,9439,9461,9463,9467,9473,9479,9491,9497,9511,9521,9533);
$this->maxprimes = count($this->primes)-1;
}
function generate_keys($show_debug=0){
while (empty($e) || empty($d)) {
$p = $this->primes[mt_rand(0, $this->maxprimes)];
while (empty($q) || ($p==$q)) {
$q = $this->primes[mt_rand(0, $this->maxprimes)];
}
$n = $p*$q;
$pi = ($p - 1) * ($q - 1);
$e = $this->tofindE($pi, $p, $q);
$d = $this->extend($e,$pi);
$keys = array ($n, $e, $d);
public function generate_keys(){
$e = false;
$d = false;
$q = false;
while (! $e || ! $d) {
$p = $this->primes[mt_rand(0,$this->maxprimes)];
while (! $q || ($p==$q))
$q = $this->primes[mt_rand(0,$this->maxprimes)];
$n = $p*$q;
$pi = ($p-1)*($q-1);
$e = $this->tofindE($pi,$p,$q);
$d = $this->extend($e,$pi);
$keys = array($n,$e,$d);
}
return $keys;
}
function mo($g, $l) {
return $g - ($l * floor ($g/$l));
}
function extend($Ee,$Epi) {
private function mo($g,$l) {
return $g-($l*floor($g/$l));
}
private function extend($Ee,$Epi) {
$u1 = 1;
$u2 = 0;
$u3 = $Epi;
$v1 = 0;
$v2 = 1;
$v3 = $Ee;
while ($v3 != 0) {
$qq = floor($u3/$v3);
$t1 = $u1 - $qq * $v1;
$t2 = $u2 - $qq * $v2;
$t3 = $u3 - $qq * $v3;
$t1 = $u1-$qq*$v1;
$t2 = $u2-$qq*$v2;
$t3 = $u3-$qq*$v3;
$u1 = $v1;
$u2 = $v2;
$u3 = $v3;
@@ -80,172 +122,212 @@ class CORE_RSA
$v3 = $t3;
$z = 1;
}
$uu = $u1;
$vv = $u2;
if ($vv < 0) {
$inverse = $vv + $Epi;
} else {
if ($vv < 0)
$inverse = $vv+$Epi;
else
$inverse = $vv;
}
return $inverse;
}
function GCD($e,$pi) {
private function GCD($e,$pi) {
$y = $e;
$x = $pi;
while ($y != 0) {
$w = $this->mo($x , $y);
$w = $this->mo($x,$y);
$x = $y;
$y = $w;
}
return $x;
}
function tofindE($pi) {
private function tofindE($pi) {
$great = 0;
$cc = mt_rand (0,$this->maxprimes);
$cc = mt_rand(0,$this->maxprimes);
$startcc = $cc;
while ($cc >= 0) {
$se = $this->primes[$cc];
$great = $this->GCD($se,$pi);
$cc--;
if ($great == 1) break;
if ($great == 1)
break;
}
if ($great == 0) {
$cc = $startcc + 1;
while ($cc <= $this->maxprimes) {
$se = $this->primes[$cc];
$great = $this->GCD($se,$pi);
$cc++;
if ($great == 1) break;
if ($great == 1)
break;
}
}
return $se;
}
function rsa_encrypt($m, $e, $n) {
$asci = array ();
public function rsa_encrypt($m,$e,$n) {
$asci = array();
$coded = '';
for ($i=0; $i<strlen($m); $i+=3) {
$tmpasci="1";
$tmpasci = '1';
for ($h=0; $h<3; $h++) {
if ($i+$h <strlen($m)) {
$tmpstr = ord (substr ($m, $i+$h, 1)) - 30;
if (strlen($tmpstr) < 2) {
$tmpstr ="0".$tmpstr;
}
$tmpstr = ord(substr($m,$i+$h,1))-30;
if (strlen($tmpstr) < 2)
$tmpstr = '0'.$tmpstr;
} else {
break;
}
$tmpasci .=$tmpstr;
$tmpasci .= $tmpstr;
}
array_push($asci, $tmpasci."1");
array_push($asci,$tmpasci.'1');
}
for ($k=0; $k< count ($asci); $k++) {
$resultmod = $this->powmod($asci[$k], $e, $n);
@$coded .= $resultmod." ";
for ($k=0; $k< count($asci); $k++) {
$resultmod = $this->powmod($asci[$k],$e,$n);
$coded .= $resultmod.' ';
}
return trim(@$coded);
return trim($coded);
}
function powmod($base, $exp, $modulus) {
private function powmod($base,$exp,$modulus) {
$accum = 1;
$i = 0;
$basepow2 = $base;
while (($exp >> $i)>0) {
if ((($exp >> $i) & 1) == 1) {
$accum = $this->mo(($accum * $basepow2) , $modulus);
}
$basepow2 = $this->mo(($basepow2 * $basepow2) , $modulus);
if ((($exp >> $i) & 1) == 1)
$accum = $this->mo(($accum*$basepow2),$modulus);
$basepow2 = $this->mo(($basepow2*$basepow2),$modulus);
$i++;
}
return $accum;
}
function rsa_decrypt($c, $d, $n) {
$decryptarray = explode(" ", $c);
for ($u=0; $u<count ($decryptarray); $u++) {
if ($decryptarray[$u] == "") {
array_splice($decryptarray, $u, 1);
}
}
public function rsa_decrypt($c,$d,$n) {
$decryptarray = explode(' ',$c);
$resultd = '';
$deencrypt = '';
for ($u=0; $u<count ($decryptarray); $u++)
if ($decryptarray[$u] == '')
array_splice($decryptarray,$u,1);
for ($u=0; $u< count($decryptarray); $u++) {
$resultmod = $this->powmod($decryptarray[$u], $d, $n);
@$deencrypt.= substr ($resultmod,1,strlen($resultmod)-2);
}
for ($u=0; $u<strlen($deencrypt); $u+=2) {
@$resultd .= chr(substr ($deencrypt, $u, 2) + 30);
$resultmod = $this->powmod($decryptarray[$u],$d,$n);
$deencrypt .= substr($resultmod,1,strlen($resultmod)-2);
}
return @$resultd;
for ($u=0; $u<strlen($deencrypt); $u+=2)
$resultd .= chr(substr($deencrypt,$u,2)+30);
return $resultd;
}
}
}
/**
* Encrypt some data
*/
function CORE_encrypt($data) {
$rsa = new CORE_RSA;
$keys = explode('-',LICENSE_KEY);
$rc4_key = do_rc4(LICENSE_KEY,'en',false);
$rsa_data = $rsa->rsa_encrypt($data,$keys[1],$keys[0]);
$rc4_data = do_rc4($rsa_data,'en',$rc4_key);
function CORE_encrypt($data) {
if(LICENSE_KEY == '') return $data; // provide a license key in the setup area to enable encryption
$rsa = new CORE_RSA;
$keys = explode('-', LICENSE_KEY);
$rsa_data = $rsa->rsa_encrypt($data, $keys[1], $keys[0]);
$rc4_key = do_rc4(LICENSE_KEY, 'en', false);
$rc4_data = do_rc4($rsa_data, 'en', $rc4_key);
return $rc4_data;
}
/**
* Decrypt the data
*/
function CORE_decrypt($data) {
$rsa = new CORE_RSA;
$keys = explode('-',LICENSE_KEY);
$rc4_key = do_rc4(LICENSE_KEY,'en',false);
$rc4_data = do_rc4($data,'de',$rc4_key);
$rsa_data = $rsa->rsa_decrypt($rc4_data,$keys[2],$keys[0]);
function CORE_decrypt($data) {
if(LICENSE_KEY == '') return $data; // provide a license key in the setup area to enable encryption
$rc4_key = do_rc4(LICENSE_KEY, 'en', false);
$rc4_data = do_rc4($data, 'de', $rc4_key);
$rsa = new CORE_RSA;
$keys = explode('-', LICENSE_KEY);
$rsa_data = $rsa->rsa_decrypt($rc4_data, $keys[2], $keys[0]);
return $rsa_data;
}
/**
* Do the encryption/decryption
*/
function do_rc4($data,$case,$pwd) {
if (! $pwd)
$pwd = '21e0*kO-(uV9B0@jFk-er';
function do_rc4($data, $case, $pwd) {
if(!$pwd) $pwd = '21e0*kO-(uV9B0@jFk-er';
if ($case == 'de') {
if ($case == 'de')
$data = urldecode($data);
}
$key[] = "";
$box[] = "";
$temp_swap = "";
$pwd_length = 0;
$pwd_length = strlen($pwd);
$key = array();
$box = array();
$temp_swap = '';
$pwd_length = strlen($pwd);
for ($i = 0; $i <= 255; $i++) {
$key[$i] = ord(substr($pwd, ($i % $pwd_length), 1));
$key[$i] = ord(substr($pwd,($i%$pwd_length),1));
$box[$i] = $i;
}
$x = 0;
for ($i = 0; $i <= 255; $i++) {
$x = ($x + $box[$i] + $key[$i]) % 256;
$x = 0;
for ($i=0; $i<=255; $i++) {
$x = ($x+$box[$i]+$key[$i])%256;
$temp_swap = $box[$i];
$box[$i] = $box[$x];
$box[$x] = $temp_swap;
}
$temp = "";
$k = "";
$cipherby = "";
$cipher = "";
$temp = '';
$k = '';
$cipherby = '';
$cipher = '';
$a = 0;
$j = 0;
for ($i = 0; $i < strlen($data); $i++) {
$a = ($a + 1) % 256;
$j = ($j + $box[$a]) % 256;
for ($i=0; $i<strlen($data); $i++) {
$a = ($a+1)%256;
$j = ($j+$box[$a])%256;
$temp = $box[$a];
$box[$a] = $box[$j];
$box[$j] = $temp;
$k = $box[(($box[$a] + $box[$j]) % 256)];
$cipherby = ord(substr($data, $i, 1)) ^ $k;
$k = $box[(($box[$a]+$box[$j])%256)];
$cipherby = ord(substr($data,$i,1))^$k;
$cipher .= chr($cipherby);
}
if ($case == 'de') {
if ($case == 'de')
$cipher = urldecode(urlencode($cipher));
} else {
else
$cipher = urlencode($cipher);
}
return $cipher;
}
?>
}
?>