pascal
/
fpc
-ын хуулбар https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
							(*
     This file is part of libmicrohttpd
     Copyright (C) 2010 Christian Grothoff (and other contributing authors)

     This library is free software; you can redistribute it and/or
     modify it under the terms of the GNU Lesser General Public
     License as published by the Free Software Foundation; either
     version 2.1 of the License, or (at your option) any later version.

     This library is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     Lesser General Public License for more details.

     You should have received a copy of the GNU Lesser General Public
     License along with this library; if not, write to the Free Software
     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*)
(**
 * @file digest_auth_example.pp (Original: digest_auth_example.c)
 * @brief minimal example for how to use digest auth with libmicrohttpd
 * @author Amr Ali / Silvio Clécio
 *)

program digest_auth_example;

{$mode objfpc}{$H+}

uses
  sysutils, BaseUnix, cmem, cutils, libmicrohttpd;

const
  PAGE: Pcchar = '<html><head><title>libmicrohttpd demo</title></head><body>Access granted</body></html>';
  DENIED: Pcchar = '<html><head><title>libmicrohttpd demo</title></head><body>Access denied</body></html>';
  MY_OPAQUE_STR = '11733b200778ce33060f31c9af70a870ba96ddd4';

  function ahc_echo(cls: Pointer; connection: PMHD_Connection; url: Pcchar;
    method: Pcchar; version: Pcchar; upload_data: Pcchar;
    upload_data_size: Psize_t; ptr: PPointer): cint; cdecl;
  const
    password: Pcchar = 'testpass';
    realm: Pcchar = '[email protected]';
  var
    response: PMHD_Response;
    username: Pcchar;
    ret: cint;
    signal_stale: cint;
  begin
    username := MHD_digest_auth_get_username(connection);
    if username = nil then
    begin
      response := MHD_create_response_from_buffer(strlen(DENIED), DENIED,
                    MHD_RESPMEM_PERSISTENT);
      ret := MHD_queue_auth_fail_response(connection, realm, MY_OPAQUE_STR,
               response, MHD_NO);
      MHD_destroy_response(response);
      Exit(ret);
    end;
    ret := MHD_digest_auth_check(connection, realm, username, password, 300);
    Free(username);
    if (ret = MHD_INVALID_NONCE) or (ret = MHD_NO) then
    begin
      response := MHD_create_response_from_buffer(strlen(DENIED), DENIED,
                    MHD_RESPMEM_PERSISTENT);
      if nil = response then
        Exit(MHD_NO);
      if ret = MHD_INVALID_NONCE then
        signal_stale := MHD_YES
      else
        signal_stale := MHD_NO;
      ret := MHD_queue_auth_fail_response(connection, realm, MY_OPAQUE_STR,
               response, signal_stale);
      MHD_destroy_response(response);
      Exit(ret);
    end;
    response := MHD_create_response_from_buffer(strlen(PAGE), PAGE,
      MHD_RESPMEM_PERSISTENT);
    ret := MHD_queue_response(connection, MHD_HTTP_OK, response);
    MHD_destroy_response(response);
    Result := ret;
  end;

var
  fd: cint;
  rnd: array[0..7] of AnsiChar;
  len: ssize_t;
  off: size_t;
  d: PMHD_Daemon;
begin
  if argc <> 2 then
  begin
    WriteLn(argv[0], ' PORT');
    Halt(1);
  end;
  fd := FpOpen('/dev/urandom', O_RDONLY);
  if -1 = fd then
  begin
    WriteLn(stderr, Format('Failed to open `%s'': %s', [
      '/dev/urandom', strerror(errno^)]));
    Halt(1);
  end;
  off := 0;
  while off < 8 do
  begin
    len := FpRead(fd, rnd, 8);
    if len = -1 then
    begin
      WriteLn(stderr, Format('Failed to read `%s'': %s', [
        '/dev/urandom', strerror(errno^)]));
      FpClose(fd);
      Halt(1);
    end;
    off += len;
  end;
  FpClose(fd);
  d := MHD_start_daemon(MHD_USE_THREAD_PER_CONNECTION or MHD_USE_DEBUG,
         StrToInt(argv[1]), nil, nil, @ahc_echo, PAGE,
         MHD_OPTION_DIGEST_AUTH_RANDOM, SizeOf(rnd), rnd,
         MHD_OPTION_NONCE_NC_SIZE, 300,
         MHD_OPTION_CONNECTION_TIMEOUT, cuint(120),
         MHD_OPTION_END);
  if d = nil then
    Halt(1);
  ReadLn;
  MHD_stop_daemon (d);
end.