xml encryption using VB

[deaddog4201]

Hey all. I'm working on an xml file that pulls some data from another xml document "a password, usename and account info" wich is stored on my local drive for easy access so i dont have to enter the info each time. As is now the data is entered into the xml file manually then saved and when the program runs it reads the data from the xml file i manually entered my data into. This all works fine except the data is left in plain text and can be read by anyone with access to my pc. The solutions seems simple to encrypt the data some how then have it decrypted when the program runs. Ive read alot! So much my head hurts! Ive found several code examples that sound to do what i want but im a little confused how to implement any of the methods ive found or where to start with it.
The code im working with is below. All i need is the data.text in the code below it is <include>LoginData.txt.xml</include> file to be encrypted and saved as encrypted. Creating another page wich asks for the data to be entered then saved through the interface instead of manually can easily be done which is where the encrypting part will most likely take place. Then within the code below decrypt the data so the code below can continue working like normal. Any help, suggestions, ideas anything will help. Thanks in advance.

<Page IgnoreTab="false" Location="310,210" Name="WindowPage" PackLocation="center,center" PackLocationProp="-202/0001,-174/0001" ScrollExtent="524,374" Size="524,374">
<Scrollbar ArrowPressSound="sounds/button" Control="CharacterSelect" HideIfUnnecessary="true" Location="473,75" MaximumSize="22,16384" MinimumSize="22,60" Name="Scroll" PackLocation="right,top" PackLocationProp="-051/0001,0075/0001" PackSize="f,a" PackSizeProp="0002/0003,0148/0001" ScrollExtent="22,226" Size="22,226" Style="/CommonElements.ScrollbarVertical.data.style"/>
<Listbox BackgroundColor="#FFFFFF" DataSource="CharacterData" LocalTooltip="Click to select, double-click to login" Location="260,77" Margin="10,10,10,10" Name="CharacterSelect" OnDoubleClick="Parent.AutoplayChar.Text=SelectedItem.Name
Parent.AutoplayWorld.Text=SelectedItem.Server
Parent.Username.Text=SelectedItem.Username
Parent.Password.Text=SelectedItem.Password
Parent.ConnectButton.Press=true" OnSelect="Parent.AutoplayChar.Text=SelectedItem.Name
Parent.AutoplayWorld.Text=SelectedItem.Server
Parent.Username.Text=SelectedItem.Username
Parent.Password.Text=SelectedItem.Password" PackSize="a,a" PackSizeProp="0290/0001,0153/0001" RowTemplate="CharacterSelect_template" ScrollExtent="320,221" Size="234,221" Style="/CommonElements.Listbox.data.listbox_style" Tooltip="Click to select, double-click to login"/>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText="Select Character below or enter login data manually on the left:" Location="260,38" Name="SelectChar" ScrollExtent="222,33" Size="222,33" TextAlignmentVertical="Center" TextColor="#F2EFE1">Select Character below or enter login data manually on the left:</Text>
<Button LocalText="Clear All" Location="41,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearAllBtn" OnPress="Parent.Username.Text=&apos;&apos; Parent.Password.Text=&apos;&apos; Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="69,26" Size="69,26" Style="/CommonElements.SmallPushButton.data.style">Clear All</Button>
<Button LocalText="Clear Character/Server" LocalTooltip="Clears character and server choice so you can login to character select/create screen" Location="110,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearCSBtn" OnPress="Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="126,26" Size="126,26" Style="/CommonElements.SmallPushButton.data.style" Tooltip="Clears character and server choice so you can login to character select/create screen">Clear Character/Server</Button>
<include>LoginData.txt.xml</include>
<Template Name="CharacterSelect_template" Size="320,20">RowTemplate.xml</Template>
<Text Font="/TextStyles.VeryLarge.VeryLargeStyle" LocalText=":3129920a94361beb:Login" Location="41,53" Name="Login" ScrollExtent="192,48" Size="192,30" TextAlignment="Center" TextAlignmentVertical="Center" TextColor="#F2EFE1">:3129920a94361beb:Login</Text>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText=":3129920afed79bde:Username" Location="19,95" Name="UsernameLabel" ScrollExtent="80,30" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920afed79bde:Username</Text>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,91" MaximumSize="16384,30" MinimumSize="30,30" Name="Username" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style"></Textbox>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText=":3129920a334bdb7c:Password" Location="19,128" Name="PasswordLabel" ScrollExtent="80,45" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a334bdb7c:Password</Text>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,123" MaximumSize="16384,30" MinimumSize="30,30" Name="Password" Password="true" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style"></Textbox>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText=":3129920aee74cd68:Character" Location="19,159" Name="AutoplayCharLabel" OnHide="Visible=True" ScrollExtent="80,45" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920aee74cd68:Character</Text>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,155" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayChar" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style"></Textbox>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText=":3129920a0449c1b8:Server" Location="19,194" Name="AutoplayWorldLabel" OnHide="Visible=True" ScrollExtent="80,30" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a0449c1b8:Server</Text>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,189" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayWorld" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style"></Textbox>
<Button IsDefaultButton="true" LocalText=":3129920a94361beb_1:Login" Location="36,267" MaximumSize="16384,38" MinimumSize="38,38" Name="ConnectButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920a94361beb_1:Login</Button>
<Button LocalText=":3129920acbc4d4cf:Exit" Location="138,267" MaximumSize="16384,38" MinimumSize="38,38" Name="QuitButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920acbc4d4cf:Exit</Button>
<Page BackgroundOpacity="1.000" Location="26,36" Name="RoundedGrouper" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="224,226" Size="224,226"/>
<Page BackgroundOpacity="1.000" Location="250,69" Name="RoundedGrouper2" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="252,237" Size="252,237"/>
<Page BackgroundOpacity="1.000" Location="17,17" Name="InteriorGrouper" RStyleDefault="/WindowElements.InteriorGrouper.data.default_bkg.rect" ScrollExtent="492,303" Size="492,303">
<Page BackgroundOpacity="1.000" Name="Frame" PackSize="a,a" PackSizeProp="0000/0001,0000/0001" RStyleDefault="/WindowElements.InteriorGrouper.data.frame.rect" ScrollExtent="492,303" Size="492,303"/>
</Page>
 

