INFINITY

[InfinityBoT]

ok. although most the site is still in construction. here is the new URL.

the site will fully be up to date in the next few days. hopefully :P

[<†>Minera<†>]

nice nice nice +1

[Theworldmayneverknow]

appreciate all the hard work you are putting into this, cant wait to try it out.

[amakrkr]

heh todays is may 15.

I hope you guys will release it =)

[InfinityBoT]

yup we will update the site later tonight ... infomation will be on there i have a exam in a few minuets so i cannot explain much at the moment .. but infomation will be up within the next few hours

[<†>Minera<†>]

thx and gl

[InfinityBoT]

ding dong.. parcel arrived .. . Important note!. DO NOT JUST DOWNLOAD THE BOT. IT IS NECECCERY THAT YOU READ THE INFOMATION ON THE PAGE. ALSO THE BOT IS NOT TO BE HOSTED ELSEWERE.

[<†>Minera<†>]

what was the link again

[InfinityBoT]

go to the bot page

[beentheredonethat]

nice bot, hope to hear more soon

[InfinityBoT]

Originally Posted by beentheredonethat

nice bot, hope to hear more soon

thanks...

updates and infomation on bugs/fixes/realeases can be found on our sites forum. we wont post them here. (except the initial release)

[Susuke]

i don't test, i decompile at first and i want to know why do you need in your script TCP and _GetIP? Some information from the Bot:

Func _SMTPSEND($V_SOCKET, $S_SEND, $S_REPLYCODE, $B_TRACE, $S_INTREPLY = "", $S_FIRST = "")
Local $S_RECEIVE, $I, $TIMER
If $B_TRACE Then _SMTPTRACE($S_SEND)
If $S_INTREPLY <> "" Then
If $S_FIRST <> -1 Then
If TCPSend($V_SOCKET, $S_FIRST) = 0 Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndIf
EndIf
$S_RECEIVE = ""
$TIMER = TimerInit()
While StringLeft($S_RECEIVE, StringLen($S_INTREPLY)) <> $S_INTREPLY And TimerDiff($TIMER) < 45000
$S_RECEIVE = TCPRecv($V_SOCKET, 1000)
If $B_TRACE And $S_RECEIVE <> "" Then _SMTPTRACE("intermediate->" & $S_RECEIVE)
WEnd
EndIf
If TCPSend($V_SOCKET, $S_SEND) = 0 Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndIf
$TIMER = TimerInit()
$S_RECEIVE = ""
While $S_RECEIVE = "" And TimerDiff($TIMER) < 45000
$I += 1
$S_RECEIVE = TCPRecv($V_SOCKET, 1000)
If $S_REPLYCODE = "" Then ExitLoop
WEnd
If $S_REPLYCODE <> "" Then
If $B_TRACE Then _SMTPTRACE($I & " <- " & $S_RECEIVE)
If StringLeft($S_RECEIVE, StringLen($S_REPLYCODE)) <> $S_REPLYCODE Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
If $B_TRACE Then _SMTPTRACE("<-> " & $S_REPLYCODE, 5)
Return 2
EndIf
EndIf
Return 0
EndFunc


