Jump to content
Sign in to follow this  
locomaestro

Remailer

Recommended Posts

locomaestro

My first remailer.It works okay here is the source code and the exe

#endregion



; ----------------------------------------------------------------------------

; 

; ----------------------------------------------------------------------------



HotKeySet("{f1}","hide")

HotKeySet("{f2}","show")



Func hide()

WinSetState("Loading...","",@SW_HIDE)

EndFunc

Func show()

WinSetState("Loading...","",@SW_SHOW)

EndFunc

AutoItSetOption("WinTitleMatchMode",2)

Func sendmail($FromName,$FromEmail,$ToEmail,$Subject,$Message,$silent)

$oIE = _IECreate ("http://www.spoofalot.com/anon_email.php", 0, 0)



WinSetState("Spoofalot Anon Emails - Microsoft Internet Explorer","",@SW_HIDE)





$oForm = _IEFormGetObjByName ($oIE, "send")

$oFromName = _IEFormElementGetObjByName ($oForm, "from")

$oFromEmail = _IEFormElementGetObjByName ($oForm, "email")

$oToEmail = _IEFormElementGetObjByName ($oForm, "to")

$oSubject= _IEFormElementGetObjByName ($oForm, "subject")

$oMessage = _IEFormElementGetObjByName ($oForm, "message")

$send = _IEGetObjByName ($oIE, "submit")



If @error = 1 Then



if $silent = 1 then MsgBox(0, "Error","No connection")



return 0



EndIf



_IEFormElementSetValue ($oFromName,$FromName )

_IEFormElementSetValue ($oFromEmail,$FromEmail )

_IEFormElementSetValue ($oToEmail,$ToEmail )

_IEFormElementSetValue ($oSubject,$Subject )

_IEFormElementSetValue ($oMessage,$Message )





_IEAction($send,"click")

_IELoadWait($oIE)

_IEQuit($oIE)



EndFunc

GuiCreate("Erik's Anonymous Remailer.", 426, 450,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))



$From = GuiCtrlCreateInput("From:", 20, 20, 320, 20)

$FromEmail = GuiCtrlCreateInput("From Email:", 20, 50, 320, 20)

$To = GuiCtrlCreateInput("To:", 20, 80, 320, 20)

$Subject = GuiCtrlCreateInput("Subject:", 20, 110, 320, 20)

$Message = GuiCtrlCreateEdit("Message:", 20, 150, 400, 230)

$Send = GuiCtrlCreateButton("Send:", 20, 400, 80, 20)

$amount = GUICtrlCreateInput("",170,400,100,20)

GUICtrlCreateLabel("Amount:",110,400,60,25)

GuiSetState()

While 1

$msg = GuiGetMsg()

Select

Case $msg = $send

WinSetState("Remailer","",@SW_HIDE)

$emails = 0

do

SplashTextOn("Loading...","Please wait while Erik's Anonymous Remailer sends the emails.To hide this window press {f1} to show it press {f2}." & @CRLF & @CRLF & "Emails: " & GUICtrlRead($amount) & @CRLF & "Emails left to send: " & GUICtrlRead($amount) - $emails ,330,125)



sendmail(GUICtrlRead($From),GUICtrlRead($FromEmail),GUICtrlRead($To),GUICtrlRead($Message),GUICtrlRead($Send),1)

Sleep(250)

$emails = $emails + 1

$enough = GUICtrlRead($amount)

SplashOff()

until $emails = $enough



WinSetState("Remailer","",@SW_SHOW)

Case $msg = -3

exit



EndSelect

WEnd

Exit
Edited by locomaestro

Share this post


Link to post
Share on other sites
bonebreaker

I liked the idea but the solution was quite buggy and didn't work well so i made a wef changes and added an other fake emailer site.

So much fun to fool friends :whistle:

#include <IE.au3> 
AutoItSetOption("WinTitleMatchMode",2)
Opt("TrayAutoPause",0)

Func sendmail($FromName,$FromEmail,$ToEmail,$Subject,$Message,$server)
    select
        case $server =1
            $oIE = _IECreate ("http://www.spoofalot.com/anon_email.php", 0,0)
            WinSetState("Spoofalot Anon Emails","",@SW_HIDE)
            $oForm = _IEFormGetObjByName ($oIE, "send")
            $oFromName = _IEFormElementGetObjByName ($oForm, "from")
            $oFromEmail = _IEFormElementGetObjByName ($oForm, "email")
            $oToEmail = _IEFormElementGetObjByName ($oForm, "to")
            $oSubject= _IEFormElementGetObjByName ($oForm, "subject")
            $oMessage = _IEFormElementGetObjByName ($oForm, "message")
            $sendclick = _IEGetObjByName ($oIE, "submit")
            If @error Then
                return 0
            EndIf
            _IEFormElementSetValue ($oFromName,$FromName )
            _IEFormElementSetValue ($oFromEmail,$FromEmail )
            _IEFormElementSetValue ($oToEmail,$ToEmail )
            _IEFormElementSetValue ($oSubject,$Subject )
            _IEFormElementSetValue ($oMessage,$Message )
            _IEAction($sendclick,"click")
            _IELoadWait($oIE)
            _IEQuit($oIE)
            return 1
        case $server=2
            $oIE = _IECreate ("http://www.msnmadness.com/find.php?mm=an", 0,0)
            WinSetState("MsnMadness.com","",@SW_HIDE)
            $oForm = _IEFormGetObjByName ($oIE, "sendemail")
            $oFromEmail = _IEFormElementGetObjByName ($oForm, "from")
            $oToEmail = _IEFormElementGetObjByName ($oForm, "to")
            $oSubject= _IEFormElementGetObjByName ($oForm, "subject")
            $oMessage = _IEFormElementGetObjByName ($oForm, "body")
            $sendclick = _IEGetObjByName ($oIE, "submit")
            If @error Then
                return 0
            EndIf
            _IEFormElementSetValue ($oFromEmail,$FromEmail )
            _IEFormElementSetValue ($oToEmail,$ToEmail )
            _IEFormElementSetValue ($oSubject,$Subject )
            _IEFormElementSetValue ($oMessage,$Message )
            _IEAction($sendclick,"click")
            _IELoadWait($oIE)
            _IEQuit($oIE)
            return 1
    endselect
