Log Unredacted Credit Card Numbers

In This Topic

You can enable the CreditCardRecognized event to fire when unredacted Primary Account Number (PAN) data (also known as credit card numbers) are recognized and handle this event to create logs or perform other actions required for compliance.

When the event is enabled, it is fired when unredacted PAN data is copied from the terminal to the clipboard or to a productivity tool. For IBM systems, the event is also fired when unredacted PAN data is displayed on the screen.

Note: This event is fired only when a PAN is copied or displayed in its entirety ("in the clear"). It is not fired when only redacted PANs are copied or displayed.

To log when a credit card number is copied or displayed

In the InfoConnect Workspace Settings window, click Set Up Information Privacy.
Under Primary Account Number (PAN) Redaction Rules, make sure Enable Redaction is unselected. (For IBM terminals, if you leave Redact display data (IBM terminals only) unselected, the event fires when PAN data is typed on the screen.)
Under PCI DSS Rules, select Enable API events when PANs are viewed by the user.
Open the InfoConnect session you want to log and then, from the Tools menu, open the Visual Basic editor.

In the Visual Basic editor Project Explorer window, under InfoConnect objects, open the ThisIbmTerminal (for IBM projects) or ThisTerminal for (Open Systems projects) code window and copy the following code into it.

This article contains tabbed content that is specific to each terminal type. Be sure the tab for your Which Terminal Type are you Using? is selected.

IBM
Open Systems

Log data using the CreditCardRecognized event	Copy Code
Rem This sample sends information about credit card access to a log file. Private Sub IbmTerminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, _ ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long) Dim accessLog As String Dim path As String Dim fnum As Integer accessLog = "Account number: " + AccountNumber + " User: " + User + _ " Machine name: " + MachineName + "," + " Time: " + DateTime path = "C:\Users\Public\Documents\Micro Focus\InfoConnect\" & "log.txt" fnum = FreeFile() Open path For Append As fnum Print #fnum, accessLog Close #fnum End Sub

Log data using the CreditCardRecognized event

Copy Code

Rem This sample sends information about credit card access to a log file.
Private Sub IbmTerminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, _
ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long)
    Dim accessLog As String
    Dim path As String
    Dim fnum As Integer
    accessLog = "Account number: " + AccountNumber + " User: " + User + _
    " Machine name: " + MachineName + "," + " Time: " + DateTime
    path = "C:\Users\Public\Documents\Micro Focus\InfoConnect\" & "log.txt"
    fnum = FreeFile()
    Open path For Append As fnum
    Print #fnum, accessLog
    Close #fnum
End Sub

Log data using the CreditCardRecognized event	Copy Code
Rem This sample sends information about credit card access to a log file. Private Sub Terminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, _ ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long) Dim accessLog As String Dim path As String Dim fnum As Integer accessLog = "Account number: " + AccountNumber + " User: " + User + _ " Machine name: " + MachineName + "," + " Time: " + DateTime path = "C:\Users\Public\Documents\Micro Focus\InfoConnect\" & "log.txt" fnum = FreeFile() Open path For Append As fnum Print #fnum, accessLog Close #fnum End Sub

Log data using the CreditCardRecognized event

Copy Code

Rem This sample sends information about credit card access to a log file.
Private Sub Terminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, _
ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long)
 
    Dim accessLog As String
    Dim path As String
    Dim fnum As Integer
 
    accessLog = "Account number: " + AccountNumber + " User: " + User + _
    " Machine name: " + MachineName + "," + " Time: " + DateTime
 
    path = "C:\Users\Public\Documents\Micro Focus\InfoConnect\" & "log.txt"
    fnum = FreeFile()
    Open path For Append As fnum
    Print #fnum, accessLog
    Close #fnum
 
End Sub

Back in InfoConnect, save the session and then type in a credit card number.
Select the credit card number and then click Copy on the Session ribbon.
Information from the CreditCardRecognized event is saved in the log file.

Concepts

Using InfoConnect Events