Valhalla Legends Archive

What's your battletag?


Myst#1649

I found this hilarious, last two kids were the best

YouTube Challenge - I Told My Kids I Ate All Their Halloween Candy

Hash Files: http://darkblizz.org/Hashes
Verbyte: 0x0D

QuotePatch 1.13d
--------------------------------------------------------------------------

New Features

Ignoring players is now saved between sessions of the game. All ignores are now written out to disk (file: 'ignorelist'). This feature can be toggled by issuing the command '/ignorepersist'.
Users can now filter messages based on content by issuing the command '/filtermsg <content>'. To unfilter content issue the command '/unfiltermsg <content>'. (The maximum length of a filter pattern is 128 characters)
Users can now set their home channel by issuing a new Battle.net chat command '/home <channel name>' while in the Battle.net chat interface.
Users can return to their home channel at any time by issuing the command '/home' while in the Battle.net chat interface.

Major Bugs

Fixed a known dupe method.
Fixed another issue where players were able to stack auras in an unintended way.

Minor Bugs

Fixed a bug where Mercenaries wouldn't have multiple auras active when they should have.
Fixed an issue where players could create games prefixed with color codes.
Potentially fixed an issue where players would be disconnected when watching the cinematics when in a Battle.net game.
Fixed an issue where the game would crash when running in windowed mode with sound disabled and the game tried to play a cinematic.

Windows Installer: http://us.media.battle.net.edgesuite.net/downloads/d3-installers/4de82d80-ddeb-4e61-80ae-b4e8817f54b0/Diablo-III-Beta-enUS-Setup.exe

Mac Installer: http://us.media.battle.net.edgesuite.net/downloads/d3-installers/4de82d80-ddeb-4e61-80ae-b4e8817f54b0/Diablo-III-Beta-enUS-Setup.zip

Both installers clean/verified to install.

Research/Reversing channel on IRC with a bunch of other people trying to do stuff with D3:
irc.Rizon.net #D3SE

US operation killed Osama Bin Laden, led by the CIA, in a mansion in Pakistan.
Noob got killed in his own muthfuckin house , fuckya! 

DarkBlizz has launched a SC2 Wiki, for means of organization of ideas and new discoveries by the diverse members across the battle.net related communities out there.
People are already contributing!

Check it out: http://wiki.darkblizz.org/

Any problems or suggestions post here or come to irc.rizon.net #SC2Wiki

Some interesting stuff mentioned about the new battle.net

- There's going to be a marketplace for Maps, meaning you can sell your maps and share your revenue with Blizzard.  Thus making people having to pay for certain maps.
Maps can be published onto the blizzard servers and players can browse maps from there.
This means no need for all these popular map websites like http://www.nibbits.com/sc/maps/ or http://www.staredit.net/??

-From what I got out of it, it seems now you can't make a bunch of Battle.net names without buying another copy of SC2.  
And accounts wont expire? so no need for Account joggers?

-There will apparently be no Chat channels on SC2 in the beginning also. The chat will be more like a instant messagnger type thing.

-And they mentioned about the moderation for cheaters and it seems pretty good..something about them having to entirely buy another copy of the game to start again after being banned. Thus effecting them $$$ wise.

Discuss

http://clangnome.spht.net/

Dear Spht,

May the peace which comes from the memories of love shared, comfort you now and in the days ahead. Our hearts go out to you in your time of sorrow. 
Remember this, what moves through us is a silence, a quiet sadness, a longing for one more day, one more word, one more touch, we may not understand why ClanGnome left this earth so soon, or why ClanGnome left before we were ready to say good-bye, but little by little, we begin to remember not just that ClanGnome died, but that ClanGnome lived. And that ClanGnome's life gave us memories too beautiful to forget.
Life is eternal, and love is immortal, and death is only a horizon

My thoughts and prayers go out to you and your loved ones.

~Myst

Post what you last drank...I'll start it out...




^$8.99 per bottle :O , #10 on beeradvocates top #100 beer list. it was pretty damn good

Ok, so I wanted to create another partition but partition magic isnt letting me.  I can't merge, resize, or create what I want to without it saying something that means "you cant do that"
ive tried converting primarys to logical and logicals to primary but that still doesnt work.

Here is the current setup:


What I want is to create another partition, taking away space from that D drive for that new partition.
When I click on Resize Partitions, it is saying "Cannot resize. There are no primary or logical partitions on this drive."

What I think I have to do is get like couple gigs from D drive into that unallocated space, I think. 