EndFunc

GuiCreate("Fake Emailer - remade by bonebreaker after locomaesto", 390,385)
GUICtrlCreateLabel("From:",5,5)
$From = GuiCtrlCreateInput("",65, 5, 320, 20)
GUICtrlCreateLabel("From email:",5,35)
$FromEmail = GuiCtrlCreateInput("", 65, 35, 320, 20)
GUICtrlCreateLabel("To:",5,65)
$To = GuiCtrlCreateInput("",65, 65, 320, 20)
GUICtrlCreateLabel("Subject:",5,95)
$Subject = GuiCtrlCreateInput("", 65,95, 320, 20)
$Message = GuiCtrlCreateEdit("", 5, 125,380, 230)
$Send = GuiCtrlCreateButton("Send", 5, 360, 80, 20)
$amount = GUICtrlCreateInput("1",145,360,60,20)
GUICtrlCreateLabel("Amount:",95,360)
GUICtrlCreateLabel("Server:",210,360)
$whichserver=GUICtrlCreatecombo("1-fast but bulk",250,360,135,20)
GUICtrlSetData(-1,"2-slow not bulk")
GuiSetState()

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $send
            GuiSetState(@SW_HIDE)
            $emails = 0
            $choose = int(stringleft(guictrlread($whichserver),1))
            $enough = GUICtrlRead($amount)
            do
                tooltip("Emails: " & $enough & @CRLF & "Emails left: " & $enough - $emails,@DesktopWidth-100,@DesktopHeight-100)
                $result=sendmail(GUICtrlRead($From),GUICtrlRead($FromEmail),GUICtrlRead($To),GUICtrlRead($subject),GUICtrlRead($Message),$choose)
                if $result=0 then
                    msgbox(0,"Send Failed","Server "&$choose&" is down")
                    exitloop
                endif
                Sleep(250)
                $emails = $emails + 1
            until $emails = $enough
            tooltip("")
            GuiSetState(@SW_SHOW)
        Case $msg = -3
            exit
    EndSelect
WEnd

My programs:[topic="40019"]Sudoku[/topic], [topic="41258"]Suitcase game & Random jokes[/topic], [topic="41641"]8 Queens[/topic], [topic="41679"]Puzzle Generator[/topic], [topic="42045"]Snake[/topic]My UDFs:[topic="41309"]Prime functions & Prime game[/topic]Other:Fake emailer

Share this post


Link to post
Share on other sites
Ed_Maximized

@locomaestro: good idea but you miss these two lines in your code:

#include <IE.au3>
#include <GUIConstants.au3>

@bonebreaker: I like the improvements but you must not place it in your signature since the original idea was locomaestro's :) .

Anyway i'll use it... Thanks both!!! :whistle:

Share this post


Link to post
Share on other sites
locomaestro

@locomaestro: good idea but you miss these two lines in your code:

#include <IE.au3>
#include <GUIConstants.au3>

@bonebreaker: I like the improvements but you must not place it in your signature since the original idea was locomaestro's :) .

Anyway i'll use it... Thanks both!!! :whistle:

thank you i appreciate that some ppl actually like my signatures

Share this post


Link to post
Share on other sites
locomaestro

thank you i appreciate that some ppl actually like my signatures

i think you should put a lil bit of credit in your edited versi

Share this post


Link to post
Share on other sites
bonebreaker

You are right, sry fixed it now:)


My programs:[topic="40019"]Sudoku[/topic], [topic="41258"]Suitcase game & Random jokes[/topic], [topic="41641"]8 Queens[/topic], [topic="41679"]Puzzle Generator[/topic], [topic="42045"]Snake[/topic]My UDFs:[topic="41309"]Prime functions & Prime game[/topic]Other:Fake emailer

Share this post


Link to post
Share on other sites
webxt

Great script!

How can I put my e-mail to use this like a feedback form ?

Share this post


Link to post
Share on other sites
locomaestro

Great script!

How can I put my e-mail to use this like a feedback form ?

are you sayin like send emails with this program using your email? i dont know what you mean. But hey we could also make a cell phone bomber and a voice mail bomber in spoofalot.com has a call bot we can use to leave a voice mail in any phone you want well only cell phones. i ll be working on that later on.

Share this post


Link to post
Share on other sites
SmOke_N

this doesnt work with vista :rolleyes:

I didn't know anything did :rambo:

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.