Func _TCPIpToName($SIP, $IOPTION = Default, $HDLL_WS2_32 = Default)
Local $VBINIP, $VADLLCALL, $VPTRHOSTENT, $VHOSTENT, $SHOSTNAMES, $VH_ALIASES, $I
Local $INADDR_NONE = -1, $AF_INET = 2, $SSEPERATOR = @CR
If $IOPTION = Default Then $IOPTION = 0
If $HDLL_WS2_32 = Default Then $HDLL_WS2_32 = "Ws2_32.dll"
$VADLLCALL = DllCall($HDLL_WS2_32, "long", "inet_addr", "str", $SIP)
If @error Then Return SetError(1, 0, "")
$VBINIP = $VADLLCALL[0]
If $VBINIP = $INADDR_NONE Then Return SetError(2, 0, "")
$VADLLCALL = DllCall($HDLL_WS2_32, "ptr", "gethostbyaddr", "long*", $VBINIP, "int", 4, "int", $AF_INET)
If @error Then Return SetError(3, 0, "")
$VPTRHOSTENT = $VADLLCALL[0]
If $VPTRHOSTENT = 0 Then
$VADLLCALL = DllCall($HDLL_WS2_32, "int", "WSAGetLastError")
If @error Then Return SetError(5, 0, "")
Return SetError(4, $VADLLCALL[0], "")
EndIf
$VHOSTENT = DllStructCreate("ptr;ptr;short;short;ptr", $VPTRHOSTENT)
$SHOSTNAMES = __TCPIPTONAME_SZSTRINGREAD(DllStructGetData($VHOST ENT, 1))
If @error Then Return SetError(6, 0, $SHOSTNAMES)
If $IOPTION = 1 Then
$SHOSTNAMES &= $SSEPERATOR
For $I = 0 To 63
$VH_ALIASES = DllStructCreate("ptr", DllStructGetData($VHOSTENT, 2) + ($I * 4))
If DllStructGetData($VH_ALIASES, 1) = 0 Then ExitLoop
$SHOSTNAMES &= __TCPIPTONAME_SZSTRINGREAD(DllStructGetData($VH_AL IASES, 1))
If @error Then
SetError(7)
ExitLoop
EndIf
Next
Return StringSplit(StringStripWS($SHOSTNAMES, 2), @CR)
Else
Return $SHOSTNAMES
EndIf
EndFunc




$SETUP = 0
$SECTION = 0
$REPLY = 0
$ACOORD = 0
$DEATHCHECK = 0
$DEADRELOADCHECK = 0
$HEALTH = 0
$LEVEL = 1
$ACCOUNTNAME = 0
$ACCOUNTPASS = 0
$SELECTEDSERVER = 0
$REPLYSPEACH = 0
$PUBLICIP = _GetIP()
$IPRESULT = 0
$GAMEDIR = 0
$GAMEREADYPIXCHECK = 0
$PUBLICIP = _GetIP()
$IPRESULT = 0
$REPLY = 0
$LOGINATTEMPT = 0
$CONNECTIONERRORCHECK = 0
$CONNECTIONERRORRESTARTCOUNT = 0
$CHARACTERPOSITION = 2


My Tipp don't download it and the Botscript is really low :P

#ban (post malware)

Edit:

if forgot smtp-mailer xD

