} 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));
?>
