This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
khosb/modules/core/crypt.inc.php

334 lines
8.3 KiB
PHP
Raw Normal View History

2009-09-17 23:40:08 +00:00
<?php
2009-08-03 04:10:16 +00:00
/**
* 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
*/
if (! defined('LICENSE_KEY'))
define('LICENSE_KEY','47012093-4943-32127707');
/**
* 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;
}
2009-08-03 04:10:16 +00:00
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);
}
2009-08-03 04:10:16 +00:00
return $keys;
}
2009-08-03 04:10:16 +00:00
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;
2009-08-03 04:10:16 +00:00
while ($v3 != 0) {
$qq = floor($u3/$v3);
2009-08-03 04:10:16 +00:00
$t1 = $u1-$qq*$v1;
$t2 = $u2-$qq*$v2;
$t3 = $u3-$qq*$v3;
$u1 = $v1;
$u2 = $v2;
$u3 = $v3;
$v1 = $t1;
$v2 = $t2;
$v3 = $t3;
$z = 1;
}
2009-08-03 04:10:16 +00:00
$uu = $u1;
$vv = $u2;
2009-08-03 04:10:16 +00:00
if ($vv < 0)
$inverse = $vv+$Epi;
else
$inverse = $vv;
2009-08-03 04:10:16 +00:00
return $inverse;
}
2009-08-03 04:10:16 +00:00
private function GCD($e,$pi) {
$y = $e;
$x = $pi;
2009-08-03 04:10:16 +00:00
while ($y != 0) {
2009-08-03 04:10:16 +00:00
$w = $this->mo($x,$y);
$x = $y;
$y = $w;
}
2009-08-03 04:10:16 +00:00
return $x;
}
2009-08-03 04:10:16 +00:00
private function tofindE($pi) {
$great = 0;
2009-08-03 04:10:16 +00:00
$cc = mt_rand(0,$this->maxprimes);
$startcc = $cc;
2009-08-03 04:10:16 +00:00
while ($cc >= 0) {
$se = $this->primes[$cc];
$great = $this->GCD($se,$pi);
$cc--;
2009-08-03 04:10:16 +00:00
if ($great == 1)
break;
}
2009-08-03 04:10:16 +00:00
if ($great == 0) {
$cc = $startcc + 1;
2009-08-03 04:10:16 +00:00
while ($cc <= $this->maxprimes) {
$se = $this->primes[$cc];
$great = $this->GCD($se,$pi);
$cc++;
2009-08-03 04:10:16 +00:00
if ($great == 1)
break;
}
}
2009-08-03 04:10:16 +00:00
return $se;
}
2009-08-03 04:10:16 +00:00
public function rsa_encrypt($m,$e,$n) {
$asci = array();
$coded = '';
for ($i=0; $i<strlen($m); $i+=3) {
2009-08-03 04:10:16 +00:00
$tmpasci = '1';
for ($h=0; $h<3; $h++) {
if ($i+$h <strlen($m)) {
2009-08-03 04:10:16 +00:00
$tmpstr = ord(substr($m,$i+$h,1))-30;
if (strlen($tmpstr) < 2)
$tmpstr = '0'.$tmpstr;
} else {
break;
}
2009-08-03 04:10:16 +00:00
$tmpasci .= $tmpstr;
}
2009-08-03 04:10:16 +00:00
array_push($asci,$tmpasci.'1');
}
2009-08-03 04:10:16 +00:00
for ($k=0; $k< count($asci); $k++) {
$resultmod = $this->powmod($asci[$k],$e,$n);
$coded .= $resultmod.' ';
}
2009-08-03 04:10:16 +00:00
return trim($coded);
}
2009-08-03 04:10:16 +00:00
private function powmod($base,$exp,$modulus) {
$accum = 1;
$i = 0;
$basepow2 = $base;
2009-08-03 04:10:16 +00:00
while (($exp >> $i)>0) {
2009-08-03 04:10:16 +00:00
if ((($exp >> $i) & 1) == 1)
$accum = $this->mo(($accum*$basepow2),$modulus);
$basepow2 = $this->mo(($basepow2*$basepow2),$modulus);
$i++;
}
2009-08-03 04:10:16 +00:00
return $accum;
}
2009-08-03 04:10:16 +00:00
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++) {
2009-08-03 04:10:16 +00:00
$resultmod = $this->powmod($decryptarray[$u],$d,$n);
$deencrypt .= substr($resultmod,1,strlen($resultmod)-2);
}
2009-08-03 04:10:16 +00:00
for ($u=0; $u<strlen($deencrypt); $u+=2)
$resultd .= chr(substr($deencrypt,$u,2)+30);
return $resultd;
}
2009-08-03 04:10:16 +00:00
}
2009-08-03 04:10:16 +00:00
/**
* Encrypt some data
*/
function CORE_encrypt($data) {
$rsa = new CORE_RSA;
2009-08-03 04:10:16 +00:00
$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);
return $rc4_data;
}
2009-08-03 04:10:16 +00:00
/**
* 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]);
return $rsa_data;
}
2009-08-03 04:10:16 +00:00
/**
* Do the encryption/decryption
*/
function do_rc4($data,$case,$pwd) {
if (! $pwd)
$pwd = '21e0*kO-(uV9B0@jFk-er';
2009-08-03 04:10:16 +00:00
if ($case == 'de')
$data = urldecode($data);
2009-08-03 04:10:16 +00:00
$key = array();
$box = array();
$temp_swap = '';
$pwd_length = strlen($pwd);
for ($i = 0; $i <= 255; $i++) {
2009-08-03 04:10:16 +00:00
$key[$i] = ord(substr($pwd,($i%$pwd_length),1));
$box[$i] = $i;
}
2009-08-03 04:10:16 +00:00
$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;
}
2009-08-03 04:10:16 +00:00
$temp = '';
$k = '';
$cipherby = '';
$cipher = '';
$a = 0;
$j = 0;
2009-08-03 04:10:16 +00:00
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;
2009-08-03 04:10:16 +00:00
$k = $box[(($box[$a]+$box[$j])%256)];
$cipherby = ord(substr($data,$i,1))^$k;
$cipher .= chr($cipherby);
}
2009-08-03 04:10:16 +00:00
if ($case == 'de')
$cipher = urldecode(urlencode($cipher));
2009-08-03 04:10:16 +00:00
else
$cipher = urlencode($cipher);
2009-08-03 04:10:16 +00:00
return $cipher;
2009-08-03 04:10:16 +00:00
}
?>