BonziBuddy Leaked Source Code by NixButterPlay
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 

356 lines
11 KiB

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "BBIMSession"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Property Let SessionName(vData) '7143F0
loc_007143F0: push ebp
loc_007143F1: mov ebp, esp
loc_007143F3: sub esp, 0000000Ch
loc_007143F6: push 00412856h ; __vbaExceptHandler
loc_007143FB: mov eax, fs:[00000000h]
loc_00714401: push eax
loc_00714402: mov fs:[00000000h], esp
loc_00714409: sub esp, 0000000Ch
loc_0071440C: push ebx
loc_0071440D: push esi
loc_0071440E: push edi
loc_0071440F: mov var_C, esp
loc_00714412: mov var_8, 004112E8h
loc_00714419: xor edi, edi
loc_0071441B: mov var_4, edi
loc_0071441E: mov esi, Me
loc_00714421: push esi
loc_00714422: mov eax, [esi]
loc_00714424: call [eax+00000004h]
loc_00714427: mov edx, vData
loc_0071442A: mov var_18, edi
loc_0071442D: mov edi, [00401310h] ; __vbaStrCopy
loc_00714433: lea ecx, var_18
loc_00714436: call edi
loc_00714438: mov edx, var_18
loc_0071443B: lea ecx, [esi+0000003Ch]
loc_0071443E: call edi
loc_00714440: push 0071444Fh
loc_00714445: lea ecx, var_18
loc_00714448: call [00401430h] ; __vbaFreeStr
loc_0071444E: ret
loc_0071444F: mov eax, Me
loc_00714452: push eax
loc_00714453: mov ecx, [eax]
loc_00714455: call [ecx+00000008h]
loc_00714458: mov eax, var_4
loc_0071445B: mov ecx, var_14
loc_0071445E: pop edi
loc_0071445F: pop esi
loc_00714460: mov fs:[00000000h], ecx
loc_00714467: pop ebx
loc_00714468: mov esp, ebp
loc_0071446A: pop ebp
loc_0071446B: retn 0008h
End Sub
Public Property Get SessionName(arg_C) '714470
loc_00714470: push ebp
loc_00714471: mov ebp, esp
loc_00714473: sub esp, 0000000Ch
loc_00714476: push 00412856h ; __vbaExceptHandler
loc_0071447B: mov eax, fs:[00000000h]
loc_00714481: push eax
loc_00714482: mov fs:[00000000h], esp
loc_00714489: sub esp, 0000000Ch
loc_0071448C: push ebx
loc_0071448D: push esi
loc_0071448E: push edi
loc_0071448F: mov var_C, esp
loc_00714492: mov var_8, 004112F8h
loc_00714499: xor edi, edi
loc_0071449B: mov var_4, edi
loc_0071449E: mov esi, Me
loc_007144A1: push esi
loc_007144A2: mov eax, [esi]
loc_007144A4: call [eax+00000004h]
loc_007144A7: mov ecx, arg_C
loc_007144AA: mov var_18, edi
loc_007144AD: mov [ecx], edi
loc_007144AF: mov edx, [esi+0000003Ch]
loc_007144B2: lea ecx, var_18
loc_007144B5: call [00401310h] ; __vbaStrCopy
loc_007144BB: push 007144CDh
loc_007144C0: jmp 007144CCh
loc_007144C2: lea ecx, var_18
loc_007144C5: call [00401430h] ; __vbaFreeStr
loc_007144CB: ret
loc_007144CC: ret
loc_007144CD: mov eax, Me
loc_007144D0: push eax
loc_007144D1: mov edx, [eax]
loc_007144D3: call [edx+00000008h]
loc_007144D6: mov eax, arg_C
loc_007144D9: mov ecx, var_18
loc_007144DC: mov [eax], ecx
loc_007144DE: mov eax, var_4
loc_007144E1: mov ecx, var_14
loc_007144E4: pop edi
loc_007144E5: pop esi
loc_007144E6: mov fs:[00000000h], ecx
loc_007144ED: pop ebx
loc_007144EE: mov esp, ebp
loc_007144F0: pop ebp
loc_007144F1: retn 0008h
End Sub
Public Property Set SessionForm(vData) '714500
loc_00714500: push ebp
loc_00714501: mov ebp, esp
loc_00714503: sub esp, 0000000Ch
loc_00714506: push 00412856h ; __vbaExceptHandler
loc_0071450B: mov eax, fs:[00000000h]
loc_00714511: push eax
loc_00714512: mov fs:[00000000h], esp
loc_00714519: sub esp, 0000000Ch
loc_0071451C: push ebx
loc_0071451D: push esi
loc_0071451E: push edi
loc_0071451F: mov var_C, esp
loc_00714522: mov var_8, 00411308h
loc_00714529: xor edi, edi
loc_0071452B: mov var_4, edi
loc_0071452E: mov esi, Me
loc_00714531: push esi
loc_00714532: mov eax, [esi]
loc_00714534: call [eax+00000004h]
loc_00714537: mov ecx, vData
loc_0071453A: lea edx, var_18
loc_0071453D: mov var_18, edi
loc_00714540: mov edi, [00401130h] ; __vbaObjSetAddref
loc_00714546: push ecx
loc_00714547: push edx
loc_00714548: call edi
loc_0071454A: mov eax, var_18
loc_0071454D: add esi, 00000038h
loc_00714550: push eax
loc_00714551: push esi
loc_00714552: call edi
loc_00714554: push 00714563h
loc_00714559: lea ecx, var_18
loc_0071455C: call [0040142Ch] ; __vbaFreeObj
loc_00714562: ret
loc_00714563: mov eax, Me
loc_00714566: push eax
loc_00714567: mov ecx, [eax]
loc_00714569: call [ecx+00000008h]
loc_0071456C: mov eax, var_4
loc_0071456F: mov ecx, var_14
loc_00714572: pop edi
loc_00714573: pop esi
loc_00714574: mov fs:[00000000h], ecx
loc_0071457B: pop ebx
loc_0071457C: mov esp, ebp
loc_0071457E: pop ebp
loc_0071457F: retn 0008h
End Sub
Public Property Get SessionForm(arg_C) '714590
loc_00714590: push ebp
loc_00714591: mov ebp, esp
loc_00714593: sub esp, 0000000Ch
loc_00714596: push 00412856h ; __vbaExceptHandler
loc_0071459B: mov eax, fs:[00000000h]
loc_007145A1: push eax
loc_007145A2: mov fs:[00000000h], esp
loc_007145A9: sub esp, 0000000Ch
loc_007145AC: push ebx
loc_007145AD: push esi
loc_007145AE: push edi
loc_007145AF: mov var_C, esp
loc_007145B2: mov var_8, 00411318h
loc_007145B9: xor edi, edi
loc_007145BB: mov var_4, edi
loc_007145BE: mov esi, Me
loc_007145C1: push esi
loc_007145C2: mov eax, [esi]
loc_007145C4: call [eax+00000004h]
loc_007145C7: mov ecx, arg_C
loc_007145CA: lea eax, var_18
loc_007145CD: mov var_18, edi
loc_007145D0: mov [ecx], edi
loc_007145D2: mov edx, [esi+00000038h]
loc_007145D5: push edx
loc_007145D6: push eax
loc_007145D7: call [00401130h] ; __vbaObjSetAddref
loc_007145DD: push 007145EFh
loc_007145E2: jmp 007145EEh
loc_007145E4: lea ecx, var_18
loc_007145E7: call [0040142Ch] ; __vbaFreeObj
loc_007145ED: ret
loc_007145EE: ret
loc_007145EF: mov eax, Me
loc_007145F2: push eax
loc_007145F3: mov ecx, [eax]
loc_007145F5: call [ecx+00000008h]
loc_007145F8: mov edx, arg_C
loc_007145FB: mov eax, var_18
loc_007145FE: mov [edx], eax
loc_00714600: mov eax, var_4
loc_00714603: mov ecx, var_14
loc_00714606: pop edi
loc_00714607: pop esi
loc_00714608: mov fs:[00000000h], ecx
loc_0071460F: pop ebx
loc_00714610: mov esp, ebp
loc_00714612: pop ebp
loc_00714613: retn 0008h
End Sub
Public Property Set SessionObject(vData) '714690
loc_00714690: push ebp
loc_00714691: mov ebp, esp
loc_00714693: sub esp, 0000000Ch
loc_00714696: push 00412856h ; __vbaExceptHandler
loc_0071469B: mov eax, fs:[00000000h]
loc_007146A1: push eax
loc_007146A2: mov fs:[00000000h], esp
loc_007146A9: sub esp, 0000000Ch
loc_007146AC: push ebx
loc_007146AD: push esi
loc_007146AE: push edi
loc_007146AF: mov var_C, esp
loc_007146B2: mov var_8, 00411330h
loc_007146B9: xor edi, edi
loc_007146BB: mov var_4, edi
loc_007146BE: mov esi, Me
loc_007146C1: push esi
loc_007146C2: mov eax, [esi]
loc_007146C4: call [eax+00000004h]
loc_007146C7: mov ecx, vData
loc_007146CA: lea edx, var_18
loc_007146CD: mov var_18, edi
loc_007146D0: mov edi, [00401130h] ; __vbaObjSetAddref
loc_007146D6: push ecx
loc_007146D7: push edx
loc_007146D8: call edi
loc_007146DA: mov eax, var_18
loc_007146DD: add esi, 00000034h
loc_007146E0: push eax
loc_007146E1: push esi
loc_007146E2: call edi
loc_007146E4: push 007146F3h
loc_007146E9: lea ecx, var_18
loc_007146EC: call [0040142Ch] ; __vbaFreeObj
loc_007146F2: ret
loc_007146F3: mov eax, Me
loc_007146F6: push eax
loc_007146F7: mov ecx, [eax]
loc_007146F9: call [ecx+00000008h]
loc_007146FC: mov eax, var_4
loc_007146FF: mov ecx, var_14
loc_00714702: pop edi
loc_00714703: pop esi
loc_00714704: mov fs:[00000000h], ecx
loc_0071470B: pop ebx
loc_0071470C: mov esp, ebp
loc_0071470E: pop ebp
loc_0071470F: retn 0008h
End Sub
Public Property Get SessionObject(arg_C) '714720
loc_00714720: push ebp
loc_00714721: mov ebp, esp
loc_00714723: sub esp, 0000000Ch
loc_00714726: push 00412856h ; __vbaExceptHandler
loc_0071472B: mov eax, fs:[00000000h]
loc_00714731: push eax
loc_00714732: mov fs:[00000000h], esp
loc_00714739: sub esp, 0000000Ch
loc_0071473C: push ebx
loc_0071473D: push esi
loc_0071473E: push edi
loc_0071473F: mov var_C, esp
loc_00714742: mov var_8, 00411340h
loc_00714749: xor edi, edi
loc_0071474B: mov var_4, edi
loc_0071474E: mov esi, Me
loc_00714751: push esi
loc_00714752: mov eax, [esi]
loc_00714754: call [eax+00000004h]
loc_00714757: mov ecx, arg_C
loc_0071475A: lea eax, var_18
loc_0071475D: mov var_18, edi
loc_00714760: mov [ecx], edi
loc_00714762: mov edx, [esi+00000034h]
loc_00714765: push edx
loc_00714766: push eax
loc_00714767: call [00401130h] ; __vbaObjSetAddref
loc_0071476D: push 0071477Fh
loc_00714772: jmp 0071477Eh
loc_00714774: lea ecx, var_18
loc_00714777: call [0040142Ch] ; __vbaFreeObj
loc_0071477D: ret
loc_0071477E: ret
loc_0071477F: mov eax, Me
loc_00714782: push eax
loc_00714783: mov ecx, [eax]
loc_00714785: call [ecx+00000008h]
loc_00714788: mov edx, arg_C
loc_0071478B: mov eax, var_18
loc_0071478E: mov [edx], eax
loc_00714790: mov eax, var_4
loc_00714793: mov ecx, var_14
loc_00714796: pop edi
loc_00714797: pop esi
loc_00714798: mov fs:[00000000h], ecx
loc_0071479F: pop ebx
loc_007147A0: mov esp, ebp
loc_007147A2: pop ebp
loc_007147A3: retn 0008h
End Sub
Private Sub Proc_66_6_714620
loc_00714620: push ebp
loc_00714621: mov ebp, esp
loc_00714623: sub esp, 0000000Ch
loc_00714626: push 00412856h ; __vbaExceptHandler
loc_0071462B: mov eax, fs:[00000000h]
loc_00714631: push eax
loc_00714632: mov fs:[00000000h], esp
loc_00714639: sub esp, 00000008h
loc_0071463C: push ebx
loc_0071463D: push esi
loc_0071463E: push edi
loc_0071463F: mov var_C, esp
loc_00714642: mov var_8, 00411328h
loc_00714649: mov eax, Me
loc_0071464C: mov ecx, eax
loc_0071464E: and ecx, 00000001h
loc_00714651: mov var_4, ecx
loc_00714654: and al, FEh
loc_00714656: push eax
loc_00714657: mov Me, eax
loc_0071465A: mov edx, [eax]
loc_0071465C: call [edx+00000004h]
loc_0071465F: mov var_4, 00000000h
loc_00714666: mov eax, Me
loc_00714669: push eax
loc_0071466A: mov ecx, [eax]
loc_0071466C: call [ecx+00000008h]
loc_0071466F: mov eax, var_4
loc_00714672: mov ecx, var_14
loc_00714675: pop edi
loc_00714676: pop esi
loc_00714677: mov fs:[00000000h], ecx
loc_0071467E: pop ebx
loc_0071467F: mov esp, ebp
loc_00714681: pop ebp
loc_00714682: retn 0004h
End Sub