Master

.github/workflows/veracode-analysis.yml

@@ -0,0 +1,51 @@
+# This workflow uses actions that are not certified by GitHub.
+# They are provided by a third-party and are governed by
+# separate terms of service, privacy policy, and support
+# documentation.
+
+# This workflow will initiate a Veracode Static Analysis Pipeline scan, return a results.json and convert to SARIF for upload as a code scanning alert
+
+name: Veracode Static Analysis Pipeline Scan
+
+on:
+  push:
+    branches: [ master ]
+  pull_request:
+    # The branches below must be a subset of the branches above
+    branches: [ master ]
+  schedule:
+    - cron: '34 4 * * 1'
+
+# A workflow run is made up of one or more jobs that can run sequentially or in parallel
+jobs:
+  # This workflow contains a job to build and submit pipeline scan, you will need to customize the build process accordingly and make sure the artifact you build is used as the file input to the pipeline scan file parameter
+  build-and-pipeline-scan:
+    # The type of runner that the job will run on
+    runs-on: ubuntu-latest
+    steps:
+
+    # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it and copies all sources into ZIP file for submitting for analysis. Replace this section with your applications build steps
+    - uses: actions/checkout@v2
+      with:
+        repository: ''
+
+    - run: zip -r veracode-scan-target.zip ./
+
+    # download the Veracode Static Analysis Pipeline scan jar
+    - run: curl --silent --show-error --fail -O https://downloads.veracode.com/securityscan/pipeline-scan-LATEST.zip
+    - run: unzip -o pipeline-scan-LATEST.zip
+
+    - uses: actions/setup-java@v1
+      with:
+        java-version: 1.8
+    - run: java -jar pipeline-scan.jar --veracode_api_id "${{secrets.VERACODE_API_ID}}" --veracode_api_key "${{secrets.VERACODE_API_KEY}}" --fail_on_severity="Very High, High" --file veracode-scan-target.zip
+      continue-on-error: true
+    - name: Convert pipeline scan output to SARIF format
+      id: convert
+      uses: veracode/veracode-pipeline-scan-results-to-sarif@ff08ae5b45d5384cb4679932f184c013d34da9be
+      with:
+        pipeline-results-json: results.json
+    - uses: github/codeql-action/upload-sarif@v1
+      with:
+        # Path to SARIF file relative to the root of the repository
+        sarif_file: veracode-results.sarif

COMM_PACKAGE.pkb

@@ -0,0 +1,11 @@
+CREATE OR REPLACE PACKAGE BODY comm_package IS
+   FUNCTION  validate_comm (p_comm  IN  NUMBER) 					   RETURN BOOLEAN
+   IS v_max_comm    NUMBER;
+   BEGIN  -- validates commission to be less than maximum    
+     			    --	commission in the table
+   END validate_comm;
+   PROCEDURE  reset_comm (p_comm   IN  NUMBER)
+   IS BEGIN  -- calls validate_comm with specified value
+   END reset_comm;
+END comm_package;
+/

Create For Trigger Operation On Table.trg

@@ -0,0 +1,5 @@
+
+CREATE TABLE employee(
+employee_id  int NOT NULL,last_name varchar(255) NOT NULL,  job_id varchar(255) NOT NULL,salary varchar(255) NOT NULL,
+    PRIMARY KEY (employee_id)
+);

DECODE.sql

@@ -0,0 +1,9 @@
+/* Formatted on 21-Oct-21 5:11:34 AM (QP5 v5.287) */
+SELECT *
+  FROM HR.EMPLOYEES
+ WHERE department_id =
+          DECODE ( :PDEPT,
+                  'ALL', department_id,
+                  'TEN', 10,
+                  'NINTY', 90,
+                  20);

DML_EMP_VALUES.trg