According to BnetDocs,

Quote0x02: Too soon

According to a post couple years back

Quote0x02: Not enough alternation since last clan creation action

Now what does this actually mean.  Does too soon mean that you just checked on a tag, and ur over checking it too much..cause that wouldn't hold true, since I tested it on a different key and it worked fine. 
So does anyone have a further explaination on this response. 
Some background on my testing: I have been using this one cdkey and this 0x02 arises when I check a tag, however when I change the key and check the same tag, it gives regular non-0x02 responses.  However, on that key with the 0x02 response, if i check some other random tag like s2fs it would return a non 0x02.  But its wierd.

Just need a further explanation on this.

Well I just bought a Macbook.

It has built in wireless stuff.

Im using the thing called Airport on it, to access wireless networks in my range. 

I found one which didn't require any password, hence it was unsecured. 

and now I use it.   

dont worry though, I use a VPN and when using usernames/pws I make sure the site is using https or other encryption methods.

However....does anyone know the law behind accessing wireless networks which arn't urs?  I've searched quite a bit and there isnt really a concrete answer given.
Plus if the guy doesnt even know how to enable protection on his network I doubt he or she would know how to lookup whos on the network.
BUT, if they do know how to look up whos on the network, what can they actually do to that users, this goes back to the law part of it.

on a side note, these macbooks are freakin cool, id recommend em for college students; its real quiet so perfect for during lectures.

hmmmm

you'll find this funny

http://us.ent4.yimg.com/tv.yahoo.com/images/he/photo/tv_pix/nbc/the_office/rainn_wilson/office_justinlubin.jpg

http://boinc.berkeley.edu/

Firstly, i did lots of searching through this forum yet my problem was still a problem :\
I set up break points and all that mumbo jumbo and included error handlers to see wat was goin on. yet couldnt figure it out
Alright the situation is, that once 0x51 is sent I get Ip Banned. Even though the setup is correct and all the data is there including checksum etc.. Also im sending 0x51 after 0x50 gets parsed.  So do you guys see why I am getting Ip Banned after sending it? or is there something wrong ( I have a feeling it has to do with the Hashed Key Data but maybe not).


Public Sub Send0x51(tmpFormula As String, tmpFileName As String)
Dim Product, PublicValue, PrivateValue As String
Product = frmScan.txtProduct.Text
PublicValue = frmScan.txtPublic.Text
PrivateValue = frmScan.txtPrivate.Text
Dim ClientToken As Long
ClientToken = GetTickCount 'any old number (cant be 0)
Dim MPQNumber As Long
MPQNumber = extractMPQNumber(tmpFileName)
Dim checksum As Long
Dim Check As Long
Check = checkRevisionFlat(tmpFormula, App.Path & "C:\Program Files\Starcraft\Starcraft.exe", App.Path & "C:\Program Files\Starcraft\Battle.snp", App.Path & "C:\Program Files\Starcraft\Storm.dll", extractMPQNumber(tmpFileName), checksum)
Dim KeyHash As String
KeyHash = ClientToken & ServerToken & frmScan.txtProduct & frmScan.txtPublic & vbNullChar & frmScan.txtPrivate
If Dir$("C:\Program Files\Starcraft\Starcraft.exe") = "" Then
MsgBox "hash files not found, aborting check revision"
  Exit Sub
End If
If Check_Revision(tmpFormula, tmpFileName, checksum) = False Then
MsgBox "Check FAILED"
Exit Sub
End If



With buf
.InsertDWORD ClientToken 'GetTickCount()
.InsertDWORD &H101030B 'version of the exe file
.InsertDWORD checksum  'EXE hash
.InsertDWORD &H1 '1 cdkey
.InsertDWORD &H0 'no spawning
.InsertDWORD 13 'length of key
.InsertDWORD Product  'Product Value of Key i.e 01 or 02
.InsertDWORD PublicValue  'Public Value of Cd Key 7digit number
.InsertDWORD &H0 'Null
.InsertNonNTString KeyHash  'Hashed Key Data
.InsertNTString "Day of Destruction" 'Exe Info
.InsertNTString "Thieves" 'Owner Name
.InsertHEADER &H51
.sendPacket frmScan.sckBnet
End With
End Sub


Packet Log of my Program

