ТЕМА:

CREATE OR REPLACE TRIGGER AfterConnect after logon on database

declare

 s_rec sys.v_$session%rowtype;

 ip_address varchar2(64);

 ip_con utl_tcp.connection;

 semafor varchar2(64);

 n number;

 s varchar(512);

 b boolean;

begin

  select * into s_rec from sys.v_$session t 

      where t.audsid = sys_context('USERENV', 'SESSIONID');     

  if not ((s_rec.username is null) or (s_rec.username = 'GMINTER')

  begin

    ip_address := sys_context('USERENV', 'IP_ADDRESS');     

    ip_con := utl_tcp.open_connection(ip_address, 8050);

    n := utl_tcp.available(ip_con, 0);

    semafor := utl_tcp.get_text(ip_con, n);

    utl_tcp.close_connection(ip_con);

  exception when others then

  semafor := 'NONE';

  end;

   if semafor <> 'PASSWORD' then

   raise_application_error (-20000, 'Вы запустили не ту программу :)');

   end if;  

  end if;   

end;