Help for this page

Select Code to Download


  1. or download this
    use Business::CreditCard::Obscure qw(obscure);

...

print obscurevisa('4444333322221111');  # 4444********1111
print obscurediner('444333222111');  # 444******111
  2. or download this
    package Business::CreditCard::Obscure;

...
}

1;