Visual Basic fake account hacker

[robyyxx]

Am lucrat azi la un program care "afla parola la un cont" desigur e fake.

Utilitati:

- Eroare la no input la user

- Genereaza o parola random intre 6-12 caractere upperalpha+downalpha+numeric(toate combinate)

- Progress bar detaliat

Proiectu nu este terminat il puteti edita dupa placu vostru il bindati si-l puneti pe net.

Screen:

Sursa:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Label2.Hide()
        TextBox2.Hide()
        Label5.Hide()
        Label6.Hide()
        Label7.Hide()
        Label8.Hide()
        Label9.Hide()
        Label10.Hide()
        Label11.Hide()
        Button4.Hide()


    End Sub

    Public Function GenerateRandomString(ByRef upper As Boolean) As String
        Dim rand As New Random()
        Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
        Dim final As String = String.Empty
        Dim Generator As System.Random = New System.Random()
        Dim random As Integer = Generator.Next(6, 12)

        For i As Integer = 0 To random
            final += allowableChars(rand.Next(allowableChars.Length - 1))
        Next

        Return IIf(upper, final.ToUpper(), final)
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If ProgressBar1.Value = ProgressBar1.Maximum Then

            MessageBox.Show("Please restart", "Error")

        ElseIf RTrim(TextBox1.Text) = Nothing Then
            MessageBox.Show("Enter Username", "Error")

        Else

            Timer1.Start()
            ProgressBar1.Show()
            Dim rndstring As String
            rndstring = GenerateRandomString(False)
            TextBox2.Text = rndstring
        End If




    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 1 Then
            Label5.Show()
            TextBox1.ReadOnly = True 
        End If

        If ProgressBar1.Value = 30 Then
            Label5.Hide()
            Label6.Show()
        End If

        If ProgressBar1.Value = 60 Then
            Label6.Hide()
            Label7.Show()

        End If

        If ProgressBar1.Value = 100 Then
            Label7.Hide()
            Label8.Show()
        End If

        If ProgressBar1.Value = 140 Then
            Label8.Hide()
            Label9.Show()
        End If

        If ProgressBar1.Value = 155 Then
            Label9.Hide()
            Label10.Show()
        End If


        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            ProgressBar1.Hide()
            Label10.Hide()
            Label11.Show()
            Label2.Show()
            TextBox2.Show()
            Button4.Show()
            TextBox1.ReadOnly = False


        End If
    End Sub



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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MessageBox.Show("Made by robyyxx@rstforums.com", "About")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox2.SelectAll()
        TextBox2.Copy()
    End Sub
End Class

Download proiect

Download EXE

VirusTotal

Parola: matarst1

Am uitat sa-i schimb numele, il faceam fiindca jocu ala este o nisa mare si multi cauta "hackuri"

Sper sa va placa

Edit: Textbox-u se face readonly cand se apasa "hack"

Edited July 17, 2013 by robyyxx

[Bit-ul]

Puteai sa faci si tu sa arate GUI-ul mai profesional macar...

[robyyxx]

Puteai sa faci si tu sa arate GUI-ul mai profesional macar...

Am spus ca il puteti edita cum vreti voi, sursa o aveti si aia conteaza mai mult... nu prea am idei pentru design fiindca depinde de context...

Daca vrei pentru un anumit joc sa-l faci pui logo-u acolo in locu liber

Edited July 17, 2013 by robyyxx

[studentul]

Genu asta de soft "fake" cum este el este in multe variante pe youtube.E genul de soft cautat de toti copii care cred ca yahoo poate fi spart asa usor..apasand un buton.asa se ia trojenii si asa fac unii bani cu ""surveyz"".

Multumim pentru cod.LIKE