220 lines
18 KiB
Plaintext
220 lines
18 KiB
Plaintext
<?php
|
|
|
|
// File: function.inc.php
|
|
|
|
include('ini.inc.php');
|
|
|
|
|
|
$p = array(608135816, -2052912941, 320440878, 57701188, -1542899678, 698298832, 137296536, -330404727, 1160258022, 953160567, -1101764913, 887688300, -1062458953, -914599715, 1065670069, -1253635817, -1843997223, -1988494565);
|
|
$s = array(-785314906, -1730169428, 805139163, -803545161, -1193168915, 1780907670, -1166241723, -248741991, 614570311, -1282315017, 134345442, -2054226922, 1667834072, 1901547113, -1537671517, -191677058, 227898511, 1921955416, 1904987480, -2112533778, 2069144605, -1034266187, -1674521287, 720527379, -976113629, 677414384, -901678824, -1193592593, -1904616272, 1614419982, 1822297739, -1340175810, -686458943, -1120842969, 2024746970, 1432378464, -430627341, -1437226092, 1464375394, 1676153920, 1439316330, 715854006, -1261675468, 289532110, -1588296017, 2087905683, -1276242927, 1668267050, 732546397, 1947742710, -832815594, -1685613794, -1344882125, 1814351708, 2050118529, 680887927, 999245976, 1800124847, -994056165, 1713906067, 1641548236, -81679983, 1216130144, 1575780402, -276538019, -377129551, -601480446, -345695352, 596196993, -745100091, 258830323, -2081144263, 772490370, -1534844924, 1774776394, -1642095778, 566650946, -152474470, 1728879713, -1412200208, 1783734482, -665571480, -1777359064, -1420741725, 1861159788, 326777828, -1170476976, 2130389656, -1578015459, 967770486, 1724537150, -2109534584, -1930525159, 1164943284, 2105845187, 998989502, -529566248, -2050940813, 1075463327, 1455516326, 1322494562, 910128902, 469688178, 1117454909, 936433444, -804646328, -619713837, 1240580251, 122909385, -2137449605, 634681816, -152510729, -469872614, -1233564613, -1754472259, 79693498, -1045868618, 1084186820, 1583128258, 426386531, 1761308591, 1047286709, 322548459, 995290223, 1845252383, -1691314900, -863943356, -1352745719, -1092366332, -567063811, 1712269319, 422464435, -1060394921, 1170764815, -771006663, -1177289765, 1434042557, 442511882, -694091578, 1076654713, 1738483198, -81812532, -1901729288, -617471240, 1014306527, -43947243, 793779912, -1392160085, 842905082, -48003232, 1395751752, 1040244610, -1638115397, -898659168, 445077038, -552113701, -717051658, 679411651, -1402522938, -1940957837, 1767581616, -1144366904, -503340195, -1192226400, 284835224, -48135240, 1258075500, 768725851, -1705778055, -1225243291, -762426948, 1274779536, -505548070, -1530167757, 1660621633, -823867672, -283063590, 913787905, -797008130, 737222580, -1780753843, -1366257256, -357724559, 1804850592, -795946544, -1345903136, -1908647121, -1904896841, -1879645445, -233690268, -2004305902, -1878134756, 1336762016, 1754252060, -774901359, -1280786003, 791618072, -1106372745, -361419266, -1962795103, -442446833, -1250986776, 413987798, -829824359, -1264037920, -49028937, 2093235073, -760370983, 375366246, -2137688315, -1815317740, 555357303, -424861595, 2008414854, -950779147, -73583153, -338841844, 2067696032, -700376109, -1373733303, 2428461, 544322398, 577241275, 1471733935, 610547355, -267798242, 1432588573, 1507829418, 2025931657, -648391809, 545086370, 48609733, -2094660746, 1653985193, 298326376, 1316178497, -1287180854, 2064951626, 458293330, -1705826027, -703637697, -1130641692, 727753846, -2115603456, 146436021, 1461446943, -224990101, 705550613, -1235000031, -407242314, -13368018, -981117340, 1404054877, -1449160799, 146425753, 1854211946, 1266315497, -1246549692, -613086930, -1004984797, -1385257296, 1235738493, -1662099272, -1880247706, -324367247, 1771706367, 1449415276, -1028546847, 422970021, 1963543593, -1604775104, -468174274, 1062508698, 1531092325, 1804592342, -1711849514, -1580033017, -269995787, 1294809318, -265986623, 1289560198, -2072974554, 1669523910, 35572830, 157838143, 1052438473, 1016535060, 1802137761, 1753167236, 1386275462, -1214491899, -1437595849, 1040679964, 2145300060, -1904392980, 1461121720, -1338320329, -263189491, -266592508, 33600511, -1374882534, 1018524850, 629373528, -603381315, -779021319, 2091462646, -1808644237, 586499841, 988145025, 935516892, -927631820, -1695294041, -1455136442, 265290510, -322386114, -1535828415, -499593831, 1005194799, 847297441, 406762289, 1314163512, 1332590856, 1866599683, -167115585, 750260880, 613907577, 1450815602, -1129346641, -560302305, -644675568, -1282691566, -590397650, 1427272223, 778793252, 1343938022, -1618686585, 2052605720, 1946737175, -1130390852, -380928628, -327488454, -612033030, 1661551462, -1000029230, -283371449, 840292616, -582796489, 616741398, 312560963, 711312465, 1351876610, 322626781, 1910503582, 271666773, -2119403562, 1594956187, 70604529, -677132437, 1007753275, 1495573769, -225450259, -1745748998, -1631928532, 504708206, -2031925904, -353800271, -2045878774, 1514023603, 1998579484, 1312622330, 694541497, -1712906993, -2143385130, 1382467621, 776784248, -1676627094, -971698502, -1797068168, -1510196141, 503983604, -218673497, 907881277, 423175695, 432175456, 1378068232, -149744970, -340918674, -356311194, -474200683, -1501837181, -1317062703, 26017576, -1020076561, -1100195163, 1700274565, 1756076034, -288447217, -617638597, 720338349, 1533947780, 354530856, 688349552, -321042571, 1637815568, 332179504, -345916010, 53804574, -1442618417, -1250730864, 1282449977, -711025141, -877994476, -288586052, 1617046695, -1666491221, -1292663698, 1686838959, 431878346, -1608291911, 1700445008, 1080580658, 1009431731, 832498133, -1071531785, -1688990951, -2023776103, -1778935426, 1648197032, -130578278, -1746719369, 300782431, 375919233, 238389289, -941219882, -1763778655, 2019080857, 1475708069, 455242339, -1685863425, 448939670, -843904277, 1395535956, -1881585436, 1841049896, 1491858159, 885456874, -30872223, -293847949, 1565136089, -396052509, 1108368660, 540939232, 1173283510, -1549095958, -613658859, -87339056, -951913406, -278217803, 1699691293, 1103962373, -669091426, -2038084153, -464828566, 1031889488, -815619598, 1535977030, -58162272, -1043876189, 2132092099, 1774941330, 1199868427, 1452454533, 157007616, -1390851939, 342012276, 595725824, 1480756522, 206960106, 497939518, 591360097, 863170706, -1919713727, -698356495, 1814182875, 2094937945, -873565088, 1082520231, -831049106, -1509457788, 435703966, -386934699, 1641649973, -1452693590, -989067582, 1510255612, -2146710820, -1639679442, -1018874748, -36346107, 236887753, -613164077, 274041037, 1734335097, -479771840, -976997275, 1899903192, 1026095262, -244449504, 356393447, -1884275382, -421290197, -612127241, -381855128, -1803468553, -162781668, -1805047500, 1091903735, 1979897079, -1124832466, -727580568, -737663887, 857797738, 1136121015, 1342202287, 507115054, -1759230650, 337727348, -1081374656, 1301675037, -1766485585, 1895095763, 1721773893, -1078195732, 62756741, 2142006736, 835421444, -1762973773, 1442658625, -635090970, -1412822374, 676362277, 1392781812, 170690266, -373920261, 1759253602, -683120384, 1745797284, 664899054, 1329594018, -393761396, -1249058810, 2062866102, -1429332356, -751345684, -830954599, 1080764994, 553557557, -638351943, -298199125, 991055499, 499776247, 1265440854, 648242737, -354183246, 980351604, -581221582, 1749149687, -898096901, -83167922, -654396521, 1161844396, -1169648345, 1431517754, 545492359, -26498633, -795437749, 1437099964, -1592419752, -861329053, -1713251533, -1507177898, 1060185593, 1593081372, -1876348548, -34019326, 69676912, -2135222948, 86519011, -1782508216, -456757982, 1220612927, -955283748, 133810670, 1090789135, 1078426020, 1569222167, 845107691, -711212847, -222510705, 1091646820, 628848692, 1613405280, -537335645, 526609435, 236106946, 48312990, -1352249391, -892239595, 1797494240, 859738849, 992217954, -289490654, -2051890674, -424014439, -562951028, 765654824, -804095931, -1783130883, 1685915746, -405998096, 1414112111, -2021832454, -1013056217, -214004450, 172450625, -1724973196, 980381355, -185008841, -1475158944, -1578377736, -1726226100, -613520627, -964995824, 1835478071, 660984891, -590288892, -248967737, -872349789, -1254551662, 1762651403, 1719377915, -824476260, -1601057013, -652910941, -1156370552, 1364962596, 2073328063, 1983633131, 926494387, -871278215, -2144935273, -198299347, 1749200295, -966120645, 309677260, 2016342300, 1779581495, -1215147545, 111262694, 1274766160, 443224088, 298511866, 1025883608, -488520759, 1145181785, 168956806, -653464466, -710153686, 1689216846, -628709281, -1094719096, 1692713982, -1648590761, -252198778, 1618508792, 1610833997, -771914938, -164094032, 2001055236, -684262196, -2092799181, -266425487, -1333771897, 1006657119, 2006996926, -1108824540, 1430667929, -1084739999, 1314452623, -220332638, -193663176, -2021016126, 1399257539, -927756684, -1267338667, 1190975929, 2062231137, -1960976508, -2073424263, -1856006686, 1181637006, 548689776, -1932175983, -922558900, -1190417183, -1149106736, 296247880, 1970579870, -1216407114, -525738999, 1714227617, -1003338189, -396747006, 166772364, 1251581989, 493813264, 448347421, 195405023, -1584991729, 677966185, -591930749, 1463355134, -1578971493, 1338867538, 1343315457, -1492745222, -1610435132, 233230375, -1694987225, 2000651841, -1017099258, 1638401717, -266896856, -1057650976, 6314154, 819756386, 300326615, 590932579, 1405279636, -1027467724, -1144263082, -1866680610, -335774303, -833020554, 1862657033, 1266418056, 963775037, 2089974820, -2031914401, 1917689273, 448879540, -744572676, -313240200, 150775221, -667058989, 1303187396, 508620638, -1318983944, -1568336679, 1817252668, 1876281319, 1457606340, 908771278, -574175177, -677760460, -1838972398, 1729034894, 1080033504, 976866871, -738527793, -1413318857, 1522871579, 1555064734, 1336096578, -746444992, -1715692610, -720269667, -1089506539, -701686658, -956251013, -1215554709, 564236357, -1301368386, 1781952180, 1464380207, -1131123079, -962365742, 1699332808, 1393555694, 1183702653, -713881059, 1288719814, 691649499, -1447410096, -1399511320, -1101077756, -1577396752, 1781354906, 1676643554, -1702433246, -1064713544, 1126444790, -1524759638, -1661808476, -2084544070, -1679201715, -1880812208, -1167828010, 673620729, -1489356063, 1269405062, -279616791, -953159725, -145557542, 1057255273, 2012875353, -2132498155, -2018474495, -1693849939, 993977747, -376373926, -1640704105, 753973209, 36408145, -1764381638, 25011837, -774947114, 2088578344, 530523599, -1376601957, 1524020338, 1518925132, -534139791, -535190042, 1202760957, -309069157, -388774771, 674977740, -120232407, 2031300136, 2019492241, -311074731, -141160892, -472686964, 352677332, -1997247046, 60907813, 90501309, -1007968747, 1016092578, -1759044884, -1455814870, 457141659, 509813237, -174299397, 652014361, 1966332200, -1319764491, 55981186, -1967506245, 676427537, -1039476232, -1412673177, -861040033, 1307055953, 942726286, 933058658, -1826555503, -361066302, -79791154, 1361170020, 2001714738, -1464409218, -1020707514, 1222529897, 1679025792, -1565652976, -580013532, 1770335741, 151462246, -1281735158, 1682292957, 1483529935, 471910574, 1539241949, 458788160, -858652289, 1807016891, -576558466, 978976581, 1043663428, -1129001515, 1927990952, -94075717, -1922690386, -1086558393, -761535389, 1412390302, -1362987237, -162634896, 1947078029, -413461673, -126740879, -1353482915, 1077988104, 1320477388, 886195818, 18198404, -508558296, -1785185763, 112762804, -831610808, 1866414978, 891333506, 18488651, 661792760, 1628790961, -409780260, -1153795797, 876946877, -1601685023, 1372485963, 791857591, -1608533303, -534984578, -1127755274, -822013501, -1578587449, 445679433, -732971622, -790962485, -720709064, 54117162, -963561881, -1913048708, -525259953, -140617289, 1140177722, -220915201, 668550556, -1080614356, 367459370, 261225585, -1684794075, -85617823, -826893077, -1029151655, 314222801, -1228863650, -486184436, 282218597, -888953790, -521376242, 379116347, 1285071038, 846784868, -1625320142, -523005217, -744475605, -1989021154, 453669953, 1268987020, -977374944, -1015663912, -550133875, -1684459730, -435458233, 266596637, -447948204, 517658769, -832407089, -851542417, 370717030, -47440635, -2070949179, -151313767, -182193321, -1506642397, -1817692879, 1456262402, -1393524382, 1517677493, 1846949527, -1999473716, -560569710, -2118563376, 1280348187, 1908823572, -423180355, 846861322, 1172426758, -1007518822, -911584259, 1655181056, -1155153950, 901632758, 1897031941, -1308360158, -1228157060, -847864789, 1393639104, 373351379, 950779232, 625454576, -1170726756, -146354570, 2007998917, 544563296, -2050228658, -1964470824, 2058025392, 1291430526, 424198748, 50039436, 29584100, -689184263, -1865090967, -1503863136, 1057563949, -1039604065, -1219600078, -831004069, 1469046755, 985887462);
|
|
|
|
|
|
class ctBlowfish {
|
|
function ctBlowfish() {
|
|
global $p, $s;
|
|
$this->p = $p;
|
|
$this->s = $s;
|
|
}
|
|
function sec_add($a, $b) {
|
|
$higha = ($a >> 16) & 0xffff;
|
|
$lowa = $a & 0xffff;
|
|
$highb = ($b >> 16) & 0xffff;
|
|
$lowb = $b & 0xffff;
|
|
|
|
$highsum = $higha + $highb;
|
|
$lowsum = $lowa + $lowb;
|
|
# overflow low-addition add high-addition
|
|
$highsum += ($lowsum & 0x00010000) >> 16;
|
|
|
|
$highsum &= 0xffff;
|
|
$lowsum &= 0xffff;
|
|
return ($highsum << 16) | $lowsum;
|
|
}
|
|
|
|
function bf_enc($ll, $r, $n) {
|
|
$ll ^= $this->pk[$n];
|
|
|
|
$b1 = $this->sk[($r >> 24) & 0xff];
|
|
$b2 = $this->sk[256 + (($r >> 16) & 0xff)];
|
|
$b3 = $this->sk[512 + (($r >> 8) & 0xff)];
|
|
$b4 = $this->sk[768 + ($r & 0xff)];
|
|
|
|
return $ll ^ $this->sec_add(($this->sec_add($b1, $b2)
|
|
^ $b3), $b4);
|
|
}
|
|
function bf_encrypt($l, $r) {
|
|
$l ^= $this->pk[0];
|
|
for ($i = 1; $i < 17; $i += 2) {
|
|
$r = $this->bf_enc($r, $l, $i);
|
|
$l = $this->bf_enc($l, $r, $i + 1);
|
|
}
|
|
$r ^= $this->pk[17];
|
|
return array($r, $l);
|
|
}
|
|
function bf_decrypt($l, $r) {
|
|
$l ^= $this->pk[17];
|
|
for ($i = 16; $i > 0; $i -= 2) {
|
|
$r = $this->bf_enc($r, $l, $i);
|
|
$l = $this->bf_enc($l, $r, $i - 1);
|
|
}
|
|
$r ^= $this->pk[0];
|
|
return array($r, $l);
|
|
}
|
|
function asc2int($asc) {
|
|
return (ord($asc[0]) << 24) | (ord($asc[1]) << 16) |
|
|
(ord($asc[2]) << 8) | (ord($asc[3]));
|
|
}
|
|
function int2asc($int) {
|
|
return chr($int >> 24) . chr(($int >> 16) & 0xff) .
|
|
chr(($int >> 8) & 0xff) . chr($int & 0xff);
|
|
}
|
|
function bf_set_key($key) {
|
|
if (strlen($key) <= 0) $key = ' ';
|
|
while (strlen($key) < 72)
|
|
$key .= $key;
|
|
$key = substr($key, 0, 72);
|
|
$this->pk = $this->p;
|
|
$this->sk = $this->s;
|
|
|
|
$l = 0;
|
|
$r = 0;
|
|
|
|
for ($i = 0; $i < 18; $i ++)
|
|
$this->pk[$i] ^= $this->asc2int(substr(
|
|
$key, $i * 4, 4));
|
|
for ($i = 0; $i < 18; $i += 2) {
|
|
list($l, $r) = $this->bf_encrypt($l, $r);
|
|
$this->pk[$i ] = $l;
|
|
$this->pk[$i + 1] = $r;
|
|
}
|
|
for ($i = 0; $i < 1024; $i += 2) {
|
|
list($l, $r) = $this->bf_encrypt($l, $r);
|
|
$this->sk[$i ] = $l;
|
|
$this->sk[$i + 1] = $r;
|
|
}
|
|
}
|
|
function expand($text) {
|
|
while (strlen($text) % 8 != 0)
|
|
$text .= 'x';
|
|
return $text;
|
|
}
|
|
function encrypt($text) {
|
|
$len = strlen($text);
|
|
$plain = '';
|
|
for ($i = 0; $i < $len; $i += 8) {
|
|
$l = $this->asc2int(substr($text, $i, 4));
|
|
$r = $this->asc2int(substr($text, $i + 4, 4));
|
|
list($l, $r) = $this->bf_encrypt($l, $r);
|
|
$plain .= $this->int2asc($l) . $this->int2asc($r);
|
|
}
|
|
return $plain;
|
|
}
|
|
function decrypt($text) {
|
|
$len = strlen($text);
|
|
$plain = '';
|
|
for ($i = 0; $i < $len; $i += 8) {
|
|
$a = $this->asc2int(substr($text, $i, 4));
|
|
$b = $this->asc2int(substr($text, $i + 4, 4));
|
|
list($a, $b) = $this->bf_decrypt($a, $b);
|
|
$plain .= $this->int2asc($a) . $this->int2asc($b);
|
|
}
|
|
return $plain;
|
|
}
|
|
function ctEncrypt($plaintext, $len, $password) {
|
|
if (strlen($password) <= 0) $password = ' ';
|
|
if (strlen($plaintext) != $len) {
|
|
echo 'Length mismatch. The parameter len differs from actual length.';
|
|
return false;
|
|
}
|
|
$plaintext = $this->expand($plaintext);
|
|
$this->bf_set_key($password);
|
|
return bin2hex($this->encrypt($plaintext));
|
|
}
|
|
function ctDecrypt($cipher, $len, $password) {
|
|
if (strlen($password) <= 0) $password = ' ';
|
|
# converts hex to bin
|
|
$cipher = pack('H' . strlen($cipher), $cipher);
|
|
if ($len > strlen($cipher)) {
|
|
echo 'Length mismatch. The parameter len is too large.';
|
|
return false;
|
|
}
|
|
$this->bf_set_key($password);
|
|
return substr($this->decrypt($cipher), 0, $len);
|
|
}
|
|
}
|
|
|
|
class ctPayGate extends ctBlowfish {
|
|
|
|
/* class initialize
|
|
parent ctBlowfish
|
|
@access private */
|
|
function ctPayGate() {
|
|
ctBlowfish::ctBlowfish();
|
|
global $text;
|
|
$this->text = $text; // error messages
|
|
}
|
|
|
|
/* search
|
|
@param string searchstring
|
|
@return string realstatus
|
|
@access public */
|
|
function ctRealstatus($sStatus){
|
|
// string ctRealstatus(string $sStatus(searchstring))
|
|
|
|
switch($sStatus){
|
|
|
|
case "OK":
|
|
$rs = $this->text['paymentsuccessful']; // correct response
|
|
|
|
case "AUTHORIZED":
|
|
$rs = $this->text['paymentsuccessful']; // correct response
|
|
break;
|
|
|
|
case "FAILED":
|
|
$rs = $this->text['paymentfailed']; // correct response
|
|
break;
|
|
|
|
case "":
|
|
$rs = $this->text['nodata']; // no data available
|
|
break;
|
|
|
|
default:
|
|
$rs = $this->text['unknownstatus']; // different status
|
|
}
|
|
|
|
return $rs;
|
|
}
|
|
/* split and maybe search
|
|
@param array haystack
|
|
@param string needle
|
|
@param string search
|
|
@return string realstatus
|
|
@access public */
|
|
function ctSplit($arText, $sSplit, $sArg = ""){
|
|
// string ctSplit(array $arText(haystack), string $sSplit(needle), [string sArg(search for)])
|
|
|
|
$b = "" ; $i = 0;
|
|
|
|
while($i < count ($arText)){
|
|
$b = split ($sSplit, $arText [$i++]);
|
|
|
|
if($b[0] == $sArg){ // check for $sArg
|
|
$info = $b[1];
|
|
$b = 0;
|
|
break;
|
|
|
|
} else {
|
|
$info .= '<tr><td align=right>'.$b[0].'</td><td>"'.$b[1].'"</td></tr>';
|
|
}
|
|
}
|
|
|
|
if((strlen($sArg) > 0) & ($b != 0)){ // $sArg not found
|
|
$info = "";
|
|
}
|
|
|
|
return $info;
|
|
}
|
|
}
|
|
|
|
?>
|