program sysrun; uses Windows, SysUtils, tlhelp32, AccCtrl, AclAPI; function findprocess(TheProcName: string): DWORD; var isOK: Boolean; ProcessHandle: Thandle; ProcessStruct: TProcessEntry32; begin ProcessHandle := createtoolhelp32snapshot(...
Delphi嵌入循环汇编 var Int:Integer; begin asm xorebx,ebx//ebx xoreax,eax//eax @for:addebx,eax//设置循环点ebx+eax inceax//eax+1 cmpeax,$0b//ifeax11 jnz@for//跳回add movInt,ebx; end; //这个时候Int的值是55 end;...
昨天研究了一下Delphi2010的Unicode,同时也改了几个单元到2010中来,今天下午修改AES的加密库的时候,碰到一个问题,我将AES中的StrtoHex换成了自己写的汇编函数!其他的地方,都修改好...
1 BASM概念简要 汇编语句由指令和零至三个表达式构成。表达式由常数(立即数)、寄存器和标识符构成。例如: movsb // 单指令语句 jmp @Here // 一个表达式: 标识符 add eax,1 // 两个表达式: 寄...
Delphi 与汇编入门 // 作者 万一 http://www.cnblogs.com/del/category/121079.html function add(x, y: Integer): Integer; var count: Integer; begin asm MOV EAX, x {把 x 值放入寄存器 EAX} MOV ECX, y {把 y 值放入寄存器 ECX}...
Delphi+汇编例子1(求和的比较) 第一个程序只是给您个印象,后面还有一个帖子,在详细说说。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr...
----- 老鳃 -------- 考虑如下这个简单类ttest unit Unit1; interface uses Windows, SysUtils, Variants, Classes; type ttest = class public j:integer; i:integer; function aa(b,c: integer):integer;stdcall; end; implementation function...
procedure AntiEmuPEB(); asm mov eax, fs:[30h] mov eax, [eax+$10] mov eax, [eax+$48] add eax,$0F @@inic: inc eax mov dl,[eax] cmp dl,'=' jnz @@inic end;...
核心提示:Delphi中使用汇编(关于POS函数的问题)...在delphi中使用汇编异常的简单,只用使用关键字asm ....end来引导就行了。 得到一个字符在字符串中的位置有很多方法,最简单的就是使...
一些木马采用DLL注入的方式存在于系统中,由于其隐蔽性,对于用户 来说是很大威胁,下面介绍如何用Delphi缷载任意进程的某个动态链接库。 一、DLL注入 DLL注入是指以各种如钩子、远...