oracle_身份证有效性校验

最新推荐文章于 2024-07-25 08:41:32 发布
最新推荐文章于 2024-07-25 08:41:32 发布
阅读量869 收藏 4
点赞数
文章标签： oracle 数据库 database
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qwesxd/article/details/122263605
版权

正则表达式写法

CREATE OR REPLACE FUNCTION Func_check_id_card(p_idCard IN VARCHAR2) RETURN INT IS
    v_regStr    VARCHAR2(2000);
    v_sum       NUMBER;
    v_mod       NUMBER;
    v_checkCode CHAR(11)       := '10X98765432';
    v_checkBit  CHAR(1);
    v_areaCode  VARCHAR2(2000) := '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';
BEGIN
    CASE LENGTHB(p_idCard)
        WHEN 15 THEN -- 15位
            IF INSTRB(v_areaCode, SUBSTR(p_idCard, 1, 2) || ',') = 0
                THEN RETURN 0;
            END IF;
    
            IF MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 2)) + 1900, 400) = 0 OR
               (MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 2)) + 1900, 100) <> 0 AND MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 2)) + 1900, 4) = 0)
                THEN -- 闰年
                    v_regStr := '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}$';
                ELSE
                    v_regStr := '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}$';
            END IF;
    
            IF REGEXP_LIKE(p_idCard, v_regStr)
                THEN RETURN 1;
                ELSE RETURN 0;
            END IF;
        WHEN 18 THEN -- 18位
            IF INSTRB(v_areaCode, SUBSTRB(p_idCard, 1, 2) || ',') = 0
                THEN RETURN 0;
            END IF;
    
            IF MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 4)), 400) = 0 OR
               (MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 4)), 100) <> 0 AND MOD(TO_NUMBER(SUBSTRB(p_idCard, 7, 4)), 4) = 0)
                THEN -- 闰年
                    v_regStr := '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$';
                ELSE
                    v_regStr := '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$';
            END IF;
    
            IF REGEXP_LIKE(p_idCard, v_regStr)
                THEN
                    v_sum := (TO_NUMBER(SUBSTRB(p_idCard, 1, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 11, 1))) * 7 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 2, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 12, 1))) * 9 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 3, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 13, 1))) * 10 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 4, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 14, 1))) * 5 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 5, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 15, 1))) * 8 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 6, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 16, 1))) * 4 +
                             (TO_NUMBER(SUBSTRB(p_idCard, 7, 1)) + TO_NUMBER(SUBSTRB(p_idCard, 17, 1))) * 2 + TO_NUMBER(SUBSTRB(p_idCard, 8, 1)) * 1 +
                             TO_NUMBER(SUBSTRB(p_idCard, 9, 1)) * 6 + TO_NUMBER(SUBSTRB(p_idCard, 10, 1)) * 3;
                    v_mod := MOD(v_sum, 11);
                    v_checkBit := SUBSTRB(v_checkCode, v_mod + 1, 1);
    
                    IF v_checkBit = upper(substrb(p_idCard, 18, 1))
                        THEN RETURN 1;
                        ELSE RETURN 0;
                    END IF;
                ELSE RETURN 0;
            END IF;
        ELSE RETURN 0; -- 身份证号码位数不对
    END CASE;
EXCEPTION
    WHEN OTHERS THEN RETURN 0;
END Func_check_id_card;
/

非正则表达式写法