[Dököll]

Hello, deaddog4201!

What type of GUI is used when the XML file is fired? In other words, what is the login form built from?

Looks like you should be able to change data from the XML file using the GUI, leaving the XML file unexposed.

Hopefully I understand what you are trying to achieve...

[deaddog4201]

not sure what you mean by what type of GUI.... but the process is this the main exe is fired which then reads a ini file telling what ui to use then the ui xml files are loaded the first being the xml file i posted which is loginscene.xml. I made a windows form based program which encrypts and decrypts the data i need and then fires the main .exe and all works however this still leaves the data in the xml file exposed till the program I made is closed which will then re encrypt the needed data on closeing. The encryption code is below. The main thing i need to do here now i guess is some how pass the unencrypted data to the loginscene.xml form without actually writing it the text file or to have the loginscene.xml just decrypt the element on the fly and hold it in memory then dump it on succesful login. Im not sure how i would implement the decrypt part of the code into the actual loginscene.xml file in order for it to decrypt on the fly.

Private Sub Encrypt(ByVal args() As String)
 
        Dim xmldoc As New XmlDocument()
        Try
            xmldoc.Load("LoginControl.xml")
        Catch ex As Exception
            MessageBox.Show("Error Loading file" & ex.Message & vbCrLf & ex.StackTrace)
 
        End Try
 
        ' Create a new TripleDES object, TripleDes will be the algorithm used to encrypt the XML data 
        Dim sharedkey As New TripleDESCryptoServiceProvider()
 
        ''Save this key to disk to enable the recipient to decrypt
        Dim writer2 As IO.StreamWriter = New IO.StreamWriter("SharedTDESKey.txt")
        Dim str As String = Convert.ToBase64String(sharedkey.Key)
        writer2.WriteLine(str)
        writer2.Close()
 
        'Create a new EncryptedXML object
        Dim exml As EncryptedXml = New EncryptedXml(xmldoc)
 
        'Select the PASSWORD element to be encrypted
        Dim PASSWORDElem As XmlElement = CType(xmldoc.SelectSingleNode("Accounts/Account/PASSWORD"), XmlElement)
 
        'Encrypt the PASSWORD element data using the TripleDES alogrithm, save the results into a byte array
 
        Dim encryptedPASSWORD As Byte() = exml.EncryptData(PASSWORDElem, sharedkey, False)
 
        ' Create an EncryptedData object and populate it.
        Dim ed As New EncryptedData()
 
        ' Specify the namespace URI for XML encryption elements.
        ed.Type = EncryptedXml.XmlEncElementUrl
 
        ' Specify the namespace URI for the TrippleDES algorithm.
        ed.EncryptionMethod = New EncryptionMethod(EncryptedXml.XmlEncTripleDESUrl)
 
 
        ' Create a CipherData element.
        ed.CipherData = New CipherData()
 
        ' Set the CipherData element to the value of the encrypted XML element.
        ed.CipherData.CipherValue = encryptedPASSWORD
 
 
        ' Replace the plaintext XML elemnt with an EncryptedData element.
        EncryptedXml.ReplaceElement(PASSWORDElem, ed, False)
 
        'Write the encrypted data to disk
        Try
            xmldoc.Save("LoginControl.xml")
 
        Catch ex As Exception
            MessageBox.Show("Error Saving file" & ex.Message & vbCrLf & ex.StackTrace)
        End Try
 
    End Sub
 

