超难,高分求助,怎样制作本地验证,我有个思路,不知怎么实现 ( 积分: 300 )

基本情况:
程序A:
在程序登录时,它会向192.168.0.100:9000发送一个50字节的数据包,若收到一个1052字节的数据封包,就能顺利登录了,若没有数据返回,就登录失败.

实现本地验证:
编写程序B(程序A,B都在本机运行,本机IP地址为192.168.0.200),拦截程序A发往192.168.0.100:9000的这个50字节的数据包,将其转发到程序B的9000端口,程序B中使用Indy TCP Server监听192.168.0.200:9000,它收到转发来的50字节封包,就程序A发送验证封包.

我是刚接触网络编程,查了一些资料,可能会用到Hook和Socket方面的知识,恳请大家帮忙.来者都有分.

基本情况:
程序A:
在程序登录时,它会向192.168.0.100:9000发送一个50字节的数据包,若收到一个1052字节的数据封包,就能顺利登录了,若没有数据返回,就登录失败.

实现本地验证:
编写程序B(程序A,B都在本机运行,本机IP地址为192.168.0.200),拦截程序A发往192.168.0.100:9000的这个50字节的数据包,将其转发到程序B的9000端口,程序B中使用Indy TCP Server监听192.168.0.200:9000,它收到转发来的50字节封包,就程序A发送验证封包.

我是刚接触网络编程,查了一些资料,可能会用到Hook和Socket方面的知识,恳请大家帮忙.来者都有分.

顶到前面点,大家帮帮忙呀.....

不明白你要的是什么？代码还是什么？
如果B是你自己写的程序，直接RecvBuf不就可以了吗？
为什么要用API HOOK呢？
关于API HOOK的，找找DELPHI屏幕取词的源代码。

我想要关键的,截取数据封包并修改转发的代码,只要能实现上面的要求,怎样实现都行呀!

是实现 wpepro 0.9a网络监视器 功能把
wpepro 0.9a网络监视器的DLL 怎么调用啊！请教了

下面是一个尽量简化了的API HOOK的模版,原理是利用消息钩子将DLL中的代码注入到目标进程中,再用GetProcAddress得到API函数入口地址,将函数入口址改为自己定义的函数入口,这样就得到了API函数的相应参数,处理完后,再改回真实API函数入口地址,并调用它.



HOOK.DLL的代码:
library Hook;



uses
SysUtils,
windows,
Messages,
APIHook in 'APIHook.pas';



type
PData = ^TData;
TData = record
Hook: THandle;
Hooked: Boolean;
end;



var
DLLData: PData;



