[DL] Generator haseł MySQL VB.NET

[Xyli]

Witam.

 

Skoro teraz robimy generatory haseł to udostępniam program napisany w VB.NET do generowania haseł do kont.

 

Screenshot:

 

Download:

Plik w załączniku. Patrz niżej.

Uwaga! Do poprawnego działania programu wymagane jest Microsoft NET 3.5

 

Skan:

https://www.virustotal.com/file/f1ec2835db95df71616f67897c2103ab620a9d95785197d49342dde14473649e/analysis/1352493028/

 

 

Jeżeli temat jest niepotrzebny to proszę o usunięcie go.

Pozdrawiam, Xyli

generator_hasel_mysql_xyli.zip

[piotrekkkkkk]

na pewno bedzie wykorzystane

like it

[SuicideRlz]

http://www.mpcforum....l/#entry5567202

:rolleyes:

[Xyli]

http://www.mpcforum....l/#entry5567202

:rolleyes:

 

Mój generator mamy niezależnie czy mamy internet czy nie. I szybciej się generuje niż na stronie.

[Terenzo.]

Widzę że go udostępniłeś. Gz.

[Xyli]

No wkońcu udostępniłem jak zobaczylem, że teraz na to "moda" nie ma czego gz, gówno z tego programu

[xDeStRuCtx]

xyli, sui dał link do programu, który generuje taki hash.

[Xyli]

Sui dał link do tematu w którym podana jest strona internetowa z generatorem

[Terenzo.]

No wkońcu udostępniłem jak zobaczylem, że teraz na to "moda" nie ma czego gz, gówno z tego programu

Pewnie z tego kodu co Ci zapodałem?

 

@Ok, czuję to. :P

[Xyli]

Tak, ale go trochę dostosowałem ;d

[SuicideRlz]

@Xyli, podałem permalink do mojego postu, numer 36, który robi dokładnie to co twój bez potrzeby w klikanie w przycisk i ma funkcję kopiowania hasha.

@edit:

public string GenerateMySQLHash(string strKey)
{
   byte[] bytes = Encoding.UTF8.GetBytes(strKey);
   SHA1Managed sHA1Managed = new SHA1Managed();
   byte[] array = sHA1Managed.ComputeHash(sHA1Managed.ComputeHash(bytes));
   StringBuilder stringBuilder = new StringBuilder(array.Length);
   byte[] array2 = array;
   checked
   {
       for (int i = 0; i < array2.Length; i++)
       {
           byte b = array2[i];
           stringBuilder.Append(b.ToString("X2"));
       }
       return "*" + stringBuilder.ToString();
   }
}

Really? Da się to przepisać w jakieś trzy linijki.

[dawid555d]

Imports System
Imports System.Text
Imports System.Security.Cryptography
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Generatorhash(TextBox2.Text)
End Sub
Public Function Generatorhash(ByVal str As String) As String
Dim zm1 As Byte() = Encoding.UTF8.GetBytes(str)
Dim zm2 = New SHA1Managed()
Dim zm3 = zm2.ComputeHash(zm2.ComputeHash(zm1))
Dim zm4 As New StringBuilder(zm3.Length)

For Each x As Byte In zm3
zm4.Append(x.ToString("X2"))
Next

Return "*" & zm4.ToString()
End Function
End Class

 

takie update ->

 

 

Imports System
Imports System.Text
Imports System.Security.Cryptography

Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 TextBox1.Text = Generatorhash(TextBox2.Text)
 If TextBox2.Text.Length = Nothing Then
	 TextBox1.Text = " "
	 MessageBox.Show("Pole Jest Pustę, Wypełnij je by uzyskać hasło", "Pustę pole", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
 Else
	 Button1.Enabled = False : TextBox2.Enabled = False : CheckBox1.Enabled = False


 End If

End Sub

Public Function Generatorhash(ByVal str As String) As String
 Dim zm1 As Byte() = Encoding.UTF8.GetBytes(str)
 Dim zm2 = New SHA1Managed()
 Dim zm3 = zm2.ComputeHash(zm2.ComputeHash(zm1))
 Dim zm4 As New StringBuilder(zm3.Length)

 For Each x As Byte In zm3
	 zm4.Append(x.ToString("X2"))
 Next

 Return "*" & zm4.ToString()
End Function
End Class

Przycisk do odświeżania obiektów

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 Button1.Enabled = True : TextBox2.Enabled = True : TextBox1.Text = "" : TextBox2.Text = "" : CheckBox1.Enabled = True
End Sub

checkbox Ukrywanie Hasła

If CheckBox1.Checked Then
	 TextBox2.UseSystemPasswordChar = True
 Else
	 TextBox2.UseSystemPasswordChar = False
 End If

 

 

cały kod programu. x2 textboxy + buttonek.

[z4z0l]

Nowa moda ala kolorki pereł ?

[MrHackuss]

Thx, skorzystam

[Warrayu]

Dzięki :* przyda się :P

[revolution1392]

Dzieki za generator ;] szukałem takiego

[CraxaNaMaxa]

Super programik. Jeśli ktoś jeszcze robi reje, lub mu w ogóle nie działają, a chce zrobić jakieś konto z hasłem innym niż 12345 to programik bardzo przydatny. Oczywiście skromny plusik

[mantesinf]

tego szukałem thx wielkie

[Silver™]

Ale to jest tak troche bezsensu. Bo od razu musi być potrzebny program żeby wygenerować 20+ znakowe hasło ? Równie dobrze można piepsznąć głową o klawiature i będzie dobre hasło . Moim zdaniem to tylko wypisywanie sie na marne.

[Signe Hejter Su]

Thx NApewno wykorzystam