Duvida com Formula em VB

[VioxxElite]

Estou com duvidas na formula que esse scrip ultiliza para gerar uma determinada senha

até aonde eu entendi ele pega a data e tambem loc_004091AB: ecx = "1000" porem depois não sei que forma ele ultiliza para gerar a senha

eu verifiquei que ao colocar a senha ele cria o arquivo chamado syscomm.dll e a autenticação e feita por ele porem é uma dll criptografada e não tem como verificar o seu conteúdo

se alguém puder me ajudar estarei agradecido

ao pelo menos se alguém pode dividir todos esses código em partis falando o que cada conjunto faz já me ajudaria muito

Private Sub C1_Click() '407FC0
  loc_00407FE5: var_8 = &H401230
                If (4260204 = 0040413Ch) = 0 Then GoTo loc_00408227
  loc_00408209: var_84 = 8
  loc_00408225: GoTo loc_0040824D
  loc_00408227: 
  loc_00408233: var_37C = "\SysComm.dll"
  loc_0040823D: var_384 = 8
  loc_00408247: ecx = "\SysComm.dll"
  loc_0040824D: 
  loc_00408260: call MSVBVM60.DLL.__vbaLsetFixstr(edi, %x1 = F2.Windowstate, 00404528h, esp)
  loc_00408284: var_37C = 1
  loc_0040828A: var_39C = 1
  loc_004082B1: var_38C = &H50
                For var_3C = &H50 To 1 Step 1
                If var_4B4 = edi Then GoTo loc_00408310
  loc_004082DC: var_40 = %x1 = F2.Windowstate & 00404528h
  loc_004082EB: call MSVBVM60.DLL.__vbaLsetFixstr(edi, %x1 = F2.Windowstate, "", 2, 2, 2)
                Next ""
  loc_0040830E: GoTo loc_004082C1
  loc_00408310: 
  loc_0040832D: var_40 = RT2.Text
  loc_00408354: var_7C = var_40
  loc_00408362: var_84 = 8
  loc_00408380: var_37C = &H40413C
  loc_0040838A: var_384 = &H8008
  loc_00408394: Var_Ret_1 = (Trim("") = )
                If Var_Ret_1 = edi Then GoTo loc_00408481
  loc_004083D8: var_B4 = 10
  loc_004083DE: var_A4 = 10
  loc_004083F5: var_AC = 80020004h
  loc_004083FB: var_9C = 80020004h
  loc_00408401: var_38C = "ATENÇÃO"
  loc_0040840B: var_394 = 8
  loc_0040841F: var_37C = "É necessário colocar a senha!"
  loc_00408429: var_384 = 8
  loc_0040844F: MsgBox "É necessário colocar a senha!", 64, "ATENÇÃO"
  loc_0040847C: GoTo loc_00409DF6
  loc_00408481: 
  loc_00408484: Unknown_VTable_Call[ecx+00000308h]
  loc_004084CB: setl bl
  loc_004084D1: neg ebx
                If ebx = edi Then GoTo loc_004085A4
  loc_004084FB: var_B4 = 10
  loc_00408501: var_A4 = 10
  loc_00408518: var_AC = 80020004h
  loc_0040851E: var_9C = 80020004h
  loc_00408524: var_38C = "ATENÇÃO"
  loc_0040852E: var_394 = 8
  loc_00408542: var_37C = "Senha inválida"
  loc_0040854C: var_384 = 8
  loc_00408572: MsgBox "Senha inválida", 64, "ATENÇÃO"
  loc_0040859F: GoTo loc_00409DF6
  loc_004085A4: 
  loc_004085B0: var_28 = 1
  loc_004085B7: 
                If var_28 > 200 Then GoTo loc_00408BEB
  loc_004085C9: Unknown_VTable_Call[edx+00000328h]
  loc_004085E1: var_488 = ""
  loc_004085E7: var_40 = TextBox.Index
  loc_00408608: Unknown_VTable_Call[edx+00000320h]
  loc_00408620: var_490 = ""
  loc_00408626: var_44 = TextBox.Index
  loc_00408650: var_37C = "####0000"
  loc_0040865A: var_384 = 8
  loc_0040866B: var_7C = var_44
  loc_0040868C: var_84 = 8
  loc_00408696: var_A4 = Format(0, "####0000")
  loc_004086B5: var_38C = "dd/mm/yyyy"
  loc_004086BF: var_394 = 8
  loc_004086F5: var_FC = 2
  loc_004086FB: var_104 = 2
  loc_0040872D: var_3AC = "dd/mm/yyyy"
  loc_00408737: var_3B4 = 8
  loc_0040876D: var_14C = 2
  loc_00408773: var_154 = 2
  loc_00408799: var_3CC = "dd/mm/yyyy"
  loc_004087A3: var_3D4 = 8
  loc_004087F1: var_19C = 4
  loc_004087FB: var_1A4 = 2
  loc_00408813: var_3FC = "##############################"
  loc_0040881D: var_404 = 8
  loc_00408832: var_AC = var_40
  loc_0040885F: call MSVBVM60.DLL.__vbaR8ErrVar(0 & 0, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h)
  loc_00408865: fstp real8 ptr var_50C
  loc_00408872: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(Format(Date, "dd/mm/yyyy"), 4, ))
  loc_00408888: fstp real8 ptr var_514
  loc_00408895: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(Format(Date, "dd/mm/yyyy"), 1, 2))
  loc_004088B2: fstp real8 ptr var_51C
  loc_004088B8: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(Format(Date, "dd/mm/yyyy"), 7, 4))
  loc_004088DE: fstp real8 ptr var_528
  loc_004088F0: var_1C4 = 5
  loc_00408900: fstp real8 ptr var_1BC
  loc_00408931: var_2C = Format(0, "##############################")
  loc_00408A18: var_38C = Format(0, "##############################")
  loc_00408A2F: var_8C = 1
  loc_00408A43: var_394 = &H4008
  loc_00408A62: var_37C = Format(0, "##############################")
  loc_00408A68: var_384 = &H4008
  loc_00408A72: var_84 = Left(, 1)
  loc_00408A7F: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(, 2, 1), 0000001Bh, var_84, 2, 8, Mid$(, 2, 1), Mid$(, 2, 1), Mid$(, 2, 1), Mid$(, 2, 1))
  loc_00408A85: fstp real8 ptr var_530
  loc_00408A92: call MSVBVM60.DLL.__vbaR8ErrVar(var_84)
  loc_00408AAE: call MSVBVM60.DLL.__vbaStrR8
  loc_00408B09: Unknown_VTable_Call[ecx+00000308h]
  loc_00408B27: var_40 = TextBox.Text
  loc_00408B54: var_7C = var_40
  loc_00408B5F: var_40 = 0
  loc_00408B66: var_84 = 8
  loc_00408B70: var_94 = Ucase(var_40)
  loc_00408B87: var_37C = var_2C & MSVBVM60.DLL.__vbaStrR8
  loc_00408B8D: var_384 = &H8008
  loc_00408B97: Var_Ret_2 = (1 = )
                If word ptr Var_Ret_2 <> 0 Then GoTo loc_004090DC
  loc_00408BD9: 00000001h = 00000001h + var_28
  loc_00408BE3: var_28 = 1
  loc_00408BE6: GoTo loc_004085B7
  loc_00408BF5: var_28 = 1
  loc_00408BFC: 
                If var_28 > &HC8 Then GoTo loc_00409D06
  loc_00408C14: var_84 = Date
  loc_00408C26: var_37C = "dd/mm/yyyy"
  loc_00408C30: var_384 = 8
  loc_00408C55: var_A4 = Format(var_40, "dd/mm/yyyy")
  loc_00408C66: var_AC = 2
  loc_00408C9E: var_39C = "dd/mm/yyyy"
  loc_00408CA8: var_3A4 = 8
  loc_00408CDE: var_FC = 2
  loc_00408CE4: var_104 = 2
  loc_00408D16: var_3BC = "dd/mm/yyyy"
  loc_00408D20: var_3C4 = 8
  loc_00408D5A: var_14C = 4
  loc_00408D64: var_154 = 2
  loc_00408D84: var_3EC = "##############################"
  loc_00408D8E: var_3F4 = 8
  loc_00408DA1: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(, 4, 2), 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h)
  loc_00408DB7: fstp real8 ptr var_538
  loc_00408DC4: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(Format(Date, "dd/mm/yyyy"), 1, ))
  loc_00408DE1: fstp real8 ptr var_540
  loc_00408DE7: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(Format(Date, "dd/mm/yyyy"), 7, 4))
  loc_00408E0D: fstp real8 ptr var_54C
  loc_00408E1F: var_174 = 5
  loc_00408E2F: fstp real8 ptr var_16C
  loc_00408E60: var_2C = Format(0, "##############################")
  loc_00408F0D: var_38C = Format(0, "##############################")
  loc_00408F24: var_8C = 1
  loc_00408F38: var_394 = &H4008
  loc_00408F57: var_37C = Format(0, "##############################")
  loc_00408F5D: var_384 = &H4008
  loc_00408F67: var_84 = Left(, 1)
  loc_00408F74: call MSVBVM60.DLL.__vbaR8ErrVar(Mid$(, 2, 1), 00000015h, var_84, 2, Mid$(, 2, 1), 2, 2, 2, 2)
  loc_00408F7A: fstp real8 ptr var_554
  loc_00408F87: call MSVBVM60.DLL.__vbaR8ErrVar(var_84)
  loc_00408FA3: call MSVBVM60.DLL.__vbaStrR8
  loc_00408FAE: var_24 = MSVBVM60.DLL.__vbaStrR8
  loc_00408FF5: var_2C = var_2C & var_24
  loc_00408FFE: Unknown_VTable_Call[edx+00000308h]
  loc_00409016: var_488 = ""
  loc_0040901C: var_40 = TextBox.Text
  loc_00409049: var_7C = var_40
  loc_0040905B: var_84 = 8
  loc_00409065: var_94 = Ucase(0)
  loc_0040907C: var_37C = var_2C
  loc_00409082: var_384 = &H8008
  loc_0040908C: Var_Ret_3 = (1 = )
                If word ptr Var_Ret_3 <> 0 Then GoTo loc_004090DC
  loc_004090CA: 00000001h = 00000001h + var_28
  loc_004090D4: var_28 = 1
  loc_004090D7: GoTo loc_00408BFC
  loc_004090DC: 
  loc_004090E1: var_1C = var_28
  loc_004090F6: var_40 = Dir(%x1 = TextBox.Enabled)
  loc_00409108: neg eax
  loc_0040910A: sbb eax, eax
  loc_0040910F: neg eax
  loc_00409111: neg eax
  loc_00409113: var_488 = (vbEmpty = 0040413Ch)
                If word ptr var_488 = 0 Then GoTo loc_00409137
  loc_00409131: Kill %x1 = TextBox.Enabled
  loc_00409137: 
  loc_0040913E: call MSVBVM60.DLL.__vbaStrVarCopy(%x1 = TextBox.Enabled, 0040452Ch, 000000A0h, 0040452Ch, 000000A0h, "", "", "", "")
  loc_00409156: call Open #(00000002h, FFFFFFFFh, 00000001h, MSVBVM60.DLL.__vbaStrVarCopy(%x1 = TextBox.Enabled, 0040452Ch, 000000A0h, 0040452Ch, 000000A0h, "", "", "", ""))
  loc_00409171: var_37C = "01"
  loc_0040917B: var_384 = 8
  loc_00409185: ecx = "01"
  loc_00409197: var_37C = "1000"
  loc_004091A1: var_384 = 8
  loc_004091AB: ecx = "1000"
  loc_004091B8: var_84 = Date
  loc_004091CA: ecx = ""
  loc_004091ED: var_37C = var_28
  loc_004091F3: var_384 = &H4002
  loc_004091FD: call MSVBVM60.DLL.__vbaR8Var(%x1 = TextBox.Fontsize)
  loc_00409215: var_84 = DateAdd(4212456, %StkVar3, %StkVar4)
  loc_0040923F: var_38C = 6
  loc_00409249: var_394 = &H8002
  loc_00409253: Var_Ret_4 = (1 = 6)
  loc_00409259: var_488 = Var_Ret_4
                If word ptr var_488 = 0 Then GoTo loc_004092FB
  loc_0040928E: var_1C = var_1C + 0002h
  loc_00409298: var_84 = 2
  loc_004092A9: var_7C = var_1C + 0002h
  loc_004092AD: call MSVBVM60.DLL.__vbaR8Var(%x1 = TextBox.Fontsize, Weekday("", 1))
  loc_004092C5: var_94 = DateAdd(4212456, %StkVar3, %StkVar4)
  loc_004092D7: ecx = 1
  loc_004092F6: GoTo loc_00409474
  loc_004092FB: 
  loc_0040930C: var_37C = var_1C + 0002h
  loc_0040931C: call MSVBVM60.DLL.__vbaR8Var(%x1 = TextBox.Fontsize, &H4002)
  loc_00409334: var_84 = DateAdd(4212456, %StkVar3, %StkVar4)
  loc_0040934A: var_94 = Weekday(0, 1)
  loc_0040935E: var_38C = 7
  loc_00409368: var_394 = &H8002
  loc_00409372: Var_Ret_5 = (1 = 7)
  loc_00409378: var_488 = Var_Ret_5
                If word ptr var_488 = 0 Then GoTo loc_00409417
  loc_004093AC: var_1C = var_1C + 0001h
  loc_004093BE: var_7C = var_1C
  loc_004093CC: call MSVBVM60.DLL.__vbaR8Var(%x1 = TextBox.Fontsize, 2)
  loc_004093E4: var_94 = DateAdd(4212456, %StkVar3, %StkVar4)
  loc_004093F6: ecx = 1
  loc_00409415: GoTo loc_00409474
  loc_00409417: 
  loc_00409420: var_37C = var_1C
  loc_00409438: call MSVBVM60.DLL.__vbaR8Var(%x1 = TextBox.Fontsize, &H4002)
  loc_00409450: var_84 = DateAdd(4212456, %StkVar3, %StkVar4)
  loc_00409462: ecx = 0
  loc_00409474: 
  loc_00409477: Unknown_VTable_Call[eax+00000328h]
  loc_00409495: var_40 = TextBox.Index
  loc_004094B6: Unknown_VTable_Call[eax+00000320h]
  loc_004094D4: var_44 = TextBox.Index
  loc_004094F5: Unknown_VTable_Call[eax+00000328h]
  loc_00409513: var_48 = TextBox.Index
  loc_00409534: Unknown_VTable_Call[eax+00000320h]
  loc_00409552: var_4C = TextBox.Index
  loc_0040957C: var_37C = "####0000"
  loc_00409586: var_384 = 8
  loc_00409597: var_7C = var_40
  loc_004095B1: var_40 = 0
  loc_004095B8: var_84 = 8
  loc_004095C2: var_A4 = Format(var_40, "####0000")
  loc_004095D4: var_38C = "####0000"
  loc_004095DE: var_394 = 8
  loc_004095EF: var_AC = var_44
  loc_0040960C: var_44 = 0
  loc_00409613: var_B4 = 8
  loc_0040961D: var_D4 = Format(var_44, "####0000")
  loc_0040962F: var_3BC = &H32
  loc_00409639: var_3C4 = 2
  loc_00409643: var_39C = "####0000"
  loc_0040964D: var_3A4 = 8
  loc_0040965E: var_EC = var_48
  loc_0040967B: var_48 = 0
  loc_00409682: var_F4 = 8
  loc_0040969E: var_3AC = "####0000"
  loc_004096A8: var_3B4 = 8
  loc_004096B9: var_11C = var_4C
  loc_004096DD: var_124 = 8
  loc_004096E7: var_144 = Format(0, "####0000")
  loc_0040970F: var_154 = Format(var_48, "####0000") & 0
  loc_00409727: Var_Ret_6 = 50 - Len(4)
  loc_00409744: var_50 = %x1 = TextBox.Mousepointer
  loc_00409753: var_3CC = var_50
  loc_0040976A: var_3D4 = &H4008
  loc_00409774: var_194 = Mid$(, 1, Var_Ret_6)
  loc_00409783: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_50, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h, 00000001h)
  loc_0040978F: var_3E4 = 8
  loc_004097B1: 0000000Ah = 0000000Ah - Len(TextBox.Mousepointer = %x1)
  loc_004097B3: var_1C4 = 3
  loc_004097C3: var_1BC = 10
  loc_004097CC: var_54 = %x1 = TextBox.Mousepointer
  loc_004097DB: var_3EC = var_54
  loc_004097F2: var_3F4 = &H4008
  loc_004097FC: var_1D4 = Mid$(, 1, 10)
  loc_0040980B: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_54)
  loc_0040981C: var_40C = 2
  loc_00409822: var_414 = 2
  loc_00409845: Var_Ret_7 = 2 - Len(%x1 = TextBox.Fontunder)
  loc_00409862: var_58 = %x1 = TextBox.Mousepointer
  loc_00409871: var_41C = var_58
  loc_00409888: var_424 = &H4008
  loc_00409892: var_234 = Mid$(, 1, Var_Ret_7)
  loc_004098A1: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_58)
  loc_004098BB: var_42C = 4
  loc_004098C6: var_434 = 2
  loc_004098DE: Var_Ret_8 = 4 - Len(%x1 = TextBox.Text)
  loc_004098FB: var_5C = %x1 = TextBox.Mousepointer
  loc_0040990A: var_43C = var_5C
  loc_00409921: var_444 = &H4008
  loc_0040992B: var_294 = Mid$(, 1, Var_Ret_8)
  loc_0040993A: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_5C)
  loc_00409954: var_44C = 10
  loc_0040995F: var_454 = 2
  loc_00409977: Var_Ret_9 = 10 - Len(%x1 = TextBox.Fontsize)
  loc_00409994: var_60 = %x1 = TextBox.Mousepointer
  loc_004099A4: var_45C = var_60
  loc_004099AA: var_464 = &H4008
  loc_004099D3: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_60)
  loc_004099ED: var_46C = 10
  loc_004099F8: var_474 = 2
  loc_00409A10: Var_Ret_A = 10 - Len(%x1 = TextBox.Fontitalic)
  loc_00409A2D: var_64 = %x1 = TextBox.Mousepointer
  loc_00409A3C: var_47C = var_64
  loc_00409A53: var_484 = &H4008
  loc_00409A5D: var_354 = Mid$(, 1, Var_Ret_A)
  loc_00409A6C: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, %x1 = TextBox.Mousepointer, var_64)
  loc_00409A9B: var_1A4 = %StkVar3 & var_64 & var_64
  loc_00409ABD: var_1E4 = 4 & var_64 & var_64
  loc_00409ADF: var_244 = %StkVar3 & var_64 & var_64
  loc_00409B01: var_2A4 = %StkVar3 & var_64 & var_64
  loc_00409B12: var_2B4 = %StkVar3 & var_64
  loc_00409B47: %ecx = %S_edx_S = %ecx = %S_edx_S + 00000058h
  loc_00409B59: ecx = %StkVar3 & var_64 & var_64 & var_64
  loc_00409CB4: var_40 = CStr(%x1 = TextBox.Left)
  loc_00409CC2: Proc_0040A820(var_40, var_2B4, var_84)
  loc_00409CD5: call Print #(00404700h, 00000001h, var_84, var_84, var_40, 00000026h, var_2B4, Mid$(, 1, Var_Ret_9), var_2B4 & var_64)
  loc_00409CF5: Close 00000001h
  loc_00409CFB: End
  loc_00409D01: GoTo loc_00409DF4
  loc_00409D06: 
  loc_00409D16: var_A4 = 10
  loc_00409D2D: var_AC = 80020004h
  loc_00409D33: var_9C = 80020004h
  loc_00409D39: var_38C = "ATENÇÃO"
  loc_00409D43: var_394 = 8
  loc_00409D49: %x1 = #x2%StkVar3 & "ATENÇÃO"
  loc_00409D57: var_37C = "Senha incompatível com a versão ou data do computador errada"
  loc_00409D61: var_384 = 8
  loc_00409D67: %x1 = #x2%StkVar3 & "Senha incompatível com a versão ou data do computador errada"
  loc_00409D87: MsgBox "", 64, 1
  loc_00409DB7: Unknown_VTable_Call[edx+00000308h]
  loc_00409DCD: call TextBox.Setfocus("", Unknown_VTable_Call[edx+00000308h], %ecx = %S_edx_S, 10)
  loc_00409DFF: GoTo loc_00409FAE
  loc_00409FAD: Exit Sub
  loc_00409FAE: 
  loc_00409FEA: Exit Sub
  loc_0040A007: Exit Sub
  loc_0040A00A: GoTo loc_MSVBVM60.DLL.__vbaFPException
End Sub

Editado Novembro 28, 2009 por VioxxElite

[gemajacare]

Ola. você já resolveu o problema da senha???

Estou com mesmo problema e acredito ser a mesma finalidade do seu projeto.

O meu programa gera um resultado .dll e abre no truecrypt.

quero localizar dentro do programa descompilado esta senha.

obrigado