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