11/01/2006, 13:57
|
| | | Fecha de Ingreso: marzo-2004
Mensajes: 198
Antigüedad: 20 años, 9 meses Puntos: 1 | |
| Dim hashvalue As String
If TextBox1.Text <> "" Then
hashvalue = FormsAuthentication.HashPasswordForStoringInConfig File(TextBox1.Text, ListBox1.SelectedItem.Text)
TextBox2.Text = hashvalue
Else
Set_Focus("TextBox1")
End If
A ver si te sirve esto. Hashvalue almacena el valor encriptado de textbox1 y segun sea en listbox1 sha1 o md5te lo hace con el agoritmo correspondiente |