Microsoft Word 2010 VBA: Using regex to find and replace -


i'm trying allow our staff mask middle 8 digits of credit card data in old documents. figure macro using regex find , replace fastest way them. masking pci dss requirement, , there may hundreds or thousands of documents mask data in.

i've had luck below code, identify , modify strings beyond 16 characters standard credit card , i'm not sure how stop false-positives. solved nhahtdh

the following identifies visa, mastercard , amex cards, above mentioned issue. improved adding regex more card types, , adding common characters used break long number.

the below code works, improved. can improve by:

  • include luhn algorithm checking
  • include additional common number separators (what else commonly used?)
  • include other popular card brands
  • stop find , replace false-positives (e.g. 44445555666677778 should excluded). solved nhahtdh
    sub pci_mask_card_numbers() ' ' macro search document numbers visa, mastercard , amex credit card pans , mask them xs '    dim counter long    dim preexisting long  ' let user know what's happen     dim msg, style, title, response, mystring     msg = "the macro attempt mask credit card numbers can identify.  e.g. 4444555566667777 become 4444xxxxxxxx7777"     style = vbinformation     title = "pci dss - credit card masking"     response = msgbox(msg, style, title)  ' count how many things masked pans final tally correct     selection.homekey unit:=wdstory     activedocument.content.find         while .execute(findtext:="xxxx", forward:=true, format:=true, _            matchwholeword:=true) = true            preexisting = preexisting + 1         loop     end     preexisting = preexisting / 2   ' because masks break counted twice     selection.homekey unit:=wdstory     activedocument.content.find         while .execute(findtext:="xxxxxxxx", forward:=true, format:=true, _            matchwholeword:=false) = true            preexisting = preexisting + 1         loop     end  ' ########  start masking pans  ###################################################  ' mastercard - 16 digits straight     selection.homekey unit:=wdstory     selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = "<([4][0-9]{3})([0-9]{4})([0-9]{4})([0-9]{4})>"         .replacement.text = "\1xxxxxxxx\4"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' visa - 16 digits straight     selection.find         .text = "<([5][0-9]{3})([0-9]{4})([0-9]{4})([0-9]{4})>"         .replacement.text = "\1xxxxxxxx\4"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' amex - 15 digits straight     selection.find         .text = "<([3][0-9]{2})([0-9]{4})([0-9]{4})([0-9]{4})>"         .replacement.text = "\1xxxxxxxx\4"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' visa , mastercard - pan broken :     selection.find         .text = "<([4][0-9]{3})(:[0-9]{4}:[0-9]{4}:)([0-9]{4})>"         .replacement.text = "\1:xxxx:xxxx:\3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall     selection.find         .text = "<([5][0-9]{3})(:[0-9]{4}:[0-9]{4}:)([0-9]{4})>"         .replacement.text = "\1:xxxx:xxxx:\3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' visa , mastercard - pan broken .     selection.find         .text = "<([5][0-9]{3})(.[0-9]{4}.[0-9]{4}.)([0-9]{4})>"         .replacement.text = "\1.xxxx.xxxx.\3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall     selection.find         .text = "<([4][0-9]{3})(.[0-9]{4}.[0-9]{4}.)([0-9]{4})>"         .replacement.text = "\1.xxxx.xxxx.\3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' visa , mastercard - pan broken spaces     selection.find         .text = "<([4][0-9]{3})( [0-9]{4} [0-9]{4} )([0-9]{4})>"         .replacement.text = "\1 xxxx xxxx \3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall     selection.find         .text = "<([5][0-9]{3})( [0-9]{4} [0-9]{4} )([0-9]{4})>"         .replacement.text = "\1 xxxx xxxx \3"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall  ' visa , mastercard - pan broken -     selection.find         .text = "<([5][0-9]{3})(-[0-9]{4}-[0-9]{4}-)([0-9]{4})>"         .replacement.text = "\1-xxxx-xxxx-\3"         .forward = true         .wrap = wdfindask         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall     selection.find         .text = "<([4][0-9]{3})(-[0-9]{4}-[0-9]{4}-)([0-9]{4})>"         .replacement.text = "\1-xxxx-xxxx-\3"         .forward = true         .wrap = wdfindask         .format = false         .matchcase = false         .matchwholeword = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall     selection.homekey unit:=wdstory  ' ########  done masking pans  ###################################################  ' count how many changes done     selection.homekey unit:=wdstory     activedocument.content.find         while .execute(findtext:="xxxx", forward:=true, format:=true, _            matchwholeword:=true) = true            counter = counter + 1         loop     end     counter = counter / 2   ' because masks break counted twice     selection.homekey unit:=wdstory     activedocument.content.find         while .execute(findtext:="xxxxxxxx", forward:=true, format:=true, _            matchwholeword:=false) = true            counter = counter + 1         loop     end     counter = counter – preexisting   ' new masks less previous mask-like data  ' let user know job done     msg = "the macro has masked " & str$(counter) & " credit cards. check results , save file if changes correct. if there issues masking changes, not save file , consult team."     style = vbinformation     title = "pci dss - credit card masking." & str$(counter) & " cards masked"     response = msgbox(msg, style, title) end sub

since seems using word wildcard syntax, can use <, asserts beginning of word, , >, asserts end of word prevent pattern matching when text preceded or succeeded letters or numbers (which how seems work simple testing).

using

"([4][0-9]{3})(-[0-9]{4}-[0-9]{4}-)([0-9]{4})"

as example, modify into

"<([4][0-9]{3})(-[0-9]{4}-[0-9]{4}-)([0-9]{4})>"

Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more