sendmypack.pas

这是千年外挂的源代码

unit sendmypack;

interface

uses windows,winsock2,gamecode;

procedure sendmsg (source:pchar; size:integer );
function  MyWSASendaa(SendBuf:PChar;SendLen:Integer):Integer;

var
  gamesocket : Tsocket;

implementation

procedure sendmsg (source:pchar; size:integer );     //加密并调用发送封包
var
  len : integer;
  outchar,sendbuf : array [0..1000] of char;
begin
  Len:=Encode(source,size,@outchar[1]);
  copychar (outchar,sendbuf,Len);
  if GameSocket<>0 then
    MyWSASendaa(sendbuf,len+2);
end;

function MyWSASendaa(Sendbuf:PChar;SendLen:Integer):Integer;
var
  Buffers : WSABUF;
  NumberOfSent:dword;
begin
  Buffers.buf:=Sendbuf;
  Buffers.len:=SendLen;
  Buffers.buf[0]:='(';
  Buffers.buf[SendLen-1]:=')';
  MyWSASendaa:=WSASend(GameSocket,@Buffers,1,NumberOfSent,0,nil,nil);
end;


end.