分享自己用的delphi发包函数请大家指正

Tesla.Angela

procedure fabao(s: ansistring); // 发送包
var
  baoneirong: array [0 .. 99] of byte;
  len, i_bao: Cardinal;
  pbaoneirong: Pointer;
  pc:pansichar;
begin
  len := trunc(length(s) / 2); // 得到包长
  pc:=pansichar(s);
  for i_bao := 0 to len - 1 do  begin    //转换
    baoneirong[i_bao] := strtoint('$' +  pc^+ (pc+1)^);
    inc(pc,2);
  end;
  pbaoneirong := pointer(@baoneirong);
      asm
      pushad
              push len        // 包长
              push pbaoneirong    // 包内容
              mov ecx,CallPY
              mov eax,realfabaocall
              call eax
        popad

      end;
end;
使用的时候用
fabao('0203AABB');
感觉还是很方便，看了以前大神写的，差不多都是定义一个结构体或大数组，传放数字，生成包内容。
如果大家有更方便的，可以交流一下

联系我时，请说是在 挂海论坛 上看到的，谢谢！

win765

需要的就是这个