挂海论坛 › 综合编程 › 分享自己用的delphi发包函数请大家指正

Tesla.Angela 发表于 2015-5-2 14:23:21

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

procedure fabao(s: ansistring); // 发送包
var
baoneirong: array 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 dobegin    //转换
    baoneirong := 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 发表于 2015-5-2 14:39:10

需要的就是这个

查看完整版本: 分享自己用的delphi发包函数请大家指正