http://foro.elhacker.net/net/c_encriptardesencriptar_en_aes-t241268.0.html
Todo se puede con .NET, recuerda
.
Salu2
Todo se puede con .NET, recuerda

Salu2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: aaronduran2 en 11 Enero 2009, 21:06 PM
Muchas gracias, me sirve igualmente.
Saludos
string[] UnidadesLogicas = System.Environment.GetLogicalDrives();
Imports System.Xml
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Doc As New XmlDocument, Nodo As XmlNode
Dim Lista As ArrayList = New ArrayList()
Lista.Add("Mace Windu")
Lista.Add("Kamui")
Lista.Add("Chipbios")
Lista.Add("Vengador de las Sombras")
Nodo = Doc.CreateElement("Equipo")
Doc.AppendChild(Nodo)
For Each Elemento As String In Lista
Nodo = Doc.CreateElement("Miembro")
Nodo.InnerText = Elemento
Doc.DocumentElement.AppendChild(Nodo)
Next
Doc.Save(Application.StartupPath & "\FoSTeaM.xml")
End Sub
End Class
Imports System.Xml
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Doc As New XmlDocument, ListaNodos As XmlNodeList, Nodo As XmlNode
Dim Lista As ArrayList = New ArrayList()
Doc.Load(Application.StartupPath & "\FoSTeaM.xml")
ListaNodos = Doc.SelectNodes("/Equipo/Miembro")
For Each Nodo In ListaNodos
Lista.Add(Nodo.ChildNodes.Item(0).InnerText)
Next
End Sub
End Class
private void printDocument1_PrintPage(object sender,
System.Drawing.Printing.PrintPageEventArgs e)
{
e.Graphics.DrawString("SampleText",
new Font("Arial", 80, FontStyle.Bold), Brushes.Black, 150, 125);
}
printDocument1.Print();