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.
334 lines
10 KiB
334 lines
10 KiB
VERSION 5.00
|
|
Begin VB.Form frmGoldPasswordEntry
|
|
Caption = "Please enter your Gold Member Password"
|
|
ScaleMode = 0
|
|
AutoRedraw = False
|
|
FontTransparent = True
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Icon = "frmGoldPasswordEntry.frx":0000
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ClientLeft = 2835
|
|
ClientTop = 3480
|
|
ClientWidth = 4410
|
|
ClientHeight = 1290
|
|
ScaleLeft = 0
|
|
ScaleTop = 0
|
|
ScaleWidth = 4140.751
|
|
ScaleHeight = 762.175
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 2 'CenterScreen
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Left = 833
|
|
Top = 780
|
|
Width = 1140
|
|
Height = 390
|
|
TabIndex = 2
|
|
Default = -1 'True
|
|
End
|
|
Begin VB.CommandButton cmdCancel
|
|
Caption = "Cancel"
|
|
Left = 2438
|
|
Top = 780
|
|
Width = 1140
|
|
Height = 390
|
|
TabIndex = 3
|
|
Cancel = -1 'True
|
|
End
|
|
Begin VB.TextBox txtPassword
|
|
Left = 1155
|
|
Top = 195
|
|
Width = 2445
|
|
Height = 405
|
|
TabIndex = 1
|
|
PasswordChar = "*"
|
|
End
|
|
Begin VB.Label lblLabels
|
|
Caption = "&Password: "
|
|
Index = 1
|
|
Left = 210
|
|
Top = 300
|
|
Width = 825
|
|
Height = 195
|
|
TabIndex = 0
|
|
AutoSize = -1 'True
|
|
End
|
|
End
|
|
|
|
Attribute VB_Name = "frmGoldPasswordEntry"
|
|
|
|
Public g_blnGoldLoginSucceeded As Boolean
|
|
|
|
|
|
Private Sub cmdOK_Click() '728140
|
|
loc_00728140: push ebp
|
|
loc_00728141: mov ebp, esp
|
|
loc_00728143: sub esp, 0000000Ch
|
|
loc_00728146: push 00412856h ; __vbaExceptHandler
|
|
loc_0072814B: mov eax, fs:[00000000h]
|
|
loc_00728151: push eax
|
|
loc_00728152: mov fs:[00000000h], esp
|
|
loc_00728159: sub esp, 00000050h
|
|
loc_0072815C: push ebx
|
|
loc_0072815D: push esi
|
|
loc_0072815E: push edi
|
|
loc_0072815F: mov var_C, esp
|
|
loc_00728162: mov var_8, 00412158h
|
|
loc_00728169: mov edi, Me
|
|
loc_0072816C: mov eax, edi
|
|
loc_0072816E: and eax, 00000001h
|
|
loc_00728171: mov var_4, eax
|
|
loc_00728174: and edi, FFFFFFFEh
|
|
loc_00728177: push edi
|
|
loc_00728178: mov Me, edi
|
|
loc_0072817B: mov ecx, [edi]
|
|
loc_0072817D: call [ecx+00000004h]
|
|
loc_00728180: mov edx, [edi]
|
|
loc_00728182: xor ebx, ebx
|
|
loc_00728184: push edi
|
|
loc_00728185: mov var_18, ebx
|
|
loc_00728188: mov var_1C, ebx
|
|
loc_0072818B: mov var_20, ebx
|
|
loc_0072818E: mov var_30, ebx
|
|
loc_00728191: mov var_50, ebx
|
|
loc_00728194: call [edx+00000304h]
|
|
loc_0072819A: push eax
|
|
loc_0072819B: lea eax, var_20
|
|
loc_0072819E: push eax
|
|
loc_0072819F: call [00401128h] ; __vbaObjSet
|
|
loc_007281A5: mov esi, eax
|
|
loc_007281A7: lea edx, var_18
|
|
loc_007281AA: push edx
|
|
loc_007281AB: push esi
|
|
loc_007281AC: mov ecx, [esi]
|
|
loc_007281AE: call [ecx+000000A0h]
|
|
loc_007281B4: cmp eax, ebx
|
|
loc_007281B6: fnclex
|
|
loc_007281B8: jge 007281CCh
|
|
loc_007281BA: push 000000A0h
|
|
loc_007281BF: push 0043F42Ch
|
|
loc_007281C4: push esi
|
|
loc_007281C5: push eax
|
|
loc_007281C6: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_007281CC: mov edx, var_18
|
|
loc_007281CF: mov ecx, 00000008h
|
|
loc_007281D4: push edx
|
|
loc_007281D5: mov eax, 0043C9F4h
|
|
loc_007281DA: sub esp, 00000010h
|
|
loc_007281DD: mov edx, esp
|
|
loc_007281DF: push 00453878h ; "GoldPass"
|
|
loc_007281E4: push 0044317Ch ; "UserInfo"
|
|
loc_007281E9: mov [edx], ecx
|
|
loc_007281EB: mov ecx, var_3C
|
|
loc_007281EE: push 004537A4h ; "BonziBUDDY"
|
|
loc_007281F3: mov [edx+00000004h], ecx
|
|
loc_007281F6: mov [edx+00000008h], eax
|
|
loc_007281F9: mov eax, var_34
|
|
loc_007281FC: mov [edx+0000000Ch], eax
|
|
loc_007281FF: call [00401354h] ; rtcGetSetting
|
|
loc_00728205: mov edx, eax
|
|
loc_00728207: lea ecx, var_1C
|
|
loc_0072820A: call [004013C0h] ; __vbaStrMove
|
|
loc_00728210: push eax
|
|
loc_00728211: call [004011B8h] ; __vbaStrCmp
|
|
loc_00728217: mov esi, eax
|
|
loc_00728219: lea ecx, var_1C
|
|
loc_0072821C: neg esi
|
|
loc_0072821E: sbb esi, esi
|
|
loc_00728220: lea edx, var_18
|
|
loc_00728223: push ecx
|
|
loc_00728224: inc esi
|
|
loc_00728225: push edx
|
|
loc_00728226: push 00000002h
|
|
loc_00728228: neg esi
|
|
loc_0072822A: call [00401324h] ; __vbaFreeStrList
|
|
loc_00728230: mov ebx, [0040142Ch] ; __vbaFreeObj
|
|
loc_00728236: add esp, 0000000Ch
|
|
loc_00728239: lea ecx, var_20
|
|
loc_0072823C: call ebx
|
|
loc_0072823E: test si, si
|
|
loc_00728241: jz 00728273h
|
|
loc_00728243: mov eax, [edi]
|
|
loc_00728245: push edi
|
|
loc_00728246: mov [edi+00000034h], FFFFFFh
|
|
loc_0072824C: call [eax+000002B4h]
|
|
loc_00728252: test eax, eax
|
|
loc_00728254: fnclex
|
|
loc_00728256: jge 00728389h
|
|
loc_0072825C: push 000002B4h
|
|
loc_00728261: push 004762D4h
|
|
loc_00728266: push edi
|
|
loc_00728267: push eax
|
|
loc_00728268: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_0072826E: jmp 00728389h
|
|
loc_00728273: mov eax, [0073A08Ch]
|
|
loc_00728278: lea edx, var_20
|
|
loc_0072827B: push edx
|
|
loc_0072827C: push 004522E4h ; "Sad"
|
|
loc_00728281: mov ecx, [eax]
|
|
loc_00728283: push eax
|
|
loc_00728284: call [ecx+00000064h]
|
|
loc_00728287: test eax, eax
|
|
loc_00728289: fnclex
|
|
loc_0072828B: jge 007282A2h
|
|
loc_0072828D: mov ecx, [0073A08Ch]
|
|
loc_00728293: push 00000064h
|
|
loc_00728295: push 004419ACh
|
|
loc_0072829A: push ecx
|
|
loc_0072829B: push eax
|
|
loc_0072829C: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_007282A2: lea ecx, var_20
|
|
loc_007282A5: call ebx
|
|
loc_007282A7: lea ebx, var_20
|
|
loc_007282AA: mov ecx, 0000000Ah
|
|
loc_007282AF: push ebx
|
|
loc_007282B0: mov eax, 80020004h
|
|
loc_007282B5: sub esp, 00000010h
|
|
loc_007282B8: mov esi, [0073A08Ch]
|
|
loc_007282BE: mov ebx, esp
|
|
loc_007282C0: sub esp, 00000010h
|
|
loc_007282C3: mov var_40, 00000008h
|
|
loc_007282CA: mov esi, [esi]
|
|
loc_007282CC: mov [ebx], ecx
|
|
loc_007282CE: mov ecx, var_4C
|
|
loc_007282D1: mov edx, 00476324h ; "Invalid password, please try again!"
|
|
loc_007282D6: mov [ebx+00000004h], ecx
|
|
loc_007282D9: mov ecx, esp
|
|
loc_007282DB: mov [ebx+00000008h], eax
|
|
loc_007282DE: mov eax, var_44
|
|
loc_007282E1: mov [ebx+0000000Ch], eax
|
|
loc_007282E4: mov eax, var_40
|
|
loc_007282E7: mov [ecx], eax
|
|
loc_007282E9: mov eax, var_3C
|
|
loc_007282EC: mov [ecx+00000004h], eax
|
|
loc_007282EF: mov eax, [0073A08Ch]
|
|
loc_007282F4: push eax
|
|
loc_007282F5: mov [ecx+00000008h], edx
|
|
loc_007282F8: mov edx, var_34
|
|
loc_007282FB: mov [ecx+0000000Ch], edx
|
|
loc_007282FE: call [esi+00000078h]
|
|
loc_00728301: test eax, eax
|
|
loc_00728303: fnclex
|
|
loc_00728305: jge 0072831Ch
|
|
loc_00728307: mov ecx, [0073A08Ch]
|
|
loc_0072830D: push 00000078h
|
|
loc_0072830F: push 004419ACh
|
|
loc_00728314: push ecx
|
|
loc_00728315: push eax
|
|
loc_00728316: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_0072831C: mov ebx, [0040142Ch] ; __vbaFreeObj
|
|
loc_00728322: lea ecx, var_20
|
|
loc_00728325: call ebx
|
|
loc_00728327: mov edx, [edi]
|
|
loc_00728329: push edi
|
|
loc_0072832A: call [edx+00000304h]
|
|
loc_00728330: push eax
|
|
loc_00728331: lea eax, var_20
|
|
loc_00728334: push eax
|
|
loc_00728335: call [00401128h] ; __vbaObjSet
|
|
loc_0072833B: mov esi, eax
|
|
loc_0072833D: push esi
|
|
loc_0072833E: mov ecx, [esi]
|
|
loc_00728340: call [ecx+00000204h]
|
|
loc_00728346: test eax, eax
|
|
loc_00728348: fnclex
|
|
loc_0072834A: jge 0072835Eh
|
|
loc_0072834C: push 00000204h
|
|
loc_00728351: push 0043F42Ch
|
|
loc_00728356: push esi
|
|
loc_00728357: push eax
|
|
loc_00728358: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_0072835E: lea ecx, var_20
|
|
loc_00728361: call ebx
|
|
loc_00728363: lea edx, var_30
|
|
loc_00728366: mov var_28, 80020004h
|
|
loc_0072836D: push edx
|
|
loc_0072836E: push 00476370h ; "{Home}+{End}"
|
|
loc_00728373: mov var_30, 0000000Ah
|
|
loc_0072837A: call [00401140h] ; rtcSendKeys
|
|
loc_00728380: lea ecx, var_30
|
|
loc_00728383: call [00401030h] ; __vbaFreeVar
|
|
loc_00728389: mov var_4, 00000000h
|
|
loc_00728390: push 007283BEh
|
|
loc_00728395: jmp 007283BDh
|
|
loc_00728397: lea eax, var_1C
|
|
loc_0072839A: lea ecx, var_18
|
|
loc_0072839D: push eax
|
|
loc_0072839E: push ecx
|
|
loc_0072839F: push 00000002h
|
|
loc_007283A1: call [00401324h] ; __vbaFreeStrList
|
|
loc_007283A7: add esp, 0000000Ch
|
|
loc_007283AA: lea ecx, var_20
|
|
loc_007283AD: call [0040142Ch] ; __vbaFreeObj
|
|
loc_007283B3: lea ecx, var_30
|
|
loc_007283B6: call [00401030h] ; __vbaFreeVar
|
|
loc_007283BC: ret
|
|
loc_007283BD: ret
|
|
loc_007283BE: mov eax, Me
|
|
loc_007283C1: push eax
|
|
loc_007283C2: mov edx, [eax]
|
|
loc_007283C4: call [edx+00000008h]
|
|
loc_007283C7: mov eax, var_4
|
|
loc_007283CA: mov ecx, var_14
|
|
loc_007283CD: pop edi
|
|
loc_007283CE: pop esi
|
|
loc_007283CF: mov fs:[00000000h], ecx
|
|
loc_007283D6: pop ebx
|
|
loc_007283D7: mov esp, ebp
|
|
loc_007283D9: pop ebp
|
|
loc_007283DA: retn 0004h
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click() '7280B0
|
|
loc_007280B0: push ebp
|
|
loc_007280B1: mov ebp, esp
|
|
loc_007280B3: sub esp, 0000000Ch
|
|
loc_007280B6: push 00412856h ; __vbaExceptHandler
|
|
loc_007280BB: mov eax, fs:[00000000h]
|
|
loc_007280C1: push eax
|
|
loc_007280C2: mov fs:[00000000h], esp
|
|
loc_007280C9: sub esp, 0000000Ch
|
|
loc_007280CC: push ebx
|
|
loc_007280CD: push esi
|
|
loc_007280CE: push edi
|
|
loc_007280CF: mov var_C, esp
|
|
loc_007280D2: mov var_8, 00412150h
|
|
loc_007280D9: mov esi, Me
|
|
loc_007280DC: mov eax, esi
|
|
loc_007280DE: and eax, 00000001h
|
|
loc_007280E1: mov var_4, eax
|
|
loc_007280E4: and esi, FFFFFFFEh
|
|
loc_007280E7: push esi
|
|
loc_007280E8: mov Me, esi
|
|
loc_007280EB: mov ecx, [esi]
|
|
loc_007280ED: call [ecx+00000004h]
|
|
loc_007280F0: mov edx, [esi]
|
|
loc_007280F2: xor edi, edi
|
|
loc_007280F4: push esi
|
|
loc_007280F5: mov [esi+00000034h], di
|
|
loc_007280F9: call [edx+000002B4h]
|
|
loc_007280FF: cmp eax, edi
|
|
loc_00728101: fnclex
|
|
loc_00728103: jge 00728117h
|
|
loc_00728105: push 000002B4h
|
|
loc_0072810A: push 004762D4h
|
|
loc_0072810F: push esi
|
|
loc_00728110: push eax
|
|
loc_00728111: call [004010CCh] ; __vbaHresultCheckObj
|
|
loc_00728117: mov var_4, edi
|
|
loc_0072811A: mov eax, Me
|
|
loc_0072811D: push eax
|
|
loc_0072811E: mov ecx, [eax]
|
|
loc_00728120: call [ecx+00000008h]
|
|
loc_00728123: mov eax, var_4
|
|
loc_00728126: mov ecx, var_14
|
|
loc_00728129: pop edi
|
|
loc_0072812A: pop esi
|
|
loc_0072812B: mov fs:[00000000h], ecx
|
|
loc_00728132: pop ebx
|
|
loc_00728133: mov esp, ebp
|
|
loc_00728135: pop ebp
|
|
loc_00728136: retn 0004h
|
|
End Sub
|