Plsql 需要帮助找出PL SQL包中SQL注入的根本原因吗
我们在PL SQL中有一些包，并且我们使用Veracode进行了一些安全扫描。我们需要解决一些SQL注入问题。我将代码和行号附加到显示错误的位置。我们想知道根本原因和建议的解决方案 下面一行显示了SQL注入问题。 dbms_sql.parse（v_cid，v_where（ASCII（p_nav）），dbms_sql.NATIVE）Plsql 需要帮助找出PL SQL包中SQL注入的根本原因吗,plsql,plsqldeveloper,plsql-package,Plsql,Plsqldeveloper,Plsql Package,我们在PL SQL中有一些包，并且我们使用Veracode进行了一些安全扫描。我们需要解决一些SQL注入问题。我将代码和行号附加到显示错误的位置。我们想知道根本原因和建议的解决方案 下面一行显示了SQL注入问题。 dbms_sql.parse（v_cid，v_where（ASCII（p_nav）），dbms_sql.NATIVE） procedure lookup\u map\u ccl\u表 （VARCHAR2中的p_id） ，p_nav IN VARCHAR2 ，p_跟踪为PLS_整数 ，p
procedure lookup\u map\u ccl\u表
（VARCHAR2中的p_id）
，p_nav IN VARCHAR2
，p_跟踪为PLS_整数
，p_nl_ctry_cd IN syn_cls_types.t_ctry_cd
，p_first_ccl_cd IN syn_cls_types.t_us_ccl_cd
，p_last_ccl_cd IN syn_cls_types.t_us_ccl_cd
，p_页面大小，单位为PLS_整数
，p_error_cd IN syn_cls_errors.t_error_no
，p_us_ccl_cd IN syn_cls_types.t_us_ccl_cd
，p_cims_ccl_cd IN syn_cls_snf2_tmpl_cims.t_cims_us_ccl_cd
，p_tech_cd IN syn_cls_snf2_tmpl_cims.t_cims_tech_cd
，p_filter_us_ccl_cd IN syn_cls_types.t_us_ccl_cd
，p_filter_cims_ccl_cd IN syn_cls_snf2_tmpl_cims.t_cims_us_ccl_cd，p_filter_tech_cd IN syn_cls_snf2_tmpl_cims.t_cims_tech_cd
，p_error_txt_传入VARCHAR2
--以下参数是针对SWH SiteMinder引入的
，记住VARCHAR2中的默认值为NULL
)
是
v_first_ccl_cd syn_cls_types.t_us_ccl_cd；
v_last_ccl_cd syn_cls_types.t_us_ccl_cd；
v_error_no syn_cls_errors.t_error_no:=syn_cls_errors.ERR_OK；
v_aktTrace syn_cls_trace.t_trace:=syn_cls_trace.trace_init（p_trace syn_cls_constants.CONST_FALSE_INT）；
v_output syn_cls_www_template.t_outputcontents；
v_line_output syn_cls_www_template.t_outputcontents；
v_cla_user syn_cls_types.t_cla_user；
v_cla_websession syn_cls_types.t_cla_websession；
v_cid PLS_整数；
v_忽略PLS_整数；
v_base1_表DBMS_SQL.VARCHAR2_表；
v_base2_表DBMS_SQL.VARCHAR2_表；
v_base3_表DBMS_SQL.VARCHAR2_表；
v_指数_1 PLS_整数：=1.0；
v_指数2 PLS_整数：=1.0；
v_指数3 PLS_整数：=1.0；
v_未找到PLS_整数：=0.0；
v_conv_table owa_text.multi_行：=owa_text.new_multi；——在这里收集表输出
v_order_desc BOOLEAN:=（p_nav=syn_cls_constants.CONST_nav_PREVIOUS
或p_nav=syn_cls_constants.CONST_nav_LAST）；
v_template_nm syn_cls_types.t_template_nm:=syn_cls_SNF2_TMPL_CIMS.NAME_SNF2_ADM_US_CCL_MAP_TBL；
v_heading syn_cls_types.t_template_dtl:=owa_util.ite（p_id='CIMS'，syn_cls_SNF2_TMPL_CIMS.PAGETITLE_CIMS_至类映射，syn_cls_SNF2_TMPL_CIMS.PAGETITLE_类映射）；
v_where syn_cls_admin_library.t_where；
pagesize_option_list syn_cls_types.t_template_dtl:=''；
当前页面大小请输入整数；
类似于COM和syn cls\U types.t\U模板\U dtl；
v_ccl_cd VARCHAR2（256）；
TBL_NAME syn_cls_types.t_template_dtl；
选择_CCL_TAB syn_cls_types.t_template_dtl；
订单\u CCL\u选项卡\u ASC syn\u cls\u types.t\u模板\u dtl；
订单\u CCL\u选项卡\u描述同步\u cls\u类型.t\u模板\u dtl；
v_line_idx PLS_INTEGER；
开始
如果p_id='CLASS'，则
TBL_名称：='CLA_US_CCL_CLASS_TO_CIMS'；
如果p_id='CIMS'，则
TBL_名称：=“CLA_US_CCL_CIMS_TO_类”；
如果结束；
--syn_cls_trace.trace_it（p_trace，TRACEUS_CCL_TABLE，'test'）；
选择|CCL_选项卡：='选择美国|CCL_光盘、CIMS|美国|CCL_光盘、CIMS|技术|光盘'| TBL_名称；
订单（CCL）选项卡（ASC）：=“美国订单（CCL）CD ASC”；
订单_CCL_选项卡_DESC:=“美国订单_CCL_CD DESC”；
当前页面大小：=同步cls管理库。定义默认页面大小（CCL TBL页面大小选项、页面大小选项列表、页面大小）；
如果（p_filter_us_ccl_cd为null或INSTR（p_filter_us_ccl_cd，filter_ALL）=0，则
like_comand:='（（US_CCL_CD）like'）| p|u filter_US_CCL_CD | filter|u ALL |和'；
其他的
like_comand:='（（US_CCL_CD）like'）| | p| u filter_US_CCL_CD |''）和'；
如果结束；
如果（p_filter_cims_ccl_cd为空或INSTR（p_filter_cims_ccl_cd，filter_ALL）=0，则
like|comand:=like|comand | | |'（（CIMS|US|CCL|CD）like'）| | p| filter|CIMS|CCL|CD | filter| ALL | |'）和'；
其他的
like|comand:=like|comand | |'（（CIMS|US|CCL|CD）like'| | p|u filter|CIMS|CCL|CD |'）和'；
如果结束；
如果（p_filter_tech_cd为空或INSTR（p_filter_tech_cd，filter_ALL）=0，则
like|comand:=like|comand | | |'（（CIMS|u TECH|u CD）like'| | p| filter|u TECH|CD | | filter|u ALL | |'）；
其他的
like|comand:=like|comand | | |'（（CIMS|u TECH|u CD）like'| | p| u filter|u TECH|u CD |'）；
如果结束；
/*
like_comand:='（（US_CCL_CD）like'.| | p| u filter_US_CCL_CD | |'）和'||
“（（CIMS_US_CCL_CD）如“”）|| p|u filter_CIMS_CCL_CD |“”）和”||
“（（CIMS|u TECH|u CD）类似于”| | p|u filter|u TECH|u CD |”；
*/
v|u where（ASCII（先同步cls|u常量。CONST|u NAV|u））：=选择|CCL|u TAB | | where'|像|com和| ORDER|CCL|TAB ASC；
v|u where（ASCII（syn_cls_constants.CONST_NAV_LAST））：=选择“CCL_选项卡| | where”|像| comand |顺序| CCL_选项卡_DESC；
v|u where（ASCII（syn_cls_constants.CONST_NAV_NEXT））：=选择_CCL_TAB | | | where | | like|comand
||“和（美国CCL CD>=”| | | | | | | | | |“）”| |订单| CCL |选项卡|ASC；
v|u where（ASCII（syn_cls_constants.CONST_NAV_PREVIOUS））：=选择_CCL_TAB | | | where'| like|comand
||'和（US_CCL_CD welcome，在进行语法分析之前可能会尝试使用dbms_assert），您能帮我为DMBS_assert编写语句吗？
procedure lookup_map_ccl_table
( p_id IN VARCHAR2
, p_nav IN VARCHAR2
, p_trace IN PLS_INTEGER
, p_nl_ctry_cd IN syn_cls_types.t_ctry_cd
, p_first_ccl_cd IN syn_cls_types.t_us_ccl_cd
, p_last_ccl_cd IN syn_cls_types.t_us_ccl_cd
, p_page_size IN PLS_INTEGER
, p_error_cd IN syn_cls_errors.t_error_no
, p_us_ccl_cd IN syn_cls_types.t_us_ccl_cd
, p_cims_ccl_cd IN syn_cls_snf2_tmpl_cims.t_cims_us_ccl_cd
, p_tech_cd IN syn_cls_snf2_tmpl_cims.t_cims_tech_cd
, p_filter_us_ccl_cd IN syn_cls_types.t_us_ccl_cd
, p_filter_cims_ccl_cd IN syn_cls_snf2_tmpl_cims.t_cims_us_ccl_cd , p_filter_tech_cd IN syn_cls_snf2_tmpl_cims.t_cims_tech_cd
, p_error_txt_passed IN VARCHAR2
-- The Parameter below is introduced for SWH SiteMinder
, RememberMe IN VARCHAR2 DEFAULT NULL
)
is
v_first_ccl_cd syn_cls_types.t_us_ccl_cd;
v_last_ccl_cd syn_cls_types.t_us_ccl_cd;
v_error_no syn_cls_errors.t_error_no := syn_cls_errors.ERR_OK;
v_aktTrace syn_cls_trace.t_trace := syn_cls_trace.trace_init( p_Trace <> syn_cls_constants.CONST_FALSE_INT );
v_output syn_cls_www_template.t_outputcontents;
v_line_output syn_cls_www_template.t_outputcontents;
v_cla_user syn_cls_types.t_cla_user;
v_cla_websession syn_cls_types.t_cla_websession;
v_cid PLS_INTEGER;
v_ignore PLS_INTEGER;
v_base1_table DBMS_SQL.VARCHAR2_TABLE;
v_base2_table DBMS_SQL.VARCHAR2_TABLE;
v_base3_table DBMS_SQL.VARCHAR2_TABLE;
v_index_1 PLS_INTEGER := 1.0;
v_index_2 PLS_INTEGER := 1.0;
v_index_3 PLS_INTEGER := 1.0;
v_no_found PLS_INTEGER := 0.0;
v_conv_table owa_text.multi_line := owa_text.new_multi; -- collect table output in here
v_order_desc BOOLEAN := (p_nav = syn_cls_constants.CONST_NAV_PREVIOUS
OR p_nav = syn_cls_constants.CONST_NAV_LAST );
v_template_nm syn_cls_types.t_template_nm := SYN_CLS_SNF2_TMPL_CIMS.NAME_SNF2_ADM_US_CCL_MAP_TBL;
v_heading syn_cls_types.t_template_dtl := owa_util.ite(p_id = 'CIMS', SYN_CLS_SNF2_TMPL_CIMS.PAGETITLE_CIMS_TO_CLASS_MAP, SYN_CLS_SNF2_TMPL_CIMS.PAGETITLE_CLASS_TO_CIMS_MAP);
v_where syn_cls_admin_library.t_where;
pagesize_option_list syn_cls_types.t_template_dtl := '';
curr_page_size PLS_INTEGER;
like_comand syn_cls_types.t_template_dtl;
v_ccl_cd VARCHAR2(256);
TBL_NAME syn_cls_types.t_template_dtl;
SELECT_CCL_TAB syn_cls_types.t_template_dtl;
ORDER_CCL_TAB_ASC syn_cls_types.t_template_dtl;
ORDER_CCL_TAB_DESC syn_cls_types.t_template_dtl;
v_line_idx PLS_INTEGER;
begin
if p_id = 'CLASS' then
TBL_NAME := 'CLA_US_CCL_CLASS_TO_CIMS';
elsif p_id = 'CIMS' then
TBL_NAME := 'CLA_US_CCL_CIMS_TO_CLASS';
end if;
--syn_cls_trace.trace_it( p_Trace, TRACEUS_CCL_TABLE,'test');
SELECT_CCL_TAB := 'SELECT US_CCL_CD, CIMS_US_CCL_CD, CIMS_TECH_CD FROM ' || TBL_NAME;
ORDER_CCL_TAB_ASC := 'ORDER BY US_CCL_CD ASC';
ORDER_CCL_TAB_DESC := 'ORDER BY US_CCL_CD DESC';
curr_page_size := syn_cls_admin_library.define_default_page_size(CCL_TBL_PAGE_SIZE_OPTS,pagesize_option_list,p_page_size);
if (p_filter_us_ccl_cd is null OR INSTR(p_filter_us_ccl_cd, FILTER_ALL) = 0) then
like_comand := ' (( US_CCL_CD ) Like ''' || p_filter_us_ccl_cd || FILTER_ALL || ''') AND';
else
like_comand := ' (( US_CCL_CD ) Like ''' || p_filter_us_ccl_cd || ''') AND';
end if;
if (p_filter_cims_ccl_cd is null OR INSTR(p_filter_cims_ccl_cd, FILTER_ALL) = 0) then
like_comand := like_comand || ' (( CIMS_US_CCL_CD ) Like ''' || p_filter_cims_ccl_cd || FILTER_ALL || ''') AND';
else
like_comand := like_comand || ' (( CIMS_US_CCL_CD ) Like ''' || p_filter_cims_ccl_cd || ''') AND';
end if;
if (p_filter_tech_cd is null OR INSTR(p_filter_tech_cd, FILTER_ALL) = 0) then
like_comand := like_comand || ' (( CIMS_TECH_CD ) Like ''' || p_filter_tech_cd || FILTER_ALL || ''') ';
else
like_comand := like_comand || ' (( CIMS_TECH_CD ) Like ''' || p_filter_tech_cd || ''') ';
end if;
/*
like_comand := ' (( US_CCL_CD ) Like ''' || p_filter_us_ccl_cd || ''') AND' ||
' (( CIMS_US_CCL_CD ) Like ''' || p_filter_cims_ccl_cd || ''') AND' ||
' (( CIMS_TECH_CD ) Like ''' || p_filter_tech_cd || ''') ';
*/
v_where( ASCII(syn_cls_constants.CONST_NAV_FIRST) ) := SELECT_CCL_TAB || ' Where' || like_comand || ORDER_CCL_TAB_ASC;
v_where( ASCII(syn_cls_constants.CONST_NAV_LAST ) ) := SELECT_CCL_TAB || ' Where' || like_comand || ORDER_CCL_TAB_DESC;
v_where( ASCII(syn_cls_constants.CONST_NAV_NEXT ) ) := SELECT_CCL_TAB || ' Where' || like_comand
|| ' And ( US_CCL_CD >= ''' || p_last_ccl_cd || ' '') ' || ORDER_CCL_TAB_ASC;
v_where( ASCII(syn_cls_constants.CONST_NAV_PREVIOUS)) := SELECT_CCL_TAB || ' Where' || like_comand
|| ' And ( US_CCL_CD <= ''' || p_first_ccl_cd || ' '') ' || ORDER_CCL_TAB_DESC;
-- check user session, issue login screen if necessary
syn_cls_www_access.checkAndInitUserSession( v_aktTrace
, v_cla_user
, v_cla_websession
, v_template_nm
, v_heading
, v_error_no
--, owa_util.ite(p_id='CIMS',syn_cls_grants.GRNT_ADMEXPUS,syn_cls_grants.GRNT_ADMEXPEU)
, syn_cls_grants.GRNT_ADMCIMSMAP );
--, syn_cls_grants.GRNT_INLOGIN );
if ( v_error_no <> syn_cls_errors.ERR_OK ) then
syn_cls_www_template.getOutputFields( v_aktTrace, v_output,v_template_nm);
syn_cls_www_access.prepare_login_template(v_akttrace, v_output, v_error_no, FALSE);
GOTO ccl_label;
end if;
-- read the HTML template for Main
syn_cls_www_template.getOutputFields( v_aktTrace
, v_line_output
, v_template_nm
, p_nl_ctry_cd );
-- compose the dynamic SQL-statement, bind local variables and execute it
v_cid := DBMS_SQL.OPEN_CURSOR;
dbms_sql.parse( v_cid, v_where( ASCII( p_nav)), dbms_sql.NATIVE );