Masking Bank Account Number except last 4 digits in the file Post: 303023106

Sponsored Content

Top Forums Shell Programming and Scripting Masking Bank Account Number except last 4 digits in the file Post 303023106 by bakunin on Wednesday 12th of September 2018 02:29:51 AM

09-12-2018

Registered User

Quote:

Originally Posted by Pradeep R

I know how to do it in Oracle (like below), however client need in shell script.

Depending on what the rest of the shell script looks like (and, most prominently, WHICH SHELL YOU ARE USING - you might have considered telling us) you can do it with variable expansion. Here is a solution in Korn shell, i haven't tested it in bash,but it should work there too (replace "print" with "echo" then):

Code:

#! /bin/ksh

function maskpart
{
mask="${1%????}"                # extract everything save for the last 4 digits
mask="${mask//?/x}"             # and replace all characters with x's

print - "${mask}${1#${1%????}}" # print the masked part and the last 4 digits

return 0
}

# here are examples of how to use the function:
maskpart "123456-7890"
maskpart "blafoo1234"

myvar="$(maskpart "123456-7890")" ; print - $myvar

while read BAN ; do
     printf "$BAN \t==> " ; maskpart "$BAN"
done < /file/with/bank-account-numbers
exit 0

The function does not cover for bank-account-numbers being 4 digits or shorter (or otherwise malformed). If this could be the case you will have to provide extra logic.

I hope this helps.

bakunin

These 2 Users Gave Thanks to bakunin For This Post:

bakunin

View Public Profile for bakunin

Find all posts by bakunin

9 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

restrain the number of digits of a PID

How is it possible under UNIX to restrain the number of digits of the PID number? For instance, we have a product that generates a PID of 7 digits, and we would like to have only 6 digits maximum instead for the PID. Thank you for your help.

2. Shell Programming and Scripting

Count number of digits in a word

Hi all Can anybody suggest me, how to get the count of digits in a word I tried WORD=abcd1234 echo $WORD | grep -oE ] | wc -l 4 It works in bash command line, but not in scripts :mad:

3. Emergency UNIX and Linux Support

Masking of number

BAT:0310:2009-08-0:Y4 :H:D:00003721:03103721.IFH:00138770:05767:00000000001279' EXR:CLP:912.570000' STA:A:9071559:2009-08-10::Wer::Mrs' DEF::531.97:531.97:310221661617::+ABC:BAL:1:N::::5:40.00:0.00:2009-08-10:CN:1111111111109962::3:N:missc :N:PH:00010833:...

4. Shell Programming and Scripting

number of digits after decimal

Hi All, I have a file of decimal numbers, cat file1.txt 1.1382666907 1.2603107334 1.6118799297 24.4995857056 494.7632588468 560.7633734425 ..... I want to see the output as only 7 digits after decimal

5. Shell Programming and Scripting

summing the digits of a binary nuMBER

please help me write a perl program to find the difference of 1 and zeros of a 6 digit binary number. eg If input is 111100 expected output +2 if input is 000011 expected output -2 input is 000111 expected output 0

6. Shell Programming and Scripting

extracting Number variable and the following digits.

HI all, I have output of something like this: crab: ExitCodes Summary >>>>>>>>> 12 Jobs with Wrapper Exit Code : 50117 List of jobs: 1-12 See https:///twiki/something/ for Exit Code meaning crab: ExitCodes Summary >>>>>>>>> 5 Jobs with Wrapper Exit Code : 8001 List of...

7. Shell Programming and Scripting

awk changes to cut number of digits

HCPM1ONDB00014800011800000589009211201 L201307022013070228AUD 00000000031. 000965105800000000000000000000000 MOBITV KEYA ...

8. Shell Programming and Scripting

Find number of digits in a word

HI, Can you tell me how to find the number of digits in a word. $cat data.txt +123456ad 87645768 Output should be 6 8

9. Post Here to Contact Site Administrators and Moderators

Verify from one account number to another account number

Hi, Can anyone suggest me for the below steps. Here the index files is nothing but a text file and In index file there are n number of pdf files. Step 0 check out if this is for A(index file) or B(index file) 1. Read the first line of the original index file 2. Read the 9th character...

LEARN ABOUT DEBIAN

algorithm::checkdigits::m97_002

CheckDigits::M97_002(3pm)				User Contributed Perl Documentation				 CheckDigits::M97_002(3pm)

NAME

       CheckDigits::M97_002 - compute check digits for International Bank Account Number (IBAN)

SYNOPSIS

	 use Algorithm::CheckDigits;

	 $iban = CheckDigits('iban');

	 if ($iban->is_valid('DE88 2008 0000 09703 7570 0')) {
	       # do something
	 }

	 $cn = $iban->complete('DE00 2008 0000 09703 7570 0');
	 # $cn = 'DE88 2008 0000 09703 7570 0'

	 $cd = $iban->checkdigit('DE88 2008 0000 09703 7570 0');
	 # $cd = '88'

	 $bn = $iban->basenumber('DE88 2008 0000 09703 7570 0');
	 # $bn = 'DE00 2008 0000 09703 7570 0'

DESCRIPTION

   ALGORITHM
       0   The IBAN number must be prepared. The first two letters and the checksum will be moved to the right end. The letters are substituted
	   according to the substitute table and the checksum is set to '00'.

       1   The whole number is taken modulo 97.

       2   The checksum is difference between 98 and the sum of step 2.

       3   If the checksum is smaller then 10, a leading zero will be prepended.

   METHODS
       is_valid($number)
	   Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
	   above.

	   Returns false otherwise,

       complete($number)
	   The check digit for $number is computed and concatenated to the end of $number.

	   Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.

       basenumber($number)
	   Returns the basenumber of $number if $number has a valid check digit.

	   Return '' otherwise.

       checkdigit($number)
	   Returns the checkdigits of $number if $number has a valid check digit.

	   Return '' otherwise.

   EXPORT
       None by default.

AUTHOR

       Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>

THANKS

       Detlef Pilzecker pointed out to me that there may be more letters as the first two in an IBAN number. He also made me aware of a faster
       method to compute the check number than using Math::BigInt.

SEE ALSO

       perl, CheckDigits, www.pruefziffernberechnung.de, www.sic.ch/en/tkicch_home/tkicch_standardization/
       tkicch_financialinstitutions_ibanipi.htm.

perl v5.10.0							    2008-11-30						 CheckDigits::M97_002(3pm)