Bloquer URL

salut

Je voudrais savoir comment intercepter les requetes d'URL sortantes, DE NAVIGATEUR ---> INTERNET et repondre est ce possible de répondre a ces requetes négativement, par exemple.

On ouvre IE ou FireFox ou ... meme un ping depuis l'invite CMD

Et on demande une URL par exemple www.delphifr.com et la notre application intercepte l'url et si la racine est par exemple bannie on renvoie une autre page par exemple [ Lien ]

Pour ceux qui ont compris (Evident) c'est pour mettre au point un filtre d'URL comme ceux basiques qui se trouvent dans les firmware des routers (Netgear ... par exemple).

Et pour ceux qui s'y connaissent bien, est ce que c'est plus pratique avec les Adtresses IP des sites web ou avec les URLs ... l'adresse IP c'est plus global mais a condition que ca ne change pas celle des sites web car avec les URL alphanumériques il faut trouver un moyen de bannir la racine, car je ne pourrai pas faire un algorithme de toutes les variantes de l'URL.

Merci pour ceux qui ont lu ...

Grand merci pour ceux qui auront essayé de répondre ...

Et je ne sais pas quoi dire a ceux qui me donneront une solution ...

Salut,

si l'application concernée utilise l'API WinSock, tu peux par exemple essayer de patcher cette fonction de la DLL:

function connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;

pour lui renvoyer un SOCKET connecté vers l'adresse de ton choix lorsque le paramètre name correspond à ton critère.

J'ai mis un code pour patcher une fonction importée depuis une DLL ici:
http://www.delphifr.com/codes/REMPLACER-FONCTION-DLL-IMPORTE-QUELLE-AUTRE_38484.aspx

Tu peux commencer par faire des essais dans un de tes programmes en mettant un ActiveX internet explorer et en patchant la fonction open , en utilisant cette fonction patch au tout début de ton programme (le nom de la dll peut être 'WS2_32.dll', 'WS3_32.dll' ou encore 'wsock32.dll', ça dépend des cas):

var old_connect:function(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;

function patched_connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;
begin
  name.sin_addr.S_addr:=(127 shl 3) or (127 shl 2) or (0 shl 1) or 1;
  Result:=old_connect(s,name,namelen);
end;

procedure Patch(DllName:string);
var
  h:HMODULE;
begin
  h:=LoadLibrary(PChar(DLLName));
  Assert(h<>0);
  @old_connect:=GetProcAddress(h,'connect');
  Assert(Assigned(old_connect));
  ReplaceAPI(DLLName,'connect',@patched_connect);
end;