Magicmida/Unit2.pas at master · markyy1991/Magicmida · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList, Utils, System.ImageList,
  Vcl.Menus, {$IFNDEF CPUX64}Themida, Patcher{$ELSE}Themida64{$ENDIF};

type
  TThemidaUnpackerWnd = class(TForm)
    btnUnpack: TButton;
    OD: TOpenDialog;
    LV: TListView;
    ImageList1: TImageList;
    btnShrink: TButton;
    btnDumpProcess: TButton;
    cbDataSections: TCheckBox;
    pmSections: TPopupMenu;
    miCreateSectionsNow: TMenuItem;
    procedure btnDumpProcessClick(Sender: TObject);
    procedure btnUnpackClick(Sender: TObject);
    procedure btnShrinkClick(Sender: TObject);
    procedure miCreateSectionsNowClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure Log(MsgType: TLogMsgType; const Msg: string);
  end;

var
  ThemidaUnpackerWnd: TThemidaUnpackerWnd;

implementation

{$R *.dfm}

procedure GUILog(MsgType: TLogMsgType; const Msg: string);
begin
  ThemidaUnpackerWnd.Log(MsgType, Msg);
end;

procedure TThemidaUnpackerWnd.FormCreate(Sender: TObject);
begin
  Utils.Log := GUILog;
  {$IFDEF CPUX64}
  btnDumpProcess.Visible := False;
  btnShrink.Visible := False;
  cbDataSections.Visible := False;
  Caption := Caption + '64';
  {$ENDIF}
end;

procedure TThemidaUnpackerWnd.btnUnpackClick(Sender: TObject);
begin
  if OD.Execute then
  begin
    {$IFDEF CPUX86}TTMDebugger{$ELSE}TTMDebugger64{$ENDIF}.Create(OD.FileName, '', cbDataSections.Checked).FreeOnTerminate := True;
  end;
end;

procedure TThemidaUnpackerWnd.btnShrinkClick(Sender: TObject);
begin
  {$IFDEF CPUX86}
  if OD.Execute then
    with TPatcher.Create(OD.FileName) do
    begin
      ProcessShrink();
      Free;
    end;
  {$ENDIF}
end;

procedure TThemidaUnpackerWnd.miCreateSectionsNowClick(Sender: TObject);
begin
  {$IFDEF CPUX86}
  if OD.Execute then
    with TPatcher.Create(OD.FileName) do
    begin
      try
        ProcessMkData;
      finally
        Free;
      end;
    end;
  {$ENDIF}
end;

procedure TThemidaUnpackerWnd.btnDumpProcessClick(Sender: TObject);
{$IFDEF CPUX86}
var
  PIDInput: string;
  PID: NativeInt;
  hProcess: THandle;
begin
  PIDInput := InputBox('Dump Olly Process', 'PID:', '');
  if PIDInput = '' then
    Exit;

  PID := StrToInt(PIDInput);

  hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if hProcess = 0 then
    RaiseLastOSError;

  if OD.Execute then
    with TPatcher.Create(OD.FileName) do
    begin
      try
        DumpProcessCode(hProcess);
      finally
        Free;
      end;
    end;
end;
{$ELSE}
begin
end;
{$ENDIF}

procedure TThemidaUnpackerWnd.Log(MsgType: TLogMsgType; const Msg: string);
begin
  with LV.Items.Add do
  begin
    Caption := Msg;
    ImageIndex := Integer(MsgType);
    MakeVisible(False);
  end;
end;

end.