Create Or Replace Function Func_checkIdcard(p_idcard in varchar2) Return Number Is
    v_sum         Number;
    v_mod         Number;
    v_length      Number;
    v_date        Varchar2(10);
    v_isDate      Boolean;
    v_isNumber    Boolean;
    v_isNumber_17 Boolean;
    v_checkbit    CHAR(1);
    v_checkcode   CHAR(11)       := '10X98765432';
    v_areacode    VARCHAR2(2000) := '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';

    --[isNumber]--
    Function isNumber(p_string in varchar2) Return Boolean Is
        i        number;
        k        number;
        flag     boolean;
        v_length number;
    Begin
        /*
         *算法:
         *   通过ASCII码判断是否数字，介于[48, 57]之间。
         *   select ascii('0'),ascii('1'),ascii('2'),ascii('3'),ascii('4'),ascii('5'),ascii('6'),ascii('7'),ascii('8'),ascii('9') from dual;
         */

        flag := True;
        select length(p_string) into v_length from dual;

        for i in 1..v_length loop
            k := ascii(substr(p_string, i, 1));
            if k < 48 or k > 57
                then
                    flag := False;
                    Exit;
            end if;
            end loop;

        Return flag;
    End isNumber;

    --[isDate]--
    Function isDate(p_date in varchar2) Return Boolean Is
        v_flag       boolean;
        v_year       number;
        v_month      number;
        v_day        number;
        v_isLeapYear boolean;
    Begin
        --[初始化]--
        v_flag := True;

        --[获取信息]--
        v_year := to_number(substr(p_date, 1, 4));
        v_month := to_number(substr(p_date, 5, 2));
        v_day := to_number(substr(p_date, 7, 2));

        --[判断是否为闰年]--
        if (mod(v_year, 400) = 0) Or (mod(v_year, 100) <> 0 And mod(v_year, 4) = 0) then v_isLeapYear := True; else v_isLeapYear := False; end if;

        --[判断月份]--
        if v_month < 1 Or v_month > 12
            then
                v_flag := False;
                Return v_flag;
        end if;

        --[判断日期]--
        if v_month in (1, 3, 5, 7, 8, 10, 12) and (v_day < 1 or v_day > 31) then v_flag := False; end if;
        if v_month in (4, 6, 9, 11) and (v_day < 1 or v_day > 30) then v_flag := False; end if;
        if v_month in (2)
            then
                if (v_isLeapYear)
                    then
                        --[闰年]--
                        if (v_day < 1 or v_day > 29) then v_flag := False; end if;
                    else
                        --[非闰年]--
                        if (v_day < 1 or v_day > 28) then v_flag := False; end if;
                end if;
        end if;

        --[返回结果]--
        Return v_flag;
    End isDate;
Begin
    /*
    返回值说明:
        -1, '身份证号码位数不对',
        -2, '身份证号码出生日期超出范围',
        -3, '身份证号码含有非法字符',
        -4, '身份证号码校验码错误',
        -5, '身份证号码地区码非法',
         1, '身份证号码通过校验'
    */
    --[长度校验]--
    if p_idcard is null then return -1; end if;
    select lengthb(p_idcard) into v_length from dual;
    if v_length not in (15, 18) then return -1; end if;

    --[区位码校验]--
    if instrb(v_areacode, substr(p_idcard, 1, 2) || ',') = 0 then return -5; end if;

    --[格式化校验]--
    if v_length = 15
        then
            v_isNumber := isNumber(p_idcard);
            if not (v_isNumber) then return -3; end if;
        elsif v_length = 18
            then
                v_isNumber := isNumber(p_idcard);
                v_isNumber_17 := isNumber(substr(p_idcard, 1, 17));
                if not ((v_isNumber) or (v_isNumber_17 and upper(substr(p_idcard, 18, 1)) = 'X')) then return -3; end if;
    end if;

    --[出生日期校验]--
    if v_length = 15
        then
            select '19' || substr(p_idcard, 7, 6) into v_date from dual;
        elsif v_length = 18
            then
                select substr(p_idcard, 7, 8) into v_date from dual;
    end if;
    v_isDate := isDate(v_date);
    if not (v_isDate) then return -2; end if;

    --[校验码校验]--
    if v_length = 18
        then
            v_sum := (TO_NUMBER(SUBSTRB(p_idcard, 1, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 11, 1))) * 7 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 2, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 12, 1))) * 9 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 3, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 13, 1))) * 10 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 4, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 14, 1))) * 5 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 5, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 15, 1))) * 8 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 6, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 16, 1))) * 4 +
                     (TO_NUMBER(SUBSTRB(p_idcard, 7, 1)) + TO_NUMBER(SUBSTRB(p_idcard, 17, 1))) * 2 + TO_NUMBER(SUBSTRB(p_idcard, 8, 1)) * 1 +
                     TO_NUMBER(SUBSTRB(p_idcard, 9, 1)) * 6 + TO_NUMBER(SUBSTRB(p_idcard, 10, 1)) * 3;
            v_mod := MOD(v_sum, 11);
            v_checkbit := SUBSTRB(v_checkcode, v_mod + 1, 1);
            if v_checkbit = upper(substrb(p_idcard, 18, 1)) then return 1; else return -4; end if;
        else return 1;
    end if;
