oracle - 在 PL/SQL 中验证 IBAN

Question

我正在尝试找到一些现成的代码(是的，我的意思是 teh codez)来验证 PL/SQL 中的 IBAN 帐号。

有人知道一些 sample 吗？我认为应该有人已经实现了......

谢谢

Answer 1

这个肯定没有版权:

declare
as_iban varchar2(34);
ln_iban number(36, 0);
begin
    as_iban := 'enter your IBAN here';

    ln_iban := to_number(substr(as_iban, 5));
    ln_iban := ln_iban * 100 + (ascii(substr(as_iban, 1, 1)) - 55);
    ln_iban := ln_iban * 100 + (ascii(substr(as_iban, 2, 1)) - 55);
    ln_iban := ln_iban * 100 + to_number(substr(as_iban, 3, 2));
    ln_iban := ln_iban mod 97;

    if ln_iban is null or ln_iban <> 1 then 
        raise_application_error(-2e4, 'invalid IBAN: ' || as_iban);
    end if; 
end;
/