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!
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
any idea why it isnt working? i dont see anything wrong with it!
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.
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!
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 from: GoSuGaMING on April 08, 2004, 07:25 PM
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!
You see? you didn't put anything together....sorry but I am kind of enraged right now.
Quote from: ChR0NiC on April 08, 2004, 08:45 PM
Hmmmmmm, start by writing your own bot, that is clearly from Fire Bot 1.8
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.
Perhaps I was referring to Feanor's TCP Connection.
Here is Feanor's TCP Connection
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
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.
Chronic, no one has ever called you hypocrital in life, I assume?
let he without sin cast the first stone.
Directed at Chronic not Noodlez
Quote from: Noodlez on April 08, 2004, 09:55 PM
Chronic, no one has ever called you hypocrital in life, I assume?
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"
Quote from: BaDDBLooD on April 08, 2004, 08:07 PM
EDIT: I'll remove this later.. i just wanted to ask him a question since he blocked me on aim!
i didnt block you... my new s/n is gosugaming
Quote from: ChR0NiC on April 08, 2004, 08:45 PM
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 from: GoSuGaMING on April 08, 2004, 07:25 PM
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!
You see? you didn't put anything together....sorry but I am kind of enraged right now.
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 from: o.OV on April 09, 2004, 12:36 AM
Quote from: ChR0NiC on April 08, 2004, 08:45 PM
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 from: GoSuGaMING on April 08, 2004, 07:25 PM
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!
You see? you didn't put anything together....sorry but I am kind of enraged right now.
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? ;)
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 :)
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.
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?
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.
if varproduct = "PX2D" then
insertdword 2
else
insertdword 1
end if
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...
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
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
Quote from: ChR0NiC on April 09, 2004, 12:45 AM
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.
Im sure we will have fun flaming you next time you come up with one your stupid questions.
Quote from: NuLL on April 09, 2004, 03:42 AM
Quote from: ChR0NiC on April 09, 2004, 12:45 AM
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.
Im sure we will have fun flaming you next time you come up with one your stupid questions.
Back to you for your stupid responses
omg i feel so dumb.... intead of
c AccountHash2, Serverkey, lngProdID2, lngValue12, lngValue22, modDatabaselkey
all i had to do was change serverkey to servers! LOL!
Ahh yes I fixed that for him btw.
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
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
Except they don't...
indeed binary you did help me sory for leaving the thanks out... THANKS <3 GoSuGaMING