-----------------------------------

Prince Pwn

Tue Apr 05, 2011 3:07 pm


Sending an E-mail

-----------------------------------

Here's how to send an e-mail from any address, to any address. Just modify the variables to your liking. Chances are the e-mail will get sent into the recipient's spam folder. You will also need a local SMTP server or one that's unencrypted, or you will need to use authentication but if you chose the latter only be able to send from your actual address. I'm using QK SMTP Server full version. This program also writes to a file for personal debugging purposes, I was pasting in CMD for verification.


View.Set ("text")

const ip := "localhost"
const port := "25"
const fromEmail := "admin@google.ca"
const toEmail := "princepwn@hotmail.info"
var speed : int := 10                           % minimum speed of 3
var command : array 1 .. * of string := init (
    "telnet " + ip + " " + port,
    "helo " + ip,
    "mail from:" + fromEmail,
    "rcpt to:" + toEmail,
    "data",
    "From: " + fromEmail,
    "To: " + toEmail,
    "SUBJECT: Re: Turing Email",
    "You just recieved an email using Turing",
    "This probably arrived in your spambox",
    "I like turtles",
    "\n.\nQUIT"
    )

var netStream := Net.OpenConnection (ip, strint (port))
var fileStream : int
open : fileStream, "Email.log", put, mod
if (netStream