CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Interpretar encriptacion y desencriptacion de datos

(1/1)

angelito1121:
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 ---Public Class semillas    Public Function semilla(ByVal strclave As String) As String        Dim ingsemilla1 As Long        Dim ingsemilla2 As Long        Dim j As Long        Dim i As Long        ingsemilla1 = 0        ingsemilla2 = 0        'OBTENEMOS LA LONGITUD DE LA CADENA STRCLAVE        j = Len(strclave)         'CREAMOS UN BUCLE QUE VAYA DESDE 1 HASTA LA LONGITUD DE STRCLAVE        For i = 1 To Len(strclave)            'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO            'POR EL VALOR QUE TENGA I EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA1            ingsemilla1 = ingsemilla1 + Asc(Mid$(strclave, i, 1)) * i            'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO            'POR EL VALOR QUE TENGA J EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA2            ingsemilla2 = ingsemilla2 + Asc(Mid$(strclave, i, 1)) * j            j = j + 1        Next        'FINALMENTE LA FUNCION SEMILLA DEVOLVERÁ LOS VALORES DE INGSEMILLA1 E INGSEMILLA2        semilla = LTrim$(Str$(ingsemilla1)) + "," + LTrim$(Str$(ingsemilla2))    End FunctionEnd Class 


Clase encriptar


--- Código: vb.net ---Public Class Encriptar    Public Function Codificar(ByVal strCadena As String, ByVal strSemilla As String) As String         Dim lngIi1 As Long        Dim lngIi2 As Long        Dim i As Long        lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))        lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))         For i = 1 To Len(strCadena)             lngIi1 = lngIi1 - i            lngIi2 = lngIi2 + i             If (i Mod 2) = 0 Then                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi1) And &HFF)             Else                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi2) And &HFF)             End If         Next         Codificar = strCadena     End Function End Class 

Clase desencriptar:


--- Código: vb.net ---Public Class desencriptar    Public Function DeCodificar(ByVal strCadena As String, ByVal strSemilla As String) As String         Dim lngIi1 As Long        Dim lngIi2 As Long        Dim i As Long        lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))        lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))         For i = 1 To Len(strCadena)             lngIi1 = lngIi1 - i            lngIi2 = lngIi2 + i             If (i Mod 2) = 0 Then                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi1) And &HFF)             Else                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi2) And &HFF)             End If         Next         DeCodificar = strCadena     End Function End Class  
Y este seria el form donde uso la biblioteca


--- Código: vb.net ---Imports encriptacionPublic Class Form1    Dim obj_encrip As New Encriptar    Dim obj_desencrip As New desencriptar    Dim obj_sem As New semillas    Dim s As String    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox2.Text = obj_encrip.Codificar(TextBox1.Text, S)        TextBox1.Text = ""    End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        TextBox2.Text = obj_desencrip.DeCodificar(TextBox1.Text, s)        TextBox1.Text = ""    End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        s = obj_sem.semilla("auditoria")    End SubEnd Class 

asnaed:

--- 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 ---Public Class semillas    Public Function semilla(ByVal strclave As String) As String        Dim ingsemilla1 As Long        Dim ingsemilla2 As Long        Dim j As Long        Dim i As Long        ingsemilla1 = 0        ingsemilla2 = 0        'OBTENEMOS LA LONGITUD DE LA CADENA STRCLAVE        j = Len(strclave)         'CREAMOS UN BUCLE QUE VAYA DESDE 1 HASTA LA LONGITUD DE STRCLAVE        For i = 1 To Len(strclave)            'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO            'POR EL VALOR QUE TENGA I EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA1            ingsemilla1 = ingsemilla1 + Asc(Mid$(strclave, i, 1)) * i            'SE OBTENDRA EL CODIGO ASCII DE CADA LETRA DE STRCLAVE Y DICHO CODIGO SERÁ MULTIPLICADO            'POR EL VALOR QUE TENGA J EN CADA VUELTA, EL RESULTADO SE ASIGNARA A INGSEMILLA2            ingsemilla2 = ingsemilla2 + Asc(Mid$(strclave, i, 1)) * j            j = j + 1        Next        'FINALMENTE LA FUNCION SEMILLA DEVOLVERÁ LOS VALORES DE INGSEMILLA1 E INGSEMILLA2        semilla = LTrim$(Str$(ingsemilla1)) + "," + LTrim$(Str$(ingsemilla2))    End FunctionEnd Class 


Clase encriptar


--- Código: vb.net ---Public Class Encriptar    Public Function Codificar(ByVal strCadena As String, ByVal strSemilla As String) As String         Dim lngIi1 As Long        Dim lngIi2 As Long        Dim i As Long        lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))        lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))         For i = 1 To Len(strCadena)             lngIi1 = lngIi1 - i            lngIi2 = lngIi2 + i             If (i Mod 2) = 0 Then                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi1) And &HFF)             Else                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi2) And &HFF)             End If         Next         Codificar = strCadena     End Function End Class 

Clase desencriptar:


--- Código: vb.net ---Public Class desencriptar    Public Function DeCodificar(ByVal strCadena As String, ByVal strSemilla As String) As String         Dim lngIi1 As Long        Dim lngIi2 As Long        Dim i As Long        lngIi1 = Val(Left$(strSemilla, InStr(strSemilla, ",") - 1))        lngIi2 = Val(Mid$(strSemilla, InStr(strSemilla, ",") + 1))         For i = 1 To Len(strCadena)             lngIi1 = lngIi1 - i            lngIi2 = lngIi2 + i             If (i Mod 2) = 0 Then                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) + lngIi1) And &HFF)             Else                 Mid(strCadena, i, 1) = Chr((Asc(Mid$(strCadena, i, 1)) - lngIi2) And &HFF)             End If         Next         DeCodificar = strCadena     End Function End Class  
Y este seria el form donde uso la biblioteca


--- Código: vb.net ---Imports encriptacionPublic Class Form1    Dim obj_encrip As New Encriptar    Dim obj_desencrip As New desencriptar    Dim obj_sem As New semillas    Dim s As String    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox2.Text = obj_encrip.Codificar(TextBox1.Text, S)        TextBox1.Text = ""    End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        TextBox2.Text = obj_desencrip.DeCodificar(TextBox1.Text, s)        TextBox1.Text = ""    End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        s = obj_sem.semilla("auditoria")    End SubEnd Class 
--- Fin de la cita ---





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

Navegación

[0] Índice de Mensajes