Private Sub Decrypt(ByVal args() As String)
 
        Dim sharedkey As New TripleDESCryptoServiceProvider()
 
        Dim reader As IO.StreamReader = New IO.StreamReader("sharedTDESkey.txt")
        Dim data() As Byte = Convert.FromBase64String(reader.ReadToEnd)
        'Assign the retrieved shared key value to the TripleDESCryptoServiceProvider object
        sharedkey.Key = data
 
        Dim encryptedDoc As New XmlDocument()
        encryptedDoc.Load("LoginControl.xml")
 
        ' XmlElement object.
        Dim encryptedElement As XmlElement = CType(encryptedDoc.GetElementsByTagName("EncryptedData")(0), XmlElement)
 
        ' Create an EncryptedData object and populate it.
        Dim ed2 As New EncryptedData()
        ed2.LoadXml(encryptedElement)
 
        ' Create a new EncryptedXml object.
        Dim exml2 As New EncryptedXml()
 
        ' Decrypt the element using the shared key
        Dim decryptedPASSWORD As Byte() = exml2.DecryptData(ed2, sharedkey)
 
        ' Replace the encryptedData element with the plaintext XML element.
        exml2.ReplaceData(encryptedElement, decryptedPASSWORD)
        encryptedDoc.Save("LoginControl.xml")
 
    End Sub
 

[Dököll]

You answered the question quite well, I did want to know whether you are using a graphical user interface such as VB to read the xml file.

Please give me some time to absorb this and will let you know.

Thanks for your reply!

[Dököll]

You answered the question quite well, I did want to know whether you are using a graphical user interface such as VB to read the xml file.

Please give me some time to absorb this and will let you know.

Thanks for your reply!

I think you will find a way to encrypt using VB through this forum. I'll have a look now and then for an option meanwhile.

In a bit!

[deaddog4201]

Ok to update I have finished the vb end of my app it loads lets the user edit and save the xml data file and also encrypts the password element of the file. What i need from here is to have the code below changed to handle my xml data file instead of the original one and also to handle the decryption of the password element. And also to have the data automaticly loaded into the textboxes which would eliminate the need for the window on the right side described below in the original code

The code below will load when the game .exe is started. Loading a window with a split screen. On the left are typical login fields, Username,Password,Server,Character. On the right is the loaded data from the include file in the code EQ2LoginData.xml when data in the right side is clicked on it will populate the approppiate textbox on the left side.
Original code looks like this

LoginScene.xml

