Можно сделать тунель через http прокси с помощью метода connect. Если кто сомневается, вот моя программка http://handycache.ru/download.php?MailPorter.exe. Сделана на двух TIdMappedPortTCP, один для pop, а другой для smtp сервера. При поступлении запроса почтовой программы прокси серверу посылается команда connect с удаленным сервером и дальше почтовик работает через созданный тунель.
| Код |
procedure TForm1.IdMappedPortTCP1OutboundConnect( AThread: TIdMappedPortThread; AException: Exception);
var s: String;
begin
if not assigned(AException) and AThread.OutboundClient.Connected then
begin
s:= 'CONNECT '+ExPopIP.Text+':'+ExPopPort.Text +' HTTP/1.1'#13#10;
AThread.OutboundClient.Write(s+#13#10);
end;
end;
procedure TForm1.IdConnectionInterceptReceive(ASender: TIdConnectionIntercept; AStream: TStream);
var
s: String;
n: Integer;
begin
if TMyIntercept(ASender).AnswerReceived then Exit;
s:= ReadToString(AStream);
n:= Pos('HTTP/1.0 200 Connection established'#13#10, s);
if n>0 then
begin
n:= Pos(#13#10#13#10, s);
if n>0 then
begin
Delete(s, 1, n+3); // Удаляется ответ 'Connection established' от прокси, почтовая программа его не ждет
AStream.Size:= 0;
if s<>'' then
begin
AStream.Write(s[1], Length(s));
AStream.Seek(0, 0);
TMyIntercept(ASender).AnswerReceived:= True;
end;
end;
end;
end;
|
|
)
А если через сокс5 ?
обнадежили.