Comments on: Accessing the M2M Database Using VBA. http://www.made2mentor.com/2008/12/accessing-the-m2m-database-using-vba/ Data Warehousing, Microsoft Business Intelligence, and Other Cool Stuff Thu, 09 Feb 2012 07:33:56 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Ray Collazo http://www.made2mentor.com/2008/12/accessing-the-m2m-database-using-vba/comment-page-1/#comment-661 Ray Collazo Tue, 13 Jan 2009 00:51:02 +0000 http://www.made2mentor.com/?p=1124#comment-661 You were asking about how to decrypt the initials, username, and password from utuser. By jo, You found it!! Heres the select I constructed using the Fdecrypt function you showed. select FDecrypt(ALLTRIM(fcinitials), oSession.cEncryptKey) as initials, FDecrypt(ALLTRIM(fcuname), oSession.cEncryptKey) as username, FDecrypt(ALLTRIM(fcupass), oSession.cEncryptKey) as passwd from utuser into cursor tempcursor Have fun! You were asking about how to decrypt the initials, username, and password from utuser. By jo, You found it!!

Heres the select I constructed using the Fdecrypt function you showed.

select FDecrypt(ALLTRIM(fcinitials), oSession.cEncryptKey) as initials, FDecrypt(ALLTRIM(fcuname), oSession.cEncryptKey) as username, FDecrypt(ALLTRIM(fcupass), oSession.cEncryptKey) as passwd from utuser into cursor tempcursor

Have fun!

]]> By: Scott http://www.made2mentor.com/2008/12/accessing-the-m2m-database-using-vba/comment-page-1/#comment-505 Scott Mon, 29 Dec 2008 15:41:34 +0000 http://www.made2mentor.com/?p=1124#comment-505 David geve me the above code a while back and I have modified it to: CS = "DRIVER={SQL SERVER}" & _ ";DSN=''" & _ ";SERVER=" & Trim(Eval("ocompany.fcsqlserver")) & _ ";UID=" & Eval("FDecrypt(ALLTRIM(ocompany.fcsqluser), oSession.cEncryptKey)") & _ ";PWD=" & Eval("FDecrypt(ALLTRIM(ocompany.fcsqlpass), oSession.cEncryptKey)") & _ ";DATABASE=" & Trim(Eval("ocompany.fcsqldb")) & _ ";Connection Timeout=120" The formatting is a little off due to the length limit on the site but you should get the idea. This method requires less code and is more effiecient because it does not use nearly as many variables. I think that it may also be a little easier to understand and read although finding errors with it might be harder. That however should not be an issue since the code is simply cut and paste and should rarely if ever have to be altered. David geve me the above code a while back and I have modified it to:

CS = “DRIVER={SQL SERVER}” & _
“;DSN=”” & _
“;SERVER=” & Trim(Eval(“ocompany.fcsqlserver”)) & _
“;UID=” & Eval(“FDecrypt(ALLTRIM(ocompany.fcsqluser), oSession.cEncryptKey)”) & _
“;PWD=” & Eval(“FDecrypt(ALLTRIM(ocompany.fcsqlpass), oSession.cEncryptKey)”) & _
“;DATABASE=” & Trim(Eval(“ocompany.fcsqldb”)) & _
“;Connection Timeout=120″

The formatting is a little off due to the length limit on the site but you should get the idea. This method requires less code and is more effiecient because it does not use nearly as many variables. I think that it may also be a little easier to understand and read although finding errors with it might be harder. That however should not be an issue since the code is simply cut and paste and should rarely if ever have to be altered.

]]>