sRAT | A small remote access trojan , for research purposes | TCP library

create table CATEGORY (
  CT_ID  char(2)
 ,CATEG  varchar2(20)
)
/
insert into CATEGORY values ('2C','Footwear')
/
insert into CATEGORY values ('1C','Books')
/
insert into CATEGORY values ('3C','Home Decor')
/
insert into CATEGORY values ('4C','Accessories')
/
create table SELLER (
  SL_ID    char(2)
 ,SL_NAME  char(5)
 ,RATING   number(2, 1)
)
/
insert into SELLER values ('2S','Priya', 2.5)
/
insert into SELLER values ('4S','Vicky', 4.7)
/
insert into SELLER values ('5S','Sneha', 3.3)
/
insert into SELLER values ('1S','Abhay', 3.5)
/
create table PRODUCT (
  P_ID    char(2)
 ,P_NAME  varchar2(35)
 ,AMOUNT  number(4)
 ,QT_REM  number(1)
 ,CT_ID   char(2)
 ,SL_ID   char(2)
 ,RATING  number(2, 1)
)
/
insert into PRODUCT
values ('1P'
       ,'The programming language of oracle'
       ,350
       ,4
       ,'1C'
       ,'1S'
       ,3.5)
/
insert into PRODUCT
values ('2P'
       ,'Nike White shoes'
       ,7000
       ,2
       ,'2C'
       ,'3S'
       ,3.25)
/
insert into PRODUCT
values ('3P'
       ,'White Lamp'
       ,800
       ,3
       ,'3C'
       ,'5S'
       ,3.6)
/
create or replace procedure FILTER_QUERY(l in number
                                        ,r in number
                                        ,catg in varchar
                                        ,prat in float
                                        ,srat in float
                                        ,oos in number)
as
  pname product.p_name%type;
  cursor ptr is
    select p_name
      from product
     where amount between l and r
       and ct_id in (select ct_id from category where categ=catg)
       and rating=prat
       and sl_id in (select sl_id from seller where rating=srat)
       and qt_rem=0;
  cursor ptr2 is
    select p_name
      from product
     where amount between l and r
       and ct_id in (select ct_id from category where categ=catg)
       and rating=prat
       and sl_id in (select sl_id from seller where rating=srat)
       and qt_rem>0;
begin
  if oos=1 then
    open ptr;
    loop
      fetch ptr into pname;
      exit when ptr%notfound;
      dbms_output.put_line(pname);
    end loop;
    close ptr;
  elsif oos=0 then
    open ptr2;
    loop
      fetch ptr2 into pname;
      exit when ptr2%notfound;
      dbms_output.put_line(pname);
    end loop;
    close ptr2;
  end if;
end;
/
set serveroutput on
declare
  sname varchar2(35);
begin
  filter_query(500,1000,'Home Decor',3.6,3.3,0);
end;
/
White Lamp

PL/SQL procedure successfully completed.