delphi 过卡巴2009和沙盘启发杀毒的DELPHI源代码  
官方Delphi 学习QQ群: 682628230(三千人)
频道

delphi 过卡巴2009和沙盘启发杀毒的DELPHI源代码


程序代码
function sidt1[color=#0000ff]: boolean;
var
idtr: array[0..005] of Byte;
begin
result := false;
asm
sidt idtr
end;
if pCardinal(@idtr[2])^ = $8003F400 //NT Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $80036400 //XP Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $81AFF400 //Vista Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $884D2960 //Vista Address Thanks Spider
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $0341A070 //Vista 64bit or intel dual core
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $005F62F0 //Vista 64bit or intel dual core
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $F771B590 //XP Address Thanks ChainCoder
then result := true;
end;
end;
end;
end;
end;
end;
end;
推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.20366621017456 seconds