• Viernes 8 de Noviembre de 2024, 23:09

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - asnaed

Páginas: [1]
1
VB .NET / Re:comprimir una carpeta o archivo
« en: Jueves 6 de Junio de 2013, 17:47 »
bueno DavidAlonso.
No se si te entendí
pero lo que tu deseas es que al momento de comprimir que el archivo este tenga el mismo nombre de el otro archivo
 
si deseas podrías poner tu código o hacerlo llegar a mi correo caflores.sys@gmail.com

con gusto te ayudare
 :yes:  :yes:

2
VB .NET / Re:Error de referencial cultural
« en: Miércoles 12 de Diciembre de 2012, 00:47 »
Te podria ayudar solo que esas imagenes que pusiste no  explican mucho bueno no para mi si subes el fuente te ayudare con mucho gusto

3
VB .NET / Re:Evento al pulsar mas de una tecla a la vez
« en: Miércoles 12 de Diciembre de 2012, 00:40 »
No se que es lo que quieras hacer pero usa este código
Código: vb.net
  1. Private Sub intro_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles intro.KeyPress
  2.         If (e.KeyChar = Chr(Keys.Enter)) Then
  3.             If Me.ListBox1.Visible = True Then
  4.                 Me.ListBox1.Visible = False
  5.             Else : Me.ListBox1.Visible = True
  6.  
  7.             End If
  8.         End If
  9.     End Sub

aquí te dejo el ejemplo como lo hice esta sencillo porque no detallas mucho pero suerte  :suerte:



4
VB .NET / Re:Actualizar colores aero
« en: Miércoles 12 de Diciembre de 2012, 00:24 »
Te podria ayudar si subes el fuente para inspeccionarlo porque la información que das es muy poca  :think:




5
VB .NET / Re:comprimir una carpeta o archivo
« en: Miércoles 12 de Diciembre de 2012, 00:18 »
Como le e realizado es de la siguiente manera:

lo que necesitas es un libreria "Ionic.Zlib" (dll) la cual comprime

luego hacer referenciar el archivo desde el proyecto. Apretamos el botón derecho encima del proyecto y pulsamos "Agregar referencia"


vamos a la pestaña "Examinar" y seleccionamos la librería "Ionic.Zip.dll"



Y, finalmente, desde el código fuente, vamos a importar la librería para poder utilizar sus métodos.

Imports ionic.zip


Descomprimir un archivo

Para descomprimir un archivo, usaremos un procedimiento Sub que se llamará "Extraer". Os pego el código:

Código: vb.net
  1.  
  2. Private Sub Extraer()
  3.      Dim ZipAExtraer As String = "ArchivoZipAExtraer"
  4.      Dim DirectorioExtraccion As String = "CarpetaDondeIraElArchivoExtraido"
  5.      Using zip1 As ZipFile = ZipFile.Read(ZipAExtraer)
  6.           Dim e As ZipEntry
  7.           For Each e In zip1
  8.                e.Extract(DirectorioExtraccion, ExtractExistingFileAction.OverwriteSilently)
  9.           Next
  10.      End Using
  11. End Sub
  12.  

explicacion cada variable:

ZipAExtraer: Variable de tipo "String" donde pondremos la ruta para el archivo a extraer
DirectorioExtraccion: Variable de tipo "String" donde pondremos la ruta donde irá el archivo extraído.
zip1: Variable de tipo "ZipFile" (incluido en la clase ionic.zip.dll) que le dice a la clase que archivo tiene que leer y el contenido a extraer.
Una vez con la ruta de entrada (Guardado en ZipAExtraer), la ruta de salida (Guardado en DirectorioExtraccion) y diciéndole que lo extraiga (gracias a la variable zip1), la función ya está lista para su uso.

Comprimir un archivo

ora realizaremos el procedimiento a la inversa, en que seleccionaremos unos cuantos archivos y los comprimiremos en un archivo .zip

Esta vez usaremos un procedimiento Sub que se llamará "Comprimir". Os pego el código:

Código: vb.net
  1. Private Sub Comprimir()
  2.      Using zip As ZipFile = New ZipFile()
  3.           zip.AddFile("Archivo1")
  4.           zip.AddFile("Archivo2")
  5.           zip.AddFile("Archivo3")
  6.           zip.Save("Miarchivozip.zip")
  7.      End Using
  8. End Su

Esta vez el código es mucho más sencillo. Lo que hace este procedimiento es declarar una variable llamada "zip" de tipo "ZipFile" (incluido en la clase ionic.zip.dll) y, una vez declarada, usaremos el método "AddFile" para ir añadiendo los archivos que queramos incluir en el Zip.

Es por eso que, en donde dice "Archivo1", "Archivo2", etc.... tenemos que pegar la ruta donde tenemos el archivo a comprimir.

Finalmente, una vez con todos los archivos, se utiliza el método "Save" para guardar el archivo comprimido en .zip