<Page IgnoreTab="false" Location="310,210" Name="WindowPage" PackLocation="center,center" PackLocationProp="-202/0001,-174/0001" ScrollExtent="524,374" Size="524,374">
<Scrollbar ArrowPressSound="sounds/button" Control="CharacterSelect" HideIfUnnecessary="true" Location="473,75" MaximumSize="22,16384" MinimumSize="22,60" Name="Scroll" PackLocation="right,top" PackLocationProp="-051/0001,0075/0001" PackSize="f,a" PackSizeProp="0002/0003,0148/0001" ScrollExtent="22,226" Size="22,226" Style="/CommonElements.ScrollbarVertical.data.style"/>
<Listbox BackgroundColor="#FFFFFF" DataSource="LoginControl" LocalTooltip="Click to select, double-click to login" Location="260,77" Margin="10,10,10,10" Name="CharacterSelect" OnDblCLick="Parent.AutoplayChar.Text=SelectedItem.Character
Parent.AutoplayWorld.Text=SelectedItem.Server
Parent.Username.Text=SelectedItem.Username
Parent.Password.Text=SelectedItem.Password
Parent.ConnectButton.Press=true" OnSelect="Parent.AutoplayChar.Text=SelectedItem.Character
Parent.AutoplayWorld.Text=SelectedItem.Server
Parent.Username.Text=SelectedItem.Username
Parent.Password.Text=SelectedItem.Password" PackSize="a,a" PackSizeProp="0290/0001,0153/0001" RowTemplate="CharacterSelect_template" ScrollExtent="320,221" Size="234,221" Style="/CommonElements.Listbox.data.listbox_style" Tooltip="Click to select, double-click to login"/>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText="Select Character below or enter login data manually on the left:" Location="260,38" Name="SelectChar" ScrollExtent="222,33" Size="222,33" TextAlignmentVertical="Center" TextColor="#F2EFE1">Select Character below or enter login data manually on the left:</Text>
<Button LocalText="Clear All" Location="41,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearAllBtn" OnPress="Parent.Username.Text=&apos;&apos; Parent.Password.Text=&apos;&apos; Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="69,26" Size="69,26" Style="/CommonElements.SmallPushButton.data.style">Clear All</Button>
<Button LocalText="Clear Character/Server" LocalTooltip="Clears character and server choice so you can login to character select/create screen" Location="110,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearCSBtn" OnPress="Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="126,26" Size="126,26" Style="/CommonElements.SmallPushButton.data.style" Tooltip="Clears character and server choice so you can login to character select/create screen">Clear Character/Server</Button>
<include>EQ2LoginData.xml</include>
<Template Name="CharacterSelect_template" Size="320,20">EQ2LoginData_RowTemplate.xml</Template>
<Text Font="/TextStyles.VeryLarge.VeryLargeStyle" LocalText="Login" Location="41,53" Name="Login" ScrollExtent="192,30" Size="192,30" TextAlignment="Center" TextAlignmentVertical="Center" TextColor="#F2EFE1">:3129920a94361beb:Login</Text>
<Text1 Font="/TextStyles.Normal.NormalStyle" LocalText="Username" Location="19,95" Name="UsernameLabel" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920afed79bde:Username</Text1>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,91" MaximumSize="16384,30" MinimumSize="30,30" Name="Username" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text2 Font="/TextStyles.Normal.NormalStyle" LocalText="Password" Location="19,128" Name="PasswordLabel" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a334bdb7c:Password</Text2>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,123" MaximumSize="16384,30" MinimumSize="30,30" Name="Password" Password="true" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text3 Font="/TextStyles.Normal.NormalStyle" LocalText="Character" Location="19,159" Name="AutoplayCharLabel" OnHide="Visible=True" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920aee74cd68:Character</Text3>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,155" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayChar" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text4 Font="/TextStyles.Normal.NormalStyle" LocalText="Server" Location="19,194" Name="AutoplayWorldLabel" OnHide="Visible=True" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a0449c1b8:Server</Text4>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,189" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayWorld" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Button IsDefaultButton="true" LocalText="Login" Location="36,267" MaximumSize="16384,38" MinimumSize="38,38" Name="ConnectButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920a94361beb_1:Login</Button>
<Button LocalText="Exit" Location="138,267" MaximumSize="16384,38" MinimumSize="38,38" Name="QuitButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920acbc4d4cf:Exit</Button>
<Page BackgroundOpacity="1.000" Location="26,36" Name="RoundedGrouper" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="224,226" Size="224,226"/>
<Page BackgroundOpacity="1.000" Location="250,69" Name="RoundedGrouper2" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="252,237" Size="252,237"/>
<Page BackgroundOpacity="1.000" Location="17,17" Name="InteriorGrouper" RStyleDefault="/WindowElements.InteriorGrouper.data.default_bkg.rect" ScrollExtent="492,303" Size="492,303">
<Page BackgroundOpacity="1.000" Name="Frame" PackSize="a,a" PackSizeProp="0000/0001,0000/0001" RStyleDefault="/WindowElements.InteriorGrouper.data.frame.rect" ScrollExtent="492,303" Size="492,303"/>
</Page>
<Page BackgroundOpacity="1.000" Name="DialogFrame" RStyleDefault="/WindowElements.DialogFrame.data.frame.rect" ScrollExtent="524,337" Size="524,337"/>
</Page>
</Page>
 

The two include files this code refers to originally looked like this!
EQ2LoginData.xml

