Sign in to follow this  
Followers 0
locomaestro

Remailer

11 posts in this topic

#1 ·  Posted (edited)

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



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

@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: 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

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

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

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

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

this doesnt work with vista :rolleyes:

Share this post


Link to post
Share on other sites

this doesnt work with vista :rolleyes:

I didn't know anything did :rambo:

[center]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.[/center]

Share this post


Link to post
Share on other sites

rofl

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  
Followers 0