@@ -0,0 +1,90 @@
+/* Formatted on 03-Nov-21 11:55:31 AM (QP5 v5.287) */
+CREATE OR REPLACE TRIGGER dml_emp_values
+   AFTER DELETE OR INSERT OR UPDATE
+   ON employee
+   FOR EACH ROW
+   ENABLE
+DECLARE
+   idn             NUMBER (6, 0);
+   user_name       VARCHAR2 (25);
+   timestampn      VARCHAR2 (25);
+   old_last_name   VARCHAR2 (25);
+   new_last_name   VARCHAR2 (25);
+   old_title       VARCHAR2 (10);
+   new_title       VARCHAR2 (10);
+   old_salary      VARCHAR2 (10);
+   new_salary      VARCHAR2 (10);
+BEGIN
+   SELECT USER, TO_CHAR (SYSDATE, 'DD/MON/YYYY HH24:MI:SS')
+     INTO user_name, timestampn
+     FROM DUAL;
+
+   IF INSERTING
+   THEN
+      INSERT INTO t_emp_table (user_name,
+                             timestampn,
+                             idn,
+                             old_last_name,
+                             new_last_name,
+                             old_title,
+                             new_title,
+                             old_salary,
+                             new_salary,
+                             operation)
+           VALUES (USER,
+                   SYSDATE,
+                   :NEW.employee_id,
+                   :NEW.last_name,
+                   :NEW.last_name,
+                   :NEW.job_id,
+                   :NEW.last_name,
+                   :NEW.salary,
+                   :NEW.salary,
+                   'Insert');
+   ELSIF DELETING
+   THEN
+      INSERT INTO t_emp_table (user_name,
+                             timestampn,
+                             idn,
+                             old_last_name,
+                             new_last_name,
+                             old_title,
+                             new_title,
+                             old_salary,
+                             new_salary,
+                             operation)
+           VALUES (USER,
+                   SYSDATE,
+                   :OLD.employee_id,
+                   :OLD.last_name,
+                   :OLD.last_name,
+                   :OLD.job_id,
+                   :OLD.last_name,
+                   :OLD.salary,
+                   :OLD.salary,
+                   'Delete');
+   ELSIF UPDATING
+   THEN
+      INSERT INTO t_emp_table (user_name,
+                             timestampn,
+                             idn,
+                             old_last_name,
+                             new_last_name,
+                             old_title,
+                             new_title,
+                             old_salary,
+                             new_salary,
+                             operation)
+           VALUES (USER,
+                   SYSDATE,
+                   :OLD.employee_id,
+                   :OLD.last_name,
+                   :NEW.last_name,
+                   :OLD.job_id,
+                   :NEW.last_name,
+                   :OLD.salary,
+                   :NEW.salary,
+                   'Insert');
+   END IF;
+END;
+/

DPK_RADWAN PROCEDURE.pkb

