Delphi源码免杀定位MAP的方法
Delphi的源码定位方法网上搜索到好像不太多。
这里分享我自己的两个方法。
引用一段话
引用内容
什么是 MAP 文件？
MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。
DELPHI源码生成MAP文件有两种
1 DELPHI设置。
英文版到为 project -> options -> Linker -> Map file 选择detailed
如图
中文版为 ：工程- -> 选项 -> Linker -> Map file 选择detailed
2
新建一个bat文件，当然必须在源文件到文件夹内
bat内容为 dcc32 -GD xx.dpr
把xx.dpr改成你自己的工程文件。 比如FF到服务端为 FServer.dpr
那么bat的内容就是 dcc32 -GD FServer.dpr
然后运行该bat
就能编译出程序的map文件。
另外百度一下DELPHI的源码免杀方法
delphi免杀的方法总结如下：
一。添加垃圾汇编代码。
其实许多的朋友都是知道的，Delphi支持在代码中嵌套汇编代码。也就是说，如果加入了垃圾汇编代码，就网网可以直接过免杀。
例如：
asm
nop
nop
nop
end;
这样的形式。。。可以在多处加入这样的垃圾代码，该招数对瑞星效果不错，对7.0的卡吧效果不明显了，6.0时的卡吧基本通杀。PS：我也加了几个花，瑞星就不报了。呵呵。。这招还是屡试不爽吼~
二.修改单元文件名。
许多的杀毒软件喜欢查杀单元文件名，往往把单元文件名改名后，也可以达到很好的免杀的效果。。。
三.提取出部分函数，COPY到新建的单元里。
这种方法可以很好的改变程序的代码执行结构。可以将自定义的部分函数给COPY到一个新建的单元中去。（注意加入该函数要使用的单元文件。）COPY进去以后的单元再加入到USES下。这样，就不会受任何影响的完成调用功能了。适合查杀指定特征码的杀毒软件。
四.修改函数结构。
其实这个是最难的，实现起来非常辛苦，而往往要调用的许多API都是WIN32下的。。。。NOD32牛X也就牛X到这里了，全区段的查杀函数名或函数结构。虽然系统提供的不能够很好的修改，但不代表每一次杀的都是系统的那部分撒（其实也就NOD32光明正大的去杀调用的WINDOWS提供的API，可能是他认为某些函数只有黑客工具或木马病毒类程序才会调用吧。）自定义函数名和结构是可以改的。当然，有一定的底子，如果还是初学阶段连看都看不懂，还是不要改的比
相关文档：
//定义MyClass
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
//取值
var
obj: TMyClass;
begin
obj := TMyClass.Create;
with Memo1.Lines do
begin
Add('对象大小:' + IntToStr(obj.InstanceSize));
Add('对象所在地址：'+ ......
适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构� ......
1. 复杂的子系统
unit uSubObject;
interface
type
{ TAmplifier与TTuner，TCDPlayer，TDVDPlayer相互依赖。 }
{ 在TTuner等的简单实现时用不到对TAmplifier的引用， }
{ 但现实生活中就应该让TAmplifier提供服务，所以这里保留了。 }
{ TProjector对T ......
命令模式可以很轻松的实现撤销（Undo）功能。
1. 命令的接受者
unit uReceiveObject;
interface
type
TLight = class(TObject)
public
procedure Open;
procedure Off;
end;
implementation
{ TLight }
procedure TLight.Off;
begin
Writeln('Light is off.');
......
1. 命令的接受者
unit uReceiveObject;
interface
type
TLight = class(TObject)
public
procedure Open;
procedure Off;
end;
TGarageDoor = class(TObject)
public
procedure Up;
procedure Down;
procedure Stop;
procedure LightOn;
procedure LightOff;
end; ......
