Enviar variable de Visual Basic a PHP
Publicado por XENA (1 intervención) el 31/03/2018 01:06:55
Hola:
Estoy trabajando en un proyecto, donde "leo" el serial del disco duro de la PC del usuario, lo guardo en una variable y la envío a una página php. He resuelto el problema enviandolo por el método get, sin embargo, deseo enviar el dato de una forma más segura, es decir, en la que no esté visible al usuario. ¿Existe algún modo de hacerlo? , agradecería mucho su ayuda. El código que tengo es el siguiente:
Estoy trabajando en un proyecto, donde "leo" el serial del disco duro de la PC del usuario, lo guardo en una variable y la envío a una página php. He resuelto el problema enviandolo por el método get, sin embargo, deseo enviar el dato de una forma más segura, es decir, en la que no esté visible al usuario. ¿Existe algún modo de hacerlo? , agradecería mucho su ayuda. El código que tengo es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Imports System.Security.Cryptography
Imports System.TextPublic Class Form1
Function MDhash(ByVal password As String)
Dim md5 As MD5 = New MD5CryptoServiceProvider()
Dim result As Byte()
result = md5.ComputeHash(Encoding.ASCII.GetBytes(password))
Dim strBuilder As New StringBuilder()
For i As Integer = 0 To result.Length - 1
strBuilder.Append(result(i).ToString("x2"))
Next
Return strBuilder.ToString()
End Function
Private Sub btnSalir_Click(sender As System.Object, e As System.EventArgs) Handles btnSalir.Click
Dim salir As Integer
salir = MessageBox.Show("Desea salir", "ADMINISTRADOR", _
MessageBoxButtons.OKCancel, MessageBoxIcon.Stop)
If salir = 1 ThenClose()
End If
End Sub
Private Sub btnIniciar_Click(sender As System.Object, e As System.EventArgs) Handles btnIniciar.Click
Dim disco As New _
System.Management.ManagementObject( _
"Win32_PhysicalMedia='\\.\PHYSICALDRIVE0'") 'Código para saber serial físico del Disco Duro'
Dim value As String = MDhash(disco.Properties("SerialNumber").Value)
Process.Start("http://localhost/proyecto/index.php?" & value)
Me.Close()
End Sub
End Class
Valora esta pregunta
0
