Valhalla Legends Forums Archive | Battle.net Bot Development | D2XP

AuthorMessageTime
GoSuGaMING
i have been working on this for 5 hours straight and its so simple! why wont it work! this is waht i have put together so far!


[code]
Private Sub p0x51(Data As String)
Dim Hash As String, mpqname As String, ExeInfo As String, version As Long, Checksum As Long, Result As Long, modDatabaselProdID As Double, modDatabaselValue1 As Double, modDatabaselValue2 As Double, lngProdID As Long, lngValue1 As Long, lngValue2 As Long, AccountHash As String, modDatabaselkey As Long
mpqname = Mid(Data, InStr(Data, "I"), 12)
Hash = Mid(Mid(Data, 34), InStr(Mid(Data, 34), Chr(0)) + 1, InStr(Mid(Mid(Data, 34), InStr(Data, Chr(0)) + 1), Chr(0)))
Hash = Replace(Hash, Chr(0), "")
ExeInfo = Space(256)
modDatabaselkey = GetTickCount()
Select Case vProduct
Case "RATS", "PXES"
Result = z(App.Path & "\star\Starcraft.exe", App.Path & "\star\storm.dll", App.Path & "\star\battle.snp", Hash, version, Checksum, ExeInfo, mpqname)
Case "NB2W"
Result = z(App.Path & "\war2\Warcraft II BNE.exe", App.Path & "\war2\storm.dll", App.Path & "\war2\battle.snp", Hash, version, Checksum, ExeInfo, mpqname)
Case "VD2D"
Result = z(App.Path & "\d2dv\game.exe", App.Path & "\d2dv\bnclient.dll", App.Path & "\d2dv\d2client.dll", Hash, version, Checksum, ExeInfo, mpqname)
Case "PX2D"
Result = z(App.Path & "\d2xp\game.exe", App.Path & "\d2xp\bnclient.dll", App.Path & "\d2xp\d2client.dll", Hash, version, Checksum, ExeInfo, mpqname)
End Select
NullTruncString ExeInfo
DecodeCDKey vCDkey, modDatabaselProdID, modDatabaselValue1, modDatabaselValue2
lngProdID = CLng(modDatabaselProdID)
lngValue1 = CLng(modDatabaselValue1)
lngValue2 = CLng(modDatabaselValue2)
AccountHash = String(5 * 4, vbNullChar)
c AccountHash, Servers, lngProdID, lngValue1, lngValue2, modDatabaselkey
If Result = 0 Then
Form1.AddC vbRed, "Hashing Failed"
Form1.winsock.close
Exit Sub
End If
InsertDWORD modDatabaselkey
InsertDWORD version
InsertDWORD Checksum
InsertDWORD 1
InsertDWORD 0
InsertDWORD Len(vCDkey)
InsertDWORD CLng(modDatabaselProdID)
InsertDWORD CLng(modDatabaselValue1)
InsertDWORD 0
InsertNonNTString AccountHash

If varProduct = "PX2D" Then
Dim modDatabaselProdID2 As Double, modDatabaselValue12 As Double, modDatabaselValue22 As Double
Dim lngProdID2 As Long, lngValue12 As Long, lngValue22 As Long
Dim AccountHash2 As String, TempString2 As String


DecodeCDKey varCDkey2, modDatabaselProdID2, modDatabaselValue12, modDatabaselValue22

lngProdID2 = CLng(modDatabaselProdID2)
lngValue12 = CLng(modDatabaselValue12)
lngValue22 = CLng(modDatabaselValue22)
AccountHash2 = String(5 * 4, vbNullChar)
c AccountHash2, ServerKey, lngProdID2, lngValue12, lngValue22, modDatabaselkey

InsertDWORD Len(varCDkey2)
InsertDWORD CLng(modDatabaselProdID2)
InsertDWORD CLng(modDatabaselValue12)
InsertDWORD &H0
InsertNonNTString AccountHash2
End If

InsertNTString ExeInfo
InsertNTString "(Terminal Chat)"
sendPacket 81

