HOW TO MAKE THE BEST FAKE EMAIL SENDER !

HELLO 2day I'm Going to Teach you How to Make a Fake Email Sender !!
1st Create a New Project !
Name it anything you want
Make a 2nd Form in order to have total forms of "2"
In Form One ! Name it "SendForm"
add to The Form These Items :
4 Labels
4 Textboxes
1 Button
1 Timer
Then Order Them Like This :

The 1st Textbox Got to Properties and Change name to "ToEmail"
Same For 2nd TextBox name it "SenderEmail"
3rd Textbox name it "Subject"
4th Textbox Name it "Content"
Make All The Textboxes "Enabled = False"(In Their Properties)
For the 4th TextBox Make it MultiLine = True
AND Enable "ScrollBars" and make it "Both"(Find the Scrollbars Thing in it's Properties)
Like This :

And The Timer Enabled = TRUE
Like This :

For The Form Properties :
StartPosition = CenterScreen
FormBorderStyle = Fixed3D
MinimizeBox = False
MaximizeBox = False
Like This :

Then For The 2nd Form :
Edit its name to "Suxes"
StartPosition = CenterScreen
FormBorderStyle = Fixed3D
MinimizeBox = False
MaximizeBox = False
ShowIcon = False
Like This :

Add to it 1 WebBrowser !
and 1 Timer
The Timer Enabled = True Like The Other Timer
Dock The WebBrowser to FILL !
.....
Now to The Codes !
Open The Tab of SendForm
and Press "F7"
Then When COde Opens
CTRL+A and Delete All Codes !
Then Paste This One :

Code:


Imports System.Net.NetworkInformation
Public Class SendForm


    Private Sub SendForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Suxes.Show()
        Suxes.Close()


    End Sub


    Private Sub ToEmail_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ToEmail.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("email").InnerText = ToEmail.Text
    End Sub
    Private Sub ToEmail1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles SenderEmail.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("sender").InnerText = SenderEmail.Text
    End Sub


    Private Sub ToEmssail1_sKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Subject.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("subject").InnerText = Subject.Text
    End Sub
    Private Sub ToEmssaissl1_sKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Content.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("msg").InnerText = Content.Text
    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If System.Net.NetworkInformation.NetworkInterface.Get  IsNetworkAvailable Then




            If ToEmail.Text = "" Or SenderEmail.Text = "" Or Content.Text = "" Then
                MsgBox("Please Fill In The Required Fields(*)", MsgBoxStyle.Information)
            Else
                    Suxes.WebBrowser1.Document.All("submit").InvokeMember("click")
                
            End If
        Else
            MsgBox("No Internet Connection" _
                   & vbNewLine & "Check Your Internet Connectivity", MsgBoxStyle.Critical)
        End If
    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Suxes.WebBrowser1.Url = New Uri(The Done PHP) Then
            If Suxes.WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                Suxes.Show()
                Me.Enabled = False
            End If
        Else


        End If
        
    End Sub
End Class

Same To Suxes :
F7
Then Delete All CODES !
and PASTE THIS :

Code:

Public Class Suxes


    Private Sub Suxes_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
        Me.Hide()
        SendForm.Enabled = True
        WebBrowser1.Navigate(The Send PHP)


    End Sub


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


        If WebBrowser1.Url = New Uri(The Send PHP) Then
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                SendForm.ToEmail.Enabled = True
                SendForm.SenderEmail.Enabled = True
                SendForm.Subject.Enabled = True
                SendForm.Content.Enabled = True
                WebBrowser1.Document.GetElementById("email").InnerText = SendForm.ToEmail.Text
                WebBrowser1.Document.GetElementById("sender").InnerText = SendForm.SenderEmail.Text
                WebBrowser1.Document.GetElementById("subject").InnerText = SendForm.Subject.Text
                WebBrowser1.Document.GetElementById("msg").InnerText = SendForm.Content.Text
            Else

                SendForm.ToEmail.Enabled = False
                SendForm.SenderEmail.Enabled = False
                SendForm.Subject.Enabled = False
                SendForm.Content.Enabled = False


            End If
        Else
        End If
    End Sub




End Class

Now Actually There Will Be ONLY 6 Errors
Leave Them We Will Fix Them Later !
...
Now Open NotePad !
Paste in it This Code :

Code:

<html>
<table border=4>
<form action="sent.php" method="post">
<tr><td>Recipent: </td><td><input type=text id="email" name=email size=30></td></tr>
<tr><td>Sender Email: </td><td><input type=text id="sender" name=name size=30></td></tr>
<tr><td>Subject: </td><td><input type=text id="subject" name=subject size=30></td></tr>
<tr><td>Content: </td><td><textarea rows=10 cols=30 id="msg" name=content></textarea></td></tr>
<tr><td><input type=submit id="submit" value="Send Mail"></td></tr>
</form>
</table>
</html>

And Then Save it As "SenD.php"
Be Careful Of The Capital "D" Should Be The Same !
Then Open a New Notepad
Paste In it This CODE :

Code:

<?php
$email = $_POST['email'];
$content = nl2br($_POST['content']);
$name = $_POST['name'];
$sender = $_POST['sender'];
$subject = $_POST['subject'];
$headers = "From: $name ". "".$sender."\r\n";
//add boundary string and mime type specification
$headers .= 'MIME-Version: 1.0' . "\r\n";
$headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
//send the email
mail($email, $subject, $content, $headers );
echo"<h1>Success</h1>\n";
echo"<p>The e-mail was successfully sent to <i>" . $email . "</i></p>\n";
echo"<p>From: <i>" . $name . "</i></p>\n";

echo"<p>Subject: <i>" . $subject . "</i></p>\n";
echo"<p>Message:</p>\n";
echo"<p><b>" . $content . "</b></p>";
?>
<script type="text/javascript">
<!--
var disabled_message = "You can't Right-Click";
document.oncontextmenu = function() 
{ 
   return false; 
}
document.onmousedown = function md(e) 
{ 
  try 
  { 
     if (event.button==2||event.button==3) 
     {
        if (disabled_message != '')
           alert(disabled_message);
        return false; 
     }
  }  
  catch (e) 
  { 
     if (e.which == 3) return false; 
  } 
}
// -->
</script>

And Save It As "sent.php"
ALL SMALL LETTERS !
......
Now Go to 000WebHost
Create a New Website
and Upload These 2 PHP Files
Learn How with this Video :

....
Then Let's Get Back To fix The errors !!
Open The Code of SendForm
Goto The Error
That Says :

Then Delete : The Done PHP
and Type In The Brackets Your Website Link with your SenD.php file
Example :
"http:// yourwebsite.comuv.com / SenD.php /"
Then The Error Should Be Fixed
Then Goto The Suxes Code
and Replace : The Done PHP With the SenD.php Link
ex : "http:// yourwebsite.comuv.com / SenD.php /"
and ALSO REPLACE : The Send PHP with The sent.php link
ex : "http:// yourwebsite.comuv.com / sent.php /"
SHOULD LOOK LIKE THIS :

QUOTES : " " Should Be Typed before & after The Link !
LIKE THE IMAGE ABOVE !
THERE YOU ARE !!
DEBUG AND TRY ITT !!!

HOW TO MAKE THE BEST FAKE EMAIL SENDER !

Post a Reply

Similar Threads

Tags for this Thread