}
next:
popad
Funcbyte:
db 0
dd 0
db 0E9h
toSetThreadContext:
dd 0
end;
end;
function WndProc(AWnd:HWND; Msg:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;
begin
Result := 0;
case Msg of
WM_DESTROY:
PostQuitMessage(0);
WM_CREATE:
begin
hexp := FindWindow(ClassName,szAppTital );
// SetWindowText(hexp,'Fucking');
// SetWindowText(AWnd,'Program Manager');
hbtn:=CreateWindowEx(0,'BUTTON','Clear', WS_CHILD or WS_VISIBLE,10,10,90,40,AWnd, 0, hInstance, 0);
hbtnOpen:=CreateWindowEx(0,'BUTTON','OpenFile', WS_CHILD or WS_VISIBLE,110,10,90,40,AWnd, 0, hInstance, 0);
hltb:=CreateWindowEx(0,'LISTBOX','ltbfuck', WS_CHILD or WS_VISIBLE or WS_VSCROLL,0,60,400, 340,AWnd,0, hInstance,0);
tmps :='Only Testing...hehe';
SendMessage(hltb,LB_INSERTSTRING,-1, integer(@tmps[1]));
tmps :='Run this program and then run epe packed file...';
SendMessage(hltb,LB_INSERTSTRING,-1,integer(@tmps[1]));
tmps :='The OEP maybe is the lastest EIP to be set!...';
SendMessage(hltb,LB_INSERTSTRING,-1,integer(@tmps[1]));
tmps :='But you also can debug me for debug a epe packed file';
SendMessage(hltb,LB_INSERTSTRING,-1,integer(@tmps[1]));
tmps :='Fucking.........';
// SendMessage(hltb,LB_INSERTSTRING,-1,integer(@tmps[1]));
hook ;
end;
WM_COMMAND:
begin
if lp = hbtn then
begin
ltbcount:=SendMessage(hltb,LB_GETCOUNT,0,0);
while not(ltbcount=0) do begin
ltbcount :=SendMessage(hltb,LB_DELETESTRING,0,0)
end;
end
else if lp = hbtnOpen then
begin
SetLength(fnm, MAX_PATH);
ZeroMemory(pchar(fnm), 0);
ofn.lStructSize := sizeof(OPENFILENAME);
ofn.hWndOwner := 0;
ofn.lpstrFilter := 'EXE Files'+#0+'*.EXE'+#0#0;
ofn.lpstrFile := pchar(fnm);
ofn.nFilterIndex := 1;
ofn.nMaxFile := MAX_PATH;
ofn.lpstrTitle := 'who are you IV by shoooo[CUG]';
ofn.Flags := OFN_EXPLORER or OFN_FILEMUSTEXIST;
if GetOpenFileName(ofn) then winexec(pchar(fnm),0);
end;
end;
WM_MOUSEMOVE:
begin
ReleaseCapture ;
SendMessage(AWnd,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
else
Result := DefWindowProc(AWnd, msg, wp, lp);
end;
end;
begin
with wc do begin
hInstance := system.MainInstance ;//HInstance;
style := CS_VREDRAW or CS_HREDRAW;
cbClsExtra := 0;
cbWndExtra := 0;
hIcon := LoadIcon(0, IDI_APPLICATION);
hCursor := LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(COLOR_WINDOW);
lpfnWndProc := @WndProc;
lpszMenuName := nil;
lpszClassName := ClassName;
end;
RegisterClass(wc);
HMainWnd := CreateWindow(ClassName,
szAppTital,
WS_OVERLAPPEDWINDOW or WS_VISIBLE , //Style: window style
50,50,400,300,0,
0, //Menu
system.MainInstance , //HInstance,
nil); //Param: pointer to window-creation data
if HMainWnd <> 0 then
begin
ShowWindow(HMainWnd, CmdShow);
UpdateWindow(HMainWnd);
end
else halt(100);
EPESDK := MyTmpPath + 'V220071201.EPE' ;
handlib := LoadLibrary(@EPESDK[1]);
if handlib=0 then
begin
MessageBox(0,'找不到库文件！请确保之前运行过一次EPE12.01加壳的程序。','!!!',MB_ICONINFORMATION);
exit ;
end else
begin