SEND-> 0000   01                                                 .
SEND-> 0000   FF 50 3B 00 00 00 00 00 36 38 58 49 52 41 54 53    .P;.....68XIRATS
SEND-> 0010   CD 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
SEND-> 0020   00 00 00 00 00 00 00 00 47 42 52 00 55 6E 69 74    ........GBR.Unit
SEND-> 0030   65 64 20 4B 69 6E 67 64 6F 6D 00                   ed Kingdom.
RECV-> 0000   FF 25 08 00 1E D8 11 70 FF 50 63 00 00 00 00 00    .%.....p.Pc.....
RECV-> 0010   25 2C 53 6A B1 61 19 00 00 AC 41 43 25 0B C5 01    %,Sj.a....AC%...
RECV-> 0020   49 58 38 36 76 65 72 35 2E 6D 70 71 00 41 3D 39    IX86ver5.mpq.A=9
RECV-> 0030   37 34 39 39 30 37 32 39 20 42 3D 33 32 36 38 31    74990729 B=32681
RECV-> 0040   38 30 33 32 20 43 3D 35 35 30 32 39 30 31 37 33    8032 C=550290173
RECV-> 0050   20 34 20 41 3D 41 5E 53 20 42 3D 42 5E 43 20 43     4 A=A^S B=B^C C
RECV-> 0060   3D 43 5E 41                                        =C^A
SEND-> 0000   FF 25 08 00 1E D8 11 70                            .%.....p
SEND-> 0000   FF 51 62 00 2B 6B B2 01 0B 03 01 01 08 FF 58 CE    .Qb.+k........X.
SEND-> 0010   01 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00    ................
SEND-> 0020   90 28 1F 00 00 00 00 00 32 38 34 37 30 30 35 39    .(......28470059
SEND-> 0030   31 37 38 33 38 33 35 36 38 35 30 31 32 30 34 32    1783835685012042
SEND-> 0040   30 30 30 00 30 30 30 44 61 79 20 6F 66 20 44 65    000.000Day of De
SEND-> 0050   73 74 72 75 63 74 69 6F 6E 00 54 68 69 65 76 65    struction.Thieve
SEND-> 0060   73 00                                              s.


If someone would be so kind 

Very Funny, always makes me laugh
(Just Click on SS, no need to DL plays directly on site)

Quote
"We know there are known knowns: there are things we know we know.  We also know there are known unknowns: that is to say we know there are things we know we don't know.  But there are also unknown unknowns---the ones we don't know we don't know."
-- Secretary of Defence Donald Rumsfeld

Quote
"No, President has ever done more for human rights than I have."
--President George W. Bush

Quote
"I am the commander, see?  I do not need to explain why I say things.  That's the interesting thing about begin the President.  Maybe somebody needs to explain to me why they say something, but I don't feel like I owe anybody an explanation."
--President George W. Bush

Comment or Drop a few quotes yourself.

The code for doing all this is in the module modRTFpic


Option Explicit

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
   (ByVal lpDriverName As String, ByVal lpDeviceName As String, _
   ByVal lpOutput As Long, ByVal lpInitData As Long) As Long


Private Declare Function BitBlt Lib "gdi32" ( _
    ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long _
) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" ( _
    ByVal hdc As Long _
) As Long

Private Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" ( _
    ByVal lpString As String _
) As Long

Private Declare Function CloseMetaFile Lib "gdi32" ( _
    ByVal hDCMF As Long _
) As Long

Private Declare Function DeleteMetaFile Lib "gdi32" ( _
    ByVal hMF As Long _
) As Long

Private Declare Function DeleteDC Lib "gdi32" ( _
    ByVal hdc As Long _
) As Long

Private Declare Function DeleteObject Lib "gdi32" ( _
    ByVal hObject As Long _
) As Long

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" ( _
    ByVal hObject As Long, _
    ByVal nCount As Long, _
    lpObject As Any _
) As Long

Private Declare Function GetDC Lib "user32" ( _
    ByVal hwnd As Long _
) As Long

Private Declare Function ReleaseDC Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hdc As Long _
) As Long

Private Declare Function RestoreDC Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal nSavedDC As Long _
) As Long

Private Declare Function SetMapMode Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal nMapMode As Long _
) As Long

Private Declare Function SetWindowExtEx Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal nX As Long, _
    ByVal nY As Long, _
    lpSize As Size _
) As Long

Private Declare Function SetWindowOrgEx Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal nX As Long, _
    ByVal nY As Long, _
    lpPoint As POINTAPI _
) As Long

Private Declare Function SaveDC Lib "gdi32" ( _
    ByVal hdc As Long _
) As Long

Private Declare Function SelectObject Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal hObject As Long _
) As Long

