Jump to content
robyyxx

Visual Basic fake account hacker

Recommended Posts

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:

capture1.png

capture2.png

capture3.png

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 by robyyxx
Link to comment
Share on other sites

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 by robyyxx
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...