SmartOS/TokenNet/TokenClient.cpp

879 lines
17 KiB
C++
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#include "TTime.h"
#include "Net\Socket.h"
#include "Message\BinaryPair.h"
#include "TokenClient.h"
#include "TokenMessage.h"
#include "HelloMessage.h"
#include "LoginMessage.h"
#include "RegisterMessage.h"
#include "TokenDataMessage.h"
#include "ErrorMessage.h"
#include "Security\RC4.h"
static void BroadcastHelloTask(void* param);
TokenClient::TokenClient()
: Routes(String::Compare)
{
Token = 0;
Opened = false;
Status = 0;
LoginTime = 0;
LastSend = 0;
LastActive = 0;
Delay = 0;
MaxNotActive = 0;
Master = nullptr;
Cfg = nullptr;
Received = nullptr;
Param = nullptr;
NextReport = 0;
ReportLength = 0;
}
void TokenClient::Open()
{
if(Opened) return;
TS("TokenClient::Open");
auto& cs = Controls;
assert(cs.Count() > 0, "令牌客户端还没设置控制器呢");
// 使用另一个强类型参数的委托,事件函数里面不再需要做类型
Delegate2<TokenMessage&, TokenController&> dlg(&TokenClient::OnReceive, this);
if(Master)
{
Master->Received = dlg;
Master->Open();
}
for(int i=0; i<cs.Count(); i++)
{
auto ctrl = cs[i];
ctrl->Received = dlg;
ctrl->Open();
}
// 令牌客户端定时任务
if(Master) _task = Sys.AddTask(&TokenClient::LoopTask, this, 1000, 5000, "令牌客户");
// 令牌广播使用素数,避免跟别的任务重叠
if(cs.Count() > 0) _taskBroadcast = Sys.AddTask(BroadcastHelloTask, this, 7000, 37000, "令牌广播");
// 启动时记为为后一次活跃接收
LastActive = Sys.Ms();
Opened = true;
}
void TokenClient::Close()
{
if(!Opened) return;
Sys.RemoveTask(_task);
Sys.RemoveTask(_taskBroadcast);
if(Master) Master->Close();
auto& cs = Controls;
for(int i=0; i<cs.Count(); i++)
{
auto ctrl = cs[i];
ctrl->Close();
}
Opened = false;
}
bool TokenClient::Send(TokenMessage& msg, TokenController* ctrl)
{
// 未登录之前,只能 握手、登录、注册
if(Token == 0)
{
if(msg.Code != 0x01 && msg.Code != 0x02 && msg.Code != 0x07) return false;
}
if(!ctrl) ctrl = Master;
if(!ctrl) return false;
assert(ctrl, "TokenClient::Send");
// 最后发送仅统计主控制器
if(ctrl == Master) LastSend = Sys.Ms();
return ctrl->Send(msg);
}
bool TokenClient::Reply(TokenMessage& msg, TokenController* ctrl)
{
// 未登录之前,只能 握手、登录、注册
if(ctrl->Token == 0)
{
if(msg.Code != 0x01 && msg.Code != 0x02 && msg.Code != 0x07) return false;
}
if(!ctrl) ctrl = Master;
if(!ctrl) return false;
assert(ctrl, "TokenClient::Reply");
if(ctrl == Master) LastSend = Sys.Ms();
return ctrl->Reply(msg);
}
void TokenClient::OnReceive(TokenMessage& msg, TokenController& ctrl)
{
TS("TokenClient::OnReceive");
LastActive = Sys.Ms();
switch(msg.Code)
{
case 0x01:
if(msg.Reply)
OnHello(msg, &ctrl);
else
OnLocalHello(msg, &ctrl);
break;
case 0x02:
if(msg.Reply)
OnLogin(msg, &ctrl);
else
OnLocalLogin(msg, &ctrl);
break;
case 0x03:
OnPing(msg, &ctrl);
break;
case 0x07:
OnRegister(msg, &ctrl);
break;
case 0x08:
OnInvoke(msg, &ctrl);
break;
}
// todo 握手登录心跳消息不需要转发
if(msg.Code < 0x03) return;
// 消息转发
if (Received)
{
Received(&ctrl, msg, Param);
}
else
{
switch (msg.Code)
{
case 0x05: OnRead(msg, &ctrl); break;
case 0x06: OnWrite(msg, &ctrl); break;
default:
break;
}
}
}
// 常用系统级消息
// 定时任务
void TokenClient::LoopTask()
{
TS("TokenClient::LoopTask");
CheckReport();
// 状态。0准备、1握手完成、2登录后
switch(Status)
{
case 0:
SayHello(false);
break;
case 1:
{
if(!Cfg->User())
Register();
else
Login();
break;
}
case 2:
Ping();
break;
}
// 最大不活跃时间ms超过该时间时重启系统
// WiFi触摸开关建议5~10分钟网关建议5分钟
// MaxNotActive 为零便不考虑重启
if(MaxNotActive != 0 && LastActive + MaxNotActive < Sys.Ms()) Sys.Reset();
}
void BroadcastHelloTask(void* param)
{
TS("TokenClient::BroadcastHello");
auto client = (TokenClient*)param;
client->SayHello(true);
}
// 发送发现消息,告诉大家我在这
// 请求2版本 + S类型 + S名称 + 8本地时间 + 6本地IP端口 + S支持加密算法列表
// 响应2版本 + S类型 + S名称 + 8本地时间 + 6对方IP端口 + 1加密算法 + N密钥
// 错误0xFE + 1协议 + S服务器 + 2端口
void TokenClient::SayHello(bool broadcast)
{
TS("TokenClient::SayHello");
TokenMessage msg(0x01);
HelloMessage ext;
ext.Reply = false;
ext.LocalTime = DateTime::Now().TotalMs();
auto& cs = Controls;
// 取第二通道为本地通道
if(cs.Count() > 0)
{
auto ctrl = cs[0];
auto sock = ctrl->Socket;
ext.EndPoint.Address = sock->Host->IP;
ext.EndPoint.Port = sock->Local.Port;
ext.Protocol = sock->Protocol ==NetType::Udp ? 17 : 6;
}
ext.Cipher = "RC4";
ext.Name = Cfg->User();
// 未注册时采用系统名称
if(!ext.Name)
{
ext.Name = Sys.Name;
ext.Key = Buffer(Sys.ID, 16);
}
ext.WriteMessage(msg);
ext.Show(true);
// 特殊处理广播,指定广播地址,避免因为内网发现改变了本地端口
if(broadcast)
{
msg.OneWay = true;
//msg.State = &ctrl->Socket->Remote;
for(int i=0; i<cs.Count(); i++)
{
auto ctrl = cs[i];
msg.State = &ctrl->Socket->Remote;
Send(msg, ctrl);
}
}
else
Send(msg);
}
// 握手响应
bool TokenClient::OnHello(TokenMessage& msg, TokenController* ctrl)
{
if(!msg.Reply) return false;
// 解析数据
HelloMessage ext;
ext.Reply = msg.Reply;
ext.ReadMessage(msg);
ext.Show(true);
// 如果收到响应,并且来自来源服务器
if(msg.Error)
{
if(OnRedirect(ext)) return false;
TS("TokenClient::OnHello_Error");
Status = 0;
Token = 0;
// 未握手错误,马上重新握手
if(ext.ErrCode == 0x7F) Sys.SetTask(_task, true, 0);
}
else
{
TS("TokenClient::OnHello_Reply");
// 通讯密码
if(ext.Key.Length() > 0)
{
if(ctrl) ctrl->Key.Copy(0, ext.Key, 0, ext.Key.Length());
debug_printf("握手得到通信密码:");
ext.Key.Show(true);
}
Status = 1;
// 握手完成后马上注册或登录
Sys.SetTask(_task, true, 0);
// 同步本地时间
if(ext.LocalTime > 0) ((TTime&)Time).SetTime(ext.LocalTime / 1000);
}
return true;
}
bool TokenClient::OnLocalHello(TokenMessage& msg, TokenController* ctrl)
{
if(msg.Reply) return false;
// 解析数据
HelloMessage ext;
ext.Reply = msg.Reply;
ext.ReadMessage(msg);
ext.Show(true);
TS("TokenClient::OnLocalHello");
auto rs = msg.CreateReply();
HelloMessage ext2;
ext2.Reply = true;
ext2.Key = ctrl->Key;
auto& cs = Controls;
// 取第二通道为本地通道
if(cs.Count() >= 2)
{
auto& ctrl = *(TokenController*)cs[1];
auto sock = ctrl.Socket;
ext2.EndPoint.Address = sock->Host->IP;
ext2.EndPoint.Port = sock->Local.Port;
}
ext2.Cipher = "RC4";
ext2.Name = Cfg->User();
// 未注册时采用系统名称
if(!ext2.Name)
{
ext2.Name = Sys.Name;
ext2.Key = Buffer(Sys.ID, 16);
}
// 使用当前时间
ext2.LocalTime = DateTime::Now().TotalMs();
ext2.WriteMessage(rs);
Reply(rs, ctrl);
return true;
}
bool TokenClient::OnRedirect(HelloMessage& msg)
{
TS("TokenClient::OnRedirect");
if(!(msg.ErrCode == 0xFE || msg.ErrCode == 0xFD)) return false;
auto cfg = Cfg;
cfg->Protocol = msg.Uri.Type;
cfg->Show();
cfg->Server() = msg.Uri.Host;
cfg->ServerPort = msg.Uri.Port;
cfg->Token() = msg.VisitToken;
ChangeIPEndPoint(msg.Uri);
cfg->Show();
// 0xFE永久改变厂商地址
if(msg.ErrCode == 0xFE) cfg->Save();
// 马上开始重新握手
Status = 0;
Sys.SetTask(_task, true, 0);
return true;
}
bool TokenClient::ChangeIPEndPoint(const NetUri& uri)
{
TS("TokenClient::ChangeIPEndPoint");
debug_printf("ChangeIPEndPoint ");
uri.Show(true);
auto ctrl = Master;
auto socket = ctrl->Socket;
if(socket == nullptr) return false;
ctrl->Port->Close();
socket->Remote.Port = uri.Port;
socket->Server = uri.Host;
Cfg->ServerIP = socket->Remote.Address.Value;
return true;
}
// 注册
void TokenClient::Register()
{
TS("TokenClient::Register");
debug_printf("TokenClient::Register\r\n");
RegisterMessage reg;
reg.User = Buffer(Sys.ID, 16).ToHex();
// 原始密码作为注册密码
reg.Pass = Cfg->Pass();
auto now = Sys.Ms();
reg.Salt = Buffer(&now, 8);
reg.Show(true);
TokenMessage msg(7);
reg.WriteMessage(msg);
Send(msg);
}
void TokenClient::OnRegister(TokenMessage& msg, TokenController* ctrl)
{
if(!msg.Reply) return;
TS("TokenClient::OnRegister");
if(msg.Error)
{
ErrorMessage em;
em.Read(msg);
debug_printf("注册失败,错误码 0x%02X", em.ErrorCode);
em.ErrorContent.Show(true);
return;
}
auto cfg = Cfg;
RegisterMessage reg;
reg.ReadMessage(msg);
cfg->User() = reg.User;
cfg->Pass() = reg.Pass;
cfg->Show();
cfg->Save();
Status = 0;
Sys.SetTask(_task, true, 0);
}
// 登录
void TokenClient::Login()
{
TS("TokenClient::Login");
LoginMessage login;
auto cfg = Cfg;
login.User = cfg->User();
// 原始密码对盐值进行加密,得到登录密码
auto now = Sys.Ms();
auto arr = Buffer(&now, 8);
login.Salt = arr;
RC4::Encrypt(arr, cfg->Pass());
login.Pass = arr.ToHex();
TokenMessage msg(2);
login.WriteMessage(msg);
login.Show(true);
Send(msg);
}
bool TokenClient::OnLogin(TokenMessage& msg, TokenController* ctrl)
{
if(!msg.Reply) return false;
TS("TokenClient::OnLogin");
Stream ms(msg.Data, msg.Length);
if(msg.Error)
{
// 登录失败,清空令牌
Token = 0;
byte result = ms.ReadByte();
// 任何错误,重新握手
Status = 0;
debug_printf("登录失败,错误码 0x%02X", result);
ms.ReadString().Show(true);
// 未登录错误,马上重新登录
if(result == 0x7F) Sys.SetTask(_task, true, 0);
}
else
{
Status = 2;
debug_printf("登录成功! ");
LoginMessage logMsg;
logMsg.ReadMessage(msg);
Token = logMsg.Token;
if(ctrl) ctrl->Token = Token;
logMsg.Show(true);
debug_printf("令牌0x%08X ", Token);
if (logMsg.Key.Length())
{
if(ctrl) ctrl->Key = logMsg.Key;
debug_printf("通信密码:");
logMsg.Key.Show();
}
debug_printf("\r\n");
// 登录成功后加大心跳间隔
Sys.SetTaskPeriod(_task, 60000);
}
return true;
}
bool TokenClient::OnLocalLogin(TokenMessage& msg, TokenController* ctrl)
{
if(msg.Reply) return false;
TS("TokenClient::OnLocalLogin");
auto rs = msg.CreateReply();
LoginMessage login;
// 这里需要随机密匙
login.Key = ctrl->Key;
// 随机令牌
login.Token = Sys.Ms();
login.Reply = true;
login.WriteMessage(rs);
Reply(rs, ctrl);
ctrl->Token = login.Token;
return true;
}
// Ping指令用于保持与对方的活动状态
void TokenClient::Ping()
{
TS("TokenClient::Ping");
if(LastActive > 0 && LastActive + 300000 < Sys.Ms())
{
// 30秒无法联系服务端可能已经掉线重启Hello任务
debug_printf("180秒无法联系服务端可能已经掉线重新开始握手\r\n");
Master->Key.SetLength(0);
Status = 0;
Sys.SetTaskPeriod(_task, 5000);
return;
}
// 30秒内发过数据不再发送心跳
if(LastSend > 0 && LastSend + 60000 > Sys.Ms()) return;
TokenPingMessage pinMsg;
TokenMessage msg(3);
pinMsg.WriteMessage(msg);
Send(msg);
}
bool TokenClient::OnPing(TokenMessage& msg, TokenController* ctrl)
{
TS("TokenClient::OnPing");
if (!msg.Reply) return false;
#if DEBUG
TokenPingMessage pinMsg;
pinMsg.ReadMessage(msg);
UInt64 start = pinMsg.LocalTime;
//int cost = (int)(Sys.Ms() - start);
// 使用绝对毫秒数,让服务器知道设备本地时间
int cost = (int)(DateTime::Now().TotalMs() - start);
if(Delay)
Delay = (Delay + cost) / 2;
else
Delay = cost;
debug_printf("心跳延迟 %dms / %dms \r\n", cost, Delay);
#endif
return true;
}
/******************************** 数据区 ********************************/
void TokenClient::Read(int start, int size)
{
TokenDataMessage dm;
dm.Start = start;
dm.Size = size;
TokenMessage msg;
msg.Code = 0x05;
dm.WriteMessage(msg);
Send(msg);
}
void TokenClient::Write(int start, const Buffer& bs)
{
TokenDataMessage dm;
dm.Start = start;
dm.Data = bs;
TokenMessage msg;
msg.Code = 0x06;
dm.WriteMessage(msg);
Send(msg);
}
void TokenClient::Write(int start, byte dat)
{
Write(start, Buffer(&dat, 1));
}
void TokenClient::ReportAsync(int start, uint length)
{
if(start + length >= Store.Data.Length()) return;
NextReport = start;
ReportLength = length;
// 延迟上报,期间有其它上报任务到来将会覆盖
Sys.SetTask(_task, true, 200);
}
bool TokenClient::CheckReport()
{
uint offset = NextReport;
uint len = ReportLength;
assert(offset == 0 || offset < 0x10, "自动上报偏移量异常!");
if(!offset) return false;
// 检查索引,否则数组越界
auto& bs = Store.Data;
if(bs.Length() > offset + len)
{
if(len == 1)
Write(offset, bs[offset]);
else
Write(offset, Buffer(&bs[offset], len));
}
NextReport = 0;
return true;
}
/*
请求:起始 + 大小
响应:起始 + 数据
*/
void TokenClient::OnRead(const TokenMessage& msg, TokenController* ctrl)
{
if(msg.Reply) return;
if(msg.Length < 2) return;
auto rs = msg.CreateReply();
auto ms = rs.ToStream();
TokenDataMessage dm;
dm.ReadMessage(msg);
dm.Show(true);
bool rt = true;
if(dm.Start < 64)
rt = dm.ReadData(Store);
else if(dm.Start < 128)
{
dm.Start -= 64;
rt = dm.ReadData(Cfg->ToArray());
dm.Start += 64;
}
if (!rt)
{
debug_printf("rt == false\r\n");
rs.Error = true;
}
else
{
dm.Show(true);
dm.WriteMessage(rs);
}
Reply(rs, ctrl);
}
/*
请求1起始 + N数据
响应1起始 + 1大小 + N数据
错误错误码2 + 1起始 + 1大小
*/
void TokenClient::OnWrite(const TokenMessage& msg, TokenController* ctrl)
{
if(msg.Reply) return;
if(msg.Length < 2) return;
auto rs = msg.CreateReply();
auto ms = rs.ToStream();
TokenDataMessage dm;
dm.ReadMessage(msg);
dm.Show(true);
bool rt = true;
if(dm.Start < 64)
{
rt = dm.WriteData(Store, true);
}
else if(dm.Start < 128)
{
dm.Start -= 64;
auto bs = Cfg->ToArray();
rt = dm.WriteData(bs, true);
dm.Start += 64;
Cfg->Save();
}
if(!rt)
rs.Error = true;
else
dm.WriteMessage(rs);
Reply(rs, ctrl);
if(dm.Start >= 64 && dm.Start < 128)
{
debug_printf("\r\n 配置区被修改200ms后重启\r\n");
Sys.Sleep(200);
Sys.Reset();
}
}
/******************************** 远程调用 ********************************/
void TokenClient::Invoke(const String& action, const Buffer& bs)
{
TokenMessage msg;
auto ms = msg.ToStream();
BinaryPair bp(ms);
bp.Set("Action", action);
ms.Write(bs);
Send(msg);
}
void TokenClient::OnInvoke(const TokenMessage& msg, TokenController* ctrl)
{
auto rs = msg.CreateReply();
// 考虑到结果可能比较大,允许扩容
//auto ms = rs.ToStream();
//ms.CanResize = true;
MemoryStream ms; // 不能用 rs.Data 数据区 后面Set数据会先写Result 这样就破坏了数据区
BinaryPair bp(msg.ToStream());
String action;
if(!bp.Get("Action", action) || !action)
{
rs.SetError(0x01, "请求错误");
}
else
{
// 传入参数名值对以及结果缓冲区引用业务失败时返回false并把错误信息放在结果缓冲区
MemoryStream result;
if(!OnInvoke(action, bp, result))
{
if(result.Position() > 0)
rs.SetError(0x03, (cstring)result.GetBuffer());
else
rs.SetError(0x02, "执行出错");
}
else
{
// 执行成功
result.SetPosition(0);
BinaryPair bprs(ms);
bprs.Set("Result", Buffer(result.GetBuffer(), result.Length));
// 数据流可能已经扩容
rs.Data = ms.GetBuffer();
rs.Length = ms.Position();
}
}
Reply(rs, ctrl);
}
bool TokenClient::OnInvoke(const String& action, const BinaryPair& args, Stream& result)
{
IDelegate* dlg = nullptr;
if(!Routes.TryGetValue(action.GetBuffer(), dlg) || !dlg) return false;
auto inv = (InvokeHandler)dlg->Method;
return inv(dlg->Target, args, result);
}
void TokenClient::Register(cstring action, InvokeHandler handler, void* param)
{
if(handler)
{
auto dlg = new IDelegate();
dlg->Method = (void*)handler;
dlg->Target = param;
Routes.Add(action, dlg);
}
else
{
IDelegate* dlg = nullptr;
if(Routes.TryGetValue(action, dlg))
{
delete dlg;
Routes.Remove(action);
}
}
}