Mega Code Archive
Host redirect Bouncer
<![CDATA[
Title: Host redirect / Bouncer
Question: You need to build a program that can be run and when you connect to it bounces you using the programs host (computer which is running it) works for irc,gaming servers,web browsers
Answer:
Create a new form add a client socket and a server socket and have the server socket accept the connection start the client connection and have the client connection reroute to the server socket (Here is an example form i did below) add a server socket and have it open on port 6969 and have it active and have a client socket and have it not active and on port 6667... run the program open irc connect to 127.0.0.1 6969 and it should take you to irc.dal.net with the programs host (running computers ip) cheers , stalky
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
procedure ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.host := 'irc.dal.net';
ClientSocket1.active := true;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(Socket.ReceiveText);
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
ServerSocket1.Socket.Connections[0].SendText(Socket.ReceiveText);
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Active := False;
end;
end.
]]>