End Func_checkIdcard;
/
K.B.Zhu
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Oracle验证身份证号码有效性
Mentses的博客
04-27 3867
废话不多说，直接上代码create or replace function f_get_idcard_address(p_idcode in varchar2) /* Create By yuxiao 2018-04-27 */ return varchar is v_area varchar2(50); begin select area into v_area...
oracle 导出身份证号_oracle 根据身份证号计算出生日期
weixin_31847389的博客
01-13 1629
1.情景展示如何根据身份证号推算出出生日期？2.解决方案--根据身份证号计算出生日期SELECT DECODE(LENGTH(ID_CARD),18,SUBSTR(ID_CARD, 7, 8),15,'19' || SUBSTR(ID_CARD, 7, 6)) 出生日期FROM VIRTUAL_CARDWHERE LENGTH(ID_CARD) = 18OR LENGTH(ID_CARD) = 1...
Oracle环境下校验身份证的函数
醉梦洛的博客
12-31 611
1.由于业务要求，需要再触发器中定制一个身份证的校验过程，特此校验 2.脚本部分 CREATE OR REPLACE FUNCTION fn_checkidcard (p_idcard IN VARCHAR2) RETURN INT IS v_regstr VARCHAR2 (2000); v_sum NUMBER; v_mod N...
Oracle实现身份证校验功能
tomora的专栏
09-15 2069
要求：1、输入一个 18 位的身份证号，验证它的有效性；            2、出生日期部分是有效的日期而且第18位校验位正确则为合法。        身份证号校验位算法：            1：把前17位号码从第高位到低位与下列17个数字分别相乘求和（N）：                『2,4,8,5,10,9,7,3,6,1,2,4,8,5,10,9,7』             
oracle判断身份证号码是否合法（包含15位身份证）
weixin_45286744的博客
10-19 1866
CREATE OR REPLACE FUNCTION Func_checkidcard (p_idcard IN VARCHAR2) RETURN INT IS v_regstr VARCHAR2 (2000); v_sum NUMBER; v_mod NUMBER; v_checkcode CHAR (11) := '10X98765432'; v_checkbit CHAR (1); v_areacode VARCHAR2 (2000) := '1
Oracle身份证校验
zjzhong的专栏
07-18 1120
参照c#中写的身份证校验原理，在Oracle中写的身份证校验包。 CREATE OR REPLACE PACKAGE CHECK_VALUE AS   --数据校验相关   --身份证省份区域编码   G_ADDRESS VARCHAR2(200) := '11x22x35x44x53x12x23x36x45x54x13x31x37x46x61x14x32x41x50x62x15x
oracle plsql 检查身份证号是否合法
王铁牛老师
02-25 1323
oracle plsql 检查身份证号是否合法 create or replace function sync.FUN_CHECKIDCARD(P_IDCARD in varchar2) return int is /*检验身份证是否合法，合法返回1，不合法返回0*/ V_REGSTR varchar2(2000); V_SUM number; V_MOD number; V_CHECKCODE char(11) := '10X98765432'; V_
Oracle 根据身份证计算年龄 性别 生日
长安诗社社长@-梁瀚文- https://github.com/HevnChin https://gitee.com/HevnChin
03-12 2002
1.根据身份证获取年龄、性别、生日 CREATE OR REPLACE Function ZlXA_Fun_CheckIDCard ( Idcard_In In Varchar2, Calcdate_In In Date := Null ) Return Varchar2 Is ------------------------------------------------------------------------------- --功能：身份证号码合法性校验,并返回
oracle 检验身份证号是否正确存储过程
sszssz44的专栏
11-08 1695
create or replace procedure p_check_id_number(p_number varchar2) is   type tbl_t is table of number;   my_tbl     tbl_t := tbl_t(7,                             9,                             10,
Oracle检查身份证合法性函数.txt
01-17
该函数是支持Oracle环境下的对身份照进行校验的函数，它是按照身份照计算算法去校验的，能够精准的判断出身份照是否合法，通过返回值为1：表示为正确的身份证，返回值为0表示为错误的身份证
oracle 身份证校验函数的实例代码
09-08
总之，Oracle中的身份证校验函数通过正则表达式检查身份证号码的格式，以确保其合法性。虽然这种方法相对简单，但对于大多数常规情况，它能有效地验证身份证号码的正确性。在实际应用中，可能需要根据具体需求，如...
oracle身份证验证函数
06-20
根据提供的Oracle身份证验证函数的信息，我们可以详细探讨一下这个函数的设计逻辑、实现原理以及各个部分的具体功能。 ### Oracle身份证验证函数概述 此Oracle函数名为`Func_checkIdcard`，其主要功能是验证输入的...
用sql实现18位身份证校验代码分享 身份证校验位计算
12-15
此代码的目的是检查给定的身份证号码是否有效，如果符合计算出的校验码，则返回该身份证号码。如果输入的身份证号码不正确，查询将不会返回任何结果。 身份证号码的校验在数据库应用中非常实用，可以防止非法数据的...
Spring 事务管理 04
程序员进阶之路
07-23 783
事务Transaction）是数据库管理系统（DBMS）中的一个重要概念，它确保数据库操作的**一致性**、**完整性**和**持久性**。在软件开发中，特别是涉及到多个数据库操作或者复杂的数据更新过程时，使用事务能够有效地保证数据操作的正确性和可靠性。以下是几个需要事务的主要原因：
Oracle系统表空间的加解密
In-Memory Computing Technology
07-23 471
对于临时表空间，只能新建一个加密的临时表空间，然后指定其为默认临时表空间。解密当然也可以在线，但为了涵盖加解密功能，此处使用离线解密。就剩下临时表空间了，按照文档。
记一次Mycat分库分表实践
最新发布
天之道居同文。
07-25 1076
例如博客的冷数据表，假如分为100个表，当同时有100万个用户在浏览时，如果是单表的话，会进行100万次请求，而现在分表后，就可能是每个表进行1万个数据的请求（因为，不可能绝对的平均，只是假设），这样压力就降低了很多。顾名思义，就是数据分散，将一台主机上的数据分摊到多台，减轻单台主机的负载压力，有两种切分方式，一种是分库，即按照业务模块分多个库，每个库中的表不一样，还有一种就是分表，按照一定的业务规则或者逻辑将数据拆分到不同的主机上，每个主机上的表是一样的，这个有点类似于Oracle的表分区。
自动化测试之python操作Oracle遇到的问题：Oracle-Error-Message: DPI-1047
weixin_43726471的博客
07-23 636
自动化测试需要连接数据库，进行一些增删改查的操作，那么针对python语言，如何才能够通过程序完成连接数据库并且进行操作呢？可以通过cx_oracle这个模块来实现。
Oracle校验身份证号码
03-08
我可以回答这个问题。Oracle可以通过正则表达式来校验身份证号码的格式是否正确。例如，可以使用以下正则表达式进行校验：^[1-9]\d{5}(19|20)\d{2}([1-9]|1[-2])([1-9]|[1-2]\d|3[-1])\d{3}[-9Xx]$。如果身份证号码格式不正确，Oracle会返回错误信息。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值