Ciao, ho un sito web che fa schifo, cmq vorrei creare qualcosa per decifrare password md5
ecco il mio database (Access 2003) di md5:
Tabella: Hashes che ha due campi (Value, Hash)
io avendo il hash vorrei recuperare il valore del campo Value, allora ho scritto una query sql.
ecco il mio codice:
Il problema sorge qui: appena il web server cerca di eseguire il codice, si presenta un errore che dice: Errore di sintassi (operatore mancante) nell'espressione della query '(Hash = 5f4dcc3b5aa765d61d8327deb882cf99)'codice:Imports System.Drawing Imports System.IO Imports System.Data Imports System.Data.OleDb Imports System.Data.SqlClient Imports System.Security.Cryptography Partial Class _Default Inherits System.Web.UI.Page Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=MD5s.MDB;") Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click If txtSearch.Text = "" Then txtSearch.Text = "Type here the Hash" Exit Sub ElseIf txtSearch.Text.Length > 32 Then txtSearch.Text = "Max length = 32" End If If Cn.State <> ConnectionState.Open Then Cn.Open() End If Dim Command As String = "SELECT * From Hashes Where (Hash = " & txtSearch.Text & ")" Dim Cmd As New OleDbCommand(Command, Cn) Dim Results As OleDbDataReader = Cmd.ExecuteReader If Results.FieldCount > 0 Then lblHash.Text = Results.Item("Hash") lblValue.Text = Results.Item("Value") Else txtSearch.Text = "There isn't any result" End If End Sub End Class
qualcuno mi può aiutare?
PS: ho aperto un'altra discussione in Programmazione --> Visual Basic e .net framework, ma l'ho fatto perkè quel codice della programmazione mi serve per un software e questo per un sito web. Perfavore non chiudetemi la discussione
Ciao

Rispondi quotando