Form1.AddC QBColor(8), "MPQ Name: " & mpqname
Form1.AddC QBColor(8), "Hash Data: " & Hash
Form1.AddC QBColor(8), "EXE Information: " & ExeInfo


End Sub[/code]

any idea why it isnt working? i dont see anything wrong with it!
April 9, 2004, 12:25 AM
Flame
You didn't really specify a specific problem... but I do see a problem. The fourth DWORD of that packet is the number of Cd-Keys, so when you are using a product with more than one Cd-Key (D2XP for example) that will be a 2 instead of a 1.
April 9, 2004, 12:51 AM
BaDDBLooD
how's your bot coming mike?

Mine is doing good! ^_^

EDIT: Thanks to the good people of [vL] :) aka: Chonic & MyndFyre & UserLoser

EDIT: I'll remove this later.. i just wanted to ask him a question since he blocked me on aim!
April 9, 2004, 1:07 AM
ChR0NiC
Hmmmmmm, start by writing your own bot, that is clearly from Fire Bot 1.8, once you UNDERSTAND VB more and stop stealing source, maybe then you may return here and ask for help like a man with your own work.

Edit: Forgive my rudeness but I am sick of people who know little to nothing about programming sticking their names on bots and claiming it to be their own.

[quote author=GoSuGaMING link=board=17;threadid=6212;start=0#msg54119 date=1081470349]
i have been working on this for 5 hours straight and its so simple! why wont it work! this is waht i have put together so far!
[/quote]

You see? you didn't put anything together....sorry but I am kind of enraged right now.
April 9, 2004, 1:45 AM
Newby
[quote author=ChR0NiC link=board=17;threadid=6212;start=0#msg54146 date=1081475145]
Hmmmmmm, start by writing your own bot, that is clearly from Fire Bot 1.8
[/quote]

No it's not. Enlighten me to where this coding can be found in FiRe BoT 1.8.

Infact, I'm dead sure it's not from Firebot 1.8 source.
April 9, 2004, 2:02 AM
ChR0NiC
Perhaps I was referring to Feanor's TCP Connection.

Here is Feanor's TCP Connection
[code]
Private Sub p0x51(Data As String)
Dim Hash As String, MPQName As String, exeinfo As String, version As Long, checksum As Long, Result As Long, dblProdID As Double, dblValue1 As Double, dblValue2 As Double, lngProdID As Long, lngValue1 As Long, lngValue2 As Long, AccountHash As String, dblkey As Long
MPQName = Mid(Data, InStr(Data, "I"), 12)
Hash = Mid(Mid(Data, 34), InStr(Mid(Data, 34), Chr(0)) + 1, InStr(Mid(Mid(Data, 34), InStr(Data, Chr(0)) + 1), Chr(0)))
Hash = Replace(Hash, Chr(0), "")
exeinfo = Space(256)
dblkey = GetTickCount()
Select Case varProduct
Case "RATS", "PXES"
Result = z(App.Path & "\star\Starcraft.exe", App.Path & "\star\storm.dll", App.Path & "\star\battle.snp", Hash, version, checksum, exeinfo, MPQName)
Case "NB2W"
Result = z(App.Path & "\war2\Warcraft II BNE.exe", App.Path & "\war2\storm.dll", App.Path & "\war2\battle.snp", Hash, version, checksum, exeinfo, MPQName)
Case "VD2D"
Result = z(App.Path & "\d2dv\game.exe", App.Path & "\d2dv\bnclient.dll", App.Path & "\d2dv\d2client.dll", Hash, version, checksum, exeinfo, MPQName)
End Select
NullTruncString exeinfo
DecodeCDKey varCDkey, dblProdID, dblValue1, dblValue2
lngProdID = CLng(dblProdID)
lngValue1 = CLng(dblValue1)
lngValue2 = CLng(dblValue2)
AccountHash = String(5 * 4, vbNullChar)
c AccountHash, Servers, lngProdID, lngValue1, lngValue2, dblkey
If Result = 0 Then
AddChat vbRed, "Hashing Failed"
Form1.sckbnet.Close
Exit Sub
End If
InsertDWORD dblkey
InsertDWORD version
InsertDWORD checksum
InsertDWORD 1
InsertDWORD 0
InsertDWORD Len(varCDkey)
InsertDWORD CLng(dblProdID)
InsertDWORD CLng(dblValue1)
InsertDWORD 0
InsertNonNTString AccountHash
InsertNTString exeinfo
InsertNTString "Feanor"
sendPacket 81
End Sub
[/code]

It's not exact, but I'm sure he could have spliced in a the D2XP from another bot.

Edit: And wow maybe a few variable names are different, but anyone can do that.

Edit2: One of the biggest clues is, usually people who steal code, don't have a problem posting someone elses entire code, but if they wrote something themselves, suddenly it's a big secret or they may just post a tiny part.
April 9, 2004, 2:06 AM
Noodlez
Chronic, no one has ever called you hypocrital in life, I assume?
April 9, 2004, 2:55 AM
Null
let he without sin cast the first stone.

Directed at Chronic not Noodlez
April 9, 2004, 2:57 AM
ChR0NiC
[quote author=Noodlez link=board=17;threadid=6212;start=0#msg54167 date=1081479329]
Chronic, no one has ever called you hypocrital in life, I assume?
[/quote]

You can say what you want, but you have no proof in which makes your statement true. And it's not, so choke on DEEZ NUTS

Edit: Also, the only reason I bitched him out so badly is because he claimed to make it himself, he litterally had the grapefruits to say "this is what I have come up with so far"
April 9, 2004, 5:08 AM
GoSuGaMING
[quote author=BaDDBLooD link=board=17;threadid=6212;start=0#msg54135 date=1081472860]

EDIT: I'll remove this later.. i just wanted to ask him a question since he blocked me on aim!
[/quote]

i didnt block you... my new s/n is gosugaming
April 9, 2004, 5:24 AM
o.OV
[quote author=ChR0NiC link=board=17;threadid=6212;start=0#msg54146 date=1081475145]
Hmmmmmm, start by writing your own bot, that is clearly from Fire Bot 1.8, once you UNDERSTAND VB more and stop stealing source, maybe then you may return here and ask for help like a man with your own work.

Edit: Forgive my rudeness but I am sick of people who know little to nothing about programming sticking their names on bots and claiming it to be their own.

[quote author=GoSuGaMING link=board=17;threadid=6212;start=0#msg54119 date=1081470349]
i have been working on this for 5 hours straight and its so simple! why wont it work! this is waht i have put together so far!
[/quote]

You see? you didn't put anything together....sorry but I am kind of enraged right now.
[/quote]

Heh. That is funny.
Why is it that you are so familiar with other people's source?
Does that not tell us something about you? ;)
April 9, 2004, 5:36 AM
BaDDBLooD
[quote author=o.OV link=board=17;threadid=6212;start=0#msg54193 date=1081489005]
[quote author=ChR0NiC link=board=17;threadid=6212;start=0#msg54146 date=1081475145]
Hmmmmmm, start by writing your own bot, that is clearly from Fire Bot 1.8, once you UNDERSTAND VB more and stop stealing source, maybe then you may return here and ask for help like a man with your own work.

Edit: Forgive my rudeness but I am sick of people who know little to nothing about programming sticking their names on bots and claiming it to be their own.

[quote author=GoSuGaMING link=board=17;threadid=6212;start=0#msg54119 date=1081470349]
i have been working on this for 5 hours straight and its so simple! why wont it work! this is waht i have put together so far!
[/quote]

You see? you didn't put anything together....sorry but I am kind of enraged right now.
[/quote]

Heh. That is funny.
Why is it that you are so familiar with other people's source?
Does that not tell us something about you? ;)
[/quote]

he's probly just seen so many n00b's pass off people's source codes as there own, he can do it by memory.. it's not that hard if you think about it!

EDIT: Told you i was right :)
April 9, 2004, 5:38 AM
ChR0NiC
Correct, this is not the first and surely will not be the last time I see someone rip off Feanor's work. But it's just the way the world works.
April 9, 2004, 5:41 AM
GoSuGaMING
wtf are you talking about?

Quote from: ChR0NiC on Yesterday at 08:45:45pm

this threat was posted today thats not even about me? how about we try making sense here?
April 9, 2004, 5:42 AM
ChR0NiC
Ok I've had fun flaming you, tell me what error you are getting and I'll see if I can help solve your problem, I feel you've suffered enough.

Edit: Also, make sure you have a BnetAuth.dll that supports all those the "C" and "Z" function, as some of the old ones don't.
April 9, 2004, 5:45 AM
GoSuGaMING
[code][/code]i dont know i mean i just tried changing the thing like the guy said cuz that is telling how many keys to send and i just put a simple if then statement saying

[code]
if varproduct = "PX2D" then
insertdword 2
else
insertdword 1
end if[/code]

now when i try and run the exe i get :
[01:39:14 AM] VerByte (Dec): 10
[01:39:16 AM] MPQ Name: IX86ver5.mpq
[01:39:16 AM] Hash Data: A=873862227 B=353203356 C=112561127 4 A=A-S B=B^C C=C^A A=A^B
[01:39:16 AM] EXE Information: game.exe 04/08/04 19:21:23 1198857

and it stops there and when i try to reconnect im ipbanned...
April 9, 2004, 5:48 AM
ChR0NiC
I hope you are doing this right, but where are you inserting that If statement? Just wanna make sure you put it in the right spot (just post the pBuffer insert not the whole Sub
April 9, 2004, 5:54 AM
GoSuGaMING
[code]
InsertDWORD modDatabaselkey
InsertDWORD version
InsertDWORD Checksum
If varProduct = "PX2D" Then
InsertDWORD 2
Else
InsertDWORD 1
End If
InsertDWORD 0
InsertDWORD Len(vCDkey)
InsertDWORD CLng(modDatabaselProdID)
InsertDWORD CLng(modDatabaselValue1)
InsertDWORD 0
InsertNonNTString AccountHash

If varProduct = "PX2D" Then
[/code]
April 9, 2004, 5:56 AM
Null
[quote author=ChR0NiC link=board=17;threadid=6212;start=0#msg54198 date=1081489511]
Ok I've had fun flaming you, tell me what error you are getting and I'll see if I can help solve your problem, I feel you've suffered enough.
[/quote]

Im sure we will have fun flaming you next time you come up with one your stupid questions.
April 9, 2004, 8:42 AM
BaDDBLooD
[quote author=NuLL link=board=17;threadid=6212;start=15#msg54211 date=1081500133]
[quote author=ChR0NiC link=board=17;threadid=6212;start=0#msg54198 date=1081489511]
Ok I've had fun flaming you, tell me what error you are getting and I'll see if I can help solve your problem, I feel you've suffered enough.
[/quote]

Im sure we will have fun flaming you next time you come up with one your stupid questions.
[/quote]

Back to you for your stupid responses
April 9, 2004, 2:22 PM
GoSuGaMING
omg i feel so dumb.... intead of

[code]
c AccountHash2, Serverkey, lngProdID2, lngValue12, lngValue22, modDatabaselkey[/code]

all i had to do was change serverkey to servers! LOL!
April 9, 2004, 6:46 PM
BinaryzL
Ahh yes I fixed that for him btw.
April 13, 2004, 1:29 AM
LordNevar
That coding is actually from soupbot LOD. Which does have alot of bugs in it, and never really worked properly if I remember correctly. Though I will say that all the MCP functions were done correctly :)
April 13, 2004, 1:46 AM
BaDDBLooD
[quote]

That coding is actually from soupbot LOD. Which does have alot of bugs in it, and never really worked properly if I remember correctly. Though I will say that all the MCP functions were done correctly

[/quote]

Except they don't...
April 13, 2004, 8:28 PM
GoSuGaMING
indeed binary you did help me sory for leaving the thanks out... THANKS <3 GoSuGaMING
April 15, 2004, 7:16 PM

Search