create or replace function fun(stra varchar2,strb varchar2,casesensitive number default 1)
return number
as
res number default 0;
v_stra varchar2(20);
v_strb varchar2(20);
begin 
      v_stra:=stra;
      v_strb:=strb;
      if casesensitive=0 then
         v_stra:=lower(v_stra);
         v_strb:=lower(v_strb);
      end if;
      for i in 1..greatest(length(v_stra),length(v_strb))
      loop
           if substr(v_stra,i,1)=substr(v_strb,i,1) then
              res:=res+1;
           end if;
      end loop;
      
      return res;
end fun;