'---------------------------------------------------------------------------------------
' Procedure : obfuscatedFunctionName
' Purpose   : Returns the Connection String to a SQL Azure Database
' Author    : Patrick Wood - Gaining Access Technologies http://gainingaccess.net/
'           : The obfuscatedFunctionName Procedure is named to remind you to change
'           : the name of the procedure to mislead hackers.
'           : PartColorNotes, strSpindleName, GetProductSize are some examples.
'           : You can use your imagination to create more Procedure Names.
' Argument  : strIn is what I call a "Password" Argument. It makes it extremely difficult
'           : for a hacker to run your Procedure.
' Notes     : Remember to enter your Connection String info in the My_________ places
'           : in the Procedure.
'           : You can also use this procedure for linked tables and pass-through queries.
' Example   : qdf.Connect = obfuscatedFunctionName("Wb_gR%/PD\-k&yZq~j>l")
'---------------------------------------------------------------------------------------
'
Public Function obfuscatedFunctionName(strIn As String) As String

    If strIn = "Wb_gR%/PD\-k&yZq~j>l" Then
        obfuscatedFunctionName = "ODBC;" _
            & "DRIVER={SQL Server Native Client 11.0};" _
            & "SERVER=tcp:MyServerName.database.windows.net,1433;" _
            & "DATABASE=MySQLAzureDatabaseName;" _
            & "UID=MyUserName@MyServerName;" _
            & "PWD=MyPassword;" _
            & "Encrypt=yes;"
    Else
        obfuscatedFunctionName = vbNullString
    End If

End Function