<?xml version="1.0" encoding="utf-8"?>
<DataSource Name="CharacterData">
<Data username="YOURUSERHERE" password="YOURPASSWORDHERE" Name="YOURCHARACTERHERE" server="YOURSERVERHERE" />
</DataSource>
 

EQ2LoginData_RowTemplate.xml

<?xml version="1.0" encoding="utf-8"?>
<Page Name="dropdown_template" ScrollExtent="315,24" Size="315,24" Visible="false">
<Text Font="/Fonts.FontArial14" Location="5,0" Margin="1,1,1,1" Name="TextLine" ScrollExtent="315,24" Size="315,24" TextColor="#FBF1D9">$Name$ on $server$ ($username$)</Text>
</Page>
 

The new encrypted file created from my app to replace "ProfitUI_LoginData.xml" looks like this.

EQ2LoginData.xml
"When Encrypted"

<?xml version="1.0"?>
<!DOCTYPE EQ2Accounts SYSTEM "EQ2LoginData.dtd>
<?xml-stylesheet type="text/xsl" href="EQ2LoginData.xsl"?>
<!-- *********** Accounts for EQ2 *********** -->
<EQ2Accounts>
  <EQ2Account EQ2AccountID="SAmeIdAsUserNAme">
    <Username>YOURUSERNAMEHERE</Username>
    <EncryptedData Type="http://www.w3.org/2001/04/xmlenc#Element" xmlns="http://www.w3.org/2001/04/xmlenc#">
      <EncryptionMethod Algorithm="http://www.w3.org/2001/04/xmlenc#tripledes-cbc" />
      <CipherData>
        <CipherValue>6McZUG6yyXCb/wpHmsWm03MoBlkNWfj3H0md4up72yLnpZhejNnotslhNdj9Uu3z8Q1RL0KIWadxNsY55mZusB/kPO4AOsMemXSH57KKlQ8</CipherValue>
      </CipherData>
    </EncryptedData>
    <Server>YOURSERVERHERE</Server>
    <Character>YOURCHARACTERHERE</Character>    
  </EQ2Account>
</EQ2Accounts>
 

"When Not Encrypted"

<?xml version="1.0"?>
<!DOCTYPE EQ2Accounts SYSTEM "EQ2LoginData.dtd>
<?xml-stylesheet type="text/xsl" href="EQ2LoginData.xsl"?>
<!-- *********** Accounts for EQ2 *********** -->
<EQ2Accounts>
  <EQ2Account EQ2AccountID="SAmeIdAsUserNAme">
    <Username>YOURUSERNAMEHERE</Username>
    <Password>YOURPASSWORDHERE</Password>
    <Server>YOURSERVERHERE</Server>
    <Character>YOURCHARACTERHERE</Character>    
  </EQ2Account>
</EQ2Accounts>
 

EQ2LoginData.dtd

