Email Server
Platform: mIRC
Published Dec 12, 2010
Updated Dec 15, 2010
Want to make a kagillion emails on your home connection? go for it.
/socklisten email 25
/mkdir email
You must do these in order for the script to work.
Email yourself, "anythinghere@yourip.com"
Example: "anythinghere@127.0.0.1"
You should get a tip that says "new email" double click it and bam you just recieved mail. Have fun guys :P.
Also check out my website hosted in MSL:
http://Termz.mindhackers.org
And you can email me at
Termz@Termz.mindhackers.org ;).
(What I did was get a subdomain to set an A record to my ip and bam, email server anyone?)
on *:connect: if (!$sock(email)) socklisten email 25
on *:socklisten:email: {
var %x email $+ $ticks
sockaccept %x
echo -s 04Email Attempted
sockwrite -nt %x 220 $sock($sockname).ip ESMTP Postfix
}
on *:sockread:email*: {
var %x
sockread %x
tokenize 32 %x
if ($sock($sockname).mark == open) write email/ $+ $sockname $+ .txt $1-
if (EHLO == $1) sockwrite -nt $sockname 250 Hello relay.example.org, I am glad to meet you
if (MAIL == $1) sockwrite -nt $sockname 250 Ok
if (RCPT == $1) sockwrite -nt $sockname 250 Ok
if (DATA == $1) sockwrite -nt $sockname 354 End data with <CR><LF>.<CR><LF>
if (for == $1) write email/ $+ $sockname $+ .txt $2
if (subject: == $1) {
write email/email.txt $sockname - Subject: $2- - $fulldate
write email/ $+ $sockname $+ .txt Subject: $2- - $fulldate
}
if (from: == $1) {
write email/ $+ $sockname $+ .txt From: $2-
sockmark $sockname open
noop $tip(Email,New Email!,You have recieved a new email!,60,,,run email/ $+ $sockname $+ .txt)
}
if ($1- == .) sockwrite -nt $sockname 250 Ok: queued as $remove($sockname,email)
if ($1 == quit) {
sockwrite -nt $sockname 221 Bye
sockclose $sockname
}
}