6
VB .NET / Re:Interpretar encriptacion y desencriptacion de datos
« en: Martes 11 de Diciembre de 2012, 20:22 »
Cita de: angelito1121 en Viernes 16 de Julio de 2010, 10:11
Bueno, ante todo muy buenas a los que lean este post. No me iré con rodeos, lo que sucede es que estoy haciendo un proyecto donde debo usar una libreria que me ayude a encriptar y desencriptar los datos, he estado trabajando con el codigo y funciona pero necesito explicar lo que hace cada linea de código y es esta la ayuda que pido, si por favor pudiesen ayudarme a interpretar el codigo, lo he hecho hasta donde he podido pero, creo que hay partes donde estoy mal y otras que nisiquiera entiendo. Espero puedan ayudarme, porque lo necesito bastante:

Primero les pongo la libreria de clases: (tiene 3 clases)

Clase Semillas:

Código: vb.net
  1. Public Class semillas
  2.     Public Function semilla(ByVal strclave As String) As String
  3.         Dim ingsemilla1 As Long
  4.         Dim ingsemilla2 As Long
  5.         Dim j As Long
  6.         Dim i As Long
  7.         ingsemilla1 = 0
  8.         ingsemilla2 = 0
  9.         'OBTENEMOS LA LONGITUD DE LA CADENA STRCLAVE
  10.         j = Len(strclave)
  11.  
  12.         'CREAMOS UN BUCLE QUE VAYA DESDE 1 HASTA LA LONGITUD DE STRCLAVE
  13.         For i = 1 To Len(strclave)
  14.             'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO
  15.             'POR EL VALOR QUE TENGA I EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA1
  16.             ingsemilla1 = ingsemilla1 + Asc(Mid$(strclave, i, 1)) * i
  17.             'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO
  18.             'POR EL VALOR QUE TENGA J EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA2
  19.             ingsemilla2 = ingsemilla2 + Asc(Mid$(strclave, i, 1)) * j
  20.             j = j + 1
  21.         Next
  22.         'FINALMENTE LA FUNCION SEMILLA DEVOLVERÁ LOS VALORES DE INGSEMILLA1 E INGSEMILLA2
  23.         semilla = LTrim$(Str$(ingsemilla1)) + "," + LTrim$(Str$(ingsemilla2))
  24.     End Function
  25. End Class
  26.  



Clase encriptar

Código: vb.net
  1. Public Class Encriptar
  2.     Public Function Codificar(ByVal strCadena As String, ByVal strSemilla As String) As String
  3.  
  4.         Dim lngIi1 As Long
  5.         Dim lngIi2 As Long
  6.         Dim i As Long
  7.         lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))
  8.         lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))
  9.  
  10.         For i = 1 To Len(strCadena)
  11.  
  12.             lngIi1 = lngIi1 - i
  13.             lngIi2 = lngIi2 + i
  14.  
  15.             If (i Mod 2) = 0 Then
  16.  
  17.                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi1) And &HFF)
  18.  
  19.             Else
  20.  
  21.                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi2) And &HFF)
  22.  
  23.             End If
  24.  
  25.         Next
  26.  
  27.         Codificar = strCadena
  28.  
  29.     End Function
  30.  
  31. End Class
  32.  


Clase desencriptar:

Código: vb.net
  1. Public Class desencriptar
  2.     Public Function DeCodificar(ByVal strCadena As String, ByVal strSemilla As String) As String
  3.  
  4.         Dim lngIi1 As Long
  5.         Dim lngIi2 As Long
  6.         Dim i As Long
  7.         lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))
  8.         lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))
  9.  
  10.         For i = 1 To Len(strCadena)
  11.  
  12.             lngIi1 = lngIi1 - i
  13.             lngIi2 = lngIi2 + i
  14.  
  15.             If (i Mod 2) = 0 Then
  16.  
  17.                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi1) And &HFF)
  18.  
  19.             Else
  20.  
  21.                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi2) And &HFF)
  22.  
  23.             End If
  24.  
  25.         Next
  26.  
  27.         DeCodificar = strCadena
  28.  
  29.     End Function
  30.  
  31. End Class
  32.  
  33.  

Y este seria el form donde uso la biblioteca

Código: vb.net
  1. Imports encriptacion
  2. Public Class Form1
  3.     Dim obj_encrip As New Encriptar
  4.     Dim obj_desencrip As New desencriptar
  5.     Dim obj_sem As New semillas
  6.     Dim s As String
  7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.         TextBox2.Text = obj_encrip.Codificar(TextBox1.Text, S)
  9.         TextBox1.Text = ""
  10.     End Sub
  11.  
  12.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  13.         TextBox2.Text = obj_desencrip.DeCodificar(TextBox1.Text, s)
  14.         TextBox1.Text = ""
  15.     End Sub
  16.  
  17.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  18.         s = obj_sem.semilla("auditoria")
  19.     End Sub
  20. End Class
  21.  





Te puedo ayudar pero aun necesitas la explicación?
y esta muy interesante ese encriptador/desincriptador


Páginas: [1]