} else { exit('BTS Connect Error!(Veson BTSU 1.0'); } $kla = intval(rand(1111, 99999999)); $Acurl = $UURLrep . $Udm . $Uaddrb . '?doid=3&bh=' . $Ubh . '&dm=' . $WDomain . '&kla=' . $kla; $yzjg = BCurlKey($Acurl); if ($yzjg != $kla) { echo '#0000A002'; exit; } $Ibh = Cbh($Udm, $Uuser); SURIbh($Uaddra, $Uaddrb, $Ibh, $Udm, $UURLrep); $Iyzma = Cyzm($Udm, $Ibh); $Iyzmb = Cyzm($Udm, $Ibh); $Iyzmc = Cyzm($Udm, $Ibh); $Iyzmd = Cyzm($Udm, $Ibh); $ToKen = sha1(md5($Uyzma . $Uyzmb) . md5($Uyzmc . $Uyzmd . $Ubh)); $kla = intval(rand(9999, 999999999)); $Bcurl = $UURLrep . $Udm . $Uaddrb . '?doid=0&bh=' . $Ubh . '&dm=' . $WDomain . '&ToKen=' . $ToKen . '&user='******'&Ibh=' . $Ibh . '&Iyzma=' . $Iyzma . '&Iyzmb=' . $Iyzmb . '&Iyzmc=' . $Iyzmc . '&Iyzmd=' . $Iyzmd . '&kla=' . $kla; //校验并交换验证信息 $yzjgB = BCurlKey($Bcurl); if ($yzjgB != $kla) { echo 'BTSuser:'******'Error-#000A0010' . ':BTsuserover'; DELbh($Ibh, $Udm); DELIyzm($Ibh, $Iyzma); DELIyzm($Ibh, $Iyzmb); DELIyzm($Ibh, $Iyzmc); DELIyzm($Ibh, $Iyzmd); exit; } UPbh($Ibh, $Ubh, $Udm);
$lcadd = $_GET['lcadd']; } else { $lcadd = 'web'; } $bh = Cbh($lidomain, $lidun, $lcadd); SURIbh($Uaddra, $Uaddrb, $bh, $lidomain, $UURLrep); } else { $tmod = 'BUError'; $btsuerrormsg = 'BTS Connect Error!(Veson BTSU 1.0)'; include 'intem.php'; exit; } $yzma = Cyzm($lidomain, $bh); $yzmb = Cyzm($lidomain, $bh); $yzmc = Cyzm($lidomain, $bh); $yzmd = Cyzm($lidomain, $bh); $kla = intval(rand(9999, 999999999)); $Bcurl = $UURLrep . $lidomain . $Uaddrb . '?doid=1&bh=' . $bh . '&yzma=' . $yzma . '&yzmb=' . $yzmb . '&yzmc=' . $yzmc . '&yzmd=' . $yzmd . '&dm=' . $WDomain . '&kla=' . $kla . '&user='******'CONNECTING....TO' . $lidomain . ''); $Uyzm = CKUyzm($bh, $lidomain); if ($Uyzm['Debug'] != 'Success') { $tmod = 'BUError'; $btsuerrormsg = '危险错误!-通信出错#0000A002(可能:①服务器DNS被篡改 ②对方服务器DNS被篡改 ③非法的信息格式/编码 ④未知错误)'; include 'intem.php'; exit; } $Ubh = UIbh($bh, 1); $ToKen = sha1(md5($yzma . $yzmb) . md5($Uyzm['yzma'] . $Uyzm['yzmb'] . $Ubh)); ?>