@@ -0,0 +1,79 @@
+CREATE OR REPLACE PACKAGE BODY dpk_radwan
+AS
+          PROCEDURE p_email_validation (email_address IN VARCHAR2) IS
+          at_the_rate       NUMBER;
+           dot_symbol        NUMBER;
+           c_at_the_rate     NUMBER;
+           c_dot_symbol      NUMBER;
+           string_length     NUMBER;
+           before_dot        NUMBER;
+           temp              NUMBER;
+           after_dot         NUMBER;
+           undefine_symbol   NUMBER;
+        BEGIN --  domain := INSTR (email_address, 'com'or '.in'or'.bd'or '.gov'or '.org');
+
+           at_the_rate := INSTR (email_address, '@');
+           dot_symbol := INSTR (email_address, '.');
+           string_length := LENGTH (email_address);
+           c_at_the_rate :=
+              ROUND (LENGTH (email_address) - LENGTH (REPLACE (email_address, '@')));
+           c_dot_symbol :=
+              ROUND (LENGTH (email_address) - LENGTH (REPLACE (email_address, '.')));
+           --  after_at_the_rate := at_the_rate+1;
+           before_dot := INSTR (email_address, '.');
+           after_dot := INSTR (email_address, '.');
+           temp := dot_symbol;
+           --DBMS_OUTPUT.put_line ('TEMP' || ' : ' || temp);
+           undefine_symbol :=
+                 INSTR (email_address, '!')
+              || INSTR (email_address, '/')
+              || INSTR (email_address, '#')
+              || INSTR (email_address, '%')
+              || INSTR (email_address, '$')
+              || INSTR (email_address, '^')
+              || INSTR (email_address, '&')
+              || INSTR (email_address, '*')
+              || INSTR (email_address, '(')
+              || INSTR (email_address, '(')
+              || INSTR (email_address, '-')
+              || INSTR (email_address, '+')
+              || INSTR (email_address, '=')
+              || INSTR (email_address, '`')
+              || INSTR (email_address, '~')
+              || INSTR (email_address, '?')
+              || INSTR (email_address, '{')
+              || INSTR (email_address, '}')
+              || INSTR (email_address, '[')
+              || INSTR (email_address, ']')
+              || INSTR (email_address, '\')
+              || INSTR (email_address, '|')
+              || INSTR (email_address, '"')
+              || INSTR (email_address, ':')
+              || INSTR (email_address, ';')
+              || INSTR (email_address, ']')
+              || INSTR (email_address, '[')
+              || INSTR (email_address, '?')
+              || INSTR (email_address, '>')
+              || INSTR (email_address, '<')
+              || INSTR (email_address, ',')
+              || INSTR (email_address, '..')
+              || INSTR (email_address, '.@')
+              || INSTR (email_address, '@.');
+          -- DBMS_OUTPUT.put_line (before_dot || ' AND ' || after_dot);
+           IF ( (   (dot_symbol = 0)
+                 OR (at_the_rate = 0)
+                 OR (undefine_symbol >= 1)
+                 OR (at_the_rate = 1)
+                 OR (c_at_the_rate > 1)
+                 OR (at_the_rate = string_length)
+                 OR (dot_symbol = string_length)))
+           THEN
+              DBMS_OUTPUT.put_line ('Invalid email addresses');
+           END IF;
+           DBMS_OUTPUT.put_line ('Valid email addresses');
+        EXCEPTION
+           WHEN OTHERS
+           THEN
+              DBMS_OUTPUT.put_line ('Can not able to say valid or invalid');
+        END p_email_validation;
+END dpk_radwan;

DPK_RADWAN Package Create.pks

@@ -0,0 +1,5 @@
+/* Formatted on 02-Nov-21 4:43:58 PM (QP5 v5.287) */
+CREATE OR REPLACE PACKAGE dpk_radwan
+AS
+  PROCEDURE p_email_validation (email_address IN VARCHAR2);
+END dpk_radwan;

Drop Trigger.trg

@@ -0,0 +1 @@
+DROP TRIGGER dml_emp_values;

E_TPP package and procedures creating with UP date Procedure.pks

@@ -0,0 +1,14 @@
+CREATE OR REPLACE PACKAGE e_tpp
+AS
+
+   PROCEDURE delEmployee (e_id employee.employee_id%TYPE);
+
+     PROCEDURE addEmployee (e_id      employee.employee_id%TYPE,
+                          e_name    employee.last_name%TYPE,
+                          e_job     employee.job_id%TYPE,
+                          e_sal     employee.salary%TYPE);
+    PROCEDURE upEmployee (e_id      employee.employee_id%TYPE,
+                         e_name    employee.last_name%TYPE,
+                         e_job     employee.job_id%TYPE,
+                         e_sal     employee.salary%TYPE);
+END e_tpp;

E_TPP package and procedures creating.pks

@@ -0,0 +1,10 @@
+CREATE OR REPLACE PACKAGE e_tpp
+AS
+
+   PROCEDURE delEmployee (e_id employee.employee_id%TYPE);
+    PROCEDURE listEmployee;
+     PROCEDURE addEmployee (e_id      employee.employee_id%TYPE,
+                          e_name    employee.last_name%TYPE,
+                          e_job     employee.job_id%TYPE,
+                          e_sal     employee.salary%TYPE);
+END e_tpp;

Execution of e_tpp add employee by package to perfrom trigger.pks

@@ -0,0 +1,2 @@
+--EXECUTE p_email_validation( 'radwanromy@gmail.com');
+	EXECUTE e_tpp.addEmployee(033,'Radwan','CEO',5000);

FORWARD_PACK.pkb

@@ -0,0 +1,18 @@
+/* Formatted on 25-Oct-21 4:53:03 AM (QP5 v5.287) */
+CREATE OR REPLACE PACKAGE BODY forward_pack 
+IS
+  PROCEDURE award_bonus(1000) 
+  IS
+  BEGIN
+   calc_rating(5);       --illegal reference
+
+  END;
+
+  PROCEDURE calc_rating(5) 
+  IS
+  BEGIN
+    ...
+  END;
+
+END forward_pack;
+/

FUNCTION_EMAIL_VALIDATION.fnc

@@ -0,0 +1,75 @@
+/* Formatted on 28/Oct/21 11:51:07 AM (QP5 v5.287) */
+CREATE OR REPLACE FUNCTION email_validation (email_address IN VARCHAR2)
+   RETURN VARCHAR2
+IS
+   at_the_rate       NUMBER;
+   dot_symbol        NUMBER;
+   c_at_the_rate     NUMBER;
+   c_dot_symbol      NUMBER;
+   string_length     NUMBER;
+   before_dot        NUMBER;
+   temp              NUMBER;
+   after_dot         NUMBER;
+   undefine_symbol   NUMBER;
+BEGIN
+   --  domain := INSTR (email_address, 'com'or '.in'or'.bd'or '.gov'or '.org');
+   at_the_rate := INSTR (email_address, '@');
+   dot_symbol := INSTR (email_address, '.');
+   string_length := LENGTH (email_address);
+   c_at_the_rate :=
+      ROUND (LENGTH (email_address) - LENGTH (REPLACE (email_address, '@')));
+   c_dot_symbol :=
+      ROUND (LENGTH (email_address) - LENGTH (REPLACE (email_address, '.')));
+   --  after_at_the_rate := at_the_rate+1;
+   before_dot :=  INSTR (email_address, '.');
+   after_dot :=  INSTR (email_address, '.');
+   temp := dot_symbol;
+   DBMS_OUTPUT.put_line ('TEMP' || ' : ' || temp);
+   undefine_symbol :=
+         INSTR (email_address, '!')
+      || INSTR (email_address, '/')
+      || INSTR (email_address, '#')
+      || INSTR (email_address, '%')
+      || INSTR (email_address, '$')
+      || INSTR (email_address, '^')
+      || INSTR (email_address, '&')
+      || INSTR (email_address, '*')
+      || INSTR (email_address, '(')
+      || INSTR (email_address, '(')
+      || INSTR (email_address, '-')
+      || INSTR (email_address, '+')
+      || INSTR (email_address, '=')
+      || INSTR (email_address, '`')
+      || INSTR (email_address, '~')
+      || INSTR (email_address, '?')
+      || INSTR (email_address, '{')
+      || INSTR (email_address, '}')
+      || INSTR (email_address, '[')
+      || INSTR (email_address, ']')
+      || INSTR (email_address, '\')
+      || INSTR (email_address, '|')
+      || INSTR (email_address, '"')
+      || INSTR (email_address, ':')
+      || INSTR (email_address, ';')
+      || INSTR (email_address, ']')
+      || INSTR (email_address, '[')
+      || INSTR (email_address, '?')
+      || INSTR (email_address, '>')
+      || INSTR (email_address, '<')
+      || INSTR (email_address, ',')
+      || INSTR (email_address, '..')
+      || INSTR (email_address, '.@')
+      || INSTR (email_address, '@.');
+   DBMS_OUTPUT.put_line (before_dot || ' AND ' || after_dot);
+   IF ( (   (dot_symbol = 0)
+         OR (at_the_rate = 0)
+         OR (undefine_symbol >= 1)
+         OR (at_the_rate = 1)
+         OR (c_at_the_rate > 1)
+         OR (at_the_rate = string_length)
+         OR (dot_symbol = string_length)))
+   THEN
+      RETURN 'Invalid email addresses';
+   END IF;
+   RETURN 'Valid email addresses';
+END email_validation;