HanDs
管理员

[Delphi文章] 程序中使用花指令 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

第1种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jb @label
  jnb @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第2种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  je @label
  jne @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第3种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jbe @label
  ja @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第4种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  js @label
  jns @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第5种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jpe @label
  jpo @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;


第6种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jl @label
  jge @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第7种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jle @label
  jg @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;


第8种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jz @label
  jnz @label
  db $E8
  @Label:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第9种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
push ecx
xor ecx,ecx
  jcxz @label

  db $E8
  @Label:
pop ecx
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第10种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
  jl @label
@label2:
jmp @label3
  db $E8
@label1:
jz @label2
  @Label3:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第11种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
call @label1
db $e8
jmp @label2
db $E8
@label1:
pop eax
jmp @label3
db $e8,$e8,$e8
@label3:
inc eax
jmp @label4
db $e8,$e8,$e8
@label4:
jmp eax
db $e8
@Label2:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;

第12种花指令
procedure
var
  a, b: integer;
begin
  a:=20;b:=10;
  asm
call @label1
db $e8, $e8
jmp @label4
@label1:
pop eax
jmp @label2
db $e8,$e8
@label2:
add eax,2
jmp @label3
db $e8
@label3:
push eax
ret
db $e8

@Label4:
  end;
  if a>b then
  messagebox(handle,'a>b','info',mb_ok);
end;  


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
程序 使用 指令
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复