Private Const MM_ANISOTROPIC = 8

Private Type Size
    x As Long
    y As Long
End Type

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type BITMAP
    Type   As Long
    Width  As Long
    Height As Long
    WidthB As Long
    Planes As Long
    BitsPx As Long
    Bits   As Long
End Type

'Inserts the picture at the current insertion point
Public Function InsertPicture(RTB As RichTextBox, pic As StdPicture)
Dim strRTFall As String
Dim lStart As Long
    With RTB
        .SelText = Chr(&H9D) & .SelText & Chr(&H81)
        strRTFall = .TextRTF
        strRTFall = Replace(strRTFall, "\'9d", PictureToRTF(pic))
        .TextRTF = strRTFall
        'position cursor past new insertion
        lStart = .Find(Chr(&H81))
        strRTFall = Replace(strRTFall, "\'81", "")
        .TextRTF = strRTFall
        .SelStart = lStart
    End With
End Function

'returns the RTF string representation of our picture
Public Function PictureToRTF(pic As StdPicture) As String
    Dim hMetaDC As Long, hMeta As Long, hPicDC As Long, hOldBmp As Long
    Dim Bmp As BITMAP, Sz As Size, Pt As POINTAPI
    Dim sTempFile As String, screenDC As Long
    Dim headerStr As String, retStr As String, byteStr As String
    Dim ByteArr() As Byte, nBytes As Long
    Dim fn As Long, i As Long, j As Long

    sTempFile = App.Path & "\My Documents\da.bmp" & ((Rnd * 1000000) + 1000000) \ 1 & ".tmp"  'some temprory file
    If Dir(sTempFile) <> "" Then Kill sTempFile
   
    'Create a metafile which is a collection of structures that store a
    'picture in a device-independent format.
    hMetaDC = CreateMetaFile(sTempFile)
   
    'set size of Metafile window
    SetMapMode hMetaDC, MM_ANISOTROPIC
    SetWindowOrgEx hMetaDC, 0, 0, Pt
    GetObject pic.Handle, Len(Bmp), Bmp
    SetWindowExtEx hMetaDC, Bmp.Width, Bmp.Height, Sz
    'save sate for later retrieval
    SaveDC hMetaDC
   
    'get DC compatible to screen
    screenDC = GetDC(0)
    hPicDC = CreateCompatibleDC(screenDC)
    ReleaseDC 0, screenDC
   
    'set out picture as new DC picture
    hOldBmp = SelectObject(hPicDC, pic.Handle)
   
    'copy our picture to metafile
    BitBlt hMetaDC, 0, 0, Bmp.Width, Bmp.Height, hPicDC, 0, 0, vbSrcCopy
   
    'cleanup - close metafile
    SelectObject hPicDC, hOldBmp
    DeleteDC hPicDC
    DeleteObject hOldBmp
    'retrieve saved state
    RestoreDC hMetaDC, True
    hMeta = CloseMetaFile(hMetaDC)
    DeleteMetaFile hMeta
   
    'header to string we want to insert
    headerStr = "{\pict\wmetafile8" & _
                "\picw" & pic.Width & "\pich" & pic.Height & _
                "\picwgoal" & Bmp.Width * Screen.TwipsPerPixelX & _
                "\pichgoal" & Bmp.Height * Screen.TwipsPerPixelY & _
                " "
       
    'read metafile from disk into byte array
    nBytes = FileLen(sTempFile)
    ReDim ByteArr(1 To nBytes)
    fn = FreeFile()
    Open sTempFile For Binary Access Read As #fn
    Get #fn, , ByteArr
    Close #fn
    Dim nlines As Long
       
    'turn each byte into two char hex value
    i = 0
    byteStr = ""
    Do
        byteStr = byteStr & vbCrLf
        For j = 1 To 39
            i = i + 1
            If i > nBytes Then Exit For
            byteStr = byteStr & Hex00(ByteArr(i))
        Next j
    Loop While i < nBytes
   
    'string we will be inserting
    retStr = headerStr & LCase(byteStr) & vbCrLf & "}"
    PictureToRTF = retStr
   
    'remove temp metafile
    Kill sTempFile

End Function

'adds leading zero to hex value if needed.
Public Function Hex00(icolor As Byte) As String
    Hex00 = Right("0" & Hex(icolor), 2)
End Function

Private Sub Form_Load()
modRTFpic.InsertPicture
End Sub

and i seem to be getting arguement not optional error. i searched msdn for help but no success.  So am i doing something wrong?