Arniec
Wed Jan 23 12:42:07 CST 2008
I thank you all for your help. I actually broke down and spent an incident
with MS and as I like to find a pot of gold at the end of a rainbow when I
search these posts, the following is the solution we arrived at.
Option Explicit On
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Public Class Form1
'variable to store the path of the connection string
Dim mStrConStringPath As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'set the path according to the setup of your applications or as
required
mStrConStringPath = "d:\ConString.xml"
'save the connection string
SaveConnectionSting("Data
Source=testServer;Database=testDb;uid=;pwd=1;")
'retrieve the connection string
MsgBox(GetConnectionSting)
End Sub
Private Sub SaveConnectionSting(ByVal strConString As String)
'Call this method to Save the Connection String
If System.IO.File.Exists(mStrConStringPath) = False Then
Dim xmlDoc As New System.Xml.XmlDocument
Dim xNode As System.Xml.XmlNode
xNode = xmlDoc.CreateNode(System.Xml.XmlNodeType.Element,
"ConnectionString", "")
'key is hardcoded.
'but in actual application please have the user supply the key
in form of the password or by other means
xNode.InnerText = Encrypt(strConString,
"23894239rsdjkfnasidufh2384712341234")
xmlDoc.AppendChild(xNode)
xmlDoc.Save(mStrConStringPath)
Else
Dim xmlDoc As New System.Xml.XmlDocument
Dim xNode As System.Xml.XmlNode
xmlDoc.Load(mStrConStringPath)
xNode = xmlDoc.SelectSingleNode("ConnectionString")
'key is hardcoded.
'but in actual application please have the user supply the key
in form of the password or by other means
xNode.InnerText = Encrypt(strConString,
"23894239rsdjkfnasidufh2384712341234")
xmlDoc.Save(mStrConStringPath)
End If
End Sub
Private Function GetConnectionSting() As String
'Call This method to Get the Connection String
Dim xmlDoc As New System.Xml.XmlDocument
xmlDoc.Load(mStrConStringPath)
Dim xNode As System.Xml.XmlNode
xNode = xmlDoc.SelectSingleNode("ConnectionString")
'key is hardcoded.
'but in actual application please have the user supply the key in
form of the password or by other means
Return Decrypt(xNode.InnerText, "23894239rsdjkfnasidufh2384712341234")
End Function
Private Function Encrypt(ByVal strText As String, ByVal strKey As
String) As String
'encrypts a piece of text
Dim TripleDes As New TripleDESCryptoServiceProvider()
Dim MD5Crypto As New MD5CryptoServiceProvider()
TripleDes.Key =
MD5Crypto.ComputeHash(ASCIIEncoding.ASCII.GetBytes(strKey))
TripleDes.Mode = CipherMode.ECB
Dim TripleDesEncrypt As ICryptoTransform = TripleDes.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim bytBuffer() As Byte = ASCIIEncoding.ASCII.GetBytes(strText)
Return
Convert.ToBase64String(TripleDesEncrypt.TransformFinalBlock(bytBuffer, 0,
bytBuffer.Length))
End Function
Private Function Decrypt(ByVal strText As String, ByVal strKey As
String) As String
'decrypts a piece of text
Dim TripleDes As New TripleDESCryptoServiceProvider()
Dim MD5Crypto As New MD5CryptoServiceProvider()
TripleDes.Key =
MD5Crypto.ComputeHash(ASCIIEncoding.ASCII.GetBytes(strKey))
TripleDes.Mode = CipherMode.ECB
Dim TripleDesDecryptor As ICryptoTransform =
TripleDes.CreateDecryptor()
Dim bytBuffer() As Byte = Convert.FromBase64String(strText)
Return
ASCIIEncoding.ASCII.GetString(TripleDesDecryptor.TransformFinalBlock(bytBuffer, 0, bytBuffer.Length))
End Function
End Class
--
Arnie
"Scott Roberts" wrote:
> Same way as web.config. In fact, the ConfigurationManager will check *both*
> places.
>
> string cstr =
> ConfigurationManager.ConnectionStrings["MyConnectionString"].ConnectionString;
>
>
>
> "Arniec" <Arniec@discussions.microsoft.com> wrote in message
> news:0BE2FCBF-E898-4FDF-AD4D-83C911779E68@microsoft.com...
> >I agree with you, but I cannot figure out how to read from the
> >machine.config
> > file.
> > Any input?
> > --
> > Arnie
> >
> >
> > "Scott Roberts" wrote:
> >
> >> Call me crazy, but "machine.config" sounds like a pretty good place for
> >> machine-level configuration settings.
> >>
> >>
> >> "Arniec" <Arniec@discussions.microsoft.com> wrote in message
> >> news:BBADF8DA-828E-4CCF-B4E9-85EC4D4193AF@microsoft.com...
> >> >I have several applications running on a workstation all pointing to the
> >> >same
> >> > sql server. I would like a way to save the connectionstring once on
> >> > the
> >> > machine and have all my applications be able to read it. In the event
> >> > of a
> >> > problem where we have to change servers, I would like to be able to
> >> > update
> >> > the connection string in this one place and proceed.
> >> >
> >> > I have examined shared assemblies, and I have thought of storing the
> >> > connection string in machine.config. I have been to successful with
> >> > either
> >> > of these methods.
> >> >
> >> > In VB6, is used a dll and it worked fine.
> >> >
> >> > What is the preferred way of doing this.
> >> > --
> >> > Thanks
> >> > Arnie
> >>
> >>
>
>