on client read [Porblem]

[Kargi]

hi @ all,
ich hab eine frage und zwar hab eine reverse connection gebaut.

Dem server sag ich dann, dass er einen text dem client zuschicken soll, sobald die verbindung steht.

Den text lass ich dann anzeigen mit (showmessage). Das funktioniert auch, nur kommt leider nicht nur der text, sondern öffnen sich mehrere messagefelder in denen einzelne zahlen oder zeichen stehen.

Ich versteh nicht warum!!!!

kann mir da jemand helfen????

hier mal der code

client:

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.port:=2000;
serversocket1.active:=true;
end;


procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
errorcode:=0;
showmessage('fehler');
end;


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage(socket.receivetext);
end;

server:

procedure TForm1.FormCreate(Sender: TObject);
begin
application.showmainform:=false;
clientsocket1.port:=2000;
clientsocket1.host:='mille.no-ip.info';
clientsocket1.active:=true;
timer1.enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (clientsocket1.Socket.Connected=false)
   then clientsocket1.active:=true
   else timer1.enabled:=false;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
errorcode:=0;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText('test');
end;

[Nemo.A]

Hallo Kargi,
irgendwie finde ich dort keinen Fehler ...

öffnen sich mehrere messagefelder in denen einzelne zahlen oder zeichen stehen.

Ich habe das hier vielleicht missverstanden ->
Könntest du das vielleicht genauer definieren? Ein Screenshot wäre hilfreich ...

Hast du sonstigen Source in deinem Clienten oder Server, den du hier nicht gepostet hast?

[Kargi]

ok, dass problem hab ich jetzt hinbekommen.
Das lag daran, dass der die strings irgendwie gesplittet wurden.

allerdings hab ich ein anderes problem:
und zwar hab ich die reverse connection jetzt hinbekommen.
Doch funktioniert sie noch nicht einwandfrei.

ich hab den client jetzt so programmiert, dass der server die ip über die dyndns zuschickt und die soll dann in eine listbox rein.
In der listbox kommt auch was...siehe bild



Das blau hinterlegte ist der server. Auf den kann ich wunderbar zugreifen, das ist echt super. Allerdings hab ich keine ahnung, woher das andre zeug kommt und warum es nicht die ip reinschreibt.

kann mir da jemand weiterhelfen???

[Gaara]

das problem das dinge angezeigt werden die nicht angezeigt werden sollen hab ich auch gehabt. das liegt ganz einfach daran dass dein "client" wegen der reverse ja der eigentliche server ist. dieser lauscht nur an dem port auf antworten. du hast wohl einen trojaner auf den port 2000 oder so verbreitet und das was du da nun siehst sind deine vics.

problemlösung:
einfach nen anderen port nehmen (kp obs ne andere lösung gibt aber das is die einfachste) :x

[Nemo.A]

Hallo Kargi,
Ich bin der Meinung von Gaara ... anders kann ich es mir (wiedermal) nicht erklären.

Und wegen der Sache mit der IP Adresse ... versuch anstatt "Socket.RemoteHost" einfach "Socket.RemoteAddress" (kp mehr wie die Befehle genau hießen) zu verwenden, oder halt umgekehrt
Wenn die immernoch keine anständige IP anzeigen, dann PING diesen Host an ... so bekommst du auch die IP. Andererseits könntest du den Clienten (also den Victim) zwingen sich z.B. auf wieistmeineip.de seine IP zu besorgen, und dir zu schicken...

PS: Auf deine PM brauch ich wohl nicht mehr zu antworten?

[Kargi]

ey ihr habt recht,
das waren noch ein paar alte vics vom bifrost trojaner.
ich wusste gar nicht mehr, dass der auch auf 2000 lief.

Das mit der ip werd ich jetzt mal probieren.
ich meld mich dann später, ob es funktioniert.

aber vielen dank schon mal

edit: ich liebe euch. Das mit der ip hat auf anhieb mit remoteadress funktioniert. einfach nur geil