Func _INetSmtpMail($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT = "", $AS_BODY = "", $S_HELO = "", $S_FIRST = " ", $B_TRACE = 0)
Local $V_SOCKET
Local $S_IPADDRESS
Local $I_COUNT
Local $S_SEND[6]
Local $S_REPLYCODE[6]
If $S_SMTPSERVER = "" Or $S_FROMADDRESS = "" Or $S_TOADDRESS = "" Or $S_FROMNAME = "" Or StringLen($S_FROMNAME) > 256 Then
SetError(1)
Return 0
EndIf
If $S_HELO = "" Then $S_HELO = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($S_SMTPSERVER, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$S_IPADDRESS = $S_SMTPSERVER
Else
$S_IPADDRESS = TCPNameToIP($S_SMTPSERVER)
EndIf
If $S_IPADDRESS = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$V_SOCKET = TCPConnect($S_IPADDRESS, 25)
If $V_SOCKET = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf
$S_SEND[0] = "HELO " & $S_HELO & @CRLF
If StringLeft($S_HELO, 5) = "EHLO " Then $S_SEND[0] = $S_HELO & @CRLF
$S_REPLYCODE[0] = "250"
$S_SEND[1] = "MAIL FROM: <" & $S_FROMADDRESS & ">" & @CRLF
$S_REPLYCODE[1] = "250"
$S_SEND[2] = "RCPT TO: <" & $S_TOADDRESS & ">" & @CRLF
$S_REPLYCODE[2] = "250"
$S_SEND[3] = "DATA" & @CRLF
$S_REPLYCODE[3] = "354"
Local $ARESULT = _Date_Time_GetTimeZoneInformation()
Local $BIAS = -$ARESULT[1] / 60
Local $BIASH = Int($BIAS)
Local $BIASM = 0
If $BIASH <> $BIAS Then $BIASM = Abs($BIAS - $BIASH) * 60
$BIAS = StringFormat(" (%+.2d%.2d)", $BIASH, $BIASM)
$S_SEND[4] = "From:" & $S_FROMNAME & "<" & $S_FROMADDRESS & ">" & @CRLF & "To:" & "<" & $S_TOADDRESS & ">" & @CRLF & "Subject:" & $S_SUBJECT & @CRLF & "Mime-Version: 1.0" & @CRLF & "Date: " & _DateDayOfWeek(@WDAY, 1) & ", " & @MDAY & " " & _DateToMonth(@MON, 1) & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & $BIAS & @CRLF & "Content-Type: text/plain; charset=US-ASCII" & @CRLF & @CRLF
$S_REPLYCODE[4] = ""
$S_SEND[5] = @CRLF & "." & @CRLF
$S_REPLYCODE[5] = "250"
If _SMTPSEND($V_SOCKET, $S_SEND[0], $S_REPLYCODE[0], $B_TRACE, "220", $S_FIRST) Then
SetError(50)
Return 0
EndIf
For $I_COUNT = 1 To UBound($S_SEND) - 2
If _SMTPSEND($V_SOCKET, $S_SEND[$I_COUNT], $S_REPLYCODE[$I_COUNT], $B_TRACE) Then
SetError(50 + $I_COUNT)
Return 0
EndIf
Next
For $I_COUNT = 0 To UBound($AS_BODY) - 1
If StringLeft($AS_BODY[$I_COUNT], 1) = "." Then $AS_BODY[$I_COUNT] = "." & $AS_BODY[$I_COUNT]
If _SMTPSEND($V_SOCKET, $AS_BODY[$I_COUNT] & @CRLF, "", $B_TRACE) Then
SetError(500 + $I_COUNT)
Return 0
EndIf
Next
$I_COUNT = UBound($S_SEND) - 1
If _SMTPSEND($V_SOCKET, $S_SEND[$I_COUNT], $S_REPLYCODE[$I_COUNT], $B_TRACE) Then
SetError(5000)
Return 0
EndIf
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndFunc

[InfinityBoT]

i have no idea what your posting there.. that isnt our bot decompiled..

the getIP was left over in the script. and was unnoticed by our programmers when we public test it.. it has since then been removed ..

but it was origionally attached to a precaution to make sure noone used the bot or sections of our bot while we had them uploaded to the site and was still doing Alpha tests

this is the only time the IP was used.. and we had it disabled in the public release, although it may have still been there it didnt work.

#include <Inet.au3>
$PublicIP = _GetIP()
$IpResult = 0

InetGet("http:URL.com/InfinityBot/IP.ini",@ScriptDir & "\IP.ini")
$IpResult = IniRead(@Scriptdir & "\IP.ini", "IP", $PublicIP, "0")
IniWrite("config.ini", "Account", "IPallow", $IpResult)

and another on the main bot (because it was origionally split to a bot and a setup exe,

wich read the config file


Contents of the file on our severs
was

[IP]
9x.96.***.***=1

wich suprisingly is the IP of our computers.

and there is no use of TCP in our script to my knowlage.

==================
and the bot script being low.. it is still in beta , we are not finished with it.


all i can say if you dont want to test it.. DONT,

[Drakonis]

there is no readme for the file.

[5hoursez]

ignore the single poster.. and his l33t decompiler skills globbing up the thread :P