Valhalla Legends Archive

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.