{------------------------------------}
{过程名:HookProc
{过程功能:HOOK过程
{过程参数:nCode, wParam, lParam消息的相
{ 关参数
{------------------------------------}
procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall;
begin
if not DLLData^.Hooked then
begin
HookAPI;
DLLData^.Hooked := True;
end;
file://调用下一个Hook
CallNextHookEx(DLLData^.Hook, nCode, wParam, lParam);
end;




{------------------------------------}
{函数名:InstallHook
{函数功能:在指定窗口上安装HOOK
{函数参数:sWindow:要安装HOOK的窗口
{返回值:成功返回TRUE,失败返回FALSE
{------------------------------------}
function InstallHook(SWindow: LongWORD):Boolean;stdcall;
var
ThreadID: LongWORD;
begin
Result := False;
DLLData^.Hook := 0;
ThreadID := GetWindowThreadProcessId(sWindow, nil);
file://给指定窗口挂上钩子
DLLData^.Hook := SetWindowsHookEx(WH_GETMESSAGE, @HookProc, Hinstance, ThreadID);
if DLLData^.Hook > 0 then
Result := True file://是否成功HOOK
else
exit;
end;



{------------------------------------}
{过程名:UnHook
{过程功能:卸载HOOK
{过程参数:无
{------------------------------------}
procedure UnHook;stdcall;
begin
UnHookAPI;
file://卸载Hook
UnhookWindowsHookEx(DLLData^.Hook);
end;



{------------------------------------}
{过程名LL入口函数
{过程功能:进行DLL初始化,释放等
{过程参数LL状态
{------------------------------------}
procedure MyDLLHandler(Reason: Integer);
var
FHandle: LongWORD;
begin
case Reason of
DLL_PROCESS_ATTACH:
begin file://建立文件映射,以实现DLL中的全局变量
FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, $ffff, 'MYDLLDATA');
if FHandle = 0 then
if GetLastError = ERROR_ALREADY_EXISTS then
begin
FHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MYDLLDATA');
if FHandle = 0 then Exit;
end else Exit;
DLLData := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
if DLLData = nil then
CloseHandle(FHandle);
end;
DLL_PROCESS_DETACH:
begin
if Assigned(DLLData) then
begin
UnmapViewOfFile(DLLData);
DLLData := nil;
end;
end;
end;
end;



{$R *.res}
exports
InstallHook, UnHook, HookProc;



begin
DLLProc := @MyDLLHandler;
MyDLLhandler(DLL_PROCESS_ATTACH);
DLLData^.Hooked := False;
end.



----------------------------------------------------------------------------------------
APIHook.Pas的代码:



unit APIHook;



interface



uses
SysUtils,
Windows, WinSock;



type
file://要HOOK的API函数定义
TSockProc = function (s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;



PJmpCode = ^TJmpCode;
TJmpCode = packed record
JmpCode: BYTE;
Address: TSockProc;
MovEAX: Array [0..2] of BYTE;
end;



file://--------------------函数声明---------------------------
procedure HookAPI;
procedure UnHookAPI;



var
OldSend, OldRecv: TSockProc; file://原来的API地址
JmpCode: TJmpCode;
OldProc: array [0..1] of TJmpCode;
AddSend, AddRecv: pointer; file://API地址
TmpJmp: TJmpCode;
ProcessHandle: THandle;
implementation



{---------------------------------------}
{函数功能:Send函数的HOOK
{函数参数:同Send
{函数返回值:integer
{---------------------------------------}
function MySend(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
dwSize: cardinal;
begin
file://这儿进行发送的数据处理
MessageBeep(1000); file://简单的响一声
file://调用直正的Send函数
WriteProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
Result := OldSend(S, Buf, len, flags);
JmpCode.Address := @MySend;
WriteProcessMemory(ProcessHandle, AddSend, @JmpCode, 8, dwSize);
end;



{---------------------------------------}
{函数功能:Recv函数的HOOK
{函数参数:同Recv
{函数返回值:integer
{---------------------------------------}
function MyRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
dwSize: cardinal;
begin
file://这儿进行接收的数据处理
MessageBeep(1000); file://简单的响一声
file://调用直正的Recv函数
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
Result := OldRecv(S, Buf, len, flags);
JmpCode.Address := @MyRecv;
WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize);
end;



{------------------------------------}
{过程功能:HookAPI
{过程参数:无
{------------------------------------}
procedure HookAPI;
var
DLLModule: THandle;
dwSize: cardinal;
begin
ProcessHandle := GetCurrentProcess;
DLLModule := LoadLibrary('ws2_32.dll');
AddSend := GetProcAddress(DLLModule, 'send'); file://取得API地址
AddRecv := GetProcAddress(DLLModule, 'recv');
JmpCode.JmpCode := $B8;
JmpCode.MovEAX[0] := $FF;
JmpCode.MovEAX[1] := $E0;
JmpCode.MovEAX[2] := 0;
ReadProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
JmpCode.Address := @MySend;
WriteProcessMemory(ProcessHandle, AddSend, @JmpCode, 8, dwSize); file://修改Send入口
ReadProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
JmpCode.Address := @MyRecv;
WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize); file://修改Recv入口
OldSend := AddSend;
OldRecv := AddRecv;
end;



{------------------------------------}
{过程功能:取消HOOKAPI
{过程参数:无
{------------------------------------}
procedure UnHookAPI;
var
dwSize: Cardinal;
begin
WriteProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
end;



end.



---------------------------------------------------------------------------------------------
编译这个DLL后,再新建一个程序调用这个DLL的InstallHook并传入目标进程的主窗口句柄就可:
unit fmMain;



interface



uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;



type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;



var
Form1: TForm1;
InstallHook: function (SWindow: THandle):Boolean;stdcall;
UnHook: procedure;stdcall;
implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
ModuleHandle: THandle;
TmpWndHandle: THandle;
begin
TmpWndHandle := 0;
TmpWndHandle := FindWindow(nil, '目标窗口的标题');
if not isWindow(TmpWndHandle) then
begin
MessageBox(self.Handle, '没有找到窗口', '!!!', MB_OK);
exit;
end;
ModuleHandle := LoadLibrary('Hook.dll');
@InstallHook := GetProcAddress(ModuleHandle, 'InstallHook');
@UnHook := GetProcAddress(ModuleHandle, 'UnHook');
if InstallHook(FindWindow(nil, 'Untitled')) then
ShowMessage('Hook OK');
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
UnHook
end;



end.

好难呀,看得我好晕,呵呵.
还有高手赐教吗??

还有个关键的问题没解决,怎样修改截获的数据包的目的IP地址呀

有会Sniffer的高手吗,网上找了些这方面的资料,不过都是VC++代码,这个技术应该能够解决问题,且不必用钩子.

你说的太象我编过的破天贵族外挂破解程序了,其实很简单:
1.使A程序发包到本机。
2.本机验证。
验证我就不说了，1的问题最简单的解决方法是：在A程序里找到IP，改成127.0.0.1
这个办法一般都好使，如果不行就用API HOOK 钩它的bind()函数，修改后再发回去;

谢谢hong2000,我也是想破解一个外挂,呵呵.
主要是他的程序加壳了的.改它的IP,不好办呀.
Hook它的Bind(),程序A是Client,好象一般不用bind(),是吗?
我有个想法,能不能Hook它的Connect()呀?

我没HOOK过CONNECT(),可以试试,成功了告诉我.

学习...

楼主说来者都有分，所有偶就来……帮顶了。。。[]

好消息:
Hook程序的Connect,成功,代码如下:
function MyConnect(s:TSocket;var sa:TSockAddr;len:integer):integer;stdcall;
var dwSize: cardinal;
begin
if sa.sin_port=htons(6666) then //符合条件,处理
begin
sa.sin_addr.S_addr:=Inet_addr('192.168.0.100'); //这儿连接转向,呵呵
end;
WriteProcessMemory(ProcessHandle, NewConn, @OldConnProc, 8, dwSize);
Result:=OldConn(s,sa,len);
JmpConnCode.Address:=@MyConnect;
WriteProcessMemory(ProcessHandle, NewConn, @JmpConnCode, 8, dwSize);
end;
但,我有个新的问题,怎样Hook发往指定端口的数据呀(不要所有Send的数据)??????

其实不用Hook，一般的网络而已

不用搞这么复杂的,hong2000的方法最最简单扼要的,有壳的话就解了它先!!

现在就是好多壳不好脱的,能脱就好了.

不能脱壳,那就从内存入手!雷霆钥匙就这么来破外挂的,