ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.MediaPlayer1Notify(Sender: TObject);//Событие MediaPlayer
begin
  with TMediaPlayer(Sender) do
  if (Position = Length) then
    Play;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  "выставить время на 30 сек назад" (????????)
end;

// получить секунды системного времени
var
  lpSystemTime: _SYSTEMTIME;
begin
  GetSystemTime(lpSystemTime);
  ShowMessage(IntToStr(lpSystemTime.wSecond));


// изменить
  lpSystemTime.wSecond := lpSystemTime.wSecond - 30;
  SetSystemTime(lpSystemTime);

  _SYSTEMTIME = record
    wYear: Word;   // год
    wMonth: Word;  // месяц
    wDayOfWeek: Word; // день недели
    wDay: Word;  // день
    wHour: Word; // час
    wMinute: Word; // минуты
    wSecond: Word; // секунды
    wMilliseconds: Word;  // милисекунды

Для отправки на вебсервер используется следующий формат:

Напрямую: 'POST ' + PostAddr + 'HTTP/1.0' + HTTP_Data + Content 

Через проксю:  'POST http://' Webserver + PostAddr + 'HTTP/1.0' + HTTP_Data + Content 

} 

 

 

Const 

WebServer = 'www.somehost.com'; 

WebPort   = 80; 

PostAddr  = '/cgi-bin/form'; 

 

{ Следующие переменные используются только для вебсервера: } 

ProxyServer ='proxy.somewhere.com'; 

ProxyPort   = 3128; 

 

// В заголовке post необходимы некоторые данные

HTTP_Data = 

   'Content-Type: application/x-www-form-urlencoded'#10+ 

   'User-Agent: Delphi/5.0 ()'#10+    { Отрекламируем Delphi 5! } 

   'Host: somewhere.com'#10+ 

   'Connection: Keep-Alive'#10; 

 

type 

T...Form = class(TForm) 

   ... 

private 

   { Private declarations } 

   HTTP_POST   : String; 

   FContent    : String; 

   FResult     : String; // Эта переменная будет содержать ответ сервера

public 

   { Public declarations } 

end; 

 

 

{ Эти функции сделают некоторое url-кодирование } 

{ Например.   'John Smith' => 'John+Smith'  } 

function HTTPTran(St : String) : String; 

var i : Integer; 

begin 

Result:=''; 

for i:=1 to length(St) do 

   if St[i] in ['a'..'z','A'..'Z','0','1'..'9'] then 

     Result:=Result+St[i] 

   else if St[i]=' ' then 

     Result:=Result+'+' 

   else 

     Result:=Result+'%'+IntToHex(Byte(St[i]),2); 

end; 

 

procedure T...Form.ClientSocket1Write(Sender: TObject; 

Socket: TCustomWinSocket); 

begin 

// Постим данные

Socket.SendText(HTTP_POST+FContent); 

end; 

 

procedure T...Form.ClientSocket1Read(Sender: TObject; 

Socket: TCustomWinSocket); 

begin 

// Получаем результат

FResult:=FResult+Socket.ReceiveText; 

end; 

 

procedure T...Form.ClientSocket1Disconnect(Sender: TObject; 

Socket: TCustomWinSocket); 

begin 

// ЗДЕСЬ МОЖНО ОБРАБОТАТЬ FResult // 

end; 

 

procedure T...Form.ClientSocket1Error(Sender: TObject; 

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; 

var ErrorCode: Integer); 

begin 

ErrorCode := 0; // Игнорируем ошибки

end; 

 

 

{ 

А эта подпрограмма, которую можно использовать для постинга данных формы.

} 

procedure T...Form.PostTheForm; 

begin 

// Очищаем результаты

FResult:=''; 

 

// Вы можете ввести поля формы, которые необходимы

// Вот некоторые примеры:

FContent:= 

  'Name='+    HTTPTran('John Smith')            +'&'+ 

  'Address='+ HTTPTran('1 Waystreet')          +'&'+ 

  'Email='+   HTTPTran('jsmith@somewhere.com') +'&'+ 

  'B1=Submit'+ 

  #10; 

 

// Вычисляем длину содержимого

FContent:= 

   'Content-Length: '+IntToStr(Length(FContent))+#10+#10+FContent; 

 

{-- Начало прокси ---} 

{ если Вы используете прокси, то раскоментируйте этот код

ClientSocket1.Host := ProxyServer; 

ClientSocket1.Port := ProxyPort; 

HTTP_POST := 'POST http://'+WebServer+PostAddr+' HTTP/1.0'#10; 

{--- Конец прокси ---} 

 

{--- Начало соединения напрямую --- } 

{ удалите этот код, еслы Вы будете использовать прокси }

ClientSocket1.Host := WebServer; 

ClientSocket1.Port := WebPort; 

HTTP_POST := 'POST '+PostAddr+' HTTP/1.0'#10; 

{--- Конец соединения напрямую ---} 

 

// Соединяем заголовок

HTTP_Post := HTTP_Post + HTTP_Data; 

 

// Пытаемся открыть соединение

ClientSocket1.Open; 

end;

program matching;
var x,y:integer;
begin
     writeln;
     write('Введите значение X '); 
     read(x);
     write('Введите значение Y ');  
     readln(y);
     case x-y of
       0:writeln ('X и Y равны');
       else
       writeln ('X и Y не равны');
     end;
end.