<?xml version="1.0" encoding="UTF-16LE"?>
<!ELEMENT Username (#PCDATA)>
<!ELEMENT EncryptionMethod EMPTY>
<!ATTLIST EncryptionMethod Algorithm CDATA #REQUIRED>
<!ELEMENT CipherValue (#PCDATA)>
<!ELEMENT CipherData (CipherValue)>
<!ELEMENT EncryptedData (EncryptionMethod,CipherData)>
<!ATTLIST EncryptedData 
    Type CDATA #REQUIRED
    xmlns CDATA #REQUIRED>
<!ELEMENT Server (#PCDATA)>
<!ELEMENT Character (#PCDATA)>
<!ELEMENT EQ2Account (Username,EncryptedData,Server,Character)>
<!ATTLIST EQ2Account EQ2AccountID ID #REQUIRED>
<!ELEMENT EQ2Accounts (EQ2Account)+>
 

Not sure if the dtd file would be needed or useful at this point but its used in my apps end of handling the xml file so i included it here just in case! One problem with the dtd file is after decryption it breaks it! That doesnt effect my app because it doesnt handle the decryption and the actual decryption procedure doesnt use the dtd file in anyway so unless its pointed to use the dtd in a procedure someone comes up with if any it could break it there.

The procedure to decrypt the password element is

        Dim sharedkey As New TripleDESCryptoServiceProvider()
 
        Dim reader As IO.StreamReader = New IO.StreamReader("sharedTDESkey.txt")
        Dim data() As Byte = Convert.FromBase64String(reader.ReadToEnd)
        'Assign the retrieved shared key value to the TripleDESCryptoServiceProvider object
        sharedkey.Key = data
 
        Dim encryptedDoc As New System.Xml.XmlDocument()
        encryptedDoc.Load("EQ2LoginData.xml")
 
        ' XmlElement object.
        Dim encryptedElement As System.Xml.XmlElement = CType(encryptedDoc.GetElementsByTagName("EncryptedData")(0), XmlElement)
 
        ' Create an EncryptedData object and populate it.
        Dim ed2 As New EncryptedData()
        ed2.LoadXml(encryptedElement)
 
        ' Create a new EncryptedXml object.
        Dim exml2 As New EncryptedXml()
 
        ' Decrypt the element using the shared key
        Dim decryptedPASSWORD As Byte() = exml2.DecryptData(ed2, sharedkey)
 
        ' Replace the encryptedData element with the plaintext XML element.
        exml2.ReplaceData(encryptedElement, decryptedPASSWORD)
        encryptedDoc.Save("EQ2LoginDataDecrypted.xml")
 

Notice at the end of the above code will save the results to an xml doc which is actually something we dont want so that needs to be changed.
And vb will not be handleing anything after the file is encrypted the game will be handeling everything! The game is pretty robust though and handles alot of different xml variables so im sure theres a way to code this! One problem is the decryption procedure is in vb and i dont know how to write that into an xml file
like above or how to rewrite the procedure to fit into the LoginScene.xml file.
I kind of have an idea how to get it to read and at least acknowledge my xml file but it doesnt load. Even changeing it to just get my file loaded unencrypted would be progress. in other words completely leave out the encryption part for the time being.

What i started without the encryption part but doesnt work!

<?xml version="1.0" encoding="utf-8"?>
<Page IgnoreTab="false" Location="310,210" Name="WindowPage" PackLocation="center,center" PackLocationProp="-202/0001,-174/0001" ScrollExtent="524,374" Size="524,374">
<Scrollbar ArrowPressSound="sounds/button" Control="CharacterSelect" HideIfUnnecessary="true" Location="473,75" MaximumSize="22,16384" MinimumSize="22,60" Name="Scroll" PackLocation="right,top" PackLocationProp="-051/0001,0075/0001" PackSize="f,a" PackSizeProp="0002/0003,0148/0001" ScrollExtent="22,226" Size="22,226" Style="/CommonElements.ScrollbarVertical.data.style"/>
<Listbox BackgroundColor="#FFFFFF" DataSource="EQ2AccountID" LocalTooltip="Click to select, double-click to login" Location="260,77" Margin="10,10,10,10" Name="CharacterSelect" OnLoad="Parent.AutoplayChar.Text=SelectedItem.Character
Parent.AutoplayWorld.Text=EQ2Accounts.EQ2Account.Server
Parent.Username.Text=EQ2Accounts.EQ2Account.Username
Parent.Password.Text=EQ2Accounts.EQ2Account.Password
Parent.ConnectButton.Press=true" OnShow="Parent.AutoplayChar.Text=EQ2Accounts.EQ2Account.Character
Parent.AutoplayWorld.Text=EQ2Accounts.EQ2Account.Server
Parent.Username.Text=EQ2Accounts.EQ2Account.Username
Parent.Password.Text=EQ2Accounts.EQ2Account.Password" PackSize="a,a" PackSizeProp="0290/0001,0153/0001" RowTemplate="CharacterSelect_template" ScrollExtent="320,221" Size="234,221" Style="/CommonElements.Listbox.data.listbox_style" Tooltip="Click to select, double-click to login"/>
<Text Font="/TextStyles.Normal.NormalStyle" LocalText="Select Character below or enter login data manually on the left:" Location="260,38" Name="SelectChar" ScrollExtent="222,33" Size="222,33" TextAlignmentVertical="Center" TextColor="#F2EFE1">Select Character below or enter login data manually on the left:</Text>
<Button LocalText="Clear All" Location="41,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearAllBtn" OnPress="Parent.Username.Text=&apos;&apos; Parent.Password.Text=&apos;&apos; Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="69,26" Size="69,26" Style="/CommonElements.SmallPushButton.data.style">Clear All</Button>
<Button LocalText="Clear Character/Server" LocalTooltip="Clears character and server choice so you can login to character select/create screen" Location="110,224" MaximumSize="16384,26" MinimumSize="26,26" Name="ClearCSBtn" OnPress="Parent.AutoplayChar.Text=&apos;&apos; Parent.AutoplayWorld.Text=&apos;&apos;" ScrollExtent="126,26" Size="126,26" Style="/CommonElements.SmallPushButton.data.style" Tooltip="Clears character and server choice so you can login to character select/create screen">Clear Character/Server</Button>
<include>EQ2LoginData.xml</include>
<Text Font="/TextStyles.VeryLarge.VeryLargeStyle" LocalText="Login" Location="41,53" Name="Login" ScrollExtent="192,30" Size="192,30" TextAlignment="Center" TextAlignmentVertical="Center" TextColor="#F2EFE1">:3129920a94361beb:Login</Text>
<Text1 Font="/TextStyles.Normal.NormalStyle" LocalText="Username" Location="19,95" Name="UsernameLabel" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920afed79bde:Username</Text1>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,91" MaximumSize="16384,30" MinimumSize="30,30" Name="Username" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text2 Font="/TextStyles.Normal.NormalStyle" LocalText="Password" Location="19,128" Name="PasswordLabel" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a334bdb7c:Password</Text2>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,123" MaximumSize="16384,30" MinimumSize="30,30" Name="Password" Password="true" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text3 Font="/TextStyles.Normal.NormalStyle" LocalText="Character" Location="19,159" Name="AutoplayCharLabel" OnHide="Visible=True" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920aee74cd68:Character</Text3>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,155" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayChar" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Text4 Font="/TextStyles.Normal.NormalStyle" LocalText="Server" Location="19,194" Name="AutoplayWorldLabel" OnHide="Visible=True" ScrollExtent="80,19" Size="80,19" TextAlignment="Right" TextAlignmentVertical="Center" TextColor="#F0D080">:3129920a0449c1b8:Server</Text4>
<Textbox BackgroundColor="#FFFFFF" BackgroundOpacity="1.000" Cursor="/Cursor.Text" Location="108,189" MaximumSize="16384,30" MinimumSize="30,30" Name="AutoplayWorld" OnHide="Visible=True" RStyleActivated="/CommonElements.Textfield.data.selected.rect" RStyleDefault="/CommonElements.Textfield.data.default.rect" RStyleDisabled="/CommonElements.Textfield.data.disabled.rect" RStyleDisabledActivated="/CommonElements.Textfield.data.disabled.rect" RStyleMouseOver="/CommonElements.Textfield.data.mouseover.rect" RStyleMouseOverActivated="/CommonElements.Textfield.data.selected.rect" RStyleMouseOverSelected="/CommonElements.Textfield.data.selected.rect" RStyleSelected="/CommonElements.Textfield.data.selected.rect" ScrollExtent="129,30" Size="129,30" Style="/CommonElements.Textfield.data.style" />
<Button IsDefaultButton="true" LocalText="Login" Location="36,267" MaximumSize="16384,38" MinimumSize="38,38" Name="ConnectButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920a94361beb_1:Login</Button>
<Button LocalText="Exit" Location="138,267" MaximumSize="16384,38" MinimumSize="38,38" Name="QuitButton" ScrollExtent="100,38" Size="100,38" Style="/CommonElements.LargePushButton.data.style">:3129920acbc4d4cf:Exit</Button>
<Page BackgroundOpacity="1.000" Location="26,36" Name="RoundedGrouper" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="224,226" Size="224,226"/>
<Page BackgroundOpacity="1.000" Location="250,69" Name="RoundedGrouper2" RStyleDefault="/CommonElements.RoundedGrouper.data.rect" ScrollExtent="252,237" Size="252,237"/>
<Page BackgroundOpacity="1.000" Location="17,17" Name="InteriorGrouper" RStyleDefault="/WindowElements.InteriorGrouper.data.default_bkg.rect" ScrollExtent="492,303" Size="492,303">
<Page BackgroundOpacity="1.000" Name="Frame" PackSize="a,a" PackSizeProp="0000/0001,0000/0001" RStyleDefault="/WindowElements.InteriorGrouper.data.frame.rect" ScrollExtent="492,303" Size="492,303"/>
</Page>
<Page BackgroundOpacity="1.000" Name="DialogFrame" RStyleDefault="/WindowElements.DialogFrame.data.frame.rect" ScrollExtent="524,337" Size="524,337"/>
</Page>
</Page>
</Page>
 

Ive got so close to getting all this to work as a whole seems like ive hit a brick wall. Dont know how else or what better i could do to describe waht im trying to accomplish but if theres anything let me know!
Any help, examples or even style anything i can use to do this is appreciated!

[deaddog4201]

Well I made some progress on my own maybe i can get help from this!
Useing xsl style sheet i was able to convert an unencrypted version of my apps xml file to the need format for the loginscene.xml so form there im trying to use the xslt function ability to call the decryption method and apply the results as the needed out put decrypted password hers the code i got so far. I dont get any errors just a blank "" for the password!

This is the code i came up with

<?xml version='1.0' ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:lxslt="http://xml.apache.org/xslt" xmlns:result="http://saxon.sf.net/xquery-results" extension-element-prefixes="result" version="1.0" xmlns:a="http://www.w3.org/2001/04/xmlenc#">
    <xsl:output method="xml" encoding="UTF-8"/>
    <lxslt:script language="VBScript" implements-prefix="xmlenc#">                
                Function Decrypt(ByVal args() As String)
 
        Dim sharedkey As New TripleDESCryptoServiceProvider()
 
        Dim reader As IO.StreamReader = New IO.StreamReader("sharedTDESkey.txt")
        Dim data() As Byte = Convert.FromBase64String(reader.ReadToEnd)
        'Assign the retrieved shared key value to the TripleDESCryptoServiceProvider object
        sharedkey.Key = data
 
        Dim encryptedDoc As New XmlDocument()
        encryptedDoc.Load("EQ2LoginData.xml")
 
        ' XmlElement object.
        Dim encryptedElement As XmlElement = CType(encryptedDoc.GetElementsByTagName("EncryptedData")(0), XmlElement)
 
        ' Create an EncryptedData object and populate it.
        Dim ed2 As New EncryptedData()
        ed2.LoadXml(encryptedElement)
 
        ' Create a new EncryptedXml object.
        Dim exml2 As New EncryptedXml()
 
        ' Decrypt the element using the shared key
        Dim decryptedPASSWORD As Byte() = exml2.DecryptData(ed2, sharedkey)
 
        ' Replace the encryptedData element with the plaintext XML element.
        exml2.ReplaceData(encryptedElement, decryptedPASSWORD)        
                End Function
                </lxslt:script>
    <xsl:template match="/">
        <DataSource Name="CharacterData">
            <Data>                
                <xsl:attribute name="Name">
                    <xsl:value-of select="EQ2Accounts/EQ2Account/@EQ2AccountID"/>
                </xsl:attribute>
                <xsl:attribute name="password">
                    <xsl:value-of select="decryptedPASSWORD"/>
                </xsl:attribute>
                <xsl:attribute name="server">
                    <xsl:value-of select="EQ2Accounts/EQ2Account/Server"/>
                </xsl:attribute>
                <xsl:attribute name="username">
                    <xsl:value-of select="EQ2Accounts/EQ2Account/Character"/>
                </xsl:attribute>                
            </Data>
        </DataSource>
    </xsl:template>
    <xsl:template match="Username"/>
    <xsl:template match="Password"/>
    <xsl:template match="Server"/>
    <xsl:template match="Character"/>
</xsl:stylesheet>
 

heres the results

<DataSource Name="CharacterData" xmlns:a="http://www.w3.org/2001/04/xmlenc#" xmlns:lxslt="http://xml.apache.org/xslt"><Data Name="Myusername" username="MYcharacter" server="Myserver" password=""/></DataSource>
 

One other thing im trying to figure out is i added auto="" as an id to the first line of my xml like this
<EQ2Account EQ2AccountID="MynameID" Auto="0">
where the value of Auto is either 0 or 1. 0 false 1 true
only 1 element should be allowed to have a value of 1 all else 0 so i want the above code to only pull the account with the Auto value of 1 as of right now the code pulls the first element in "EQ2Accounts/EQ2Account/@EQ2AccountID"
i can add @Auto but that wont refrence to the value of 1 and if i add ="1" it breaks.
Anyone even care to comment at all!

[Dököll]

I am going to take it over to the XML Forum therefore so we can continue. You will need to work with me okay!

[Dököll]

Hello, again deaddog4201!

There is some information in here:

http://www.ibm.com/developerworks/xm...ary/x-encrypt/

And here:

http://www.w3.org/TR/xmlenc-core/#sec-Processing-XML

Leaving for work now. I'll look into it further later. Please stay tuned. and great work getting the VB portion to work.