Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Kodowanie hasła


Rekomendowane odpowiedzi

Opublikowano

Witam potrzebuje pomocy chciałbym dowiedzieć się jak do tego skryptu dodać kodowanie sha1 do hasła :

Imports System.Security.Cryptography
Imports MySql.Data.MySqlClient
Imports WMPLib
Imports System.Windows
Imports System.Windows.Forms

Public Class Form1
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString = "server=localhost;userid=root;password=;database=issi"
        Dim READER As MySqlDataReader
        Dim sha As New SHA1CryptoServiceProvider()

        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "SELECT * FROM issi.user WHERE username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader

            Dim count As Integer
            count = 0
            While READER.Read
                count = count + 1
            End While
            If count = 1 Then
                MessageBox.Show("Zalogowano pomyslnie ... nastąpi przekierowanie do panelu!")

            ElseIf count > 1 Then
                MessageBox.Show("Podano nie prawidłowe dane!12")
            Else
                MessageBox.Show("Podano nie prawidłowe dane!")
            End If
            MysqlConn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)

        Finally
            MysqlConn.Dispose()

        End Try



    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.Atlas, AudioPlayMode.BackgroundLoop)
    End Sub
End Class

Prosze o szybką odp!

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...