追捕oicq探测技术

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

追捕是怎样得到检测结果的呢?下面是具体实现的程序段:

MyStream := TMemoryStream.Create;

try

NMUDP1.ReadStream(MyStream);

SetLength(TmpStr,NumberBytes);

MyStream.Read(TmpStr[1],NumberBytes);

finally

MyStream.Free;

end;

j := Pos( #$02 +#$02 +#$00 +#$00 , TmpStr);

k := Pos( #$02 +#$03 +#$00 +#$00 , TmpStr);

m := Pos( #$02 +#$03 +#$0a +#$00 , TmpStr);

o := Pos( #$02 +#$03 +#$02 +#$00 , TmpStr);

if (j=1) or (k=1) or (m=1) or (o=1) then begin

j := Pos( #$02 +#$02 +#$00 +#$00 + 'y', TmpStr);

k := Pos( #$02 +#$03 +#$00 +#$00 + 'y', TmpStr);

m := Pos( #$02 +#$03 +#$0a +#$00 + 'y', TmpStr);

o := Pos( #$02 +#$03 +#$02 +#$00 + 'y', TmpStr);

OicqVer := '未知';

if j=1 then OicqVer := '425';

if k=1 then OicqVer := '725';

if m=1 then OicqVer := '820';

if o=1 then OicqVer := '810';

if (j=1) or (k=1) or (m=1) or (o=1) then begin

TmpS := '';

for j:=1 to length(TmpStr) do begin

if TmpStr[j] in ['0'..'9'] then tmpS := tmpS + TmpStr[j];

end;

if TmpS='0' then Label2.Caption := 'OICQ处于关闭状态,版本:'+ OicqVer

else Label2.Caption :='OICQ号码为'+ TmpS + ',版本:'+ OicqVer;

end;

j := Pos( #$02 +#$02 +#$00 +#$00 + 'x', TmpStr);

k := Pos( #$02 +#$03 +#$00 +#$00 + 'x', TmpStr);

m := Pos( #$02 +#$03 +#$0a +#$00 + 'x', TmpStr);

o := Pos( #$02 +#$03 +#$02 +#$00 + 'x', TmpStr);

if (j=1) or (k=1) or (m=1) or (o=1) then begin

J := 8;

TmpOicqNUm := '';

While TmpStr[J]<>#$1f do begin

TmpOicqNum :=TmpOicqNum + TmpStr[J];

Inc(J);

end;

J := J + 6;

While TmpStr[J]<>#$1f do begin

Inc(J);

end;

J := J + 1;

While TmpStr[J]<>#$1f do begin

Inc(J);

end;

J := J + 1;

TmpOicqMsg := '';

While TmpStr[J]<>#$03 do begin

TmpOicqMsg := TmpOicqMsg + TmpStr[J];

Inc(J);

end;

if TmpOicqMsg<>LastOicqMessage then begin

LastOicqMessage := TmpOicqMsg;

Messagebox(Form1.handle, PChar('OICQ用户' + TmpOicqNum + '对你的探测作出回应:' + #$0D + #$0A + TmpOicqMsg), '警告信息', MB_ICONWARNING +mb_ok);

end;

end;

exit;

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航