Nombre: Cifra y decifra una cadena
Descripción:
Este código de visual Basic encripta y desencripta una cadena utilizando una librería: mygnet_crypt.dll compilada en M visual C++ que esta incluida dentro de este comprimido.
URL: http://www.mygnet.net/codigos/vb/criptografia/cifra_y_decifra_una_cadena.776
Código Fuente:
Private Declare Function mygnet_source Lib "mygnet_crypt.dll" (ByVal str As String) As String
Private Declare Function mygnet_decode Lib "mygnet_crypt.dll" (ByVal str As String) As String
Private Sub Command1_Click()
Text2.Text = mygnet_decode(Text1.Text)
End Sub
Private Sub Command2_Click()
Text2.Text = mygnet_source(Text1.Text)
End Sub
Descargar