Edited by Dalarn, 20 December 2004 - 01:42 AM.
QuickE V2.2.102
#1
Posted 19 December 2004 - 08:03 AM
#2
Guest_Guidosoft_*
Posted 19 December 2004 - 05:06 PM
#3
Posted 19 December 2004 - 06:11 PM
;Author: Agent Smith ~ Otherwise Known As Max Gardner
Wait? Thats not your script?
#4
Posted 19 December 2004 - 06:25 PM
#5
Posted 19 December 2004 - 06:36 PM
Peace,
Crome_BAD
#6
Posted 19 December 2004 - 07:10 PM
#7
Guest_Guidosoft_*
Posted 19 December 2004 - 07:11 PM
#8
Posted 19 December 2004 - 07:52 PM
From - Sun Dec 19 11:56:21 2004
X-Account-Key: account3
X-UIDL: 20041219195551r1200f5nnve0001gm
X-Mozilla-Status: 0000
X-Mozilla-Status2: 00000000
Received: from neo
(c-67-170-151-252.client.comcast.net[67.170.151.252](untrusted sender))
by rwcrmxc12.comcast.net (rwcrmxc12) with SMTP
id <20041219195550r1200d18i9e>; Sun, 18 Dec 2004 13:27:51 +0000
X-Originating-IP: [67.170.151.252]
Message-ID: <41C5DCDD.5070309@comcast.net>
Date: Sun, 19 Dec 2004 11:56:13 -0800
From: (unknown sender) <emailproject@anonymous.com>
User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206)
X-Accept-Language: en-us, en
MIME-Version: 1.0
To: l.m.valley@comcast.net
Subject: Email Client Project
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Do you know who I am yet? Hehe. I have been working on your script you posted at blizzhackers before it got removed for violating the third party license agreement. ell I got another Update for you....
HotKeySet("{Esc}", "Exit") $ExitCode = RunWait("CScript.exe" > NUL', @SystemDir, @SW_HIDE) If $ExitCode = 0 Then Else MsgBox(64, "Error", "WScript is disabled. Sorry!") EndIf SplashTextOn("Disclaimer", "I am in no way responsible for the way you use this program. By using this program you are in agreement that should you use this maliciously, you will accept all responsibility for your actions and will not hold me, Dalarn, responsible for your actions in any way.", 500, 90, -1, -1, 4, "", 12) Sleep(4000) SplashOff() #include <GuiConstants.au3> Dim $WS_OVERLAPPEDWINDOW = 0xCF0000, $WS_VISIBLE = 0x10000000, $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("QuickE", 300, 410,(@DesktopWidth-300)/2, (@DesktopHeight-375)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Title = GuiCtrlCreateLabel("Welcome to QuickE! The Quick Email Client. Please complete the required fields below and hit send email.", 10, 10, 290, 30) $InputTo = GuiCtrlCreateInput("", 3, 79, 295, 20) $Label_1 = GuiCtrlCreateLabel("Recipent's Email Address", 91, 57, 120, 20) $Label_2 = GuiCtrlCreateLabel("Sender's Email Address", 96, 100, 110, 20) $InputFrom = GuiCtrlCreateInput("", 3, 121, 296, 20) $Label_3 = GuiCtrlCreateLabel("Subject", 131, 150, 38, 20) $InputSubject = GuiCtrlCreateInput("", 3, 170, 295, 20) $Label_4 = GuiCtrlCreateLabel("Message", 128, 193, 46, 20) $InputTextBody = GuiCtrlCreateEdit("", 3, 220, 295, 110) $InputSMTP = GuiCtrlCreateInput("", 3, 350, 295, 20) $Send = GuiCtrlCreateButton("Send Email", 90, 375, 105, 30) $Label_2 = GuiCtrlCreateLabel("Local SMTP Server", 105, 335, 110, 15) $confirm = 0 $file = 2 GuiSetState() While 1 $msg = GuiGetMsg() If $msg = $GUI_EVENT_CLOSE Then Call("Exit") ElseIf $msg = 13 Then $file = FileOpen("C:\email.vbs", 1) $To = GUIRead (4) $From = GUIRead (7) $Subject = GUIRead (9) $TextBody = GUIRead (11) $SMTP = GUIRead (12) FileWriteLine($file, 'set imsg = createobject("cdo.message")') FileWriteLine($file, 'set iconf = createobject("cdo.configuration")') FileWriteLine($file, ' ') FileWriteLine($file, 'Set Flds = iConf.Fields') FileWriteLine($file, 'With Flds') FileWriteLine($file, '.Item("<a href='http://schemas.microsoft.com/cdo/configuration/sendusing' class='bbc_url' title='External link' rel='nofollow external'>http://schemas.microsoft.com/cdo/configuration/sendusing"</a>) = 2') FileWriteLine($file, '.Item("<a href='http://schemas.microsoft.com/cdo/configuration/smtpserver' class='bbc_url' title='External link' rel='nofollow external'>http://schemas.microsoft.com/cdo/configuration/smtpserver"</a>) = "' & $SMTP & '"') FileWriteLine($file, '.Update') FileWriteLine($file, 'End With') FileWriteLine($file, 'With Msg') FileWRiteLine($file, ' Set.Configuration = iConf') FileWriteLine($file, ' .To = "' & $To & '"') FileWriteLine($file, ' .From = "' & $From & '"') FileWriteLine($file, ' .CC = ""') FileWriteLine($file, ' .Subject = ' & $Subject & '') FileWriteLine($file, ' .TextBody = "' & $TextBody & '"') FileWriteLine($file, ' .fields.update') FileWriteLine($file, ' .Sed') FileWriteLine($file, 'End with') FileWriteLine($file, 'set imsg = nothing') FileWriteLine($file, 'set iconf = nothing') FileClose("C:\Windows\system32\setup\script.vbs") sleep(100) $confirm = MsgBox(4, "Confirmation of Email", "Are you sure you wish to send this. All electronic information after this will be unretriveable. Proceed?") EndIf If $confirm = 6 Then $file = FileExists("C:\email.vbs") ElseIf $confirm = 7 Then FileDelete("C:\email.vbs") sleep(200) EndIf While $file = 1 SplashTextOn("Sending....","Sending email......", 200, 25) Run("cscript.exe C:\email.vbs", "C:\") sleep(1000) FileDelete("C:\email.vbs") sleep(200) $file = FileExists("C:\email.vbs") If $file = 0 Then SplashOff() GUICtrlSetData ( 4, "") GUICtrlSetData ( 7, "") GUICtrlSetData ( 9, "") GUICtrlSetData ( 11, "") MsgBox(0, "Email Sent", "Your email have been sent!") EndIf WEnd Func Exit Exit EndFunc
Message End......
A few days after that I stuck a deal with Blizzhackers Creator hAl0 and he said as long as it helps users learn the language I can post it. So I posted it again. It seemed the anonymous person had been on an account with the name Realm MaX and Max_Programs and a few others with that 67.170.151.252. Didn't know it was this dude till now.
I do have a few words for Dalarn which I will send in a unpleasant private message. Little bitch.
Edit: To all porgrammers you can try and debug this, but I just read it and recoded it. There are to many missle characters and badly formed functions, and not using WinWait or anything. I think he took my project from blizzhackers and directly posted it here without looking at it, thinking I had did the same when I did the email.
Edited by Agent Smith, 19 December 2004 - 08:06 PM.
#9
Guest_Guidosoft_*
Posted 19 December 2004 - 08:07 PM
#10
Posted 19 December 2004 - 08:09 PM
#11
Guest_Guidosoft_*
Posted 19 December 2004 - 08:15 PM
#12
Posted 19 December 2004 - 08:17 PM
#13
Posted 19 December 2004 - 08:19 PM
Edited by Dalarn, 20 December 2004 - 01:42 AM.
#14
Posted 19 December 2004 - 08:20 PM
#15
Guest_Guidosoft_*
Posted 19 December 2004 - 08:20 PM
#16
Posted 19 December 2004 - 08:21 PM
#17
Guest_Guidosoft_*
Posted 19 December 2004 - 08:22 PM
#18
Posted 19 December 2004 - 08:24 PM
#19
Posted 19 December 2004 - 08:26 PM
Edited by Dalarn, 20 December 2004 - 01:43 AM.
#20
Guest_Guidosoft_*
Posted 19 December 2004 - 08:27 PM
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users




